📄 userrecord.asp
字号:
<!--#include file="../conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<%
'如果是用户则显示
name1 = Session("user_id")
bb= Trim(name1)
pwd = Trim(Session("user_pwd"))
'用户名是否为空
If Not bb="" Then
sql = "Select * From Users Where UserId='" & bb & "' And PWd='" & pwd & "'"
'是否存在此用户名
Set Rsa=conn.Execute(sql)
If rsa.Eof Then
'判断是否为管理员
sql = "Select * From Admin Where AdminId='" & bb & "' And Passwd='" & pwd & "'"
Set Rsa=conn.Execute(sql)
If rsa.Eof Then
Response.Redirect "/shop/index.asp"
End If
End If
Else
name1 = Session("admin_id")
bb= Trim(name1)
pwd = Trim(Session("admin_pwd"))
sql = "Select * From Admin Where AdminId='" & bb & "' And Passwd='" & pwd & "'"
Set Rsa=conn.Execute(sql)
If rsa.Eof Then
Response.Redirect "/shop/index.asp"
End If
End If
%>
<html>
<head>
<link rel="stylesheet" href="../style.css">
<title>浏览用户交易信息</title>
</head>
<body>
<%
Dim uid
uid = Request.QueryString("userid")
sql = "Select * From Users Where UserId='"&uid&"'"
Set rs = Conn.Execute(sql)
If rs.Eof Then
Response.Write "不存在此用户名！"
Else
%>
<p align="center">用户交易信息</p><input type="hidden" name="isadd" value="edit">
用户名 ：<%=rs("UserId")%><br>
送货地址：<%=rs("Address")%><br>
<table align="center" border="1" cellpadding="1" cellspacing="1" width="100%" bordercolor="#008000" bordercolordark="#FFFFFF">
<tr>
<td align=left bgcolor="#E1F5FF"><font color="#080080">待处理记录</font></td>
</tr>
<tr><td>
<%
Dim n
n=0
'从数据库表Basket中选择此用户的提交信息
sql = "Select * From Basket Where UserId='" & uid &"' and AdminChecked=1 Order By Posttime"
Set rs = Conn.Execute(sql)
Do While Not rs.Eof
n = n + 1
Response.Write "提交时间:"&rs("PostTime")&" 订单号:"&rs("OrderNumber")&"<br> "
rs.MoveNext
Loop
If n=0 Then
Response.Write "没有提交记录"
End If
%></td>
</tr>
<tr>
<td align=left bgcolor="#E1F5FF"><font color="#080080">待送货记录</font></td>
</tr>
<tr><td>
<%
n=0
'从数据库表Basket中选择此用户已经处理信息
sql = "Select * From Basket Where UserId='" & uid &"' and AdminChecked=2 Order By Posttime"
Set rs = Conn.Execute(sql)
Do While Not rs.Eof
n = n + 1
Response.Write "提交时间:"&rs("PostTime")&" 订单号:"&rs("OrderNumber")&"<br> "
rs.MoveNext
Loop
If n=0 Then
Response.Write "没有发货记录"
End If
%></td>
</tr>
<tr>
<td align=left bgcolor="#E1F5FF"><font color="#080080">待结账记录</font></td>
</tr>
<tr><td>
<%
n=0
'从数据库表Basket中选择此用户已经发货信息
sql = "Select * From Basket Where UserId='" & uid &"' and AdminChecked=3 Order By Posttime"
Set rs = Conn.Execute(sql)
Do While Not rs.Eof
n = n + 1
Response.Write "提交时间:"&rs("PostTime")&" 订单号:"&rs("OrderNumber")&"<br> "
rs.MoveNext
Loop
If n=0 Then
Response.Write "没有待结账记录"
End If
%></td>
</tr>
<tr>
<td align=left bgcolor="#E1F5FF"><font color="#080080">已经结账记录</font></td>
</tr>
<tr><td>
<%
n=0
'从数据库表Basket中选择此用户已经发货信息
sql = "Select * From Basket Where UserId='" & uid &"' and AdminChecked=4 Order By Posttime"
Set rs = Conn.Execute(sql)
Do While Not rs.Eof
n = n + 1
Response.Write "提交时间:"&rs("PostTime")&" 订单号:"&rs("OrderNumber")&"<br>"
rs.MoveNext
Loop
If n=0 Then
Response.Write "没有结账记录"
End If
%></td>
</tr>
<tr>
<td align=left bgcolor="#E1F5FF"><font color="#080080">投诉记录</font></td>
</tr>
<%
n=0
'从数据库表Complain中选择此用户的投诉信息
sql = "Select * From Complain Where UserId='" & uid &"' Order By Posttime"
Set rs = Conn.Execute(sql)
Do While Not rs.Eof
n = n + 1
Response.Write "<tr><td>投诉时间:"&rs("Posttime")&" 订单号:"&rs("OrderNumber")
If rs("flag")=True Then
Response.Write "<br>投诉内容:"&rs("content")&"<br>解决方案:"&rs("Result")
Else
Response.Write " <font color=red><b>等待解决</b></font><br>投诉内容:"&rs("content")
End If
Response.Write "</td></tr>"
rs.MoveNext
Loop
If n=0 Then
Response.Write "<tr><td align=center>没有投诉记录</td></tr>"
End If
%>
</table>
<%End If%>
<p align="center"><a href="javascript:window.close();">[关闭]</a></p>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -