<!--#include virtual="/config/config.asp" -->
<!--#include virtual="/config/Template.inc.asp" --> 
<%
call needregsession()
conn.open constr
sql="select * from userdetail where u_name='" & session("user_name") & "'"
rs.open sql,conn,1,1
if  rs.eof then url_return "未知用户",-1
vps=requesta("vps")
hostid=requesta("HostID")
cpu=requesta("cpu")
Memory=requesta("Memory")
HardDisk=requesta("HardDisk")
vr_room=requesta("vr_room")
if hostid="" then url_return "服务器型号不能空",-1
tpl.set_unknowns "remove"
call setHeaderAndfooter()
if vps="okay" then
	call setvpsserverLeft()
else
	call setserverLeft()
end if

tpl.set_file "main", USEtemplate&"/services/server/Order.html"
tpl.set_var "vps",vps,false
tpl.set_var "hostid",HostID,false
tpl.set_var "cpu",cpu,false
tpl.set_var "memory",Memory,false
tpl.set_var "harddisk",HardDisk,false
tpl.set_var "vr_room",vbcrlf&"选择机房:"&vr_room,false

call setusercontent(rs)

tpl.parse "mains","main",false
tpl.p "mains" 
set tpl=nothing
rs.close
conn.close
sub setusercontent(byval domainRs)
	for Ri=0 to domainRs.fields.count-1
			tplname=trim(lcase(domainRs.Fields(Ri).Name))
			tplvalue=trim(domainRs(Ri))
			if trim(tplvalue)&""<>"" then
				tpl.set_var lcase(tplname),trim(tplvalue),false
			end if
	next
end sub
%>