标题: 大家帮帮菜鸟偶吧 [打印本页] 作者: 缘分天空 时间: 2010-1-13 04:05 标题: 大家帮帮菜鸟偶吧 <!--#include file="conn1.asp"--> <!--#include file="function.asp"--> <% username=Checkin(trim(Request.form("username"))) password=Checkin(trim(Request.form("password"))) if username="" or password="" then Response.Redirect ("index.asp")
set rs=server.createobject("adodb.recordset") sql="select * from admin where username='"&username&"'and password='"&password&"'" rs.open sql,conn1,1,3 if not rs.EOF then rs("LoginTimes")=rs("LoginTimes")+1 rs("LoginTime")=now() rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR") rs.Update
Session("AdminID")=rs("id") Session("IsAdmin")=true Session("KEY")=rs("oskey") Session.timeout=900 Response.Redirect ("admin.asp") else errmsg="请输入正确的管理员名字和密码！" call error() Response.End end if rs.close set rs=nothing conn1.close set conn1=nothing %> 会出现500错误啊