云网销售系统直销商管理条例

<%filename="zx_6"%> <% '---将全角数字替换为半角 Function replaceNUMS(rNUM) rNUM = Replace(rNUM,"０","0") rNUM = Replace(rNUM,"１","1") rNUM = Replace(rNUM,"２","2") rNUM = Replace(rNUM,"３","3") rNUM = Replace(rNUM,"４","4") rNUM = Replace(rNUM,"５","5") rNUM = Replace(rNUM,"６","6") rNUM = Replace(rNUM,"７","7") rNUM = Replace(rNUM,"８","8") rNUM = Replace(rNUM,"９","9") replaceNUMS = rNUM End Function '---验证身份证--- function checkIdno(str) str_long=len(str) if str_long<>15 and str_long<>18 then checkIdno=False exit function else if str_long=15 then if not IsNumeric(str) then checkIdno=False exit function else checkIdno=True end if elseif str_long=18 then if not IsNumeric(left(str,17)) then checkIdno=False exit function else if not IsNumeric(right(str,1)) then if right(str,1)<>"x" and right(str,1)<>"X" then checkIdno=False exit function else checkIdno=True end if else checkIdno=True end if end if end if end if end function '---验证必须在规定长度内--- function checkStrLong(str,sD,sH) 'sD长度下限 'sH长度上限 if len(str)sH then checkStrLong=False exit function else checkStrLong=True end if end function '---验证省份和城市 function checkCity(str,sConn) set rscity = sConn.execute ("select top 1 city from city where city='" & str &"'") if rscity.eof then checkCity=False exit function else checkCity=True end if rscity.close set rscity=nothing end function '---验证两项信息必须相同，如密码和确认密码 function checkAccord(str1,str2) if str1<>str2 then checkAccord=False exit function else checkAccord=True end if end function '---验证电话信息是否正确 function checkTel(str) str=replace(str,"-","") str=replace(str,"－","") if not IsNumeric(str) then checkTel=False exit function else checkTel=True end if end function '---验证Email function checkEmail(strEmail) checkEmail=true if isnull(strEmail) then tmpStr="" else tmpStr=trim(strEmail) end if if tmpStr="" then checkEmail=false exit function end if pos1=instr(tmpStr,"@") if pos1<=0 then checkEmail=false exit function end if str1=mid(tmpStr,1,pos1-1) str2=mid(tmpStr,pos1+1,len(tmpStr)) if str1="" then checkEmail=false exit function end if if str2="" then checkEmail=false exit function end if pos2=instr(str2,".") if pos2<=0 then checkEmail=false exit function end if str21=mid(str2,1,pos2-1) str22=mid(str2,pos2+1,len(str2)) if str21="" or str22="" then checkEmail=false exit function end if checkEmail = CheckEmailFormat(strEmail) end function '---替换危险字符--- function getReDangerStr(ByVal nums) sErrStr="=0x|char(| and | And |dec|select|IS_SRVROLEMEMBER|truncate|update|delete|insert|drop|create|dbcc|exec|/*|+|'|--|master|count|;|*|chr(|mid|%2|xp_|sp_|replace|sysobjects|create|syscolumns|declare" errStr=split(sErrStr,"|") psourceStr = lcase(replace(nums," ","")) for curErrNums=0 to ubound(errStr) if instr(1,psourceStr,ErrStr(curErrNums),1)>0 then insertStatus=true exit for else insertStatus=false end if next if nums="" or isnull(nums) then getReDangerStr="" else getReDangerStr=trim(nums) IsHaveDrange = True while IsHaveDrange = True for curErrNums=0 to ubound(errStr) getReDangerStr=replacedanstr(getReDangerStr,errstr(curErrNums)) next curErrNums = 0 for curErrNums=0 to ubound(errStr) if instr(1,getReDangerStr,ErrStr(curErrNums),1)>0 then IsHaveDrange=true exit For End If IsHaveDrange = false next Wend if insertStatus then set DrangeConn=server.CreateObject("Adodb.Connection") DrangeConn.open Application("DrangeStrConn") url= request.ServerVariables("HTTP_HOST")&request.ServerVariables("url") & "?" & request.querystring url = changeDangerStr(url) nums = changeDangerStr(nums) userip=request.ServerVariables("remote_addr") sql="insert into ReStr_log (bstr,restr,sessionid,ip,url) values ('|"& nums &"|','"& getReDangerStr &"',"& session.sessionid &",'"& userip &"','"& url &"')" 'response.write sql DrangeConn.execute (sql) DrangeConn.close set DrangeConn=nothing end if end if end function function replacedanstr(source,errstr) dim pos,repstr,ls,p p=1 pos=InStr(1,source, errstr, 1) while pos>0 repstr = mid(source,pos,len(errstr)) source = replace(source,repstr,"") pos=InStr(p,source, errstr, 1) wend source = replace(source,"&","") replacedanstr = source end function '---只能在下列字符串内才是合法字符--- function checkInstr(str) grant="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" for i=1 to len(str) if instr(1,grant,mid(str,i,1))<=0 then checkInstr=False exit function '如包含未知字符，返回出错标记 end if next checkInstr=True end function '---替换一些危险字符，但并不去掉 function getReStr(str) if str="" or isnull(str) then getReStr="" else getReStr=trim(str) getReStr=replace(getReStr,"vbnewline","
") getReStr=replace(getReStr,">",">") getReStr=replace(getReStr,"<","<") getReStr=replace(getReStr,CHR(32)," ") getReStr=replace(getReStr,CHR(9)," ") getReStr=replace(getReStr,CHR(34),""") getReStr=replace(getReStr,CHR(39),"'") getReStr=replace(getReStr,CHR(13),"") end if end function function changeDangerStr(pstr) if pstr="" or isnull(pstr) then changeDangerStr="" exit function end if tempstr = replace(pstr,"'","‘") tempstr = replace(tempstr," ","　") tempstr = replace(tempstr,"&","—") tempstr = replace(tempstr,"e","Ｅ") tempstr = replace(tempstr,";","；") tempstr = replace(tempstr,"/","／") tempstr = replace(tempstr,"=","＝") changeDangerStr = tempstr end function FUNCTION CheckEmailFormat(str) if right(str,1)="." or right(str,1)="．" then CheckEmailFormat = False EXIT FUNCTION end if Dim Res Set Res=New Regexp '建立对象 Res.Pattern="^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" Res.IgnoreCase=true '不区分大小写 if Res.Test(str) then '匹配 CheckEmailFormat = True else '不匹配 CheckEmailFormat = False end if Set Res=nothing 'response.write CheckEmailFormat 'response.end END FUNCTION %> <% Set conn_log=Server.CreateObject("ADODB.Connection") conn_log.Open Application("theConnection") servUrl=request.ServerVariables("URL") USER_AGENT = request.ServerVariables("HTTP_USER_AGENT") ServIP = request.servervariables("LOCAL_ADDR") ServIP = right(ServIP,3) userip = request.servervariables("remote_addr") reqstr="ReqGetStr="& getRedangerStr(request.querystring) &"||ReqPostStr="& getRedangerStr(request.Form) opid=session("opid") esalerid=session("uesalerid") sql_log="insert into Sys_View_Log (esalerid,opid,site,url,reqstr,USER_AGENT,ip,servip) values ('"& esalerid &"','"& opid &"','.com','"& servUrl &"','"& reqstr &"','"& USER_AGENT &"','"& userip &"','"& servip &"')" 'response.write sql_log conn_log.execute(sql_log) Set conn_log=Nothing if session("opid")="" or isnull(session("opid")) Or session("oplogin")="" Or session("ulevelid")="" Or session("IsEditPrice")="" then ' if trim(destURL)<>"" then ' response.redirect "/corp/resale/errorPage.asp?errorflag=3&destUrl=" & destURL ' else ' response.redirect "/corp/resale/errorPage.asp?errorflag=3&destUrl=" & Request.ServerVariables("URL") ' end if response.write "" response.end else if session("uesalerid")="" or isnull(session("uesalerid")) then response.write "" response.end end if end if %> <% if session("newsystem")<>"1" then response.write "" response.end end if %> <% Response.Buffer = True Set theConnection=Server.CreateObject("ADODB.Connection") theConnection.Open Application("theConnection") %> 云网销售系统直销商管理条例


	云网销售系统直销商管理条例


	合作商品	直销商的销售方式
	成为云网销售系统在线直销商所必须具备的条件	直销商的结算方式
	直销商需履行的义务	货款支付方式
	本条例的解释和修改

