<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%Response.Charset="gb2312"%> <%keys = request("keys") zt = request("zt") id = request("id") if keys = "xt" then call sybbs(50," order by lt.id desc","993300","sj") elseif keys = "rt" then call sybbs(50," order by dj desc","993300","sj") elseif keys = "dl" then%>
<%if yhm = "" or logintype="qq" then%> <%end if%> <%qq = request("qq") if qq <> "" then session(sessionvalue&"yhm") = qq session(sessionvalue + "yhm") = qq session(sessionvalue&"jb") = "1" session(sessionvalue&"cs") = "0" session(sessionvalue&"type") = "qq" session(sessionvalue + "zhsj") = jdsj z = "1" end if%> <%if yhm = "" then%>   登陆 注册
关闭
<%if iszc="1" then%> 退出 <%end if else if logintype="" then%> 欢迎 <%=yhm%>  <%end if%> 管理话题 退出 <%if logintype="" then%> 退出 <%end if end if%>
<%elseif keys = "fjxs" then if session(sessionvalue & "hf") = id then response.write "
附件下载:[" + zt +"]" else response.write "
 请先回复" end if end if%>
明天的幸运数是<% randomize() response.write(rnd()%10+1000000) %>