<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% call setHeaderAndfooter() conn.open constr tpl.set_file "main", USEtemplate&"/customercenter/productprice.html" tpl.set_file "left", USEtemplate&"/config/customercenterleft/CustomerCenterLeft.html" tpl.parse "#CustomerCenterLeft.html","left",false tpl.set_block "main", "productlist", "myprolist" sql="SELECT productlist.P_proId, productlist.p_price, productlist.p_memo, productlist.p_name, producttype.pt_name, productlist.p_size,producttype.pt_name FROM productlist INNER JOIN producttype ON productlist.p_type = producttype.pt_id WHERE (instr( productlist.p_name,'不对外') = 0) AND (instr(productlist.p_memo,'对内销售') = 0) AND (instr(productlist.p_name,'奥运') = 0) AND (instr(productlist.p_name,'maildiy001') = 0) AND (instr(productlist.p_name,'DNS') = 0) AND (instr(productlist.p_name,'短信平台') = 0) AND (instr(productlist.p_name,'邮件群发') = 0) AND (instr(productlist.p_name,'香港邮局') = 0) AND (instr(productlist.p_name,'自定义邮局') = 0) AND (instr(productlist.p_name,'url转发服务') = 0) AND (instr(productlist.p_name,'聊天室空间') = 0) AND (instr(productlist.p_name,'全球邮M型') = 0) AND (instr(productlist.p_name,'个人邮局') = 0) AND (instr(productlist.p_name,'试用空间') = 0) AND (instr(productlist.p_name,'mysql') = 0) AND (instr(productlist.p_name,'试用空间') = 0) AND (instr(productlist.p_name,'网通') = 0) AND (instr(productlist.p_name,'jsp001') = 0) order by productlist.p_type,productlist.p_price asc" rs.open sql,conn,1,3 if not rs.eof then do while not rs.eof tpl.set_var "productname", rs("p_name"),false tpl.set_var "productprice", SwichDomainTypePrice(rs("P_proId"),rs("p_price")),false tpl.set_var "productsize", Swichunit(rs("pt_name"),rs("p_size")),false tpl.set_var "productclass", replace(rs("pt_name"),"VPS服务器","服务器"),false tpl.set_var "productbuylink", GetProByStr(rs("pt_name"),rs("P_proId")),false tpl.parse "myprolist", "productlist", true rs.movenext loop end if rs.close tpl.parse "mains","main",false tpl.p "mains" set tpl=nothing function SwichDomainTypePrice(pid,pprice) if instr("domcom,domnet,domorg",rs("P_proId"))<>0 then SwichDomainTypePrice="首年 55 元,续费 80 元" elseif instr("domcn,domcomcn,domnetcn,domorgcn",rs("P_proId"))<>0 then SwichDomainTypePrice=""&dom_cn_price_page&" 元,续费 80 元" else SwichDomainTypePrice=""&pprice&" 元" end if end function function Swichunit (pt_name,pt_size) if pt_name="空间" or pt_name="邮局" or pt_name="数据库" then Swichunit=pt_size&"MB" end if end function function GetProByStr(pt,proid) select case pt case "空间" if proid<>"b050" then GetProByStr="详情/购买" else GetProByStr="详情/购买" end if case "域名" GetProByStr="详情/购买" case "邮局" GetProByStr="详情/购买" case "搜索引擎" GetProByStr="详情/购买" case "DNS管理" GetProByStr="详情/购买" case "数据库" GetProByStr="详情/购买" case "套餐" GetProByStr="详情/购买" end select end function %>