一、合作商品

　　目前，云网销售系统可以提供数百种网络游戏卡、IP卡电话卡、上网卡等数字化产品的在销售和充值。

二、成为云网销售系统在线直销商所必须具备的条件

　　具有提供互联网上网服务或软件销售服务所需的营业场所和营业资格
　　营业场所的电脑配置和网络条件达到进行销售数字化商品的运行要求
　　可通过互联网（Internet）直接连接到北京云网公司指定的销售网站
　　遵守云网公司"云网销售系统"制定的规则和制度；
配合"云网公司"市场运作需要，提供相关的市场信息，共同举办相关活动。
申请直销商资格时除了在线如实填写个人信息登记表外，还请通过传真方式向云网公司提供您的营业执照副本或其它能够证明您资格的证件副本。云网将据此决定是否批准您的申请。

三、直销商需履行的义务

　　根据所需，在经营场所的醒目位置张贴布置由云网公司提供的有关宣传海报和用户使用介绍，并积极发放相关的宣传介绍资料；
　　配合相关的市场宣传活动，向用户积极推广云网公司的相关游戏产品。同时，向云网公司提供相关的市场信息，配合相关的活动；
　　直销商应自行准备一至数台联入互联网的计算机作为销售终端，并在其上使用北京云网提供的云网销售系统在线销售系统，进行销售活动；
　　遵守云网公司制订的销售流程要求，为购卡用户提供规范、准确、方便的服务

四、直销商的购货方式

　　目前，云网销售系统为直销商提供的是虚拟卡销售模式，以下为直销商的进货方式：
　　1．先从云网或云网销售系统中的经销商处购买云网卡拉（相当于预付款），在需要时再用这些卡拉购买商品，以云网给定直销商的价格成交。
　　2．1人民币 = 0.99 卡拉,即支付1元购买0.99卡拉；
　　根据直销商在指定销售时间段内的销售额，云网销售系统将设置不同的直销商级别，级别越高，享受的优惠程度越大。

五、直销商的销售方式

　　直销商的负责人应该依据云网或云网指定的经销商要求，制定零售价格。可以直接销售给最终用户，也可以在系统中添加自己的员工帐号，员工只能按照指定的价格进行销售。
　　直销商的账户中需要有足够的卡拉才能购买商品，实际销售过程中，直销商或其员工用自己的销售账号和密码登入云网销售系统，收取最终用户相应货款后，在系统中正确选择购买的产品类型和数量，点击"提货"，系统将会显示相应的产品信息。同时在直销商账户中减去相应卡拉。
　　直销商可以随时查看自己的账户，了解销售情况以及卡拉的余额。

六、直销商的结算方式

　　云网销售系统根据直销商的级别制定相应的结算价格，对于直销商每次选择的销售货品，系统将按指定的结算价格实时地从直销商账户中扣除相应卡拉。

七、本条例的解释和修改

　　北京云网保留对本协议进行修改和解释的权利；
　　北京云网在保留根据需要对本协议随时修改的权利，做出重大修改前，会在网站上以公告的方式提前通知有关的总代理、经销商和直销商。云网销售系统的所有用户有权决定是否继续使用该系统。

云网数字卡游戏卡网络游戏支付点卡月卡充值卡充值网易一卡通电话卡在线充值邮箱实时网上购物在线支付便宜网上支付网关网上支付系统虚拟交易平台超值游戏闪电购买网易一卡通一卡通网易大话大话西游梦幻梦幻西游天堂天堂II 盛大充值腾讯 QQ 网星魔力轩辕剑金山一卡通剑侠封神剑侠Online sohu 搜狐仙境传说 RO 天骄天骄II 九城奇迹 MU 天外破天破天一剑 91充值卡幻灵千年华义 WGS 游龙航海世纪星际家园神州行神州行充值卡充值卡可乐吧决战联通 17910 墨香骑士美丽世界 Nage 传奇传奇3 命运天翼之链 M2 神甲奇兵神之领域橘子卡 GASH 新浪通行币 joypark cheap card game shop ip web online payment mobile ctoc btoc 云网数字卡游戏卡网络游戏支付点卡月卡充值卡充值网易一卡通电话卡在线充值邮箱实时网上购物在线支付便宜网上支付网关网上支付系统虚拟交易平台超值游戏闪电购买网易一卡通一卡通网易大话大话西游梦幻梦幻西游天堂天堂II 盛大充值腾讯 QQ 网星魔力轩辕剑金山一卡通剑侠封神剑侠Online sohu 搜狐仙境传说 RO 天骄天骄II 九城奇迹 MU 天外破天破天一剑 91充值卡幻灵千年华义 WGS 游龙航海世纪星际家园神州行神州行充值卡充值卡可乐吧决战联通 17910 墨香骑士美丽世界 Nage 传奇传奇3 命运天翼之链 M2 神甲奇兵神之领域橘子卡 GASH 新浪通行币 joypark cheap card game shop ip web online payment mobile ctoc btoc 云网数字卡游戏卡网络游戏支付点卡月卡充值卡充值网易一卡通电话卡在线充值邮箱实时网上购物在线支付便宜网上支付网关网上支付系统虚拟交易平台超值游戏闪电购买网易一卡通一卡通网易大话大话西游梦幻梦幻西游天堂天堂II 盛大充值腾讯 QQ 网星魔力轩辕剑金山一卡通剑侠封神剑侠Online sohu 搜狐仙境传说 RO 天骄天骄II 九城奇迹 MU 天外破天破天一剑 91充值卡幻灵千年华义 WGS 游龙航海世纪星际家园神州行神州行充值卡充值卡可乐吧决战联通 17910 墨香骑士美丽世界 Nage 传奇传奇3 命运天翼之链 M2 神甲奇兵神之领域橘子卡 GASH 新浪通行币 joypark cheap card game shop ip web online payment mobile ctoc btoc