order.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
FunCode="F301"
session("title")="订单受理"
session("headline")="首页 -> 注册系统 -> 业务开通处理"
%>
<!--#include file="../inc/head2.asp"-->
<br><br>
<%
if request("act")="update" then
	call Update()
	'call List()
'elseif request("act")="delapply" then
'	conn.execute ("delete from apply where ID = " & request("id"))
'	call List()
else
	call List()
end if

sub List()
'on error resume next
set rs=server.createobject("adodb.recordset")
sql = "select * from userorder where handle='未受理' and (username in (select username from [user] where Manageuser='" & session("username")&"')) order by regtime desc "
rs.open sql ,conn,1,1
%>
<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="15"><b>订单处理</b></td></tr>
<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'>&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><a href="../UManage/Order_info.asp?ID=<%=rs("ID")%>"><%=rs("ID")%></a></td><td><a href='../userself/userinfo.asp?username=<%=rs("username")%>' target='_blank'><%=rs("username")%></a></td><td><%=rs("applyname")%>&nbsp;</td>
<td><%=rs("domainname")%>&nbsp;</td>
<td><%=rs("applytime")%>&nbsp;</td><td><%=rs("price")%>&nbsp;</td><form method='POST'  action='Order.asp?act=update' target="_blank"><td><input type='hidden' name='id' value='<%=rs("ID")%>'><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                                                                                                  
		  loop                                                                    
           %>	
</table>

<%
rs.close                                                                                                
set rs=nothing                                                                                                

end sub


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

set rs = conn.execute ("select * from userorder where ID='" & id & "' and handle='未受理' and  (username in (select username from [user] where Manageuser='" & session("username")&"')) ")
if rs.eof then
	session("mesg")="对不起,订单不存在"
	Response.Redirect "../result.asp"
	Response.End
end if
username = rs("username")
domainname = rs("domainname")
rs.close
set rs= nothing


if strtype = "1" then
'如果会员帐上金额足够,则自动受理,并开通
	if IFHandleOnLine(id) = "Y" then
		mesg = HandleOnLine(ID)
	else
		mesg = TransHandle(id, strtype)
		if  mesg = ""  then
			action=applyname & "订单已处理成功,但未实时开通,请手工处理["&id&"]"
			put_apply username,domainname,action
		end if
	end if
else
	mesg = TransHandle(id, strtype)
end if
if  mesg = ""  then
	mesg = "订单处理成功"
end if

session("mesg")=mesg
Response.Redirect "../result.asp"
Response.End
end sub

%>
<!--#include file="../inc/bottom2.asp"-->