神魂顛倒論壇logo

icon
首頁Microsoft 應用技術區.NET / Visual Studio → [教學]動態產生垂直跑馬燈ASP+JavaScript

雷射溶脂 | 瘦小腹 | 植髮 | 眼袋 | 玻尿酸 | 電波拉皮 | Flash | 購物車 | Flash Player 11.2 | 豐胸 |

下一主題 上一主題


[教學]動態產生垂直跑馬燈ASP+JavaScript


簡版






以下範例可用於公告系統,搭配資料庫讀取資料更好了。
<%
Dim LinkArray,TextArray,IndexArray
' 建立 LinkArray 超連結陣列值
LinkArray = 5
' 建立 TextArray 超連結文字陣列值
TextArray = LinkArray
' 建立 IndexArray 所有資料之陣列值
IndexArray = LinkArray + 1
' 建立跑馬燈標籤
Dim StrMarquee
StrMarquee = "documents.write ("<marquee scrollamount='1'" & _
" scrolldelay='60' direction='up' width='200' id=maq hei" & _
"ght='110' onmouseover=maq.stop() onmouseout=maq.st" & _
"art()>");"
' 用 Replace 過瀘 " 為 " 雙引號
StrMarquee = Replace(StrMarquee,""","""")
' 建立超連結標籤
Dim DucumentMarquee
DocumentMarquee = "documents.write ("<a href="+href[m]+" & _
"" target=_blank>"+href_text[m]+"</a><p>");}"
' 用 Replace 過瀘 " 為 " 雙引號
DocumentMarquee = Replace(DocumentMarquee,""","""")
Response.Write("<script language=javascript>") & vbCrlf
Response.Write("var href_index = "&IndexArray&"") & vbCrlf
Response.Write("href = new Array("&LinkArray&");") & vbCrlf
Response.Write("href_text = new Array("&TextArray&");") & vbCrlf
For I=0 To LinkArray
Response.Write("href["&I&"] = 'test.asp'") & vbCrlf
Response.Write("href_text["&I&"] = '可以使用ASP產生垂直JavaScript跑馬燈'") & vbCrlf
Next
Response.Write(StrMarquee) & vbCrlf
Response.Write("for (m=0;m<href_index;m++){") & vbCrlf
Response.Write(DocumentMarquee) & vbCrlf
Response.Write("</script>") & vbCrlf
%>
以上程式碼放在 <head> 與 </head> 之間




自體脂肪隆乳 | 回到頂部

簡版






以下範例可用於公告系統,搭配資料庫讀取資料更好了。
<%
Dim LinkArray,TextArray,IndexArray
' 建立 LinkArray 超連結陣列值
LinkArray = 5
' 建立 TextArray 超連結文字陣列值
TextArray = LinkArray
' 建立 IndexArray 所有資料之陣列值
IndexArray = LinkArray + 1
' 建立跑馬燈標籤
Dim StrMarquee
StrMarquee = "documents.write ("<marquee scrollamount='1'" & _
" scrolldelay='60' direction='up' width='200' id=maq hei" & _
"ght='110' onmouseover=maq.stop() onmouseout=maq.st" & _
"art()>");"
' 用 Replace 過瀘 " 為 " 雙引號
StrMarquee = Replace(StrMarquee,""","""")
' 建立超連結標籤
Dim DucumentMarquee
DocumentMarquee = "documents.write ("<a href="+href[m]+" & _
"" target=_blank>"+href_text[m]+"</a><p>");}"
' 用 Replace 過瀘 " 為 " 雙引號
DocumentMarquee = Replace(DocumentMarquee,""","""")
Response.Write("<script language=javascript>") & vbCrlf
Response.Write("var href_index = "&IndexArray&"") & vbCrlf
Response.Write("href = new Array("&LinkArray&");") & vbCrlf
Response.Write("href_text = new Array("&TextArray&");") & vbCrlf
For I=0 To LinkArray
Response.Write("href["&I&"] = 'test.asp'") & vbCrlf
Response.Write("href_text["&I&"] = '可以使用ASP產生垂直JavaScript跑馬燈'") & vbCrlf
Next
Response.Write(StrMarquee) & vbCrlf
Response.Write("for (m=0;m<href_index;m++){") & vbCrlf
Response.Write(DocumentMarquee) & vbCrlf
Response.Write("</script>") & vbCrlf
%>
以上程式碼放在 <head> 與 </head> 之間




自體脂肪隆乳 | 回到頂部

簡版






…要怎樣才能得到錢??
我沒有錢也可以要這個程式碼嗎?
急需~"~



自體脂肪隆乳 | 回到頂部

簡版






我的mail是isme410@yahoo.com.tw
如果版大大可憐可憐我的話
拜託寄給我~"~



瘦小腹 | 回到頂部
下一主題 上一主題