📄 login.asp
字号:
<!--#include file="title.asp"--><meta name=keywords content="诚信商店,血饮狂刀,Clanboo,lanboo,金统联,webmaster@xytime.com,jsbuy.com,cebuy.com,王星亮,完美商店,超级商店,商城,冷面">
<%
BackUrl=request("BackUrl")
wxl=request("wxl")
'///用户注册
if wxl="Login" then
uid=trim(request("uid"))
pwd=trim(request("pwd"))
sql.open "select * from web_Member where str_mbrLoginName='"&uid&"'",conn,1,1
if sql.eof then Back("错误的用户名!")
if sql("str_mbrLoginPwd")<>Encrypt(pwd) then Back("错误的密码!")
session("My_ID")=sql("int_mbrID")
session("My_Login")=uid
session("My_jibie")=sql("str_mbrName")
sql.close
'更新在线信息
Application.lock
tmpUser=split(Application("UserName"),"||")
tmpUserID=session("UserID")
for i=0 to Ubound(tmpUser)-1
aa=split(tmpUser(i),",")
if aa(0)<>tmpUserID then
tmpOnline=tmpOnline&aa(0)&","&aa(1)&","&aa(2)&"||"
else
tmpOnline=tmpOnline&session("My_ID")&","&aa(1)&","&session("My_jibie")&"||"
end if
next
Application("UserName")=tmpOnline
session("UserID")=session("My_ID")
Application.Unlock
'////////
response.redirect BackUrl
response.end
elseif wxl="Logout" then
session("My_ID")=""
session("My_Login")=""
session("My_jibie")=""
'更新在线信息
Application.lock
tmpUser=split(Application("UserName"),"||")
tmpUserID=session("UserID")
strUserID=date()
strUserID=UserID&time()
strUserID=replace(strUserID,"-","")
strUserID=replace(strUserID,":","")
strUserID=replace(strUserID," ","")
j=-1
for i=0 to Ubound(tmpUser)-1
aa=split(tmpUser(i),",")
if aa(0)<>tmpUserID then
tmpOnline=tmpOnline&aa(0)&","&aa(1)&","&aa(2)&","&aa(3)&"||"
else
tmpOnline=tmpOnline&strUserID&","&aa(1)&",游客,"&aa(3)&"||"
end if
next
Application("UserName")=tmpOnline
session("UserID")=strUserID
Application.Unlock
'////////
response.redirect BackUrl
response.end
else
LoginHtml
end if
sub LoginHtml()
%>
<SCRIPT language=JavaScript>
<!--
function checkvalue() {
aa=document.form1
if (aa.uid.value=="") {
window.alert ("请输入用户名!"); aa.uid.focus();return false}
if (aa.pwd.value=="") {
window.alert ("请输入密码!"); aa.pwd.focus();return false}
}
//-->
</SCRIPT>
<table cellspacing=0 cellpadding=0 width=100%>
<tbody>
<tr>
<td height=62 bgcolor="#FBF4F7">
<div align="center">
<center>
<table cellspacing=0 cellpadding=0 width=261>
<tbody>
<tr>
<td height=66 width="259" align="center">
<p align="center"> </p>
<form name=form1 action="<%=UrlFile&"?BackUrl="&BackUrl%>" method="POST" onSubmit='return checkvalue();'>
<table cellspacing=0 cellpadding=0 width=230>
<tbody>
<tr>
<td align=middle><strong><font color=red>
</font></strong>
<table cellspacing=1 width=230 bgcolor=#a5cede>
<tbody>
<tr bgcolor=#5294b7>
<td colspan=2 width="216" height="30">
<p align="center"><font color="#FFFFFF" class="p105"><b>会员登录</b></font></p>
</td>
</tr>
<tr >
<td width=84 bgcolor=#f1f8fa height=7><span><font color="#000000" class="p105">会员帐号:</font></span></td>
<td width=120 height=7 bgcolor="#f1f8fa"><font color="#FFFFFF">
<input maxlength=16 size=13 name=uid>
</font> </td>
</tr>
<tr>
<td width=84 bgcolor=#f1f8fa height=26><span><font color="#000000" class="p105">会员密码:</font></span></td>
<td width=120 height=26 bgcolor="#f1f8fa"><font color="#FFFFFF">
<input maxlength=16 size=13 name=pwd type="password">
</font> </td>
</tr>
<tr bgcolor=#5294b7 align="center">
<td colspan=2 height="30" valign="middle">
<div align=center>
<input class=ss02 type=submit size=3 value=立刻登录 name=Submit2 style="font-size: 9pt" >
<input type='hidden' name='wxl' value='Login'>
<input class=ss02 type="button" value="注册会员" name="B1" style="font-size: 9pt" onClick="window.location.href='reg.asp';" >
</div>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<br>
</form>
</td>
</tr>
</tbody>
</table>
<br>
</center>
</div>
<div align="center">
<center>
<table border="0" cellspacing="0" cellpadding="0" height="51" width="600">
<tr>
<td width="100%" style="text-indent: 20; line-height: 100%; margin-left: 20; margin-right: 20"><span class="p105s">购买须知道:</span>
<p class="p105s">1、如果你已经是我们的会员,那么,请把你的“注册帐号”和“会员密码”填在里面,再“离开登录”,我们就可以收到你的订单了。</p>
<p class="p105s">2、你如果还不是本站的会员,那么,请你先返回首页,点击“注册会员”进行注册,这样你才可以买到我们的优惠价。<br>
</p>
</td>
</tr>
</table>
<br>
</center>
</div>
</td>
</tr>
</tbody>
</table>
<%
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -