manageinfoprog.asp

shopxp网上购物系统 是一个经过完善设计的经典网上购物系统

<!--#include file="../info/info_geto.asp"-->
<%
regname=zcn&shopv8o
regcode=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","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(regname&"http://www.shopv8sho.com"))

Do While yzcv>1000000000000
yzcv=yzcv-1000000000000
loop



if yzcv<>regcode then%>
<script language=vbscript>
aaa=msgbox("北京易通提醒您："&chr(28)&"请及时注册您的版本"&chr(28)&"《ASP商城之王购物系统》"&chr(28)&"是否注册?",vbyesno)
if aaa=6 then window.location = "../info/info_get.asp?type=reg"
</script>
<%end if%>