<% 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=Encodestr(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 blyh where name='"&name&"' and pass='"&pass&"'" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 if rs.eof then rsclose() response.write "发生错误 用户名不存在或密码错误！！！" response.write backInput exit sub end if rsclose() response.write "登陆成功！！！" response.write homeInput response.cookies("gbook")("username")=name response.cookies("gbook")("password")=pass if expTime<>"" then response.cookies("gbook").expires=expTime end if end if end sub %>