<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
response.charset="gb2312"
conn.open constr
module=trim(requesta("module"))
if module="needPrice" then
Productid=requesta("Productid")
if Productid<>"" and session("user_name")<>"" then
returnPrice=getpricelist(session("user_name"),Productid)
if returnPrice<>"" then
PriceArray=split(returnPrice,"|")
%>
<%
else
response.write "没有找到此型号"
end if
else
response.write "请登陆后再进行操作"
end if
conn.close
response.end
end if
call needregSession()
if session("user_name")="zhaomu3" then url_return "抱歉，您申请的免费DNS管理过多，请购买付费DNS管理",-1
Select Case module
Case "addshopcart"
bcheck = true
producttype=5
productid=trim(requesta("productid"))
vyears=trim(requesta("years"))
domainname=Lcase(Requesta("domainname"))
domainpwd=trim(requesta("domainpwd"))
if not checkRegExp(domainpwd,"^[\w\-]{4,15}$") then url_return "域名密码应是4-15位之间,且没有特殊字符",-1
if not isDomain(domainname) then url_return "域名格式错误,正确格试为:abc.com",-1
if isInbagshow(domainname,"dns") then url_return "此域名已存在于购物车中",-1
sql="SELECT * FROM productlist WHERE p_type = 5 and p_proid='"& productid &"'"
rs1.open sql,conn,3
If not rs1.eof Then
productName=rs1("p_name")
pprice=GetNeedPrice(session("user_name"),Productid,1,"new")
end if
rs1.close
'''''''''''''''''''''''''设定购买年限,收费dns除外''''''''''''''''
if pprice<=0 then
if Ccur(Session("u_resumesum"))+Ccur(session("u_usemoney"))<1 then url_return "抱歉,您未在我司有任何消费,不可购买DNS",-1
getlyear = isbindings(domainname,myyear)
if cint(myyear)")
'response.end
session("order") = strContents & session("order")
rs.close
conn.close
Response.redirect "/bagshow/"
response.end
else
rs.close
conn.close
url_return "该域名已经作过解析，请重新申请。",-1
end if
End Select
call setHeaderAndfooter()
call setdomainLeft()
tpl.set_file "main", USEtemplate&"/services/domain/dns.html"
call setproductidlist(proid)
call setProductyears(proid)
tpl.parse "mains","main",false
tpl.p "mains"
set tpl=nothing
conn.close
sub setproductidlist(byref fproductid)
sql="select * from productlist where p_type=5 order by p_proid"
rs1.open sql,conn,3
if not rs1.eof then
tpl.set_block "main","productidlist", "plist"
fproductid=rs1("p_proid")
do while not rs1.eof
productidValue=rs1("p_proid")
p_info=rs1("p_info")
productidText=ucase(productidValue) & "-" & p_info
tpl.set_var "productidvalue",productidValue,false
tpl.set_var "productidtext",productidText,false
tpl.parse "plist", "productidlist", true
rs1.movenext
loop
end if
rs1.close
end sub
sub setProductyears(byval productid)
tpl.set_block "main","yearslist", "ylist"
returnPrice=getpricelist(session("user_name"),Productid)
if returnPrice<>"" then
PriceArray=split(returnPrice,"|")
for ij=0 to ubound(PriceArray)-1
tpl.set_var "yearsvalue",ij+1,false
tpl.set_var "yearstext",(ij+1) & " 年【"& PriceArray(ij) &" ￥】",false
tpl.parse "ylist","yearslist",true
next
end if
end sub
function isbindings(mydomain,byref s_year)
isbindings=false
s_year=1
bsql="select iif(isnull(s_bindings),'',s_bindings) as s_bindings,s_year from vhhostlist where s_ownerid="& session("u_sysid")
set brs=conn.execute(bsql)
if not brs.eof then
do while not brs.eof
for each dbbind in split(brs("s_bindings"),",")
if trim(dbbind)<>"" then
dbbind=GetsRoot(trim(dbbind))
if trim(mydomain)=dbbind then
isbindings=true
s_year=brs("s_year")
brs.close
set brs=nothing
exit function
end if
end if
next
brs.movenext
loop
end if
brs.close
set brs=nothing
end function
%>