<% conn.open constr act=requesta("act") select case act case "del" id=requesta("id") if id<>"" then ' conn.execute "delete from HostRental where u_name='"& session("user_name") &"' and id=" & id ' response.redirect request("script_name") response.end end if end select sqlArray=Array("StartTime,开通日期,date") newsql=searchEnd(searchItem,condition,searchValue,othercode) sqlstring="Select * from HostRental where u_name='"& session("user_name") &"' " & newsql & " order by id desc" rs.open sqlstring,conn,1,1 setsize=20 cur=1 pagenumlist=GetPageClass(rs,setsize,othercode,pageCounts,linecounts) %>

服 务 器 租 用 管 理

"> <% do while not rs.eof and cur<=setsize tdcolor="#ffffff" if cur mod 2=0 then tdcolor="#efefef" %> <% rs.movenext cur=cur+1 Loop %>

类别	分配IP	配置	状态	支付方式	使用期限	操作
<%=getHostType(Rs("hostType"))%>	<%=Rs("AllocateIP")%>	<%=Rs("CPU")%>/<%=Rs("Memory")%>/<%=Rs("HardDisk")%>	<%=getStatus(Rs("Start"))%>	<%if rs("paymethod")=1 then response.write "按年" elseif rs("paymethod")=2 then response.write "按季" elseif rs("paymethod")=0 then response.write "月" end if%>	<% if Rs("Start") then Response.write "从" & formatDateTime(Rs("StartTime"),2) & "开始 " response.write "到" & formatDateTime(DateAdd("m",rs("alreadypay"),rs("starttime")),2)&"结束" else Response.write "未开通" end if %>	">续费 | ">详细 | 白名单
<%=pagenumlist%>
<%=searchlist%>

<% rs.close conn.close function getStatus(byval sta) if sta="" or isnull(sta) or not sta then getStatus="未开通" elseif sta then getStatus="已开通" end if end function function getHostType(ByVal xxx) select case xxx case 0 getHostType="租用" case 1 getHostType="VPS" case 2 getHostType="托管" end select end function %>