<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% conn.open constr sql="select p_name,p_size,p_maxmen,p_proid from productlist where p_type=2 order by p_name" username1=session("user_name") 'if username1="" then username1="AgentUserVCP" 'sql="select p_name,p_size,p_maxmen,p_proid,(select p_price from pricelist where p_u_level=1 and p_proid=a.p_proid) as p_price from productlist as a where p_type=2 order by p_name" call setHeaderAndfooter() call setMailLeft() tpl.set_file "main", USEtemplate&"/services/mail/default.html" tpl.set_block "main", "maillist", "list" rs.open sql,conn,1,1 cur=1 if not rs.eof then do while not rs.eof mailname=rs("p_name") mailsize=FormatNumber(rs("p_size")/1000,,-1) danwei="G" if mailsize<1 then mailsize= FormatNumber(rs("p_size"),,-1):danwei="M" productid=rs("p_proid") mailnum=rs("p_maxmen") 'mailprice=rs("p_price") mailprice=GetNeedPrice(username1,productid,1,"new") mailfree=getfreeNamelist(productid) tdcolor="#ffffff" if (cur mod 2) = 0 then tdcolor="#efefef" tpl.set_var "tdcolor",tdcolor,false tpl.set_var "mailname",mailname,false tpl.set_var "mailsize",mailsize & danwei,false tpl.set_var "mailnum",mailnum,false tpl.set_var "mailprice",mailprice,false tpl.set_var "mailfree",mailfree,false tpl.set_var "productid",productid,false tpl.parse "list", "maillist", true cur=cur+1 rs.movenext loop end if rs.close tpl.set_function "main","Price","tpl_function" tpl.parse "mains","main",false tpl.p "mains" set tpl=nothing function getProductFree(byval proid) getProductFree="" sqlfree="select top 1 freeProid,freeProid1,freeProid2,freeProid3,freeProid4 from protofree where proid='"& proid &"'" mailfree="" domainfree="" hostfree="" mysqlfree="" mssqlfree="" set freers=conn.execute(sqlfree) if not freers.eof then mailfree=trim(freeRs(0)) domainfree=trim(freeRs(1)) hostfree=trim(freeRs(2)) mysqlfree=trim(freeRs(3)) mssqlfree=trim(freeRs(4)) end if freers.close set freers=nothing getProductFree=mailfree & "|" & domainfree & "|" & hostfree & "|" & mysqlfree & "|" & mssqlfree end function function getfreeNamelist(byval proid) getfreeNamelist="" newproidlist="" proidlist=getProductFree(proid) if proidlist&""="" then exit function for each proiditem in split(proidlist,"|") proiditem=trim(proiditem) if proiditem<>"" then if instr(proiditem,",")>0 and instr(proiditem,"dom")>0 then fname=fname & "ÓòÃû
" else freeNamesql="select p_name from productlist where p_proid ='"& proiditem &"'" set fNrs=conn.execute(freeNamesql) if not fnrs.eof then do while not fnrs.eof fname=fname & trim(fnrs(0)) & "
" fnrs.movenext loop end if fnrs.close set fnrs=nothing end if end if next getfreeNamelist=fname end function %>