📄 myshouhou.asp
字号:
<!--#include file="menkan2.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="page.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="Image/Main.css" rel="stylesheet" type="text/css" />
<title>售后服务</title>
<style type="text/css">
<!--
.STYLE1 {color: #666666}
.STYLE2 {color: #0000FF}
-->
</style>
</head>
<body>
<!--#include file="top.asp"-->
<%
orders=request.QueryString("orders")
action=request.QueryString("action")
ok=request.querystring("ok")
select case action
case"list"
%>
<table width="760" border="1"align="center" cellpadding="3" cellspacing="1" bordercolor="#CCCCCC" style="border-collapse: collapse">
<tr>
<td colspan="2">【<a href="?action=list&ok=false">未解决</a>】【<a href="?action=list&ok=true">已解决</a>】</td>
</tr>
<tr>
<td colspan="2" align="center" bgcolor="#eeeeee"><%if ok="false" then%>未完成的服务<%elseif ok="true" then%>完成的售后服务<%end if%></td>
</tr>
<%
Set mypage=new xdownpage
mypage.getconn=conn
if ok="false" then
mypage.getsql="select * from shouhou where parentsid=0 and sok=0 and userid="&session("userid")&" order by sid desc"
else
mypage.getsql="select * from shouhou where parentsid=0 and sok=-1 and userid="&session("userid")&" order by sid desc"
end if
mypage.pagesize=5
set rspage=mypage.getrs()
Response.Write("<br/>")
for i=1 to mypage.pagesize
if not rspage.eof then
%>
<tr>
<td width="15%" align="right">订单编号：</td>
<td width="85%" align="left"><font color="#0000FF"><%=rspage("orders")%></font></td>
</tr>
<tr>
<td align="right"><span class="STYLE1">首帖：</span></td>
<td align="left"><%=rspage("scontent")%></td>
</tr>
<tr>
<td align="right"><span class="STYLE1">末帖：</span></td>
<td align="left">
<%
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from shouhou where parentsid="&rspage("sid")&" order by sid desc"
rs.open sql,conn,1,1
if not(rs.bof or rs.eof)then
response.write rs("scontent")
else
response.Write rspage("scontent")
end if
rs.close
set rs=nothing
%>
</td>
</tr>
<tr>
<td align="right"> </td>
<td align="left">
【<a href="?action=shouhoulist&orders=<%=rspage("orders")%>">详细</a>】
<%if ok="false" then%>
【<a href="#" onClick="if(confirm('确定结贴吗?'))location.href='?action=ok&orders=<%=rspage("orders")%>';else return;">结贴</a>】
<%else%>
【<a href="#" onClick="if(confirm('确定删除吗?'))location.href='?action=del&orders=<%=rspage("orders")%>';else return;">删除</a>】
<%end if%></td>
</tr>
<%
rspage.movenext
else
exit for
end if
next
%>
<tr>
<td colspan="2" align="right"><%mypage.showpage()%></td>
</tr>
</table>
<%
Set mypage=nothing
case"shouhoulist"
set rs=server.CreateObject("adodb.recordset")
sql="select * from shouhou where orders='"&orders&"' and parentsid=0 "
rs.open sql,conn,1,1
if not(rs.bof or rs.eof)then
sid=rs("sid")
userid=rs("userid")
scontent=rs("scontent")
sok=rs("sok")
end if
rs.close
set rs=nothing
%>
<table width="760" border="1"align="center" cellpadding="3" cellspacing="1" bordercolor="#CCCCCC" style="border-collapse: collapse">
<tr>
<td colspan="2" align="left">
<%if sok=false then%>
【<a href="#" onClick="if(confirm('确定结贴吗?'))location.href='?action=ok&orders=<%=orders%>';else return;">结贴</a>】
<%else%>
【<a href="#" onClick="if(confirm('确定删除吗?'))location.href='?action=del&orders=<%=orders%>';else return;">删除</a>】
<%end if%>
【<a href="?action=list&ok=false">返回</a>】</td>
</tr>
<tr>
<td width="15%" align="right">订单编号：</td>
<td align="left"><%=orders%></td>
</tr>
<tr>
<td align="right">购买商品：</td>
<td align="left" class="STYLE1">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from [Orders] where Orders='"&orders&"'"
rs.open sql,conn,1,1
if not(rs.bof or rs.eof)then
orderid=rs("orderid")
end if
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="select * from Orders_Particular where orderid="&orderid
rs.open sql,conn,1,1
do while not rs.eof
set rso=server.CreateObject("adodb.recordset")
sqlo="select * from product where productid="&rs("ProductId")
rso.open sqlo,conn,1,1
if not(rso.bof or rso.eof) then
productname=rso("productname")
end if
rso.close
set rso=nothing
response.Write "商品："&productname&" 数量："&rs("buynum")&"<br>"
rs.movenext
loop
rs.close
set rs=nothing
%> </td>
</tr>
<%
Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql="select * from shouhou where orders='"&orders&"' order by sid asc"
mypage.pagesize=10
set rspage=mypage.getrs()
Response.Write("<br/>")
for i=1 to mypage.pagesize
if not rspage.eof then
userid=rspage("userid")
%>
<tr>
<td width="15%" align="right"><%if userid=0 then%><font color="#0000FF"><%else%><font color="#FF0000"><%end if%>
<%
if i=1 then
response.Write("首帖：")
else
if len(i)=1 then
response.Write "0"&i&"楼："
else
response.Write i&"楼："
end if
end if
%>
</font></td>
<td align="left"><%=rspage("scontent")%></td>
</tr>
<%
rspage.movenext
else
exit for
end if
next
%>
<tr>
<td colspan="2" align="right"><%mypage.showpage()%></td>
</tr>
</table>
<%if sok=false then%>
<table width="760" height="14" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="760" border="1"align="center" cellpadding="3" cellspacing="1" bordercolor="#CCCCCC" style="border-collapse: collapse">
<form action="?action=save" method="post" name="shouhou">
<tr>
<td colspan="2" align="center" bgcolor="#eeeeee">回复</td>
</tr>
<tr>
<td width="15%" align="center">回复内容</td>
<td>
<input name="parentsid" type="hidden" value="<%=sid%>">
<input name="orders" type="hidden" value="<%=orders%>">
<input name="userid" type="hidden" value="<%=userid%>">
<textarea name="scontent" cols="60" rows="5"></textarea>
</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit2" value="提 交">
<input type="reset" name="Submit22" value="重 置"></td>
</tr>
</form>
</table>
<%end if%>
<%Set mypage=nothing%>
<%
case"save"
parentsid=request.Form("parentsid")
orders=request.Form("orders")
userid=request.Form("userid")
scontent=request.Form("scontent")
if parentsid="" or orders="" or userid="" then
response.write "<SCRIPT language=JavaScript>alert('参数错误！');"
response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
if scontent="" then
response.write "<SCRIPT language=JavaScript>alert('请输入回帖内容！');"
response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
Response.End
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from shouhou"
rs.open sql,conn,1,3
rs.addnew
rs("parentsid")=parentsid
rs("orders")=orders
rs("userid")=userid
rs("scontent")=scontent
rs.update
rs.close
set rs=nothing
response.Write"<script>alert('回复完成！');location.href('?action=shouhoulist&orders="&orders&"');</script>"
case"ok"
conn.execute("update shouhou set sok=true where orders='"&orders&"'")
response.Write"<script>alert('订单："&orders&"结贴！');location.href('?action=list&ok=true');</script>"
case"del"
conn.execute("delete * from shouhou where orders='"&orders&"'")
response.Write"<script>alert('删除，订单："&orders&"！');location.href('?action=list&ok=false');</script>"
case else
response.redirect "?action=list"
end select
%>
<!--#include file="foot.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -