<%seo_title="用户登录-"&sitename%> <% comurl=request("comurl") if request("action")="login" then errmeg1="登录名和密码为空!" errmeg2="登录名和密码不匹配!" user_name=DelStr(request("user_name")) user_pass=md5(DelStr(request("user_pass"))) if request("user_name")="" or request("user_pass")="" then response.Write "" Response.Cookies("venshop")("user_name")="" Response.Cookies("venshop")("user_type")="" Response.end end if set rs=server.createobject("adodb.recordset") sql="select * from venshop_user where username='"&user_name&"' and userpass='"&user_pass&"'" rs.open sql,conn,1,3 if rs.eof then rs.close set rs=nothing response.Write "" Response.Cookies("venshop")("user_name")="" Response.Cookies("venshop")("user_type")="" Response.end end if Response.Cookies("venshop")("user_name")=rs("username") Response.Cookies("venshop")("user_pass")=rs("userpass") Response.Cookies("venshop")("user_type")=rs("user_type") rs("landtime")=now() rs("user_lastip")=request.servervariables("remote_addr") rs("degree")=rs("degree")+1 rs.update rs.close set rs=nothing if Request.Cookies("venshop")("guest")<>"" then guest=Request.Cookies("venshop")("guest") set rs=server.createobject("adodb.recordset") rs.open "select user_name from venshop_basket where user_name='"&guest&"' and basket_check=0",conn,1,3 do while not rs.eof rs("user_name")=request("user_name") rs.update rs.movenext loop rs.close set rs=nothing Response.Cookies("venshop")("guest")="" end if if comurl="" then comurl="index.html" end if response.redirect comurl Response.end elseif request("action")="quit" then Response.Cookies("venshop")("user_name")="" Response.Cookies("venshop")("user_type")="" Response.Cookies("venshop")("user_pass")="" Response.Cookies("venshop")("guest")="" if Request.ServerVariables("Http_Referer")<>"" then response.redirect ""&Request.ServerVariables("Http_Referer")&"" else response.redirect "index.html" end if else%>
<%if Request.Cookies("venshop")("user_name")<>"" then user_name=Request.Cookies("venshop")("user_name")%> <%else%> <%end if%>
  您的位置: 首页 >> 用户登录    新用户请点击注册 忘记密码请点击这里

提示:
<%=user_name%>您好,您已经登录成功!
如果您不是<%=user_name%>,请退出重新登录!

用 户 名:
用户密码:
<%end if%>