ad_subr.asp

asp网站 挺不错的 试一下吧 网上购物系统 呵呵呵

<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>

<%
if request("action")="fu" then
sub_id=request("sub_id")
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_sub where sub_id="&sub_id&""
rs.open sql,conn,1,3
if rs.eof then
response.write "没有这个订单"
else
rs("sub_fu")=request("sub_fu")
rs("sub_tousu")=2
rs.update
end if
rs.close
set rs=nothing
response.write "投诉处理成功"
response.end
else
page=request("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_sub where sub_tousu>0 order by sub_tousu ASC"
rs.open sql,conn,1,1
if rs.eof then
response.write "暂且没有任何订单"
response.end
rs.close
set rs=nothing
else
rs.pagesize=20
totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
rs.cachesize=rs.pagesize%>
<table border="0" width="100%" cellspacing="1" style="border-collapse: collapse" cellpadding="5" bgcolor="#C8C8C8">
<tr><td colspan="6" bgcolor="#F0F0F0">共<font color=red><%=totalpage%></font>页 第<%=page%>页&nbsp;&nbsp;
<%if page-1>0 then%><a href="ad_subp.asp?page=<%=page-1%>">上一页</a><%else%>上一页<%end if%>&nbsp;&nbsp;
<%if page+1<=totalpage then%><a href="ad_subp.asp?page=<%=page+1%>">下一页</a><%else%>下一页<%end if%></td></tr>
<tr><td bgcolor="#FFFFFF">订单号</td><td bgcolor="#FFFFFF">订单状态</td><td bgcolor="#FFFFFF">订货人</td><td bgcolor="#FFFFFF">投诉说明</td><td bgcolor="#FFFFFF">投诉处理状态</td><td bgcolor="#FFFFFF">处理说明</td></tr>
<%i=0
do while not rs.eof and (i<rs.pagesize)
i=i+1%>
<form action="ad_subr.asp?action=fu&sub_id=<%=rs("sub_id")%>" method=post><tr>
<td bgcolor="#FFFFFF"><a href=ad_submore.asp?sub_id=<%=rs("sub_id")%>><%=rs("sub_number")%></a>　</td>
<td bgcolor="#FFFFFF"><%if rs("sub_zt")=0 then response.write "无效订单"%>
<%if rs("sub_zt")=1 then response.write "未处理"%>
<%if rs("sub_zt")=2 then response.write "已付款等待发货"%>
<%if rs("sub_zt")=3 then response.write "已收款发货中"%>
<%if rs("sub_zt")=4 then response.write "已发货注意收货"%>
<%if rs("sub_zt")=5 then response.write "已收货（归档）"%></td>
<td bgcolor="#FFFFFF"><%=rs("sub_name")%>　</td>
<td bgcolor="#FFFFFF"><%=rs("sub_you")%>　</td>
<td bgcolor="#FFFFFF"><%if rs("sub_tousu")=2 then%>已处理<%else%><font color="#FF0000">未处理</font><%end if%></td>
<td bgcolor="#FFFFFF"><input type="text" name="sub_fu" size="20" value="<%=rs("sub_fu")%>" class=input><input type="submit" value="提交" class=input></td></tr></form>
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
<tr><td colspan="6" bgcolor="#FFFFFF">共<font color=red><%=totalpage%></font>页 第<%=page%>页&nbsp;&nbsp;
<%if page-1>0 then%><a href="<%=filename%>?page=<%=page-1%>&zt=<%=request("zt")%>">上一页</a><%else%>上一页<%end if%>&nbsp;&nbsp;
<%if page+1<=totalpage then%><a href="<%=filename%>?page=<%=page+1%>&zt=<%=request("zt")%>">下一页</a><%else%>下一页<%end if%>
</td></tr></table>
<%end if%><table cellSpacing="0" cellPadding="3" border="0" width="500"><tr><td height="20"></td></tr>
<tr><td bgcolor="#F2F2F2"><p style="LINE-HEIGHT: 150%"><font color="#FF0000">凡人网络购物系统V8.0 版权所有:</font><a target="_blank" href="http://www.venshop.com"><font color="#FF0000">凡人网络VenShop.Com</font></a><font color="#FF0000"><br>客服电话:[phone]&nbsp; QQ:739202/57152557 Email/Msn:</font><a href="mailto:[e-mail]"><font color="#FF0000">[e-mail]</font></a></td>
</tr></table>