?? 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=#FF0C66> 高級會員</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> <tr>
<td class="bottom" height="25" align="right">目前點數：</td>
<td class="banma1" height="25"> <% = rdsMember("point")%></td>
</tr>
<%if rdsMember("MemberType") = "1" then%>
<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">
<%dl=rdsMember("dl")
xl=rdsMember("xl")
if dl<>"" then
set rsb=server.createobject("adodb.recordset")
sqlb="select * from hybigclass where id="&dl
rsb.open sqlb,conn,1,1
if rsb.eof and rsb.bof then
response.write "分類有誤"
response.end
else
dlmc=rsb("bigclassname")
response.write"<a href=../hy/hyclass.asp?bid="&dl&" target=_blank>"&dlmc&"</a>"
end if
rsb.close
set rsb=nothing
else
Response.Write " 沒有分類"
end if
'*********大類結束
if xl<>"" then
set rss=server.createobject("adodb.recordset")
sqls="select * from hysmallclass where id="&xl
rss.open sqls,conn,1,1
if rss.eof and rss.bof then
response.write "小類有誤"
response.end
else
xlname=rss("smallclassname")
response.write" >> <a href=../hy/hyclass.asp?sid="&xl&" target=_blank>"&xlname&"</a>"
rss.close
set rss=nothing
end if
%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">單位性質：</td>
<td class="banma1" height="25"> <% = rdsMember("qyxz")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">所在地區：</td>
<td class="banma1" height="25"> <% = rdsMember("dq")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">成立日期：</td>
<td class="banma1" height="25"> <% = rdsMember("clrq")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">注冊資金：</td>
<td class="banma1" height="25"> <% = rdsMember("zczj")%>萬元</td>
</tr>
<tr>
<td class="bottom" height="25" align="right">經營類型：</td>
<td class="banma1" height="25"> <% = rdsMember("jylx")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">聯系人：</td>
<td class="banma1" height="25"> <% = rdsMember("ContactMan")%></td>
</tr>
<tr>
<td class="bottom" height="25" align="right">簡介：</td>
<td class="banma1" height="25"><% = rdsMember("js")%></td>
</tr>
<%end if%>
<tr>
<td class="bottom" height="25" align="right">騰訊QQ：</td>
<td class="banma1" height="25"> <a target="blank" href="http://wpa.qq.com/msgrd?V=1&Uin=<% = rdsMember("qq")%>&Site=<% = strSiteName%>&Menu=yes">
<img alt="點擊即可直接咨詢" src="../images/qq.gif" border="0"><% = rdsMember("qq")%></a></td>
</tr>
<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">注冊 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>
<tr>
<td class="bottom" height="25" align="right">更新時間：</td>
<td class="banma1" height="25"> <% = rdsMember("UpdateTime")%></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 + -