gusucode.com > 爱美尔女性商城源码 1.0源码程序 > admintouch/bjxshopreg2.asp
<!--#include file="../bjxshoprg.asp"--> <%regname=zcn&bjxroom 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.bjxdesign.net")) Do While yzcv>1000000000000 yzcv=yzcv-1000000000000 loop if yzcv<>regcode then%> <script language=vbscript> aaa=msgbox("系统检测到您所使用的是未注册版本!"&chr(13)&"该版本功能受到限制,"&chr(13)&"如果您想得到所有功能,请注册!"&chr(13)&"是否注册?",vbyesno) if aaa=6 then window.location = "../bjxshopreg.asp?type=reg" </script> <%end if%>