<%@ Language=VBScript %> <% If session("username")="" Then ef=True ec="授权非法,有可能是超时造成的。" If session("HOSTAUID")<>"" Then ec="主机面板中不能操作用户区的内容,请您先登陆用户区。" If session("EmailAUID")<>"" Then ec="邮箱面板中不能操作用户区的内容,请您先登陆用户区。" If session("SQLAUID")<>"" Then ec="数据库面板中不能操作用户区的内容,请您先登陆用户区。" ElseIf not IsNumeric(Request("id")) Then ef=True ec="产品ID应该是数字!" ElseIf Instr(1, Request("domain"), "'", 1)>0 then ef=True ec="非法域名!" end if if not ef then set ComX=server.CreateObject("freehost_com_7i24.FreehostM") hostname=trim(replace(Request("domain"),"http://","")) if hostname<>"" then hostname=ComX.idntoac_7i24_com(cstr(hostname)) hostnamecheck=replace(hostname,".","") hostnamecheck=replace(hostnamecheck,"xn--","") If RegExpTest("[^A-Za-z0-9--]",hostnamecheck) Then ef=True ec="请输入合法的域名!" end if hostname=Request("domain") end if if not ef then %> 域名列表 <%Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dspre = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Preopen_Product where username='"&session ("username")&"' and haveget='n'" dspre.Open Sql,conn,1,1 while not dspre.Eof%> 您已有赠送的域名!您购买了&go=a" target="_blank"><%=dspre("whichProduct")%>(<%=dspre("byid")%>)您可以免费注册一个<%=dspre("type1")%>一年。 <% dspre.movenext wend dspre.close set dspre=nothing Set dsdm = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&session ("username")&"' order by id desc" if Request("id")<>"" then Sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&session ("username")&"' and id ='"&Request("id")&"' order by endtime desc" if Request("domain")<>"" then Sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&session ("username")&"' and domain ='"&hostname&"' order by endtime desc" if Request("op")="end" then Sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&session ("username")&"' and endtime<'"&dateadd("d",30,now)&"' order by endtime desc" if Request("op")="nowend" then Sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&session ("username")&"' and endtime<'"&now&"' order by endtime desc" if Request("op")="pre" then Sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&session ("username")&"' and status='预注册成功' order by endtime desc" if Request("op")="err" then Sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&session ("username")&"' and status='失败' order by endtime desc" if Request("op")="reerr" then Sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&session ("username")&"' and (status='续费失败' or status='续费状态不确定') order by endtime desc" if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then Response.Write "非法字符!" Response.End end if dsdm.PageSize = 25 dsdm.Open Sql,conn,1,1 if dsdm.Eof then %>
没有这类内容。 <% else if Request.ServerVariables("QUERY_STRING")<>"" then ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn") else ask=Split("freehost=1", "") ask(0)="freehost=lsoft" end if pn=1 if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn") If dsdm.RecordCount <> 0 Then dsdm.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dsdm.PageCount<=10 then endini=dsdm.PageCount else endini=10 end if end if %>
<%if clng(pn)<=10 then%>最新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>[<%=i%>]<%end if%> <%next%> <%else%> 最新[1]--[10]  现在是第[<%=pn%>]页  共<%=dsdm.PageCount%>页 <%end if%><%If Clng(pn)>1 Then%>上一页<%End If%>|<%If Clng(pn)下一页 <%End If%> <% For N=1 To dsdm.PageSize If dsdm.RecordCount=0 Then Exit For %> <% If clng(pn)=dsdm.PageCount Then I = dsdm.RecordCount - (dsdm.PageCount-1) * dsdm.PageSize If N=I Then Exit For End If dsdm.movenext Next%>
编号 域名与证书 状态 注册时间 到期时间 初始密码 信息 操作
<%=N%> ', 'certification', 'location=no,menubar=yes,scrollbars=yes')"><%=dsdm("Domain")%> <%if dsdm("endtime") 过期 <%else%> <%=dsdm("status")%> <%end if%> <%=formatdatetime(dsdm("starttime"),1)%> <%if not isnull(dsdm("endtime")) then%> <%=formatdatetime(dsdm("endtime"),1)%> <%end if%> <%If dsdm("type1")=0 then%> <%=dsdm("inipass")%>
">重置密码 <%else%> <%end if%>
<%if dsdm("status")="预注册成功" then%>">查询 <%else%> " target="_blank">管理 <%end if%> <%if dsdm("status")="预注册成功" then%>" onClick="if (confirm('请您确认后耐心等待,可能会需要两分钟的时间,在此期间请不要重复点击或关闭浏览器....')==false){return false;}">马上支付>>>> <%else%> <%If dsdm("type1")=1 then%> ">解析产品联系管理员续费 <%else%> ">延长期限 <%end if%> <%end if%>
<%end if dsdm.close set dsdm=nothing%>

 输入已有域名:  30天后到期 现在到期 预注册 注册失败 续费失败 全部


<% end if if ef then Response.Redirect "e.asp?e="&ec end if%>