www.gusucode.com > 凡人网络购物系统 2008源码程序 > login.asp

    <!--#include file="conn.asp"-->
<!--#include file="IncAsp/venshop_top.asp"-->
<!-- #include file="IncAsp/venshop_md5.asp" -->
<%
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 "<script LANGUAGE='javascript'>alert('"&errmeg1&"');history.go(-1);</script>"
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 "<script LANGUAGE='javascript'>alert('"&errmeg2&"');history.go(-1);</script>"
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.asp"
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.asp"
end if
else%>

<div align="center">
<table border="0" cellpadding="5" cellspacing="0" width="980" bgcolor="#FFFFFF" height="300"><tr>
	<td align="center">
<table border="0" cellpadding="0" cellspacing="0" width="99%" style="border: 1px solid #C0C0C0">
<tr><td height="30" style="border-bottom: 1px solid #E1E1E1" class="fanse">&nbsp;<IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle">
	您的位置：  
	<a class="ser" href="index.asp">首页</a> >>&nbsp;用户登录&nbsp; &nbsp; 新用户请<a href="reg.asp"><u>点击注册</u></a> 忘记密码请<a href="repass.asp"><u>点击这里</u></a></td></tr>
<%if Request.Cookies("venshop")("user_name")<>"" then
user_name=Request.Cookies("venshop")("user_name")%>



<tr><td align="center" height="300">
	<table border="0" cellpadding="0" cellspacing="0" width="615" id="table1">
		<tr><td colspan="2" background="Skin/<%=venshop_skin%>/logina1.gif" height="29"></td></tr>
		<tr>
			<td align="center" bgcolor="#F9F9F9">
			<img border="0" src="Skin/<%=venshop_skin%>/logina3.gif" width="143" height="80"></td>
			<td bgcolor="#F9F9F9" class="fanse">
			<p style="line-height: 150%"><b>提示：<br>
			</b><%=user_name%>您好，您已经登录成功!<br>
			如果您不是<%=user_name%>，请<a class="ser" href="login.asp?action=quit">退出重新登录</a>!</td>
		</tr>
		<tr><td colspan="2" background="Skin/<%=venshop_skin%>/logina2.gif" height="29"></td></tr>
	</table></td></tr>

<%else%>
<form method="POST" name="form1" action="login.asp?action=login">
<input name="comurl" type="hidden" value="<%=comurl%>">
<tr><td align="center" height="300">
	<table border="0" cellpadding="0" cellspacing="0" width="615" id="table1">
		<tr><td colspan="2" background="Skin/<%=venshop_skin%>/logina1.gif" height="29"></td></tr>
		<tr>
			<td align="center" bgcolor="#F9F9F9">
			<img border="0" src="Skin/<%=venshop_skin%>/logina3.gif" width="143" height="80"></td>
			<td bgcolor="#F9F9F9">
			<table border="0" cellpadding="0" cellspacing="0" width="100%" id="table2">
				<tr>
					<td class="fanse" height="30">用 户 名：<input name="user_name" type="text" class=input style="FONT-SIZE: 12px; WIDTH: 110px"></td>
					<td rowspan="2"><input type=image src="Skin/<%=venshop_skin%>/logina4.gif" name="login"></td>
				</tr>
				<tr>
					<td class="fanse" height="30">用户密码：<input style="FONT-SIZE: 12px; WIDTH: 110px" type="password" name="user_pass" class=input size="12"></td>
				</tr>
			</table>
			</td>
		</tr>
		<tr><td colspan="2" background="Skin/<%=venshop_skin%>/logina2.gif" height="29">　</td>
		</tr>
	</table></td></tr></form>
<%end if%>
</table></td></tr></table></div>
<%end if%><!--#include file="IncAsp/venshop_copy.asp"-->