newzt.asp

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

<%
'##################################################################
'# 首页调用最新贴 插件 for 6KSU1.1
'# 调用方法：<script src='newzt.asp'></script>
'# 6KSU1.1[痞子NET]版
'# 主页 http://d9pd.51.net
'# 论坛 http://jwclub.126.com http://jwclub.9126.com[戒网俱乐部]
'# 我的QQ:283067 Email:[e-mail]
'# 如有技术问题，请到6kbbs官方论坛一起讨论 http://6k.2ya.com
'# 关于此hack版的问题可以到 http://jwclub.9126.com 中讨论 
'##################################################################
%>
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="fun.asp"-->
document.write("<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%'>");
document.write("<%set topnew=myconn.execute("select zhuti,id,name,riqi,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 height='24'><td><img src="&bbsurl&"/face/"&topnew("face")&".gif align='absmiddle'></td>"
response.write"<td width=300>&nbsp;<a target=_blank href="&bbsurl&"/show.asp?bd="&topnew("bd")&"&id="&topnew("id")&"&totable="&topnew("totable")&" title='"&lefttrue(kbbs(topnew("zhuti")),80)&"'>"&lefttrue(kbbs(topnew("zhuti")),28)&"</a></td>"
response.write"<td width=90>[<a target=_blank href="&bbsurl&"/userinfo.asp?name="&topnew("name")&">"&topnew("name")&"</a>]</td>"
response.write"<td width=160>"&topnew("riqi")&"</td></tr>"
topnew.movenext
if i=10 then exit do
loop
end if
topnew.close
set topnew=nothing
%>");
document.write("</table>");