check.asp

来自「一、一般游客： 1.查看论坛资料 二、注册会员： 1.修改本人资料 」· ASP 代码 · 共 32 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
dim uid ,upwd
uid=trim(Request.Form("uid"))
upwd=trim(Request.Form("pwd"))

set rs=server.createobject("adodb.recordset")
sqltext="select * from stinfor where st_ren='" & uid & "' and st_pwd='" & upwd & "'"
rs.open sqltext,conn,1,1

'查找数据库，检查用户名是否存在
if rs.recordcount >= 1 then 
response.cookies("user") = "会长"
response.cookies("stname") = rs("st_name")
 Response.Redirect "default.asp"
   else
    rs.close
set rs=server.createobject("adodb.recordset")
 sqltext="select * from admin where admin_name='" & uid & "' and admin_pwd='" & upwd & "'"
 rs.open sqltext,conn,1,1
if rs.recordcount >= 1 then 	
response.cookies("user") = "管理员"
response.cookies("stname") = "管理员"
 Response.Redirect "default.asp"
else
 	response.write "<script language=JavaScript>{window.alert('输入的账户或密码错误，请重新输入!');window.history.go(-1);}</script>"
end if
end if 
 	  response.end
 rs.close
%>