设为首页收藏本站
切换到窄版

 找回密码
 注册
金光网»广场 › ╃ 建 站 技 术 ╆ › 『网站建设』 › 天天影院黑色HTML v5.0注册程序
广告投放 虚位以待【阿里云】2核2G云新老同享 99元/年,续费同价做网站就用糖果主机-sugarhosts.comJtti.com-新加坡服务器,美国服务器,香港服务器
返回列表 发新帖
查看: 886|回复: 9

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

[复制链接]
发表于 2005 年 11 月 13 日 16:58:45 | 显示全部楼层 |阅读模式

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

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

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

  3. <html>
  4. <head>
  5. <meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  6. <title>注册程序</title>
  8. <style>
  9. <!--
  10. .menu_title {
  11.    
  12. }
  13. .sec_menu {
  14.    BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
  15. }
  16. -->
  17. </style>
  18. </head>
  19. <body>
  20. <br>
  21. <%if request("type")="reg" then
  22. if request("check")="yes" then
  23. zcn=Request("zcn")&mayivod
  24. zj=Request("zj")
  25. if request("zcn")="" or request("zj")="" then
  26. response.write("<script language=vbscript>msgbox ""注册失败:用户名和域不能为空!""</script>")
  27. error="yes"
  28. elseif len(zcv)>20 then
  29. response.write("<script language=vbscript>msgbox ""注册失败:域名不能多于20个字符!""</script>")
  30. else
  31. zj=left(replace(zj,"www.",""),6)
  32. zj=replace(zj,"0","b")
  33. zj=replace(zj,"1","d")
  34. zj=replace(zj,"2","e")
  35. zj=replace(zj,"3","s")
  36. zj=replace(zj,"4","c")
  37. zj=replace(zj,"5","b")
  38. zj=replace(zj,"6","v")
  39. zj=replace(zj,"7","h")
  40. zj=replace(zj,"8","a")
  41. zj=replace(zj,"9","c")
  42. zj=replace(zj,"a","10")
  43. zj=replace(zj,"b","51")
  44. zj=replace(zj,"c","92")
  45. zj=replace(zj,"d","43")
  46. zj=replace(zj,"e","54")
  47. zj=replace(zj,"f","35")
  48. zj=replace(zj,"g","46")
  49. zj=replace(zj,"h","27")
  50. zj=replace(zj,"i","18")
  51. zj=replace(zj,"j","59")
  52. zj=replace(zj,"k","20")
  53. zj=replace(zj,"l","31")
  54. zj=replace(zj,"m","22")
  55. zj=replace(zj,"n","23")
  56. zj=replace(zj,"o","24")
  57. zj=replace(zj,"p","25")
  58. zj=replace(zj,"q","56")
  59. zj=replace(zj,"r","47")
  60. zj=replace(zj,"s","38")
  61. zj=replace(zj,"t","29")
  62. zj=replace(zj,"u","80")
  63. zj=replace(zj,"v","31")
  64. zj=replace(zj,"w","52")
  65. zj=replace(zj,"x","33")
  66. zj=replace(zj,"y","74")
  67. zj=replace(zj,"z","85")
  68. zj=replace(zj,"-","96")
  69. zj=replace(zj,".","57")
  70. yzcv=zj*(len(zj)+len(zcn&"mayivod"))
  71. Do While yzcv>10000000000
  72. yzcv=yzcv-10000000000
  73. loop
  74. zcv=zcv+0
  75. response.Write("您的注册名为：")
  76. response.write(zcn)
  77. response.write("<br>")
  78. response.write("您的注册码是：")
  79. response.Write(yzcv)
  80. end if
  81. end if
  82. end if
  83. %>
  84.    <div align="center">
  85.        <center>
  86.        <table border="0" cellPadding="3" cellSpacing="1" bgcolor="#E9E9E9">
  87.         <form action="reg.asp?type=reg&check=yes" method="post">
  88.          <tr>
  89.            <td bgcolor="#FFFFFF">用户名：</td>
  90.            <td bgcolor="#FFFFFF"><input name="zcn" size="20"></td>
  91.            <td bgcolor="#FFFFFF">域名：</td>
  92.            <td bgcolor="#FFFFFF"><input name="zj" size="20"></td>
  93.          </tr>
  94.        </table>
  95.        </center>
  96.      </div>
  97.      <center>
  98.      <p><input type="submit" value="    注册到您的服务器上    "></p>
  99.      <table border="0" cellspacing="1" width="438" cellpadding="2" bgcolor="#E9E9E9">
  100.        <tr>
  101.          <td width="100%" bgcolor="#FFFFFF">天天影院黑色HTML v5.0注册程序</td>
  102.        </tr>
  103.       </form>
  104.      </table>
  105.      </center>
  108. </body>
  109. </html>
复制代码


另存为reg.asp后再运行
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复

使用道具 举报

wskyak
发表于 2005 年 11 月 13 日 17:05:15 | 显示全部楼层
【腾讯云】2核2G云服务器新老同享 99元/年，续费同价
有那个程序下载吗！！！！
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复 顶 踩

使用道具 举报

oghuz
发表于 2005 年 11 月 13 日 17:23:37 | 显示全部楼层
想看看演示
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复 顶 踩

使用道具 举报

发表于 2005 年 11 月 13 日 17:32:45 | 显示全部楼层
[s:16]  [s:16]
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复 顶 踩

使用道具 举报

 楼主| 发表于 2005 年 11 月 13 日 17:57:42 | 显示全部楼层
