zxzrtz.asp

asp构建网站bbs.采用B/S架构

<%
response.write"<div align=center><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='"&c1&"' width='98%'><tr><td width='33%' height='23' bgcolor="&c1&"  background=pic/"&sp&"3.gif >&nbsp;<img border='0' src='pic/fl.gif' align='abscenter'><font color='#ffffff'><b> ╃最新发表主题╃</b></font></td><td width='33%' bgcolor="&c1&"  background=pic/"&sp&"3.gif >&nbsp;<img border='0' src='pic/fl.gif' align='abscenter'><font color='#ffffff'><b> ╃本周最强人气╃</b></font></td></tr></table></center>"

response.write"<div align=center><center><table border='1' cellpadding='2' cellspacing='0' style='border-collapse: collapse' bordercolor='"&c1&"' width='98%'><tr><td width='50%' valign='top'>"&_
"<table borderColor='"&c2&"' cellSpacing='0' cellPadding='0' width='100%' height=100  border='0' style='border-collapse: collapse'>"
set topnew=myconn.execute("select zhuti,id,name,face,bd,totable from [bbstl] where type<>5 order by riqi desc")
if not topnew.eof then
i=0
do while not topnew.eof
i=i+1
response.write"<tr><td><img src='face/"&topnew("face")&".gif' align='absmiddle'> <a href=show.asp?bd="&topnew("bd")&"&id="&topnew("id")&"&totable="&topnew("totable")&" title='帖子主题："&lefttrue(kbbs(topnew("zhuti")),60)&"'>"&lefttrue(kbbs(topnew("zhuti")),36)&"</a></td>"
response.write"<td width='75'><p align='center'><a target='_blank' href=userinfo.asp?name="&topnew("name")&" title='查看 "&topnew("name")&" 的资料'>"&topnew("name")&"</a></td></tr>"
topnew.movenext
if i=5 then exit do
loop
end if
topnew.close
set topnew=nothing

response.write"</table></td><td width='50%' valign='top'><table borderColor='"&c2&"' cellSpacing='0' cellPadding='0' width='100%' height=100 border='0' style='border-collapse: collapse'>"

set tophot=myconn.execute("select zhuti,name,id,face,bd,totable from [bbstl] where gonggao=0 and type<>5 and riqi>now()-7 order by hits desc")
if not tophot.eof then
i=0
do while not tophot.eof
i=i+1
response.write"<tr><td><img src='face/"&tophot("face")&".gif' align='absmiddle'> <a href=show.asp?bd="&tophot("bd")&"&id="&tophot("id")&"&totable="&totable&" title='帖子主题："&lefttrue(kbbs(tophot("zhuti")),60)&"'>"&lefttrue(kbbs(tophot("zhuti")),36)&"</a><br>"
response.write"<td width='75'><p align='center'><a target='_blank' href=userinfo.asp?name="&tophot("name")&" title='查看 "&tophot("name")&" 的资料'>"&tophot("name")&"</a></td></tr>"

tophot.movenext
if i=5 then exit do
loop
end if
tophot.close
set tophot=nothing

response.write "</table></td></tr></table></center></div><br>"
%>