checklog.asp

党委网站 党委网站党委网站党委网站党委网站党委网站

<!--#include file="md5.asp"-->
<!--#include file="conn.asp"-->
<%
users=request("tbUsername")
passwd=replace(trim(request("tbPassword")),"'","")
set rst=server.CreateObject("adodb.recordset")
sql="select * from net_admin where users='"&users&"' and passwd='"&passwd&"'"
rst.open sql,conn,1,1
if rst.eof then
conn.close
response.Write("<script>alert('帐号密码错误！');window.history.back(-1);</script>")
response.End()
else
session.Timeout=20
session("username")=rst("users")
session("usertype")=rst("types")
response.Redirect("main.asp")
conn.close
end if
%>