<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
conn.open constr
id=Trim(Requesta("id"))
if not isNumeric(id) then url_return "pleaes input ID",-1
sql="select * from hostrental where id=" & id & " and u_name='" & session("user_name") & "'"
rs.open sql,conn,1,1
if rs.eof then url_return "无此主机"
if not rs("start") then url_return "主机未开通，不能续费",-1
price=rs("moneypermonth")
paymethod=trim(rs("paymethod"))
%>