%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%>