下面是引用oghuz于2005-11-13 17:23发表的:
想看看演示
我的演示是我自己修改了的，不是原来的
www.shwg.cn
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复 顶 踩

使用道具 举报

wskyak
发表于 2005 年 11 月 13 日 18:00:15 | 显示全部楼层
你修改的能否提供下载啊！！！！！！
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复 顶 踩

使用道具 举报

发表于 2005 年 11 月 13 日 18:07:03 | 显示全部楼层
【腾讯云】2核2G云服务器新老同享 99元/年，续费同价
收藏下。。
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复 顶 踩

使用道具 举报

 楼主| 发表于 2005 年 11 月 13 日 16:58:45 | 显示全部楼层

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

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

  3. <html>
  4. <head>
  5. <meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  6. <title>注册程序</title>
  8. <style>
  9. <!--
  10. .menu_title {
  11.    
  12. }
  13. .sec_menu {
  14.    BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
  15. }
  16. -->
  17. </style>
  18. </head>
  19. <body>
  20. <br>
  21. <%if request("type")="reg" then
  22. if request("check")="yes" then
  23. zcn=Request("zcn")&mayivod
  24. zj=Request("zj")
  25. if request("zcn")="" or request("zj")="" then
  26. response.write("<script language=vbscript>msgbox ""注册失败:用户名和域不能为空!""</script>")
  27. error="yes"
  28. elseif len(zcv)>20 then
  29. response.write("<script language=vbscript>msgbox ""注册失败:域名不能多于20个字符!""</script>")
  30. else
  31. zj=left(replace(zj,"www.",""),6)
  32. zj=replace(zj,"0","b")
  33. zj=replace(zj,"1","d")
  34. zj=replace(zj,"2","e")
  35. zj=replace(zj,"3","s")
  36. zj=replace(zj,"4","c")
  37. zj=replace(zj,"5","b")
  38. zj=replace(zj,"6","v")
  39. zj=replace(zj,"7","h")
  40. zj=replace(zj,"8","a")
  41. zj=replace(zj,"9","c")
  42. zj=replace(zj,"a","10")
  43. zj=replace(zj,"b","51")
  44. zj=replace(zj,"c","92")
  45. zj=replace(zj,"d","43")
  46. zj=replace(zj,"e","54")
  47. zj=replace(zj,"f","35")
  48. zj=replace(zj,"g","46")
  49. zj=replace(zj,"h","27")
  50. zj=replace(zj,"i","18")
  51. zj=replace(zj,"j","59")
  52. zj=replace(zj,"k","20")
  53. zj=replace(zj,"l","31")
  54. zj=replace(zj,"m","22")
  55. zj=replace(zj,"n","23")
  56. zj=replace(zj,"o","24")
  57. zj=replace(zj,"p","25")
  58. zj=replace(zj,"q","56")
  59. zj=replace(zj,"r","47")
  60. zj=replace(zj,"s","38")
  61. zj=replace(zj,"t","29")
  62. zj=replace(zj,"u","80")
  63. zj=replace(zj,"v","31")
  64. zj=replace(zj,"w","52")
  65. zj=replace(zj,"x","33")
  66. zj=replace(zj,"y","74")
  67. zj=replace(zj,"z","85")
  68. zj=replace(zj,"-","96")
  69. zj=replace(zj,".","57")
  70. yzcv=zj*(len(zj)+len(zcn&"mayivod"))
  71. Do While yzcv>10000000000
  72. yzcv=yzcv-10000000000
  73. loop
  74. zcv=zcv+0
  75. response.Write("您的注册名为：")
  76. response.write(zcn)
  77. response.write("<br>")
  78. response.write("您的注册码是：")
  79. response.Write(yzcv)
  80. end if
  81. end if
  82. end if
  83. %>
  84.    <div align="center">
  85.        <center>
  86.        <table border="0" cellPadding="3" cellSpacing="1" bgcolor="#E9E9E9">
  87.         <form action="reg.asp?type=reg&check=yes" method="post">
  88.          <tr>
  89.            <td bgcolor="#FFFFFF">用户名：</td>
  90.            <td bgcolor="#FFFFFF"><input name="zcn" size="20"></td>
  91.            <td bgcolor="#FFFFFF">域名：</td>
  92.            <td bgcolor="#FFFFFF"><input name="zj" size="20"></td>
  93.          </tr>
  94.        </table>
  95.        </center>
  96.      </div>
  97.      <center>
  98.      <p><input type="submit" value="    注册到您的服务器上    "></p>
  99.      <table border="0" cellspacing="1" width="438" cellpadding="2" bgcolor="#E9E9E9">
  100.        <tr>
  101.          <td width="100%" bgcolor="#FFFFFF">天天影院黑色HTML v5.0注册程序</td>
  102.        </tr>
  103.       </form>
  104.      </table>
  105.      </center>
  108. </body>
  109. </html>
复制代码


另存为reg.asp后再运行
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复 顶 踩

使用道具 举报

发表于 2006 年 3 月 27 日 11:06:29 | 显示全部楼层
请问下能不能提供一下压缩包。我这把代码复制过去后无法显示出注册码。可能那部分有问题~
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复 顶 踩

使用道具 举报

发表于 2006 年 5 月 1 日 18:39:42 | 显示全部楼层
谢谢了...
Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
回复 顶 踩

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|金光论坛

GMT+8, 2025 年 2 月 2 日 16:58 , Processed in 0.019507 second(s), 23 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表