求注册码或者改成免注册的方法 ASP

来源：百度知道 编辑：UC知道 时间：2024/06/13 21:23:09
域名：www.stock95.cn

if request("type")="reg" then
if request("check")="yes" then
zcn=Request("zcn")&s99H
zcv=Request("zcv")
zj=Request.ServerVariables("SERVER_NAME")
if request("zcv")="" then
response.write(" <script>alert('注册失败:官方授权注册码不能为空!');history.back(); </script>")
error="yes"
elseif len(zcv)>29 then
response.write(" <script>alert('注册失败:注册码不能多于29个字符!');history.back(); </script>")
else
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e&

if request("type")="reg" then
if request("check")="yes" then
zcn=Request("zcn")&s99H
zcv=Request("zcv")
zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","