📄 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 + -