base.asp

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

<!--#include file=conn.asp-->
<%
const siteurl="http://www.bestnets.net"
const sitemail="[e-mail]"
dim filesArr,topadv,bottomadv
Call txAdv()
rSub.open "select content from sitefiles where name='txfiles'",conn,1,1
filesArr=split(rSub("content"),"~")
rSub.close
response.write filesArr(1)&filesArr(2)&topadv&filesArr(3)&filesArr(4)&filesArr(5)

Sub txAdv()
rSub.open "select content from sitefiles where name='advs'",conn,1,1
if not(rSub.bof and rSub.eof) then
if instr(rSub("content"),"|")>0 then
dim advArr,x,advtime,maxArr
advtime=Second(now)
advArr=split(rSub("content"),"|")
maxArr=ubound(advArr)+1
for x=0 to maxArr-1
if advtime mod maxArr = x then topadv=advArr(x)
next
else
topadv=rSub("content")
end if
end if
rSub.close
End Sub

Sub PrintMsg(OutMsg)
response.clear%>
<style type="text/css">TD{FONT-FAMILY: 宋体; FONT-SIZE: 9pt}</style>
<table cellpadding=0 cellspacing=0 border=0 width=60% bgcolor=#777777 align=center>
<tr><td><table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr align="center"><td width="100%" bgcolor=#EEEEEE>TXSite返回信息</td>
</tr>
<tr><td width="100%" align=center bgcolor=#FFFFFF><br><font color=red><%=OutMsg%></font><br><br></td>
</tr>
<tr align="center"><td width="100%" bgcolor=#EEEEEE><a href="javascript:history.go(-1)"> << 返回</a></td></tr> 
</table></td></tr></table>
</td></tr></table>
<%
response.end
End Sub
%>