📄 login.asp
字号:
<!--#include file="conn.asp" -->
<link rel="stylesheet" href="images/DefaultSkin.css" type="text/css">
<body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
<script language="JavaScript" src="../images/js.js"></script>
<script language="JavaScript" src="title.js"></script>
<script language="Javascript">
function check(){
if(document.userlogin.username.value==""){alert("请输入用户名");document.userlogin.username.focus();return false;}
if(document.userlogin.password.value==""){alert("请输入密码");return false;}
if(document.userlogin.vercode.value==""){alert("请输入验证码");return false;}
return true;
}
function checkfind(){
if(document.userlogin.username.value==""){
document.userlogin.username.focus();
alert("请输入用户名");
return false;
}
else{
location.href="../member/member.asp?action=getpass&username="+document.userlogin.username.value
}
return true;
}
function regchk(){
if(document.userlogin.username.value==""){
document.userlogin.username.focus();
alert("请在用户栏输入你想要注册的用户名");
return false;
}
if(document.userlogin.password.value==""){
alert("请在密码栏输入你想要注册用户的密码");
return false;
}
if(document.userlogin.vercode.value==""){
alert("请输入验证码");
return false;
}
else{
location.href="../member/member.asp?action=reg&username="+document.userlogin.username.value+"&password="+document.userlogin.password.value+"&vercode="+document.userlogin.vercode.value
}
}
</script>
<%
if session("username")="" then
call Test_netbaruser
%>
<table border="0" align="center" cellspacing="0" cellpadding="2">
<form name="userlogin" method="post" action="../member/member.asp?action=login" onsubmit="javascript:return check();" >
<tr>
<td>
<div align="left"><img src="images/u.gif" width="21" height="21" align="absmiddle">
用户：</div>
</td>
<td>
<input type="text" name="username" size=12 tabindex="1" value="<%=Rq("username")%>" class="input">
</td>
</tr>
<tr>
<td><img src="images/p.gif" width="21" height="21" align="absmiddle"> 密码：</td>
<td>
<input type="password" name="password" size=12 tabindex="2" value="<%=Rq("password")%>" class="input">
</td>
</tr>
<tr>
<td><img src="images/v.gif" width="21" height="21" align="absmiddle"> 验证：</td>
<td>
<input type="text" name="vercode" size=4 tabindex="3" class="input">
<img src="../number.asp?n=<%=Timer%>" border="0" title="请在验证框中输入此号码" align="absmiddle">
</td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<input type="hidden" name="submit" value="mysubmit">
<input type="image" border="0" name="submit" src="images/login.gif" align="absmiddle" tabindex="4" title="登陆">
<a href="####"><img src="images/reg.gif" align="absmiddle" onClick="return regchk();" tabindex="5" border="0" title="注册"></a>
<a href="####" onclick="openusercenter(5)"><img src="images/buy_faq.gif" width="15" height="16" title="忘了密码" align="absmiddle" border="0"></a>
</div>
</td>
</tr>
</form>
<%
else
'///////////////////////////////////////////////////////
' 登陆成功,读取会员信息
'///////////////////////////////////////////////////////
set rs=server.createobject("adodb.recordset")
sql="select * from 会员 where 用户名='"&session("username")&"'"
rs.open sql,conn,1,1
if not rs.EOF then
if rs("在线状态")="否" then
session("userid")=""
session("username")=""
session("grade")=""
Call msgbox_j("用户己离线，请重新登陆","location.href='login.asp'")
Response.end
end if
%>
<tr>
<td colspan=2>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" height="100">
<tr>
<td>
<div align="left">登陆用户：<font color="#990000"><%=session("username")%></font></div>
</td>
</tr>
<tr>
<td>用户级别：<span title="<%=vip_name%>"><%vip_name=split(vip_name,"|")
response.write vip_name(session("grade"))%>
</span></td>
</tr>
<tr>
<td>登陆次数：<%=rs("登陆次数")%></td>
</tr>
<tr>
<td>登陆IP：<%=Request.ServerVariables("REMOTE_ADDR")%></td>
</tr>
<tr>
<td>
<div align="center"><a href="####" onClick="openusercenter(1);"><img src="images/usercenter.gif" border="0" tabindex="6" align="absmiddle"></a> <a href="../member/member.asp?action=exit"><img src="images/exit.gif" border="0" tabindex="6" align="absmiddle"></a></div>
</td>
</tr>
</table></td>
</tr>
<%else
session("userid")=""
session("username")=""
session("grade")=""
Call msgbox_j("找不到用户资料，请重新登陆","location.href='login.asp'")
end if '/////////////结束读取//////////////////////////////////////
end if
set rs=nothing%>
</table>
<%cleartimeout_user%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -