resource.asp

非常有商业价值的软件

set ishf=rs("ishf")

response.write "<tr>"
response.write "<td width=28>"&(page-1)*19+ii&"</td>"
response.write "<td width=251><a href=user_resource.asp?flag=revert_ok&id="&id&"&page="&page&">"&title&"</a></td>"
response.write "<td width=119>"&addtime&"</td>"
response.write "<td width=112>"
if ishf=0 then
response.write "处理中..."
elseif ishf=1 then
response.write "<font color=#FF0000><a href=user_resource.asp?flag=revert_ok&id="&id&"&page="&page&">查看回复</a></font>"
else
response.write "错误状态"
end if
response.write "</td>"
response.write "<td width=111><a href=userinfo/disposal.asp?action=delmessage&id="&id&"&page="&page&">删除</a></td>"
response.write "</tr>"

rs.movenext
ii=ii+1
wend

response.write "<tr>"
response.write "<td width=631 colspan=5>"
call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")
response.write "</td>"
response.write "</tr>"
response.write "</table>"
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub

sub revert_ok()
id=my_request("id",1)
page=my_request("page",1)
sql="select title,email,phone,content,flag from message_yqj where id="&id&" order by addtime desc"
set rs=conn.execute (sql)
title=rs("title")
email=rs("email")
phone=rs("phone")
content=rs("content")
flag=rs("flag")
rs.close
set rs=nothing
response.write "<table border=0 width=631 cellspacing=1 class=12px>"
response.write "<tr>"
response.write "<td>"
response.write "<p align=center>查看留言内容及回复</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<div align=center>"
response.write "<table border=0 width=620 cellspacing=1 class=12px>"
response.write "<tr>"
response.write "<td align=right width=154>留言标题：</td>"
response.write "<td width=155>"&title&"</td>"
response.write "<td align=right width=155>电子邮件地址：</td>"
response.write "<td width=155>"&email&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td align=right width=154>留言类别：</td>"
response.write "<td width=155>"
select case flag
case 1
response.write "订单问题"
case 2
response.write "服务问题"
case 3
response.write "技术问题"
case 4
response.write "其他问题"
case else
response.write "其他问题"
end select
response.write "</td>"
response.write "<td align=right width=155>联系电话：</td>"
response.write "<td width=155>"&phone&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=4>留言内容："&content&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=4>"
response.write "<form action=user_resource.asp?flag=revert&page="&page&" method=post>"
response.write "<p align=center>"
response.write "<input type=submit value=返回留言列表 name=B1>"
response.write "</p>"
response.write "</form></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=631>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
set rs=server.CreateObject("adodb.recordset")
sql="select lid,revert_man,content,addtime from revert where lid="&id
rs.open sql,conn,1,1
if (rs.eof and rs.bof) then
response.write "<span class=12px><font color=#FF0000>此留言正在处理中......</font></span>"
else
do while not (rs.eof and rs.bof)
revert_man=rs("revert_man")
content=rs("content")
addtime=rs("addtime")
response.write "<div align=center>"
response.write "<table border=0 width=631 cellspacing=1 class=12px>"
response.write "<tr>"
response.write "<td>回复：<font color=#FF0000>"&content&"</font></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<p align=right>回复人："&revert_man&"&nbsp;&nbsp;&nbsp; 回复时间："&addtime&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<hr size=1></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub

sub dd_list
response.write "<table border=0 width=631 id=table1 cellspacing=1 class=12px>"
response.write "<tr>"
response.write "<td colspan=8>"
response.write "<p align=center>订单管理</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td colspan=8><form action=user_resource.asp?flag=dd_list method=post>"
response.write "<p align=center>请输入订单号：<input type=text name=keyword size=20><input type=submit value=搜索 name=B1></form></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=29>ID</td>"
response.write "<td width=102>订单编号</td>"
response.write "<td width=65>货款(RMB)</td>"
response.write "<td width=72>附加费用</td>"
response.write "<td width=60>交易方式</td>"
response.write "<td width=113>下单时间</td>"
response.write "<td width=69>订单状态</td>"
response.write "<td width=100>操作</td>"
response.write "</tr>"
username=session("chk_name")
keyword=my_request("keyword",0)
if keyword<>"" then
sql="select id,ddbh,addtime,paymode,yqj_money,yqj_cost,zt from buyer where userid='"&username&"' and ddbh like '%"&keyword&"%'"
else
sql="select id,ddbh,addtime,paymode,yqj_money,yqj_cost,zt from buyer where userid='"&username&"'"
end if
set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td width=500 colspan=4><font color=#FF0000>没有想符合的数据</font></td>"
    response.write "</tr>"
    else
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
ii=1
while not rs.eof and ii<=rs.pagesize
set id=rs("id")
set ddbh=rs("ddbh")
set addtime=rs("addtime")
set paymode=rs("paymode")
set yqj_money=rs("yqj_money")
set yqj_cost=rs("yqj_cost")
set zt=rs("zt")
response.write "<tr>"
response.write "<td width=29>"&(page-1)*19+ii&"</td>"
response.write "<td width=102><a href=user_resource.asp?flag=list_order&page="&page&"&nodot="&ddbh&">"&ddbh&"</a></td>"
response.write "<td width=65>￥"&yqj_money&"元</td>"
response.write "<td width=72>￥"&yqj_cost&"元</td>"
response.write "<td width=60>"&paymode&"</td>"
response.write "<td width=113>"&addtime&"</td>"
response.write "<td width=69><font color=#FF0000>"&zt&"</font></td>"
response.write "<td width=97><a href=userinfo/disposal.asp?id="&id&"&nodot="&ddbh&"&action=delorder&page="&page&">删除</a></td>"
response.write "</tr>"
rs.movenext
ii=ii+1
wend
response.write "<tr>"
response.write "<td colspan=8>"
call PageControl(iCount,maxpage,page,"border=0 align=left","<p align=left>")
response.write "</td>"
response.write "</tr>"
response.write "</table>"
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub

