⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 xoyunewsreg.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
字号:
🔍 
<%@ LANGUAGE = VBScript.Encode %>
<%Admin="xoYuStudioCheckAdminAll"%>
<!--#include file="check.asp"-->
<!--#include file="RegNum.asp"-->
<html>
<head>
<title>注册程序</title>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body>
<div align="center">
<% ip=Request.ServerVariables("SERVER_NAME") %>
  <center>
<table width="468" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
        <tr>
          <th width="100%" height="25"><p align="center"><b>感谢您使用 -= 
          晓宇听幽 网站内容管理系统 =-</b></p></th>
        </tr>
      </table><br>
<table width="468" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
              <tr>
          <td width="100%" class=forumrow><p align="left"><b>
          本程序将帮助您注册您的系统，请根据提示一步一步完成：<br>
          1、首先确定您已经得到了授权的用户名和升级ID号码。<br>
          2、其次本程序是与使用的服务器IP地址捆绑的，下面将显示你的IP：<br>
&nbsp;&nbsp; 您的IP为：<%=ip%> <br>
          3、请记录您的IP，现在点击链接，进入<a href="http://www.xoyu.com/bbs/">晓宇听幽服务器</a>获取注册号码。<br>
          4、将从<a href="http://www.xoyu.com/bbs/">晓宇听幽服务器</a>获得的注册号填入到下面的注册号中去！<br>
          5、这样注册就完成了，谢谢您的使用！</b></p></td>
        </tr>
      </table>
  </center>
</div><br>
<%
if request("type")="reg" then
if request("check")="yes" then
name=Request("name")&xoYuNews
regnum=Request("regnum")
zj=Request.ServerVariables("SERVER_NAME")
if request("name")="" or request("regnum")="" then
response.write("<script language=vbscript>msgbox ""注册失败:用户名和注册码不能为空!""</script>")
error="yes"
elseif len(regnum)>20 then
response.write("<script language=vbscript>msgbox ""注册失败:注册码不能多于20个字符!""</script>")
elseif IsNumeric(regnum)=false then
response.write("<script language=vbscript>msgbox ""注册失败:注册码只能是数字!""</script>")
else
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"4","a")
zj=replace(zj,"5","b")
zj=replace(zj,"6","c")
zj=replace(zj,"7","d")
zj=replace(zj,"8","e")
zj=replace(zj,"9","f")
zj=replace(zj,"0","g")
zj=replace(zj,"1","h")
zj=replace(zj,"2","i")
zj=replace(zj,"3","j")
zj=replace(zj,"s","40")
zj=replace(zj,"v","41")
zj=replace(zj,"k","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"o","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"m","89")
zj=replace(zj,"u","20")
zj=replace(zj,"l","21")
zj=replace(zj,"w","22")
zj=replace(zj,"q","23")
zj=replace(zj,"c","24")
zj=replace(zj,"a","25")
zj=replace(zj,"x","26")
zj=replace(zj,"j","27")
zj=replace(zj,"b","28")
zj=replace(zj,"r","29")
zj=replace(zj,"y","30")
zj=replace(zj,"t","31")
zj=replace(zj,"z","32")
zj=replace(zj,"n","33")
zj=replace(zj,"p","34")
zj=replace(zj,"g","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yregnum=zj*(len(zj)+len(name&"xoYuNews"))
Do While yregnum>10000000000
yregnum=yregnum-10000000000
loop

regnum=regnum+0
if yregnum=regnum then 

dim fso,ts1
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set TS1 = FSO.CreateTextFile(Server.MapPath("RegNum.asp"), True) 
TS1.write "<"&chr(37)&"dim name,regnum"&chr(13)&"name="&chr(34)&name&chr(34)&chr(13)&"regnum="&regnum&chr(37)&">"
Set TS1 = Nothing 
Set FSO = Nothing
response.write("<script>alert('注册成功:!!!恭喜!!!您所填写的信息已成功注册!');location.href='xoYuNewsReg.asp'</script>")
response.end
else
response.write("<script language=vbscript>msgbox ""注册失败:用户名或注册码错误!""</script>")
end if
end if
end if
%>
      <div align="center">
        <center>
<table width="468" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
         <form action="xoYuNewsReg.asp?type=reg&check=yes" method="post">
          <tr>
            <td class=forumrow>用户名：</td>
            <td class=forumrow><input name="name" size="20"></td>
            <td class=forumrow>注册号：</td>
            <td class=forumrow><input name="regnum" size="20"></td>
          </tr>
        </table>
        </center>
      </div>
      <center>
      <p><input type="submit" value="    注册到您的服务器上    "></p>
<table width="468" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
        <tr>
          <th width="100%" class=forumrow>获得注册号(购买程序)请联系:晓宇（QQ：5964887）</th>
        </tr>
       </form>
      </table>
      </center>
<%else%>
<%if name="未注册" or regnum="未注册" then%>
<script language=vbscript>
aaa=msgbox("系统检测到您所使用的是未注册版本!"&chr(13)&"该版本功能受到限制,"&chr(13)&"如果您想得到所有功能,请注册!"&chr(13)&"是否注册?",vbyesno)
if aaa=6 then window.location = "xoYuNewsReg.asp?type=reg"
</script>
<%end if%>
<div align="center">
  <center>
<table width="468" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
        <tr>
          <td width="100%" class=forumrow>
          <p align="left">&nbsp;&nbsp;&nbsp; 
          本程序的产生是在匆忙的工作之中，自己的初衷是希望大家有一套多功能的图文混合<b>网站内容管理系统</b>，所以有了现在的<b>晓宇听幽 网站内容管理系统</b>，既然是自己的劳动成果，希望所有的授权用户尊重，也希望能够提供更好的服务给大家，因此希望大家都是通过正常的渠道来获取<b>晓宇听幽 网站内容管理系统</b>，谢谢各位了！</p>
          <p align="left">官方支持站点：<a href="http://www.xoyu.com/">http://www.xoYu.com/</a></p>
          <p align="center">请支持正版的 -=  <b>晓宇听幽 网站内容管理系统</b> =-</td>
        </tr>
      </table>
  </center>
</div>
<%end if%>
<br>
   <div align="center">
    <center>
<table width="468" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
        <tr>
          <th width="100%">
          <p align="center">程序制作：<a href="http://www.xoyu.com/"><font color="#FFFFFF">xoYu</font></a>&nbsp; 
          受权予：<%=name%>&nbsp; 注册号：<%=regnum%><%if name="未注册" or regnum="未注册" then%>&nbsp; 
          [<a href="xoYuNewsReg.asp?type=reg"><font color="#FFFFFF">注册程序</font></a>]<%end if%></th>
        </tr>
      </table>
    </center>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -