?? member.asp
字號:
<!--#include file="../Session.asp"-->
<html>
<head>
<title>會員信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../css/site.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
GlevelName=split(GlevelName,"|")
Member=Request("Member")
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from Member where Member='"&Member&"'"
rs1.open sql,conn,0,1
%>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="0">
<form action="Amend.asp" method="get" name="form" id="form">
<tr align="center">
<td height="50" colspan="2" class="tdstyle"><font color="#000000" size="3"><strong>會員信息</strong></font></td>
</tr>
<tr>
<td width="30%" height="20" align="right" class="tdstyle">會員名稱：</td>
<td width="70%" class="tdstyle"><%=Member%> <font color="#999999">[注冊時IP:<%=rs1("ip")%>]</font></td>
</tr>
<tr>
<td height="20" align="right" class="tdstyle">會員級別：</td>
<td class="tdstyle">
<%for i=1 to int(glevel)
if i>ubound(GlevelName) then
GlevelName1="<font color=#FF6600>未設定會員稱謂</font>"
else
'GlevelName1=GlevelName(i)+"(稱謂)"
GlevelName1=GlevelName(i)
end if%>
<input <%If (CStr(rs1("Grade")) = CStr(i)) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="Grade" value="<%=i%>">
<%Response.Write(GlevelName1)
next%>
</td>
</tr>
<tr>
<td height="20" align="right" class="tdstyle">真實姓名：</td>
<td class="tdstyle"> <%=rs1("name")%> [<%=rs1("Sex")%>]</td>
</tr>
<tr>
<td height="20" align="right" class="tdstyle">聯系地址：</td>
<td class="tdstyle"> <%=rs1("Address")%></td>
</tr>
<tr>
<td height="20" align="right" class="tdstyle">郵政編碼：</td>
<td class="tdstyle"> <%=rs1("Postalcode")%></td>
</tr>
<tr>
<td height="20" align="right" class="tdstyle">聯系電話：</td>
<td class="tdstyle"> <%=rs1("tel")%></td>
</tr>
<tr>
<td height="20" align="right" class="tdstyle">電子信箱：</td>
<td class="tdstyle"> <a href="mailto:<%=rs1("mail")%>?subject=購物確認"><%=rs1("mail")%></a></td>
</tr>
<tr>
<td height="20" align="right" class="tdstyle">ＯＩＣＱ：</td>
<td class="tdstyle"> <%=rs1("Oicq")%></td>
</tr>
<tr>
<td height="20" align="right" class="tdstyle">注冊日期：</td>
<td class="tdstyle"> <%=rs1("Date")%></td>
</tr>
<tr>
<td height="20" align="right" class="tdstyle">待付總額：</td>
<td class="tdstyle"> <font color="#FF3300"><%=rs1("Money")%></font> 元</td>
</tr>
<tr>
<td height="20" align="right" class="tdstyle">購物總額：</td>
<td class="tdstyle"> <font color="#FF3300"><%=rs1("MoneySum")%></font> 元</td>
</tr>
<tr>
<td height="30" colspan="2" align="center" class="tdstyle">
<input name="Submit" type="submit" class="button" value="修 改">
<input name="button1" type="button" class="button" id="button1" onclick="window.location='Del.asp?Member=<%=Member%>&page=<%=request("page1")%>'" value="刪 除">
<input name="page" type="hidden" value="<%=request("page1")%>">
<input name="Member" type="hidden" value="<%=Member%>">
<input name="button2" type="button" class="button" id="button2" onclick="javascript:window.history.go(-1)" value="返回上頁">
</td>
</tr>
</form>
</table>
<%rs1.close
set rs1 = nothing
%>
<br><br>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from OrderForm where Member = '"&Member&"' order by id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write ""
else
%>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="0">
<tr valign="middle">
<td width="20%" height="25" align="center" nowrap class="tdstyle"> <strong>訂單號</strong></td>
<td width="20%" align="center" nowrap class="tdstyle"><strong>付款方式</strong></td>
<td width="20%" align="center" nowrap class="tdstyle"><strong>下單日期</strong></td>
<td width="20%" align="center" nowrap class="tdstyle"><strong>訂單金額</strong>(含運費)</td>
<td width="20%" align="center" nowrap class="tdstyle"><strong>訂單狀態</strong></td>
</tr>
<%
i=1
while not rs.eof and i<=rs.pagesize
%>
<tr valign="middle" class="tdstyle">
<td height="20" align="center" class="tdstyle"><%=rs("BillNo")%> </td>
<td align="center" class="tdstyle"><%=rs("DeliveryMode")%> </td>
<td align="center" class="tdstyle"> <%=rs("Date")%></td>
<td align="center" class="tdstyle"><%=rs("Money")%></td>
<td align="center" class="tdstyle">
<%Dim FormState
FormState=rs("State")
if FormState=0 then
response.write "<font color=3399CC>已經作費</font> [等待系統刪除]"
elseif FormState=1 then
response.write "<font color=3399CC>等待處理</font> [款未到]"
elseif FormState=2 then
response.write "<font color=3399CC>等待處理</font> [款已到]"
elseif FormState=3 then
response.write "<font color=3399CC>已經發貨</font> [等待收貨]"
elseif FormState=4 then
response.write "<font color=3399CC>貨已到</font> [未評價]"
elseif FormState=5 then
response.write "<font color=3399CC>貨已到</font> [已評價]"
else
response.write "<font color=#FF0000>狀態不明</font>"
end if%>
</td>
</tr><%
i=i+1
rs.MoveNext
wend
%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center" class="tdstyle">
<%
if rs.recordcount<>0 then
if page-1 mod 10=0 then
p=(page-1) \ 10
else
p=(page-1) \ 10
end if
response.write "<form name=form method=post action=?Member="&Member&">頁次："& page &"/"& rs.pagecount &"頁 每頁"& rs.pagesize &"條記錄 共"& rs.recordcount &"條記錄"&_
" 分頁："
if p*10>0 then response.write "<a href='?Member="&Member&"&page="&p*10&"' title=上十頁>[<<]</a> "
uming_i=1
for ii=p*10+1 to P*10+10
if ii=page then
response.write "<font color=#ff0000>["+Cstr(ii)+"]</font> "
else
response.write "<a href='?Member="&Member&"&page="&ii&"'>["+Cstr(ii)+"]</a> "
end if
if ii=rs.pagecount then exit for
uming_i=uming_i+1
next
if ii<=rs.pagecount and uming_i=11 then response.write "<a href='?Member="&Member&"&page="&ii&"' title=下十頁>[>>]</a> "
response.write(" 跳頁：<input type=text name=page size=2 maxlength=3 class=input1> <input type=submit name=Submit2 value=Go class=button></form>")
end if%>
</td>
</tr>
</table>
<%
rs.close
set rs = nothing
end if%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -