云网销售系统与原有线下代理系统的区别

<%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") %> 云网销售系统与原有线下代理系统的区别


	云网销售系统与原有线下代理系统的区别

1、线下代理可以通过在线支付或卡拉购买方式购买商品，而在云网销售系统必须用卡拉才能购买商品。

2、线下代理只能通过汇款或转账方式购买卡拉，而在云网销售系统中，可以使用方便快捷的网上支付方式购买卡拉。

3、级别设置的方法有所不同，新的级别设置和升级方法如下：

　　级别设置对照表：

　　直销商级别设置对照表：

直销商级别	0级	1级
累计购买量	0－1000/1月	1000以上/月

　经销商级别设置对照表：

直销商级别	1级
累计购买量	10000以上/月

4、在云网销售系统中直销商可以根据销售情况储备一些卡拉（不用每次都在线付款）。

5、直销商还可以建立自己的业务员队伍协助销售，每个业务员都有单独的用户名和密码；直销商可以根据情况为业务员设立每日最高交易额。

6、经销商拥有更为灵活的功能，可以发展自己属下的直销商，您可以通过销售系统向下属直销商划转卡拉。

　　正因为有以上这些优点，云网销售系统比云网线下代理系统拥有更多的灵活性，有了它的帮忙，相信您的销售业绩一定能更上层楼！

云网数字卡游戏卡网络游戏支付点卡月卡充值卡充值网易一卡通电话卡在线充值邮箱实时网上购物在线支付便宜网上支付网关网上支付系统虚拟交易平台超值游戏闪电购买网易一卡通一卡通网易大话大话西游梦幻梦幻西游天堂天堂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