<%
response.buffer=true
response.charset="gb2312"
%>
<%
conn.open constr
DomainID=requesta("DomainID")
module=trim(requesta("module"))
if not isnumeric(DomainID) or DomainID="" then url_return "参数传递错误",-1
sqlstring="SELECT * FROM domainlist where userid=" & session("u_sysid") & " and d_id=" & DomainID
rs.open sqlstring,conn,1,1
if rs.eof and rs.bof then url_return "没有找到此域名",-1
strdomain=trim(rs("strdomain"))
regdate=rs("regdate")
years=rs("years")
islocal="域名"
renewtype="domain"
ThisDomainEndDate=dateadd("yyyy",years,regdate)
DiffYears=datediff("yyyy",now(),ThisDomainEndDate)
renewMaxyear = 10 '最大续费年限
if now < ThisDomainEndDate then'如果域名没有到期
'p_proid=rs("proid")
'if p_proid="domcn" or p_proid="domcomcn" or p_proid="domorgcn" or p_proid="domgovcn" or p_proid="domnetcn" then
DiffYears=DiffYears+1
end if
renewMaxyear=renewMaxyear-DiffYears
if rs("isreglocal") then
islocal="DNS"
renewtype="dnsdomain"
p_proid=rs("proid")
renewprice=getRenewCnPrice(strdomain,1)
if renewprice="" then
renewprice=getneedprice(session("user_name"),p_proid,1,"renew")
end if
if p_proid="dns001" then
bl_bind=isbindings(strdomain,vhostyear,vhostbuydate)
if bl_bind then''''''''''''有绑定
dnsExpri=dateadd("yyyy",years,regdate)
hostExpri=dateadd("yyyy",vhostyear,vhostbuydate)
dnsrenewdate=dateadd("yyyy",1,dnsExpri)
if datediff("yyyy",dnsrenewdate,hostExpri)>=0 then
renewprice=0
end if
end if
end if
else
p_proid=GetDomainType(strdomain)
renewprice=getRenewCnPrice(strdomain,1)
if renewprice="" then
renewprice=getneedprice(session("user_name"),p_proid,1,"renew")
end if
end if
isafter=false'是否过期
if datediff("d",DateAdd("yyyy",years,regdate),now())>0 then isafter=true
%>