<% Dim BoardID,sql,RS,BoardData,sys,fString,PostID,url BoardID=RequestNumSafe(Request.QueryString("BoardID")) '接收BoardID号 PostID=RequestNumSafe(Request.QueryString("PostID")) 'Application.Contents.removeall sys=sysinfo() if not IsObject(conn) then LinkData end if if trim(Request.QueryString("logout"))="yes" then Response.Cookies(BBSInfo&"username")="" Response.Cookies(BBSInfo&"password")="" Response.Cookies(BBSInfo&"admin")="" Application(BBSInfo&"loginuser")=Replace(Application(BBSInfo&"loginuser"),Request.Cookies(BBSInfo&"UserName")+"|"+Request.Cookies(BBSInfo&"Password")+"|"+Request.Cookies(BBSInfo&"admin")+"|#","") end if if Request.QueryString("url")<>"" then url=Request.QueryString("url") else url=Request.ServerVariables("HTTP_REFERER") end if %> <% if trim(Request.QueryString("Boardid"))<>"" then BoardData=BoardInfo(BoardID) '取得这个栏目的信息 %> <% if trim(Request.QueryString("PostID"))<>"" then %> <%else%> <%end if%> <%else%> <%end if%>