inc_login.asp

个人网站系统,本人基于第三方源码进行更改!

<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
if not IsTimeOut(Session("boobuser"),Session("boobpass")) and intMemberKey <> "" then
	Dim rdsMemberss
	Dim sqlMemberss
	Dim strMemberLevel
	Dim strMemberType
	Dim strRealName
				              
	set rdsMemberss = Server.CreateObject("ADODB.Recordset")
	sqlMemberss = "Select * From Dat_Member Where MemberKey = "& intMemberKey
	rdsMemberss.Open sqlMemberss,Conn
	if not rdsMemberss.EOF then
		intMemberKey=rdsMemberss("MemberKey")
if rdsMemberss("LoginCount") mod addpoint = 0 then
		set rdsMember22 = Server.CreateObject("ADODB.Recordset")
		sqlMember22 = "Select * From Dat_Member Where MemberKey = "& intMemberKey
		rdsMember22.Open sqlMember22,Conn,1,3
		rdsMember22("Point") = rdsMember22("Point") + 1
		rdsMember22.Update
		rdsMember22.Close
		set rdsMember2 = nothing
end if
		
		

        if rdsMemberss("MemberType") = "1" then
		  strMemberType = "个人会员"
		  strRealName = rdsMemberss("RealName")
		else
		  strMemberType = "企业会员"
		  strRealName = rdsMemberss("CompanyName")
		end if			
%>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="126" border="0">
  <tbody>
  <tr>
    <td width="100%" height="10"></td>
  </tr>
  <tr>
    <td width="100%" height="22" align="center"><font color="#FF0000"><% = strRealName%></font> <font color="#000000"><% = strMemberType%></font></td>
  </tr>
  <tr>
    <td width="100%" height="22"><font color="#000000">级别：<%if session("gqjb")=0 then Response.Write("<font color=#FF00FF>普通</font>  <a href="&strSysUrl&"sjgj.asp><font color=#FF000F>申请高级</font></a>")%>
    <%if session("gqjb")=1 then Response.Write("<font color=#FF0000>高级会员</font>")%>
    <%if session("gqjb")=-1 then Response.Write("<font color=#0000FF>高级申请中</font>")%></font></td>
  </tr>
  <tr>
    <td width="100%" height="22"><font color="#000000">登陆：<% = rdsMemberss("LoginCount")%>&nbsp;次|点数：<% = rdsMemberss("point")%></font></td>
  </tr>
  <tr>
    <td width="100%" height="22"><font color="#000000">注册时间：<% = FormatTime(rdsMemberss("CreateTime"),4)%></font></td>
  </tr>
  <tr>
    <td width="100%" height="22" align="right"><a href="<% = strSysUrl%>user.asp?id=<% =intMemberKey%>">进入管理</a>&nbsp; |&nbsp;<a href="<% = strSysUrl%>LogOut.asp" target=_blank>退 出</a>&nbsp;|&nbsp;</td>
  </tr>
</tbody>
</table>
<%
    end if
    rdsMemberss.Close
    set rdsMemberss = nothing
else
%>
<script language="javascript">
//检验表单的合法性
function CheckLoginForm() {
	if (document.Logon.Member.value == "") {
		alert("\请输入您的帐户！");
		document.Logon.Member.focus();
	}
	else if (document.Logon.Password.value == "") {
		alert("\请输入您的密码！");
		document.Logon.Password.focus();
	}
	else {
        return true;
    }
    return false;
}
</script>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="126" border="0">
<form method="post" name="Logon" action="<% = strSysUrl%>CheckPass.asp" OnSubmit="return CheckLoginForm()">
<input type="hidden" name="ParentUrl" value="<% = Request.ServerVariables("SCRIPT_NAME")%>">
  <tbody>
  <tr>
    <td vAlign="top" colSpan="2" height="14"></td>
  </tr>
  <tr>
    <td align="middle" width="41" height="25" align="right"><font class="b03">账号：</font></td>
    <td align="middle" width="85" height="25"><input style="BORDER-RIGHT: 1px inset; BORDER-TOP: 1px inset; BORDER-LEFT: 1px inset; COLOR: #6b6d6b; BORDER-BOTTOM: 1px inset; BACKGROUND-COLOR: #efefef" type="text" size="11" name="Member"></td>
  </tr>
  <tr>
    <td align="middle" width="41" height="25" align="right"><font class="b03">密码：</font></td>
    <td align="middle" width="85" height="25"><input style="BORDER-RIGHT: 1px inset; BORDER-TOP: 1px inset; BORDER-LEFT: 1px inset; COLOR: #6b6d6b; BORDER-BOTTOM: 1px inset; BACKGROUND-COLOR: #efefef" type="password" size="11" name="Password"></td>
  </tr>
  <tr>
    <td colSpan="2" height="30"><input type="image" height="20" width="55" src="<% = strImageUrl%>button_login.gif" border="0" name="Submit"><a href="<% = strSysUrl%>RegMember/FindPwd.asp"><img height="20" alt="取回密码" src="<% = strImageUrl%>button_get_password.gif" width="67" height="20" border="0"></a></td>
  </tr>
  <tr>
    <td colSpan="2" height="26"><a href="<% = strSysUrl%>RegMember/index.asp"><img height="26" alt=" 免 费 注 册 " src="<% = strImageUrl%>button_freeregister_01.gif" width="125" border="0"></a></td>
  </tr>
</form>
</tbody>
</table>
<%end if%>