<%
'┌─  風云ASP在線  ────────────────────────┐
'│                                                                 │
'│  作者：趙振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系統開發，網站制作，提供高質量的網絡產品、技術和服務！│
'│                                                                 │
'│【版權聲明】                                                     │
'│                                                                 │
'│     本程序版權歸坐看風云所有，未經授權擅自修改、復制或散布本程序│
'│                                                                 │
'│的部分或全部，將承受嚴厲的民事和刑事處罰，對已知的違反者將給予法 │
'│                                                                 │
'│律范圍內的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│                                                                 │
'└───────────────────  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%>