subs1.asp

程序介绍： 1、内嵌式投票系统

<%
Sub menufiles
dim menufiles1,menufiles3,searchfiles,maxr
menufiles1="</td></tr></TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 width=754 onmouseover=""MM_showHideLayers('Layer1','','hide','Layer2','','hide','Layer3','','hide','Layer4','','hide','Layer5','','hide','Layer6','','hide','Layer7','','hide','Layer8','','hide','Layer9','','hide','Layer10','','hide')""><TBODY><FORM method=post name=find action=f.asp><TR bgColor=#000000><TD height=28>&nbsp;&nbsp;<A class=pf href=default.asp>首页</A> <FONT color=#cccccc>| </FONT>"
rSub.open "select distinct r,rtype from type order by r asc",conn,1,1
maxr=rSub.recordcount
do while not rSub.eof
menufiles1=menufiles1&"<a class=pf href=m.asp?o="&rSub("r")&">"&rSub("rtype")&"</a> <FONT color=#cccccc>| </FONT>"
searchfiles=searchfiles&"<option value="&rSub("r")&">"&rSub("rtype")&"</option>"
rSub.movenext
loop
rSub.close
menufiles3="</TD><TD align=right height=25 width=196><input class=itm name=t size=10 value=><select class=itm name=o><OPTION selected value=>站内搜索</OPTION>"&searchfiles&"</SELECT><INPUT class=itm type=submit value=搜索></TD></TR></FORM></TBODY></TABLE>"

dim filesArr
rSub.open "select content from sitefiles where name='txfiles'",conn,1,3
if rSub.bof and rSub.eof then
rSub.close
rSub.open "select * from sitefiles",conn,1,3
rSub.addnew
rSub("name")="txfiles"
end if
filesArr=split(rSub("content"),"~")
rSub("content")="maxr"+"~"+filesArr(1)+"~"+filesArr(2)+"~"+menufiles1+"~"+filesArr(4)+"~"+menufiles3+"~"+filesArr(6)+"~"+filesArr(7)+"~"+filesArr(8)
rSub.update
rSub.close
End Sub
%>