<!--#include virtual="/incs/config.asp" -->

<%=chk_log_usr()%> 
<%
domainname=trim(SafeRequest("domainname"))
if domainname="" then
		      call errorpage(-2,"对不起，参数错误！...")
end if
conn.open constr
query="select * from dmclst where d_dme='"&domainname&"' and d_unme='"&session("usrname")&"'"
rs.open query,conn,1,1
if rs.recordcount<>1 then
     call errorpage(-2,"对不起，该域名不存在或者您无权操作！...")
elseif rs("d_regtpe")<>1 and rs("d_regtpe")<>3 and rs("d_regtpe")<>5 then
     call errorpage(-2,"对不起，域名类型不正确！(非本站注册的域名无法在本站续费)...")
elseif now()-rs("d_exptme")>30 then	 
    call errorpage(-2,"对不起，该域名已经进入删除队列，无法再续费！...")
end if
domainname=trim(rs("d_dme"))
proid=rs("d_prd")
rs.close
   substrContent = "entryclass:pdtrnw"&Vend
   substrContent =substrContent& "entrytype:pdtrnw"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
    substrContent =substrContent& "agentname:"&agentname&Vend
    substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "proid:" &proid& Vend
   substrContent = substrContent & "pdtname:" &domainname& Vend
   substrContent = substrContent & "years:"& SafeRequest("years") & Vend
   substrContent = substrContent & "pdtprcstr:"& SafeRequest("d_prcstr") & Vend
   substrContent = substrContent & "." & Vend

   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( "/control/dmc_mng/dmc_rnw.asp?dnme=" & domainname)
   Else
      call errorpage(-2,doresult)
   end if
%>
