<!--#include file="bjxshoprg.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">感谢您使用BJXSHOP购物系统系统!</p>
        </td>
        </tr>
    </table>
  </center>
</div><br>
<%if request("type")="reg" then
if request("check")="yes" then
regname=Request("regname")&bjxroom
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.bjxdesign.net"))

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("bjxshoprg.asp"), True) 
TS1.write "<"&chr(37)&"dim zcn,zcv"&chr(13)&"zcn="&chr(34)&regname&chr(34)&chr(13)&"zcv="&regcode&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="bjxshopreg.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%" bgcolor="#FFFFFF"> <p>获得注册号(购买程序)请联系<br>　 
        公司网站： <a href="http://www.bjxdesign.net">http://www.bjxdesign.net</a>　 Q Q：736050<br>
　 客服邮箱： <a href="mailto:colinzxz@sohu.com">colinzxz@sohu.com </a>　客服电话：020-23835760 <br>
　 工作时间 8:30 - 18:30(周一至周日)　</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 = "bjxshopreg.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">需要修改什么的请与我们联系</p>  
          <p align="center">　 公司网站： <a href="http://www.bjxdesign.net">http://www.bjxdesign.net</a>　 Q Q：736050<br>
　 客服邮箱： <a href="mailto:colinzxz@sohu.com">colinzxz@sohu.com </a>　客服电话：020-23835760 <br>
　 工作时间 8:30 - 18:30(周一至周日) </p>
          <p align="center">如你在使用程序中有什么问题或好的建议欢迎随时与我们联系</p>
          <p align="center">如您需要增加一些功能或者是升级请与我联系，欢迎咨询！<br>
          <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">bjxshop<%=zcn%></font>&nbsp; 
            注册号：<font color="#FF0000"><%=zcv%></font> 
            <%if zcn="未注册" or zcv="未注册" then%>
            &nbsp; [<a href="bjxshopreg.asp?type=reg"><font color="#0000FF">注册程序</font></a>] 
            <%end if%>
        </td>    
        </tr>
      </table>
    </center>
</div>
</body>
</html>



