<%
function getHostType(ByVal xxx)
select case xxx
case 0
getHostType="主机租用"
case 1
getHostType="VPS主机"
case 2
getHostType="主机托管"
end select
end function
conn.open constr
id=Trim(Requesta("id"))
pdsmod=Trim(requestf("pdsmod"))
if not isNumeric(id) then url_return "pleaes input ID",-1
sql="select top 1 * from hostrental where u_name='"& session("user_name") &"' and id="& id
if trim(pdsmod)="add" and id<>"" then
rs.open sql,conn,1,3
if not rs.eof then
rs("Name")=requestf("userName")
rs("telephone")=requestf("telephone")
rs("address")=requestf("address")
rs("Email")=requestf("Email")
rs("QQ")=requestf("QQ")
rs("fax")=requestf("fax")
rs.update
else
url_return "参数错误",-1
end if
rs.close
Alert_redirect "更新成功", request("script_name") &"?id="&id
response.end
end if
set zxwRS=conn.execute(sql)
if not zxwRs.eof then
userName=zxwRs("Name")
company=zxwRs("company")
telephone=zxwRs("telephone")
address=zxwRs("address")
Email=zxwRs("Email")
QQ=zxwRs("QQ")
u_name=zxwRs("u_name")
fax=zxwRs("fax")
startTime=zxwRs("startTime")
alreadypay=zxwRs("alreadypay")
start=zxwRS("start")
hosttype=zxwRS("hosttype")
allocateIp=zxwRS("allocateIp")
RamdomPass=zxwRS("RamdomPass")
if trim(allocateIp)&""="" then allocateIp="未开通"
else
url_return "参数错误",-1
end if
zxwRs.close
set zxwRs=nothing
sText=getHostType(hosttype)
%>