📄 shopxp_get.asp
字号:
<!--#include file="../xpinfo/shopxp_geto.asp"-->
<%zj=Request.ServerVariables("SERVER_NAME")%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>注册程序</title>
<style>
td{font-size:9pt;line-height:160%}
body{font-size:9pt;line-height:160%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #FF0000; text-decoration: none }
a:hover { color: #000000; text-decoration: underline}
</style>
</head>
<body>
<div align="center">
<center>
<br>
<table border="0" cellspacing="1" width="430" cellpadding="3" bgcolor="#E9E9E9">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<p align="center">欢迎您使用SHOPXP购物系统</p>
</td>
</tr>
</table>
</center>
</div><br>
<%if request("type")="reg" then
if request("check")="yes" then
regname=Request("regname")&shopxp
regcode=Request("regcode")
if request("regname")="" or request("regcode")="" then
response.write("<script language=vbscript>msgbox ""注册失败:用户名和注册码不能为空!""</script>")
error="yes"
elseif len(regcode)>20 then
response.write("<script language=vbscript>msgbox ""注册失败:注册码不能多于20个字符!""</script>")
elseif IsNumeric(regcode)=false then
response.write("<script language=vbscript>msgbox ""注册失败:注册码只能是数字!""</script>")
else
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.shopxp.cn"))
Do While yzcv>1000000000000
yzcv=yzcv-1000000000000
loop
regcode=regcode+0
if yzcv=regcode then
dim fso,ts1
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = FSO.CreateTextFile(Server.MapPath("../xpinfo/shopxp_geto.asp"), True)
TS1.write "<"&chr(37)&"dim zcn,zcv"&chr(13)&"zcn="&chr(34)®name&chr(34)&chr(13)&"zcv="®code&chr(37)&">"
Set TS1 = Nothing
Set FSO = Nothing
response.write("<script>alert('注册成攻:!!!恭喜!!!您所填写的信息已成功注册!');location.href='/'</script>")
response.end
else
response.write("<script language=vbscript>msgbox ""注册失败:用户名或注册码错误!""</script>")
end if
end if
end if
%>
<div align="center">
<center>
<form action="../xpinfo/shopxp_get.asp?type=reg&check=yes" method="post">
<table border="0" cellPadding="3" cellSpacing="1" bgcolor="#E9E9E9">
<tr>
<td bgcolor="#FFFFFF">用户名：</td>
<td bgcolor="#FFFFFF">
<input name="regname" size="20">
</td>
<td bgcolor="#FFFFFF">注册号：</td>
<td bgcolor="#FFFFFF">
<input name="regcode" size="20">
</td>
</tr>
</table>
<p><input type="submit" value=" 注册到您的服务器<%=zj%>上 "></p>
</form>
</center>
</div>
<center>
<table border="0" cellspacing="1" width="430" cellpadding="2" bgcolor="#E9E9E9">
<tr>
<td width="100%" height="80" bgcolor="#FFFFFF"> <p>获得注册号(购买程序)请联系<br>
官方网站： <a href="http://www.shopxp.cn">http://www.shopxp.cn</a> Q Q：83107971<br>
客服邮箱： <a href="mailto:web@shopxp.cn">web@shopxp.cn </a> 客服电话：010-69209701-801<br>
</p> </td>
</tr>
</table>
</center>
<%else%>
<%if zcn="未注册" or zcv="未注册" then%>
<script language=vbscript>
aaa=msgbox("系统检测到您所使用的是未注册版本!"&chr(13)&"该版本功能受到限制,"&chr(13)&"如果您想得到所有功能,请注册!"&chr(13)&"是否注册?",vbyesno)
if aaa=6 then window.location = "../xpinfo/shopxp_get.asp?type=reg"
</script>
<%end if%>
<div align="center">
<center>
<table border="0" cellspacing="1" width="430" cellpadding="3" bgcolor="#E9E9E9">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<p align="center">恭喜！您已经注册成功！！</p>
<p align="center"> 官方网站： <a href="http://www.shopxp.cn">http://www.shopxp.cn</a> Q Q：83107971<br>
客服邮箱： <a href="web@shopxp.cn">web@shopxp.cn </a> 客服电话：010-69209701-801<br>
</p>
<p align="center">如你在使用程序中有什么问题或好的建议欢迎随时与我们联系</p>
<p align="center"> <br>
- 请支持正版 -
版权所有、肆意抄袭、模仿必究 - </td>
</tr>
</table>
</center>
</div>
<%end if%>
<br>
<div align="center">
<center>
<table border="0" cellspacing="1" width="430" cellpadding="3" bgcolor="#E9E9E9">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<p align="center">程序制作：北京易通 授权予：<font color="#FF0000">shopxp<%=zcn%></font>
注册号：<font color="#FF0000"><%=zcv%></font>
<%if zcn="未注册" or zcv="未注册" then%>
[<a href="../xpinfo/shopxp_get.asp?type=reg"><font color="#0000FF">注册程序</font></a>]
<%end if%>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -