cndevforum.vbs

bmp图片格式编码说明

'脚本功能:在本地显示回复情况
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 "