morder_list.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
FunCode="F301"
session("title")="订单受理"
session("headline")="首页 -> 注册系统 -> 订单受理"
%>
<!--#include file="../inc/head2.asp"-->

<%


if request("act")="update" then
	call Update()
	call List()
else
	call List()
end if


sub Update()
id=request("id")
strtype=request("type")
OrderTable=request("OrderTable")

ret = getOrderDetail(ID,OrderTable,UserName,applytype,applyName,applytime,domainname,email,status,handle,regendo,price,priceM)

if ret <> "" then 
	session("mesg")="获得产品详细信息出错"
	PopErr2 session("mesg")
	exit sub
end if
mesg = TransHandle(id,OrderTable,strtype,session("username"))
if  mesg = "" then
	mesg=applyName&"受理成功"
end if

session("mesg")=mesg&err.description
PopErr2 session("mesg")
end sub


sub List()
IsMRP = request("IsMRP")
OrderType=request("OrderType")

if OrderType = "" then OrderType = "0"
if IsMRP = "" then IsMRP = "2"

	select case IsMRP
		case	"0"
			strTmp = " and  handle='受理成功' or handle='未受理' "
		case	"1"
			strTmp = " and  handle='受理成功' "
		case	"2"
			strTmp = " and handle='未受理' "
	end select 
	

strTmp = " where username in (select username from [user] where manageuser='"&session("username")&"')   " & strTmp
	select case	OrderType
	case	"0"
		sql = "select 'domain', id, username,domainname,domaintype,class,domaintime,price,regtime,email,handle,'domain'  from domain " & strTmp
		sql = sql & "union select 'dummy',id, username,domainname,applytype,applyname,applytime,price,regtime,email,handle,'dummy' from dummy "& strTmp
		sql = sql & "union select 'adver',id, username,weburl,applytype,applyname,applytime,price,regtime,email,handle,'adver' from adver "& strTmp
	case	"1"
		sql = "select 'domain', id, username,domainname,domaintype,class,domaintime,price,regtime,email,handle,'domain'  from domain " & strTmp
	case	"2"
		sql ="select 'dummy',id, username,domainname,applytype,applyname,applytime,price,regtime,email,handle,'dummy' from dummy "& strTmp
	case	"3"
		sql = " select 'adver',id, username,weburl,applytype,applyname,applytime,price,regtime,email,handle,'adver' from adver "& strTmp
	end select

set rs=server.createobject("adodb.recordset")
rs.open sql & " order by regtime desc ",conn,1,1

call PrintRecNum(rs)
call  PrintSetPage(rs,pagecount)
%>

<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=95% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' align="center" colspan="10"><b>订单处理</b></td></tr>
<tr>
<td class='color01' bgcolor='#efefef'>
	<form method="POST" action="mOrder_list.asp">
	&nbsp;&nbsp;业务类型&nbsp;<select name="OrderType">
					 <option value="0">所有业务
					<option value="1" <%if OrderType="1" then response.write "selected"%>>域名业务
					<option value="2" <%if OrderType="2" then response.write "selected"%>>主机业务
					<option value="3" <%if OrderType="3" then response.write "selected"%>>搜索排名业务
					</select>
					&nbsp;&nbsp;受理范围&nbsp;
					<select name="IsMRP">
					 <option value="0" >全部
					<option value="1" <%if IsMRP="1" then response.write "selected"%>>已受理
					<option value="2" <%if IsMRP="2" then response.write "selected"%>>未受理
					</select>
					&nbsp;&nbsp;<b><input type='submit' class='form' value='搜索符合条件的记录' name='B1'></b></td></form> </tr>
</table>

<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=95% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>序号</td><td class='color01' bgcolor='#efefef'>订单编号</td><td class='color01' bgcolor='#efefef'>用户名</td><td class='color01' bgcolor='#efefef'>产品名称</td><td class='color01' bgcolor='#efefef'>摘要</td><td class='color01' bgcolor='#efefef'>年限</td><td class='color01' bgcolor='#efefef'>价格</td><td class='color01' bgcolor='#efefef'>登记日期</td><td class='color01' bgcolor='#efefef'>状态</td><td class='color01' bgcolor='#efefef'>处理意见</td><td class='color01' bgcolor='#efefef'>&nbsp;</td></tr>

<% 
'域名业务', id, username,domainname,domaintype,class,domaintime,price,regtime
i=1
do while not rs.eof %> 
<tr><td><%=i+(pagecount-1)*pagesize%></td>
<td><%
		if rs(0) = "domain" then response.write "<a href='../UManage/domainreg_info.asp?id="&rs(1)&"' target='_blank'>"&rs(1)&"</a>"
		if rs(0) = "dummy" then response.write "<a href='../UManage/dummyapply_info.asp?id="&rs(1)&"' target='_blank'>"&rs(1)&"</a>"
		if rs(0) = "adver" then response.write "<a href='../Umanage/adverapply_info.asp?id="&rs(1)&"' target='_blank'>"&rs(1)&"</a>"
%></td><td><a href='../userself/userinfo.asp?username=<%=rs(2)%>' target='_blank'><%=rs(2)%></a></td>

<td><%=rs(5)%></td>
<td>
<%
		if rs(0) = "domain" then response.write "<a href='../UManage/domainreg_info.asp?id="&rs(1)&"' target='_blank'>"&rs(3)&"</a>"
		if rs(0) = "dummy" then response.write "<a href='../UManage/dummyapply_info.asp?id="&rs(1)&"' target='_blank'>"&rs(3)&"</a>"
		if rs(0) = "adver" then response.write "<a href='../Umanage/adverapply_info.asp?id="&rs(1)&"' target='_blank'>"&rs(3)&"</a>"
%></td>
<td><%=rs(6)%></td><td><%=rs(7)%></td><td><%=rs(8)%></td><td><%=rs(10)%></td><form method='POST' action='mOrder_list.asp?act=update&page=<%=i%>&TransType=<%=TransType%>&IsMRP=<%=IsMRP%>'><td><input type='hidden' name='id' value='<%=rs(1)%>'><input type='hidden' name='OrderTable' value='<%=rs(11)%>'><select name='type' size='1'><option value='1' selected>同意</option><option value='2'>拒绝</option></select></td><td><input type='submit' class='form' value='确定' name='B1'></td></form></tr>
<% i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>rs.PageSize then exit do 
		  loop                                                                    
           %>	
</table>

<%
URL = "mOrder_list.asp?OrderType="&OrderType&"&IsMRP="&IsMRP
call PrintPage(pagecount, rs, URL)
rs.close                                                                                                
set rs=nothing                                                                                                
end sub
%>
<!--#include file="../inc/bottom2.asp"-->