?? cndevforum.vbs
字號:
'腳本功能:在本地顯示回復情況
Sub OpenLocalReply(sid,divbgc,treply)
'alert(sid)
dim imgPlus,imgMinus,txtSpan,trSpan
'eval("alert(sid)")
imgPlus = "ip" & sid& ".style.display=""none"""
imgMinus = "im" & sid& ".style.display="""""
txtSpan = "ts" & sid &".innerHTML=""<MARQUEE DIRECTION=LEFT BEHAVIOR=SCROLL SCROLLAMOUNT=30 width=200 SCROLLDELAY=400 style=""""BORDER-LEFT: black 1px solid; BORDER-RIGHT: black 1px solid; BORDER-BOTTOM: black 1px solid; BORDER-TOP: black 1px solid;BACKGROUND-COLOR: "&divbgc&""""">正在讀取回復信息...</MARQUEE>"""
trSpan="ss" &sid& ".style.display="""""
'alert trSpan
execute imgPlus
execute imgMinus
execute txtSpan
execute trSpan
localReply.location="zvbs_reply.asp?treply="& treply &"&subject_id="& sid
End sub
'功能:隱藏本地回復的SPAN
Sub HideLocalReply(sid)
dim imgPlus,imgMinus,txtSpan,trSpan
imgPlus = "ip" & sid& ".style.display="""""
imgMinus = "im" & sid& ".style.display=""none"""
txtSpan = "ts" & sid &".innerHTML="""""
trSpan="ss" &sid& ".style.display=""none"""
execute imgPlus
execute imgMinus
execute txtSpan
execute trSpan
End sub
'在本地顯示某個主題或者回復IP地址
Sub OpenLocalIP(sip,ip_content)
'alert(sip)
dim txtSpan,trSpan
txtSpan = "ipc_" & ip_content &".innerHTML=""<MARQUEE DIRECTION=LEFT BEHAVIOR=SCROLL SCROLLAMOUNT=30 width=200 SCROLLDELAY=400 style=""""BORDER: black 1px solid;BACKGROUND-COLOR: transparent"""">正在讀取IP地址信息...</MARQUEE>"""
trSpan="ipc_" &ip_content& ".style.display="""""
'alert trSpan
execute txtSpan
execute trSpan
localIP.location="zvbs_ip_address.asp?sip="& sip &"&content="& ip_content
End Sub
'顯示本文評價情況
Sub OpenFlowerDetail(ip_content,subject_id)
'alert(sip)
dim txtSpan,trSpan
'txtSpan = "vf_" & ip_content &".innerHTML=""<MARQUEE ID=vf_marquee DIRECTION=LEFT BEHAVIOR=SCROLL SCROLLAMOUNT=10 width=50% SCROLLDELAY=150 style=""""BORDER: black 1px solid;BACKGROUND-COLOR: transparent"""">正在讀取評價信息...</MARQUEE>"""
trSpan="vf_" &ip_content& ".style.display=""block"""
'execute txtSpan
execute trSpan
localIP.location="zvbs_flower.asp?id="& subject_id &"&type="& ip_content
End Sub
'打印主題分頁
Sub printSubjectPageLink_local(byVal subject_id,byVal reply_num,byVal reply_per_page,byVal max_page,byVal warn_font_color)
if( reply_num > reply_per_page) then
dim page_num,page_num2,pi
page_num = reply_num / reply_per_page
if reply_num mod reply_per_page <> 0 then page_num = page_num + 1
page_num2= page_num
if page_num > max_page then page_num=max_page
document.write "
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -