topic_js.asp

中国网站网贴吧程序源码（ASP+ACCESS） 实现功能： 多级分类查找,可按多级分类查找贴吧,多用户申请,任何人都可以申请自己的贴吧, 用户三种权限管理,1,普通会员,2,普通版主(只有管理自己的贴

<!--#include file="../conn/boardconn.asp"-->
<!--#include file="../inc/inc.asp"-->
<%
dim foolcat,title
dim js,strsql
set js = server.CreateObject("ADODB.RecordSet")
strSql = "select top "&HOST_JS&" * from QiQiBoy_Topic_Disp where ParentID=0 Order By TopicID Desc"
set js = conn.Execute (StrSql)
do until js.eof
title=""&js("Title")&" - "&js("DateAndTime")&""
if len(title)>32 then
title=left(title,32)+"..."
else
title=title
end if

tmp = "http://" & request.servervariables("SERVER_NAME") & _
left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/topic_js.asp"))
foolcat = foolcat + "·<a href="&tmp&"/p.asp?/="&js("RootID")&">" & title & "</a><br>"
i=i+1
if i>=HOST_JS then exit do
js.MoveNext
loop
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
FolderPath = Server.MapPath("../../")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\topic_js.js")
fout.WriteLine foolcat

fout.close
set fout = nothing
js.close
set js = nothing
conn.close
set conn=nothing
%>