<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% freeid=requesta("freeid") conn.open constr suffixlist=lcase(getfreedomainsuffix(freeid,isfree)) call setHeaderAndfooter() call setDomainLeft() tpl.set_file "main",USEtemplate&"/services/domain/default.html" if isfree then tpl.set_var "freeid",freeid,false tpl.set_block "main", "suffixlist", "mylist" trcur=1 buttontype="checkbox" if isfree then buttontype="radio" for each suffixstr in split(suffixlist,",") if trim(suffixstr)<>"" and left(trim(suffixstr),1)="." then trstr="" selectedstr="" if trcur mod 5 =0 then trstr="" if instr(".com,.cn,.net",trim(suffixstr))>0 then selectedstr=" checked " tpl.set_var "trstr",trstr,false tpl.set_var "buttontype",buttontype,false tpl.set_var "selectedstr",selectedstr,false tpl.set_var "suffixstr",suffixstr,false tpl.parse "mylist", "suffixlist", true trcur=trcur+1 end if next selectstr="" if instr(suffixlist,"[save]")>0 then selectstr="" & _ "¸÷Ê¡ÓòÃû" & vbcrlf & _ ".ac.cn " & vbcrlf & _ ".bj.cn" & vbcrlf & _ ".sh.cn" & vbcrlf & _ ".tj.cn" & vbcrlf & _ ".cq.cn" & vbcrlf & _ ".he.cn" & vbcrlf & _ ".sn.cn" & vbcrlf & _ ".sx.cn" & vbcrlf & _ ".nm.cn" & vbcrlf & _ ".ln.cn" & vbcrlf & _ ".jl.cn" & vbcrlf & _ ".hl.cn" & vbcrlf & _ ".js.cn" & vbcrlf & _ ".zj.cn" & vbcrlf & _ ".ah.cn" & vbcrlf & _ ".fj.cn" & vbcrlf & _ ".jx.cn" & vbcrlf & _ ".sd.cn" & vbcrlf & _ ".ha.cn" & vbcrlf & _ ".hb.cn" & vbcrlf & _ ".hn.cn" & vbcrlf & _ ".gd.cn" & vbcrlf & _ ".gx.cn" & vbcrlf & _ ".hi.cn" & vbcrlf & _ ".sc.cn" & vbcrlf & _ ".gz.cn" & vbcrlf & _ ".yn.cn" & vbcrlf & _ ".gs.cn" & vbcrlf & _ ".qh.cn" & vbcrlf & _ ".nx.cn" & vbcrlf & _ ".xj.cn" & vbcrlf & _ ".tw.cn" & vbcrlf & _ ".hk.cn" & vbcrlf & _ ".mo.cn" & vbcrlf & _ ".xz.cn" & vbcrlf & _ "" end if tpl.set_var "savelist",selectstr,false tpl.set_function "main","Price","tpl_function" tpl.set_function "main","cnPrice","tpl_cnfunction" tpl.set_function "main","cnrenewPrice","tpl_cnrenewfunction" tpl.parse "mains", "main",false tpl.p "mains" set tpl=nothing conn.close function tpl_cnrenewfunction(v) renewprices=GetNeedPrice(session("user_name"),v,1,"renew") tpl_cnrenewfunction=renewprices end function function tpl_cnfunction(v) tpl_cnfunction=GetNeedPrice(session("user_name"),v,1,"new") end function %>