2. ASP代码（设立一DSN,请改动begin.asp）
----------------------------------
------文件begin.asp
1
2Set Con = Server.CreateObject( "ADODB.Connection" )
3Con.Open "test" ,"test","test"
-----文件reg_step1.asp
1<html>
2<head>
3<title>会员注册--基本信息</title>
4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
5<script language="JavaScript1.1">
6function verifyIt(form) {
7for (i = 0; i <document.forms[0].elements.length; i++) {
8if (document.forms[0].elements[i].type == "text" && document.forms[0].elements[i].value == ""){
9alert("所有内容必须填写！")
10return false;
11}
12}
13if (document.forms[0].n_pass.value.length<6){
14alert("密码不得少于6位")
15return false
16}
17if (document.forms[0].n_pass.value!=document.forms[0].nq_pass.value){
18alert("密码与确认密码不一致！")
19document.forms[0].n_pass.value=""
20document.forms[0].nq_pass.value=""
21return false;
22}
23return true;
24}
25</script>
26</head>
27<body bgcolor="#FFFFFF" leftmargin="0" marginheight="0" marginwidth="0" text="#333333" topmargin="0">
28<table border="0" cellpadding="0" cellspacing="0" width="750">
29<tr>
30<td> </td>
31</tr>
32<tr>
33<td>
34<table border="0" cellpadding="0" cellspacing="0" width="777">
35<tr>
36<td valign="top" width="149"> </td>
37<td valign="top" width="628">
38<table border="0" cellpadding="0" cellspacing="0" width="628">
39<tr>
40<td height="12" valign="top" width="464"> </td>
41<td height="12" valign="top" width="164"> </td>
42</tr>
43<tr>
44<td height="203" valign="top" width="464">
45<table border="0" cellpadding="0" cellspacing="0" width="460">
46<tr>
47<td height="198" valign="top" width="10"> </td>
48<td align="center" class="txt105" height="198" valign="top" width="450">
49<form action="reg_step1_sub.asp" method="post" name="ord_1" onsubmit="return verifyIt(this)">
50<table align="center" border="0" cellpadding="0" cellspacing="0" width="400">
51<tr align="center">
52<td class="txt105" height="36"><font color="#336600">新会员注册-基本信息</font>
53<hr align="left" color="#669999" size="1"/>
54</td>
55</tr>
56<tr valign="top">
57<td height="45">
58<table border="0" width="400">
59<tr>
60<td align="right" class="txt105" width="150"><font color="#336600">用户名：</font></td>
61<td class="txt105" width="240">
62<input class="txt9" name="n_name" size="20" type="text"/>
63</td>
64</tr>
65<tr>
66<td align="right" class="txt105" width="150"><font color="#336600">密码：</font></td>
67<td class="txt105" width="240">
68<input class="txt9" name="n_pass" size="20" type="password"/>
69<font color="#336600"> 至少6位</font></td>
70</tr>
71<tr>
72<td align="right" class="txt105" height="33" width="150"><font color="#336600">确认密码：</font></td>
73<td class="txt105" height="33" width="240">
74<input class="txt9" name="nq_pass" size="20" type="password"/>
75</td>
76</tr>
77</table>
78</td>
79</tr>
80<tr align="center">
81<td height="41">
82<hr align="left" color="#669999" size="1"/>
83<input class="txt9" name="Submit" type="submit" value="申请"/>
84<input class="txt9" name="reset" type="reset" value="重填"/>
85</td>
86</tr>
87<tr align="center">
88<td class="txt105"> </td>
89</tr>
90</table>
91</form>
92</td>
93</tr>
94</table>
95</td>
96<td valign="top" width="164"> </td>
97</tr>
98</table>
99</td>
100</tr>
101</table>
102</td>
103</tr>
104<tr align="center">
105<td> </td>
106</tr>
107</table>
108</body>
109</html>
---文件reg_step1_sub.asp
1
2u_name=Request.Form("n_name")
3u_pass=Request.Form("n_pass")
4
5if u_name="" and u_pass="" then
6Response.Redirect "reg_step1.asp"
7Response.end
8end if
1<html>
2<head>
3<title>会员注册</title>
4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
5<link href="../css/sty1.css" rel="stylesheet" type="text/css"/>
6</head>
7<body bgcolor="#FFFFFF" leftmargin="0" marginheight="0" marginwidth="0" text="#333333" topmargin="0">
8<table border="0" cellpadding="0" cellspacing="0" width="750">
9<tr>
10<td height="49"> </td>
11</tr>
12<tr>
13<td>
14<table border="0" cellpadding="0" cellspacing="0" width="777">
15<tr>
16<td height="400" valign="top" width="147"> </td>
17<td height="400" valign="top" width="630">
18<table border="0" cellpadding="0" cellspacing="0" width="620">
19<tr>
20<td height="12" valign="top" width="474"> </td>
21<td height="12" valign="top" width="146"> </td>
22</tr>
23<tr>
24<td height="379" valign="top" width="474">
25<table border="0" cellpadding="0" cellspacing="0" width="452">
26<tr>
27<td height="376" valign="top" width="18"> </td>
28<td class="txt105" height="376" valign="top" width="434">
29<p>
if trim(u_name)="" then
Response.write "<div align="center"><a class="link8" href="javascript:history.go(-1)">用户名不能为空格,返回。</a></div>"
Response.write "</p></td></tr></table></td></tr></table></td></tr></table></td></tr></table></body></html>
1"
2Response.end
3else
4u_name=rtrim(trim(u_name))
5end if
6
7if instr(u_name," ")<>0 then
8Response.write "
<div align="center"><a class="link8" href="javascript:history.go(-1)">用户名中不能包含空格,返回。</a></div>
1"
2Response.write "
3"
4Response.end
5end if
6
7if instr(u_pass," ")<>0 then
8Response.write "
<div align="center"><a class="link8" href="javascript:history.go(-1)">密码中不能包含空格,返回。</a></div>
1"
2Response.write "
3"
4Response.end
5end if
6
7Set MyCommand=Server.CreateObject("ADODB.Command")
8Set MyCommand.ActiveConnection=Con
9MyCommand.CommandType=adCmdStoredProc
10MyCommand.CommandText="proc_UserRegBase"
11
12MyCommand.Parameters.Append MyCommand.CreateParameter("u_name",adVarChar,adParamInput,30)
13MyCommand.Parameters.Append MyCommand.CreateParameter("u_pass",adVarChar,adParamInput,30)
14
15MyCommand.Parameters("u_name")=u_name
16MyCommand.Parameters("u_pass")=u_pass
17
18
19Set RS=MyCommand.Execute()
20
21'Set RS=Server.CreateObject("ADODB.RecordSet")
22'strSql="proc_userRegBase '"&u_name&"','"&u_pass&"'"
23'SET RS=Con.Execute(strSql)
24
25check_reg=RS("resultID")
26
27if check_reg=0 then
28set RS=rs.NextRecordSet
29VailCodeLogin=rtrim(trim(RS("ValidCodeLogin")))
30Session("lotto_isLogin")=rtrim(trim(RS("ValidCodeLogin")))
31Session("lotto_username")=u_name
32
33end if
34
35RS.Close
36Con.Close
1if check_reg=0 then
1<table align="center" border="0" cellpadding="0" cellspacing="0" width="400">
2<tr>
3<td align="center" class="txt105"><font color="#336600">注
4册 成 功！</font></td>
5</tr>
6<tr>
7<td align="center" class="txt105">
8<hr color="#669999" size="1"/>
9</td>
10</tr>
11<tr>
12<td align="center" class="txt105" height="35">
13<p>用户名：<b>```
14=u_name
15```</b><br/>
16密码：<b>```
17=u_pass
18```</b></p>
19</td>
20</tr>
21<tr>
22<td class="txt9" height="188">
23<hr color="#669999" size="1"/>
24<table align="center" border="0" cellpadding="0" cellspacing="0" width="320">
25<tr align="center">
26<td class="txt105" colspan="2">按<a href="reg_step2.asp?VailCodeLogin=```
27=VailCodeLogin
28```&name=```
29=u_name
30```"><font color="#336600">这里</font></a>，<a href="reg_step2.asp?VailCodeLogin=```
31=VailCodeLogin
32```&name=```
33=u_name
34```"><font color="#336600">填写详细的个人资料</font></a>。</td>
35</tr>
36<tr>
37<td class="txt105" colspan="2"> </td>
38</tr>
39<tr>
40<td class="txt105" width="18"> </td>
41<td class="txt105" width="302"><font color="#000000">注意，请仔细阅读下列事项：</font></td>
42</tr>
43<tr>
44<td class="txt105" colspan="2" valign="top">
45<hr color="#669999" size="1"/>
46</td>
47</tr>
48<tr>
49<td class="txt105" valign="top" width="18">1.</td>
50<td class="txt105" width="302">如果您想进行网上订购， 必须填写更详细的个人资料。</td>
51</tr>
52<tr>
53<td class="txt105" valign="top" width="18">2.</td>
54<td class="txt105" width="302">如果您想以后填写， 请在登录状态，进入"彩民社区"-"用户服务"
55功能区填写。</td>
56</tr>
57<tr>
58<td class="txt105" valign="top" width="18"> </td>
59<td class="txt105" width="302"> </td>
60</tr>
61</table>
62</td>
63</tr>
64<tr>
65<td align="center" class="txt9"> </td>
66</tr>
67</table>
1end if
1if check_reg=-1 then
1<table align="center" border="0" cellpadding="0" cellspacing="0" width="400">
2<tr align="center">
3<td> </td>
4</tr>
5<tr align="center">
6<td> </td>
7</tr>
8<tr align="center">
9<td><a class="LINK8" href="javascript:history.go(-1)">该用户名已经存在，返回。</a></td>
10</tr>
11</table>
1end if
1<td height="379" valign="top" width="147"> </td>