sub list_order()
ddbh=my_request("nodot",0)
page=my_request("page",1)
sql="select id,yqj_realname,yqj_address,yqj_postal,yqj_phone,yqj_email,paymode,content,yqj_money,yqj_cost,zt from buyer where ddbh='"&ddbh&"'"
set rs=conn.execute (sql)
id=rs("id")
yqj_realname=rs("yqj_realname")
yqj_address=rs("yqj_address")
yqj_postal=rs("yqj_postal")
yqj_phone=rs("yqj_phone")
yqj_email=rs("yqj_email")
paymode=rs("paymode")
content=rs("content")
yqj_money=rs("yqj_money")
yqj_cost=rs("yqj_cost")
zt=rs("zt")
rs.close
set rs=nothing

response.write "<p class=12px>此订单的联系方式</p>"
response.write "<table border=0 width=631 cellspacing=1 class=12px>"
response.write "<tr>"
response.write "<td width=93 align=right>真实姓名：</td>"
response.write "<td width=531 colspan=3>"&yqj_realname&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=93 align=right>联系地址：</td>"
response.write "<td width=531 colspan=3>"&yqj_address&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=93 align=right>邮政编码：</td>"
response.write "<td width=531 colspan=3>"&yqj_postal&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=93 align=right>联系电话：</td>"
response.write "<td width=531 colspan=3>"&yqj_phone&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=93 align=right>邮件地址：</td>"
response.write "<td width=531 colspan=3>"&yqj_email&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=93 align=right>支付方式：</td>"
response.write "<td width=266>"&paymode&"</td>"
response.write "<td width=133>"
response.write "<p align=right>处理状态：</td>"
response.write "<td width=132><font color=#FF0000>"&zt&"</font></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=93 align=right>总计金额：</td>"
response.write "<td width=263>￥"&yqj_money&"元</td>"
response.write "<td width=132>"
response.write "<p align=right>总计费用：</td>"
response.write "<td width=131>￥"&yqj_cost&"元</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=92>"
response.write "<p align=right>备注说明：</td>"
response.write "<td colspan=3 width=532>"&content&"</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=624 colspan=4>"
response.write "<p align=center><a href=user_resource.asp?flag=dd_list&page="&page&"><font color=#FF0000>返回上页</font></a></td>"
response.write "</tr>"
response.write "</table>"
response.write "<br>"
response.write "<table border=0 width=631 cellspacing=1 class=12px>"
response.write "<tr>"
response.write "<td colspan=6>"
response.write "<p align=center class=14px>此订单的商品详细情况</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td width=23>ID</td>"
response.write "<td width=232>商品名称</td>"
response.write "<td width=66>购买数量</td>"
response.write "<td width=127>所属订单</td>"
response.write "<td width=51>价格</td>"
response.write "<td width=113>购买时间</td>"
response.write "</tr>"
response.write "</table>"
set rs=server.CreateObject("adodb.recordset")
sql="select id,bh,mc,sl,rmb,sj from list where cartbh='"&ddbh&"'"
rs.open sql,conn,1,1
i=1
do while not (rs.eof and rs.bof)
id=rs("id")
bh=rs("bh")
mc=rs("mc")
sl=rs("sl")
rmb=rs("rmb")
sj=rs("sj")
response.write "<table border=0 width=631 cellspacing=1 class=12px>"
response.write "<tr>"
response.write "<td width=23>"&i&"</td>"
response.write "<td width=232><a href=list_more.asp?id="&bh&">"&mc&"</a></td>"
response.write "<td width=66>"&sl&"　</td>"
response.write "<td width=127>"&ddbh&"</td>"
response.write "<td width=51>￥"&rmb&"元</td>"
response.write "<td width=113>"&sj&"</td>"
response.write "</tr>"
response.write "</table>"
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub
%>