一、'建立register.asp
複製代碼 代碼如下:<%@ language=vbscript %>
<html >
<head>
<title>註冊頁面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text/css">
td img {display: block;}.STYLE2 {font-size: 12px}
.STYLE3 {
color: #FF0000;
font-weight: bold;
font-size: 16px;
}
</style>
</head>
<body bgcolor="#ffffff">
<table width="531" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<!-- fwtable fwsrc="未命名" fwbase="register.jpg" fwstyle="Dreamweaver" fwdocid = "1502317357" fwnested="0" -->
<tr>
<td width="58" rowspan="5" valign="top" bgcolor="#D8FBB5"><img src="spacer.gif" width="58" height="1" border="0" alt="" /><img name="register_r1_c1" src="register_r1_c1.jpg" width="58" height="74" border="0" id="register_r1_c1" alt="" /><img name="register_r2_c1" src="register_r2_c1.jpg" width="58" height="48" border="0" id="register_r2_c1" alt="" /><img name="register_r3_c1" src="register_r3_c1.jpg" width="58" height="202" border="0" id="register_r3_c1" alt="" /><img name="register_r6_c1" src="register_r6_c1.jpg" width="58" height="53" border="0" id="register_r6_c1" alt="" /></td>
<td width="209" height="75" valign="top"><img name="register_r1_c2" src="register_r1_c2.jpg" width="209" height="74" border="0" id="register_r1_c2" alt="" /></td>
<td width="204" valign="top"><img name="register_r1_c3" src="register_r1_c3.jpg" width="204" height="74" border="0" id="register_r1_c3" alt="" /></td>
<td width="60" rowspan="5" valign="top" bgcolor="#D8FBB5"><img src="spacer.gif" width="60" height="1" border="0" alt="" /><img name="register_r1_c4" src="register_r1_c4.jpg" width="60" height="74" border="0" id="register_r1_c4" alt="" /><img name="register_r2_c4" src="register_r2_c4.jpg" width="60" height="48" border="0" id="register_r2_c4" alt="" /><img name="register_r3_c4" src="register_r3_c4.jpg" width="60" height="202" border="0" id="register_r3_c4" alt="" /><img name="register_r6_c4" src="register_r6_c4.jpg" width="60" height="53" border="0" id="register_r6_c4" alt="" /></td>
</tr>
<tr>
<td height="50" colspan="2" valign="top"><img name="register_r2_c2" src="register_r2_c2.jpg" width="413" height="48" border="0" id="register_r2_c2" alt="" /></td>
</tr>
<tr>
<td height="16"></td>
<td></td>
</tr>
<tr>
<td height="42" colspan="2" valign="top" ><form id="form1" name="form1" method="post" action="result2.asp">
<table width="100%" border="1">
<tr>
<td colspan="3"><span class="STYLE2">請在下面填寫你的註冊資料，紅色<span class="STYLE3">*</span>所標示的選項為必填選項</span></td>
</tr>
<tr>
<td align="center" valign="middle">使用者名稱：</td>
<td><label>
<input type="text" name="u_user" id="u_user" />
</label></td>
<td><span class="STYLE2"><span class="STYLE3">*</span></span></td>
</tr>
<tr>
<td align="center" valign="middle">密碼：</td>
<td><label>
<input type="text" name="u_pass" id="u_pass" />
</label></td>
<td><span class="STYLE2"><span class="STYLE3">*</span></span></td>
</tr>
<tr>
<td align="center" valign="middle">姓名：</td>
<td><label>
<input type="text" name="i_name" id="i_name" />
</label></td>
<td><span class="STYLE2"><span class="STYLE3">*</span></span></td>
</tr>
<tr>
<td align="center" valign="middle">性別：</td>
<td><label>
<select name="i_sex" size="1" id="i_sex">
<option value="1">男</option>
<option value="2">女</option>
</select>
</label></td>
<td><span class="STYLE2"><span class="STYLE3">*</span></span></td>
</tr>
<tr>
<td align="center" valign="middle">年齡：</td>
<td><label>
<input type="text" name="i_age" id="i_age" />
</label></td>
<td><span class="STYLE2"><span class="STYLE3">*</span></span></td>
</tr>
<tr>
<td colspan="3" align="center" valign="middle"><label>
<input type="submit" name="button" id="button" value="提交註冊資料" />
<input type="reset" name="button2" id="button2" value="重設表單" />
</label></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td colspan="2" valign="bottom" bgcolor="#D8FBB5" ><!--DWLayoutEmptyCell--> </td>
</tr>
</table>
</body>
</html>
二、建立串連並開啟資料庫的子程式con1.asp 複製代碼 代碼如下:<%
'字串串連資料庫的方法
set conn=server.createobject("adodb.connection")
conn.Open "DRIVER=Driver do Microsoft Access (*.mdb);uid=admin;pwd=;DBQ="&server.MapPath("regdb1.mdb")
%>
三、建立ACCESS資料庫db1.mdb，在其中建立資料表user,欄位分別為：u_uid（自動），u_user（使用者名稱：文本型），u_pass(密碼：文本型)
四、建立接收register.asp中發送過來的表單資料，並插入到資料表user中的註冊成功顯示頁面：result2.asp代碼如下： 複製代碼 代碼如下:<%@ language=vbscript %>
<!-- #include file="con1.asp"-->
<html >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>註冊成功</title><br>
</head>
<body>
<%
'建立recordset對象方法
set rst=server.createobject("adodb.recordset")
set rst1=conn.execute("insert into user (u_user,u_pass) values('"&request.form("u_user")&"','"&request.form("u_pass")&"')")
%>
<table width="300" border="0" align="center">
<tr>
<td align="center"><img src="chenggong.jpg" alt="註冊成功" width="297" height="201"></td>
</tr>
</table>
</body>
</html>
五、按F12預覽register.asp並輸入資料，點擊提交按鈕
這時開啟資料表user會看到：
說明操作成功，因為已經提交兩次，所以我們看到表中插入了兩條新的記錄，但是表中出現了重複記錄，以下在result2.asp中添加代碼予以解決： 複製代碼 代碼如下:<%@ language=vbscript %>
<!-- #include file="con1.asp"-->
<html >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>註冊成功</title>
<style type="text/css">
<!--
.STYLE1 {font-size: 24px}
-->
</style>
<br></head><body>
<%
'建立recordset對象方法
set rst=server.createobject("adodb.recordset")
rst.open"select * from user where u_user='"&request.form("u_user") & "'",conn,1,1
if rst.recordcount>0 then
response.write"使用者名稱："&request.form("u_user")&"已被佔用，請點擊返回重新註冊"
%>
<a href="register.asp" class="STYLE1">返回重新註冊</a>
<%
response.End
else
set rst1=conn.execute("insert into user (u_user,u_pass) values('"&request.form("u_user")&"','"&request.form("u_pass")&"')")
end if
%>
<table width="300" border="0" align="center">
<tr>
<td align="center"><img src="chenggong.jpg" alt="註冊成功" width="297" height="201"></td>
</tr>
<tr>
<td align="center"><a href="register.asp" class="STYLE1">返回</a></td>
</tr>
</table>
</body>
</html>
