天天影院黑色HTML v5.0注册程序

迷路林肯 · 发表于 2005 年 11 月 13 日 16:58:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

×

有个朋友需要，帮他写了后，顺便发上来给金光的兄弟

<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>注册程序</title>
<style>
<!--
.menu_title {
 
}
.sec_menu {
  BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
}
-->
</style>
</head>
<body>
<br>
<%if request("type")="reg" then
if request("check")="yes" then
zcn=Request("zcn")&mayivod
zj=Request("zj")
if request("zcn")="" or request("zj")="" then
response.write("<script language=vbscript>msgbox ""注册失败:用户名和域不能为空!""</script>")
error="yes"
elseif len(zcv)>20 then
response.write("<script language=vbscript>msgbox ""注册失败:域名不能多于20个字符!""</script>")
else
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","b")
zj=replace(zj,"1","d")
zj=replace(zj,"2","e")
zj=replace(zj,"3","s")
zj=replace(zj,"4","c")
zj=replace(zj,"5","b")
zj=replace(zj,"6","v")
zj=replace(zj,"7","h")
zj=replace(zj,"8","a")
zj=replace(zj,"9","c")
zj=replace(zj,"a","10")
zj=replace(zj,"b","51")
zj=replace(zj,"c","92")
zj=replace(zj,"d","43")
zj=replace(zj,"e","54")
zj=replace(zj,"f","35")
zj=replace(zj,"g","46")
zj=replace(zj,"h","27")
zj=replace(zj,"i","18")
zj=replace(zj,"j","59")
zj=replace(zj,"k","20")
zj=replace(zj,"l","31")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","56")
zj=replace(zj,"r","47")
zj=replace(zj,"s","38")
zj=replace(zj,"t","29")
zj=replace(zj,"u","80")
zj=replace(zj,"v","31")
zj=replace(zj,"w","52")
zj=replace(zj,"x","33")
zj=replace(zj,"y","74")
zj=replace(zj,"z","85")
zj=replace(zj,"-","96")
zj=replace(zj,".","57")
yzcv=zj*(len(zj)+len(zcn&"mayivod"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
zcv=zcv+0
response.Write("您的注册名为：")
response.write(zcn)
response.write("<br>")
response.write("您的注册码是：")
response.Write(yzcv)
end if
end if
end if
%>
  <div align="center">
    <center>
    <table border="0" cellPadding="3" cellSpacing="1" bgcolor="#E9E9E9">
      <form action="reg.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="zj" size="20"></td>
      </tr>
    </table>
    </center>
    </div>
    <center>
    <p><input type="submit" value="   注册到您的服务器上   "></p>
    <table border="0" cellspacing="1" width="438" cellpadding="2" bgcolor="#E9E9E9">
    <tr>
      <td width="100%" bgcolor="#FFFFFF">天天影院黑色HTML v5.0注册程序</td>
    </tr>
    </form>
    </table>
    </center>
</body>
</html>

复制代码

另存为reg.asp后再运行

wskyak · 发表于 2005 年 11 月 13 日 17:05:15

有那个程序下载吗！！！！

oghuz · 发表于 2005 年 11 月 13 日 17:23:37

想看看演示

coolboycn · 发表于 2005 年 11 月 13 日 17:32:45

[s:16] [s:16]

迷路林肯 · 发表于 2005 年 11 月 13 日 17:57:42

下面是引用oghuz于2005-11-13 17:23发表的:
想看看演示

我的演示是我自己修改了的，不是原来的
www.shwg.cn

wskyak · 发表于 2005 年 11 月 13 日 18:00:15

你修改的能否提供下载啊！！！！！！

wode998 · 发表于 2005 年 11 月 13 日 18:07:03

收藏下。。

迷路林肯 · 发表于 2005 年 11 月 13 日 16:58:45

有个朋友需要，帮他写了后，顺便发上来给金光的兄弟

<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>注册程序</title>
<style>
<!--
.menu_title {
 
}
.sec_menu {
  BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
}
-->
</style>
</head>
<body>
<br>
<%if request("type")="reg" then
if request("check")="yes" then
zcn=Request("zcn")&mayivod
zj=Request("zj")
if request("zcn")="" or request("zj")="" then
response.write("<script language=vbscript>msgbox ""注册失败:用户名和域不能为空!""</script>")
error="yes"
elseif len(zcv)>20 then
response.write("<script language=vbscript>msgbox ""注册失败:域名不能多于20个字符!""</script>")
else
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","b")
zj=replace(zj,"1","d")
zj=replace(zj,"2","e")
zj=replace(zj,"3","s")
zj=replace(zj,"4","c")
zj=replace(zj,"5","b")
zj=replace(zj,"6","v")
zj=replace(zj,"7","h")
zj=replace(zj,"8","a")
zj=replace(zj,"9","c")
zj=replace(zj,"a","10")
zj=replace(zj,"b","51")
zj=replace(zj,"c","92")
zj=replace(zj,"d","43")
zj=replace(zj,"e","54")
zj=replace(zj,"f","35")
zj=replace(zj,"g","46")
zj=replace(zj,"h","27")
zj=replace(zj,"i","18")
zj=replace(zj,"j","59")
zj=replace(zj,"k","20")
zj=replace(zj,"l","31")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","56")
zj=replace(zj,"r","47")
zj=replace(zj,"s","38")
zj=replace(zj,"t","29")
zj=replace(zj,"u","80")
zj=replace(zj,"v","31")
zj=replace(zj,"w","52")
zj=replace(zj,"x","33")
zj=replace(zj,"y","74")
zj=replace(zj,"z","85")
zj=replace(zj,"-","96")
zj=replace(zj,".","57")
yzcv=zj*(len(zj)+len(zcn&"mayivod"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
zcv=zcv+0
response.Write("您的注册名为：")
response.write(zcn)
response.write("<br>")
response.write("您的注册码是：")
response.Write(yzcv)
end if
end if
end if
%>
  <div align="center">
    <center>
    <table border="0" cellPadding="3" cellSpacing="1" bgcolor="#E9E9E9">
      <form action="reg.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="zj" size="20"></td>
      </tr>
    </table>
    </center>
    </div>
    <center>
    <p><input type="submit" value="   注册到您的服务器上   "></p>
    <table border="0" cellspacing="1" width="438" cellpadding="2" bgcolor="#E9E9E9">
    <tr>
      <td width="100%" bgcolor="#FFFFFF">天天影院黑色HTML v5.0注册程序</td>
    </tr>
    </form>
    </table>
    </center>
</body>
</html>

复制代码

另存为reg.asp后再运行

xxx4311119 · 发表于 2006 年 3 月 27 日 11:06:29

请问下能不能提供一下压缩包。我这把代码复制过去后无法显示出注册码。可能那部分有问题~

whitecloud · 发表于 2006 年 5 月 1 日 18:39:42

谢谢了...

账号		自动登录	找回密码
密码			注册