usermg.asp

gdflsdf fkspofql owjlfkjsoijdf sdjfo

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/md5.asp"-->
<!--#include file="sub/inc.asp"-->
 <%
dim rs,sql
set rs=server.createobject("adodb.recordset")   '创建纪录集
sql="select * from ax_user where  name='"&trim(HTMLEncode(HTMLcode(request.Form("name"))))&"'" '查找用户信息
rs.open sql,cn,3,2                            '执行SQL语句
if not rs.eof then
  if rs("pwd")=md5(trim(HTMLEncode(HTMLcode(request.form("pwd"))))) then '判断密码是否正确
  session("id")=rs("id")
  session("userlogin")=session.sessionid '标记登录
  rs("logincount")=rs("logincount")+1
  rs.update
  Response.Redirect "user.asp"
     else
Response.Write "<script language=javascript>{window.alert('帐号或密码错误,请返回!');window.location.href='javascript:history.go(-1)';}</script>"   
          end if
           else
Response.Write "<script language=javascript>{window.alert('帐号或密码错误,请返回!');window.location.href='javascript:history.go(-1)';}</script>"   
           end if
          set rs=nothing                       '关闭纪录集，释放所占资源
            cn.close   '关闭连结对象
           set cn=nothing '释放所占资源
         %>