📄 hy_login.asp

📁 实现了
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员登陆</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: underline;
	color: #FF0000;
}
a:active {
	text-decoration: none;
	color: #FF0000;
}
.an {
	border: #000000;border: 1px #000000 solid; font-family: "宋体", "Tahoma", "Verdana"; font-size: 12px; line-height: 120%; text-decoration: none; background-color: #ffffff}

-->
</style>
<script language="javascript">
function Advance_openBrWindow(theURL,winName,features,theMode) { //v2.0
switch(theMode) {
	case 0:	window.open(theURL,winName,features);break;
	case 1: window.showModalDialog(theURL,winName,features);break;
	case 2: window.showModelessDialog(theURL,winName,features);break;
	}
}</script></head>
<%
if session("user_name")<>"" then
        if session("user_sh")=0 then
		response.write "你目前还不是正式会员，您的资料正在审核中，请耐心等待 <a href=hy_quit.asp>返回</a>"
		else
		if session("user_yes")=0 then
		response.write "欢迎光临:<font color=red>"&session("user_namec")&"[普通会员] <a href=#>怎么升为高级会员</a></font> <a href=gouwuche.asp?id="&session("user_id")&" target=_blank>查看购物车</a>|<a href=goumaijl.asp?id="&session("user_id")&" target=_blank>购买记录</a>|我的积分:"&session("user_jifen")&"分|<a href=member.asp target=_blank>个人信息</a>|<a href=xiugaimima.asp target=_blank>修改密码</a>|<a href=hy_liuyan.asp  target=_blank>发表意见</a>|<a href=hy_quit.asp>退出登陆</a>"
		else
		response.write "欢迎光临:<font color=red>"&session("user_namec")&"[高级会员"&session("user_yes")&"星] <a href=#>高级会员有什么优惠</a></font> <a href=gouwuche.asp?id="&session("user_id")&" target=_blank>查看购物车</a>|<a href=goumaijl.asp?id="&session("user_id")&" target=_blank>购买记录</a>|我的积分:"&session("user_jifen")&"分|<a href=member.asp target=_blank>个人信息</a>|<a href=xiugaimima.asp target=_blank>修改密码</a>|<a href=hy_liuyan.asp  target=_blank>发表意见</a>|<a href=hy_quit.asp>退出登陆</a>"
		end if
		end if
else
if request("action")="login" then
user_name=request("user_name")
user_pass=request("user_pass")
%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from member where user_name='"&user_name&"' and user_pass='"&user_pass&"'"
rs.open sql,conn,3,3
    if rs.eof then
        response.write "<center>用户名和密码不匹配     <a href=hy_login.asp>返回</a>"
    else
        session("user_name")=rs("user_name")
		session("user_namec")=rs("user_namec")
		session("user_yes")=rs("user_yes")
		session("user_sh")=rs("user_sh")
		session("user_id")=rs("user_id")
		session("user_jifen")=rs("user_jifen")
		if session("user_sh")=0 then
		response.write "你目前还不是正式会员，您的资料正在审核中，请耐心等待 <a href=hy_quit.asp>返回</a>"
		else
		if session("user_yes")=0 then
		response.write "欢迎光临:<font color=red>"&session("user_namec")&"[普通会员] <a href=#>怎么升为高级会员</a></font> <a href=gouwuche.asp?id="&session("user_id")&" target=_blank>查看购物车</a>|<a href=goumaijl.asp?id="&session("user_id")&" target=_blank>购买记录</a>|我的积分:"&session("user_jifen")&"分|<a href=member.asp target=_blank>个人信息</a>|<a href=xiugaimima.asp target=_blank>修改密码</a>|<a href=hy_liuyan.asp  target=_blank>发表意见</a>|<a href=hy_quit.asp>退出登陆</a>"
		else
		response.write "欢迎光临:<font color=red>"&session("user_namec")&"[高级会员"&session("user_yes")&"星] <a href=#>高级会员有什么优惠</a></font> <a href=gouwuche.asp?id="&session("user_id")&" target=_blank>查看购物车</a>|<a href=goumaijl.asp?id="&session("user_id")&" target=_blank>购买记录</a>|我的积分:"&session("user_jifen")&"分|<a href=member.asp target=_blank>个人信息</a>|<a href=xiugaimima.asp target=_blank>修改密码</a>|<a href=hy_liuyan.asp  target=_blank>发表意见</a>|<a href=hy_quit.asp>退出登陆</a>"
		end if
		end if
    end if
rs.close
set rs=nothing
conn.close
set conn=nothing
else
%>
<body>
<form name="form1" method="post" action="hy_login.asp?action=login">
				   你好[
                      <script src="http://www.checkips.com/ip.asp"></script>
                      ]的朋友|用户名:
                      <input name="user_name" type="text" class="an" id="user_name" onClick="this.value=''" value="用户名" size="14" maxlength="14">
                    密码:
                    <input name="user_pass" type="password" class="an" id="user_pass" size="14">
                    <input  onMouseOver="this.style.background='#FFFFFF'" onMouseOut="this.style.background='#e6e6e6'" type="submit" value="提交" style="cursor:hand;background-color: #e6e6e6; font-size: 9pt; border-left: 1px ridge rgb(0,0,0); border-right: 1px ridge; border-top: 1px ridge rgb(0,0,0); border-bottom: 1px ridge name="button222">
                    <input  onMouseOver="this.style.background='#FFFFFF'" onMouseOut="this.style.background='#e6e6e6'" type="reset" value="重填" style="cursor:hand;background-color: #e6e6e6; font-size: 9pt; border-left: 1px ridge rgb(0,0,0); border-right: 1px ridge; border-top: 1px ridge rgb(0,0,0); border-bottom: 1px ridge name="button222">
                    <a href="zhuc.asp" target="_blank">注册？</a>|<a href="javascript:;"  onClick="Advance_openBrWindow('hygbmm.asp','会员更改密码','width=400,height=250,left=300,top=300',0)">忘记密码？</a>|<a href="hyhc.htm" target="_blank">注册会员有什么好处？</a> 
</form>
</body>
</html>
<%
end if
end if%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -