<%
d_id=requesta("id")
if not isnumeric(d_id) or d_id="" then url_return "参数丢失",-1
conn.open constr
act=requesta("act")
if act="del" then
sql="delete from Prehost where OrderNo='" & d_id & "' and u_name='"& session("user_name") &"'"
conn.execute sql
conn.close
alert_redirect "删除成功","default.asp"
elseif act="mod2" then
newbuyyears=trim(requesta("newbuyyears"))
sql="update Prehost set years=" & newbuyyears & " where u_name='"& session("user_name") &"' and OrderNo='"& d_id & "'"
conn.execute sql
conn.close
alert_redirect "年限修改成功",request("script_name")&"?id=" & d_id
elseif act="add" then
returnstr=putOrderlist("vhost",d_id,session("user_name"))
if left(returnstr,3)="200" then
Sql="Update Prehost Set Opened=true Where orderNo='" & d_id & "'"
conn.Execute(Sql)
alterstr="虚拟主机开通订单成功， " & _
"现在可进入 管理中心-业务管理-主机管理 对此主机进行相关设置"
echoString alterstr,"r"
else
echoString "虚拟主机开通订单失败 "& returnstr ,"e"
end if
end if
sql="select * from Prehost where orderNo='" & d_id & "' and u_Name='"& session("user_name") &"'"
rs11.open sql,conn,1,1
if rs11.eof then url_return "没有找到此订单",-1
orderID=100000 + d_id
s_comment=rs11("ftpaccount")
regDate=rs11("sdate")
years=rs11("years")
price=rs11("price")
proID=rs11("proid")
allprice=GetNeedPrice(session("user_name"),proID,years,"new")
%>