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

📄 zcmjydownreg.asp

📁 ChinaWeb标准企业网站管理系统 V3.01
💻 ASP
字号:
🔍 
<!--#include file="bsconfig.asp"-->
<!--#include file="zcm.asp"-->
<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>
      <table border="0" cellspacing="1" width="430" cellpadding="3" bgcolor="#E9E9E9">
        <tr>
          
        <td width="100%" bgcolor="#F4F4F4"> 
          <p align="center"><b>感谢您使用良精软件科技 公司(企业)网站管理系统!</b></p>
        </td>
        </tr>
      </table>
  </center>
</div><br>
<%if request("type")="reg" then
if request("check")="yes" then
zcn=Request("zcn")&JyDownH
zcv=Request("zcv")
zj=Request.ServerVariables("SERVER_NAME")
if request("zcn")="" or request("zcv")="" then
response.write("<script language=vbscript>msgbox ""注册失败:用户名和注册码不能为空!""</script>")
error="yes"
elseif len(zcv)>20 then
response.write("<script language=vbscript>msgbox ""注册失败:注册码不能多于20个字符!""</script>")
elseif IsNumeric(zcv)=false then
response.write("<script language=vbscript>msgbox ""注册失败:注册码只能是数字!""</script>")
else

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(zcn&"bossiWebMIB"))

Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop

zcv=zcv+0
if yzcv=zcv then
dim fso,ts1
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set TS1 = FSO.CreateTextFile(Server.MapPath("zcm.asp"), True) 
TS1.write "<"&chr(37)&"dim zcn,zcv"&chr(13)&"zcn="&chr(34)&zcn&chr(34)&chr(13)&"zcv="&zcv&chr(37)&">"
Set TS1 = Nothing 
Set FSO = Nothing
response.write("<script>alert('注册成攻:!!!恭喜!!!您所填写的信息已成功注册!');location.href='zcmjydownreg.asp'</script>")
response.end
else
response.write("<script language=vbscript>msgbox ""注册失败:用户名或注册码错误!""</script>")
end if
end if
end if
%>
      <div align="center">
        <center>
        <table border="0" cellPadding="3" cellSpacing="1" bgcolor="#E9E9E9">
         <form action="zcmjydownreg.asp?type=reg&check=yes" method="post">
          <tr>
            <td bgcolor="#FFFFFF">用户名：</td>
            <td bgcolor="#FFFFFF"><input name="zcn" size="20"></td>
            <td bgcolor="#FFFFFF">注册号：</td>
            <td bgcolor="#FFFFFF"><input name="zcv" size="20"></td>
          </tr>
        </table>
        </center>
      </div>
      <center>
      <p><input type="submit" value="    注册到您的服务器上    "></p>
      <table border="0" cellspacing="1" width="430" cellpadding="2" bgcolor="#E9E9E9">
        <tr>
          
      <td width="100%" bgcolor="#FFFFFF">获得注册号(购买程序)请联系:<a href="http://www.liangjing.net/">http://www.liangjing.net/ 
        </a><font color="#0000FF">QQ：65961930</font> </td>
        </tr>
       </form>
      </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 = "zcmjydownreg.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">如你在使用程序中有什么问题或好的见议欢迎随时与良精科技联系</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">程序制作：<a href="http://www.liangjing.net/">良精软件科技</a> 
            受权予：<font color="#FF0000"><%=zcn%></font>&nbsp; 注册号：<font color="#FF0000"><%=zcv%></font> 
            <%if zcn="未注册" or zcv="未注册" then%>
            &nbsp; [<a href="zcmjydownreg.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 + -