📄 logon.asp
字号:
<!--#include file="include/ms_setting.asp"-->
<!--#include file="include/md5.asp"-->
<%'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1 Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com www.maosin.net
' QQ：57861417
'电子邮箱：maosin@163.com maosin@maosin.com
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
%>
<!--#include file="ms_start.asp"-->
<script language="JavaScript" src="include/wisdom.js"></script>
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0" class="mainMiddle_tdble"><tr>
<!--左栏开始-->
<td valign="top" class="mainMiddle_td_left">
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">会员登录</span></td><td class="ltr"></td></tr></table>
<div class="lmc">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr><td class="td_t"><%Call publiclogonModule()%></td></tr>
<tr><td style="border-top:1px dotted #dddddd;padding-left:10px;padding-top:5px;line-height:20px;">
<b>已注册：</b><br>
登录本站 ↓<br>
登录成功 ↓<br>
进入会员中心 ↓<br>
使用本站提供的各项服务和资源<br>
(收发短信，书签，发表作品等)<br>
<b>还没注册：</b><br>
注册成为会员 ↓<br>
注册成功 ↓<br>
登录本站 ↓<br>
进入会员中心 ↓<br>
使用本站提供的各项服务和资源<br>
</td></tr>
</table></div>
</div>
</td>
<td class="mainMiddle_td_middle"></td>
<td width="*" valign="top" class="mainMiddle_td_right">
<table cellspacing="0" class="naviTable"><tr><td class="naviL"></td><td class="naviM"><span class="rtt">当前位置：<a class="classNavig" href="index.asp">本站首页</a>→<a class="classNavig" href="logon.asp">会员登录</a></span></td><td class="naviR"></td></tr></table>
<%
if userSystemOpen=0 then
showmsg "对不起，因维护需要，会员系统现在暂时关闭，有任何事请联系管理员。谢谢合作！","会员系统已关闭"
else
Select Case LCase(Request("action"))
Case LCase("logon")
Call chklogon()
Case Else
Call logon()
End Select
end if%>
</td></tr></table>
<!--#include file="ms_end.asp"-->
<%
Sub chkLogon()
dim username,userpass,code,sql,rs
username=trim(Request.form("username"))
userpass=trim(Request.Form("userpass"))
code=Request.form("code")
username=replace(replace(username,"'",""),Chr(0),"")
if IsNumeric(code)=false then
showmsg "验证码检验失败，请重新输入","错误信息"
exit sub
else
if session("code")<>Cint(code) then
showmsg "验证码检验失败，请重新输入","错误信息"
exit sub
end if
end if
if ms_submit=0 then
if chkIsOut=false then
showmsg "<font color=""#ff0000"">茂盛系统返回如下信息：</font><br><br>对不起，本站不允许从外部提交数据","系统出错信息"
exit sub
end if
end if
if chkIsAvaStr(username)=false then
showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br>用户名含有非法字符","错误信息"
exit sub
elseif strLength(username)>12 or strLength(username)<0 then
showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br>用户名长度不能大于<font color=""#ff0000"">12</font>位或小于<font color=""#ff0000"">0</font>","错误信息"
exit sub
end if
if strLength(userpass)>20 or strLength(userpass)<0 then
showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br>密码长度不能大于<font color=""#ff0000"">20</font>位或小于<font color=""#ff0000"">0</font>","错误信息"
exit sub
end if
sql="select * from ms_user where user_name='"&Lcase(username)&"' and user_password='"&md5(userpass)&"'"
Set Rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,3
if rs.eof and rs.bof then
showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br>用户名或密码错误","错误信息"
rs.close
set rs=nothing
exit sub
elseif rs("islock")=1 then
showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br>对不起，您还没有过验证","出错信息"
exit sub
elseif rs("islock")=0 then
rs("user_point")=rs("user_point")+lgAddJifen
rs("last_time")=now()
rs("last_ip")=getip()
rs("logon_num")=rs("logon_num")+1
rs.update
session(userVar)=userVal
dim userinfo(19)
userInfo(0)=rs("user_id")
userInfo(1)=rs("user_name")
userInfo(2)=rs("user_type")
userInfo(3)=(replace(FormatNumber(rs("user_point"),2,-1),",",""))
userInfo(4)=(replace(FormatNumber(rs("user_money"),2,-1),",",""))
userInfo(5)=rs("face")
userInfo(6)=rs("logon_num")
userInfo(7)=rs("sex")
userInfo(8)=rs("email")
userInfo(9)=rs("homepage")
userInfo(10)=rs("qq")
userInfo(11)=rs("linkman")
userInfo(12)=rs("address")
userInfo(13)=rs("postalcode")
userInfo(14)=rs("tel")
userInfo(15)=rs("reg_date")
userInfo(16)=rs("last_time")
userInfo(17)=rs("info")
if rs("user_type")=1 then
userInfo(18)="普通会员"
elseif rs("user_type")=2 then
userInfo(18)="VIP会员"
elseif rs("user_type")=3 then
userInfo(18)="管理员"
end if
session("userInfo")=userInfo
session.TimeOut=onlineTime
rs.close
set rs=nothing
showmsg "<font color=""#ff0000"">系统返回如下信息：</font><br><br><li>恭喜您，您已经登录成功啦！</li><br><li><a href=""index.asp"">[返回首页]</a></li><li><span id=seNum>3</span><a href=javascript：showtime></a>秒钟后系统将自动进入用户中心......</b></li><meta http-equiv=refresh content=3;url=user_center.asp><SCRIPT>valignbottom()</SCRIPT><script>function showtime(secs){seNum.innerText=secs;if(--secs>0)setTimeout('showtime('+secs+')',1000);}showtime(3);</script>","登录成功信息"
exit sub
end if
End Sub
Sub logon()
if session(userVar)=userVal then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="300" valign="middle" align="center" class="text">
你已经成功的登录啦！<br/>
<br/>
[<a href="user_center.asp">进入会员中心</a>]
</td>
</tr>
</table>
<%else%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="300" valign="middle" align="center" class="text">
<p style="line-height:20px;">尊敬的朋友，欢迎光临<%=webname%>!<br /><br/>
要想使用本站更多服务，请先登录。<br />
如果你还不是本站会员，请先注册。<br /></p>
<Form action="logon.asp?action=logon" method="post" name="login">
<div align="left" style="line-height:18px;width:200px;">用户名：
<input type="text" class="wenbenkang" name="userName" /><br>
密 码：
<input type="password" class="wenbenkang" name="userPass" /><br>
验证码：
<input type="text" class="wenbenkang" name="code" size="8" /> <img src=include/code.asp height="14" alt="请点击刷新验证码!" onMouseOver="this.style.cursor='hand';" onClick="this.src='include/code.asp'"><br>
Cookie：
<select name="select">
<option selected="selected">不保存</option>
<option>保存一天</option>
<option>保存一月</option>
<option>保存半年</option>
<option>保存一年</option>
</select>
<br>
<center style="padding-top:5px;">
<input class="but1" type="submit" name="Submit" value="登录" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'" />
<input class="but1" type="button" name="Submit2" value="注册" onMouseOver="this.className='but2'" onMouseOut="this.className='but1'" /></center>
<br>
忘记密码?<a href="forget.asp?action=Forget">请试试这里。</a><br>
</div>
</form>
</td>
</tr>
</table>
<%
end if
End Sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -