<% dim rs , exec %>

用户登陆

<% main() connclose() sub main() dim backInput, homeInput backInput= " " homeInput=" " if request.form="" then %> 用 户 名： 密　　码： 登陆保留：不保留 ">1天 ">1周 ">1月 ">1年 <% else dim name, pass, expTime name=Encodestr(request.form("name")) pass=Encodestr(request.form("pass")) expTime=request.form("expTime") 'response.write expTime 'response.end if name="" or pass="" then response.write "发生错误 请输入用户名和密码！！！" response.write backInput exit sub end if pass=MD5(pass) exec="select * from [user] where username='"&name&"' " set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 if rs.eof then rsclose() response.write "发生错误 用户名不存在！！！" response.write backInput exit sub elseif (StrComp(name,rs("username"),0) <>0 or StrComp(pass,rs("userpassword"),0)<>0) then rsclose() response.write "发生错误 密码错误！！！" response.write backInput exit sub end if rsclose() response.write "登陆成功！！！" response.write homeInput if cookiePath<>"" then response.cookies("gbook").Path=cookiePath end if response.cookies("gbook")("username")=vbescape(name) response.cookies("gbook")("password")=pass if expTime<>"" then expTime=Cdate(expTime) response.cookies("gbook").expires=expTime end if end if end sub %>