identitycheck.asp

来自「包含注册、登陆、留言、创建主题等功能」· ASP 代码 · 共 11 行

<!--#include file=04406shujuku.asp-->
<%
Dim sql
'sql="select rank from user where userid='"&request.Cookies("username")&"'"
'set rs=Conn.execute(sql)   '检查是否是注册用户
if(request.cookies("username")="") then    '检查是否已登录
  response.write"<center><br><br><br><font size=5>您还没有登录，请先登录后再发帖<a href='newlogin.asp'>==>返回</a></font></center>"
else
   response.redirect"createtopic.asp"  
end if
%>