?? member.asp
字號:
<!--#Include file="../Common/Inc_DatConn.asp"-->
<!--#Include file="Common/Inc_Config.asp"-->
<!--#Include file="Common/Inc_Function.asp"-->
<%
'┌─ 風云ASP在線 ────────────────────────┐
'│ │
'│ 作者：趙振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系統開發，網站制作，提供高質量的網絡產品、技術和服務！│
'│ │
'│【版權聲明】 │
'│ │
'│ 本程序版權歸坐看風云所有，未經授權擅自修改、復制或散布本程序│
'│ │
'│的部分或全部，將承受嚴厲的民事和刑事處罰，對已知的違反者將給予法 │
'│ │
'│律范圍內的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<%if IsTimeOut(Session("strAccount"),Session("strPassWord")) then Response.Redirect "index.asp"%>
<html>
<head>
<title><% = strSiteName%> - 網站后臺管理系統</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Common/Site.css" type="text/css">
</head>
<%
Dim rdsMember
Dim sqlMember
Dim intMemberKey
Dim strMemberLevel
intMemberKey = Request.QueryString("ID")
if intMemberKey = "" then intMemberKey = 0
set rdsMember = Server.CreateObject("ADODB.Recordset")
sqlMember = "Select * From Dat_Member Where MemberKey = "& intMemberKey
rdsMember.Open sqlMember,Conn,1,1
if not rdsMember.EOF then
'if rdsMember("Point") > 0 then
' strMemberLevel = "付費"
'else
' strMemberLevel = "普通"
'end if
%>
<body topmargin="1" leftmargin="1">
<table border="0" width="460" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top" align="center" class="booktable">
<table border="0" width="100%" cellspacing="1" cellpadding="0">
<tr>
<td width="20%" class="bottom" height="25" align="right">會員帳號：</td>
<td width="80%" class="banma1" height="25"> <% = rdsMember("Member")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">會員級別：</td>
<td class="banma1" height="25"><%
Select case rdsMember("jb")
Case 0
Response.Write("<font color=#FF00FF> 普通會員</font>")
Case 1
Response.Write("<font color=#FFCC66> 高級會員</font>")
Case -1
Response.Write("<font color=#FFCC66> 高級會員申請中</font>")
case else
Response.Write(" 非法會員")
End Select
%>
</td>
</tr>
<tr>
<td class="bottom" height="25" align="right">密碼：</td>
<td class="banma1" height="25"> <% = rdsMember("Password")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">會員類型：</td>
<td class="banma1" height="25">
<%
if rdsMember("MemberType") = "1" then
Response.Write " 個人會員"
else
Response.Write " 企業會員"
end if
%>
</td>
</tr>
<%if rdsMember("MemberType") = "1" then%>
<tr>
<td class="bottom" height="25" align="right">會員點數：</td>
<td class="banma1" height="25"> <% = rdsMember("point")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">真實姓名：</td>
<td class="banma1" height="25"> <% = rdsMember("RealName")%></td>
</tr>
<%else%>
<tr>
<td class="bottom" height="25" align="right">企業名稱：</td>
<td class="banma1" height="25"> <% = rdsMember("CompanyName")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">聯系人：</td>
<td class="banma1" height="25"> <% = rdsMember("ContactMan")%></td>
</tr>
<%end if%>
<tr>
<td class="bottom" height="25" align="right">電話：</td>
<td class="banma1" height="25"> <% = rdsMember("Tel")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">傳真：</td>
<td class="banma1" height="25"> <% = rdsMember("Fax")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">Homepage：</td>
<td class="banma1" height="25"> <a href="<% = rdsMember("Homepage")%>" target="_blank"><% = rdsMember("Homepage")%></a></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">E-Mail：</td>
<td class="banma1" height="25"> <a href="mailto:<% = rdsMember("Email")%>"><% = rdsMember("Email")%></a></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">聯系地址：</td>
<td class="banma1" height="25"> <% = rdsMember("Add")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">郵政編碼：</td>
<td class="banma1" height="25"> <% = rdsMember("Postalcode")%></td>
</tr>
<!--
<tr>
<td class="bottom" height="25" align="right">目前點數：</td>
<td class="banma1" height="25"> <% = rdsMember("Point")%></td>
</tr>
-->
<tr>
<td class="bottom" height="25" align="right">注冊 IP：</td>
<td class="banma1" height="25"> <% = rdsMember("IP")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">注冊時間：</td>
<td class="banma1" height="25"> <% = rdsMember("CreateTime")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="40" align="right"><input onclick="parent.location.href='javascript:close();'" type="button" value="關閉窗口" class="button" name="Button"> </td>
</tr>
</table>
</body>
<%
end if
rdsMember.Close
set rdsMember = nothing
%>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -