Asp一起来写个留言板(一)
老鸟->见笑->飘过~~
Asp这个去时流行的东西,还有没有必要去学呢?PHP和ASP.NET的流行,学Asp还有何前途呢?这个问题不用去考虑了,
个人觉得Asp对.net学习或是对编程的理解都很有帮助.而且一直觉得ASP+ACCESS是个很简洁实用的搭档.不用去安装硕大的VS,也不用去安装像SQL server或Oracle这样的"庞大"的数据库,只要有OFFICE加记事本就可以进行网页数据库编程开发了.现在就和初学ASP的朋友们一起来看看留言板是怎么实现的.现在的论坛功能丰富,说到底还是一个"留言板"...
首先贴下ASP连ACCESS的代码吧!方便查询调用,整个ASP对数据库的操作就是这几句加上不同的SQL语句了.
#####################################################################
1
Dim db
2 Set db=Server.CreateObject("ADODB.Connection")
3 db.Open "Dbq="&Server.Mappath("data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
4 '以下建立Recordset对象实例rs
5 Dim strSql,rs,username,password
6 'strSql="Select * From user Order By uid Desc" //查询语句
7 StrSql="Insert Into user(username,userpwd, email,qq) Values('" & username & "','" & password & "','" & email & "','" & qq & "')" //插入语句
8 Set rs=db.Execute(strSql)//执行SQL语句
Dim db 2
Set db=Server.CreateObject("ADODB.Connection") 3
db.Open "Dbq="&Server.Mappath("data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" 4
'以下建立Recordset对象实例rs5
Dim strSql,rs,username,password 6
'strSql="Select * From user Order By uid Desc" //查询语句7
StrSql="Insert Into user(username,userpwd, email,qq) Values('" & username & "','" & password & "','" & email & "','" & qq & "')" //插入语句8
Set rs=db.Execute(strSql)//执行SQL语句###################################################################
一.ACCESS数据库
下面是数据库里的表项,后面还用到.
----
二.注册(reg.asp)
上面的数据库的设计是根据实际的功能要求来增加的.
现在就为留言板写个用户注册吧!注册的实质就是插入数据库相应的表项,而登录实际就是查询数据库.
这是页面:
这是DW拖的代码:
1<html>
2<head>
3 <title> 用户注册 </title>
4<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
5<body>
6<h2 align="center"> </h2>
7<form method="POST" action="verify.asp" name="myform" >
8 <table border="0" align="center">
9 <tr><td colspan="2" bgcolor="#6699FF"><div align="center">用户注册</div></td>
10 </tr>
11
12 <tr><td bgcolor="#CCCCCC">用户名：</td><td bgcolor="#CCCCCC"><input type="text" name="user_name" size="20">*</td></tr>
13 <tr><td bgcolor="#CCCCCC">密码：</td><td bgcolor="#CCCCCC"><input type="password" name="user_pass1" size="20">* (密码长度不能少于6位数)</td></tr>
14 <tr><td bgcolor="#CCCCCC">密码确认：</td><td bgcolor="#CCCCCC"><input type="password" name="user_pass2" size="20">*</td></tr>
15 <tr><td bgcolor="#CCCCCC">E_mail:</td><td bgcolor="#CCCCCC"><input type="text" name="user_email" size="20">*</td></tr>
16 <tr><td bgcolor="#CCCCCC">QQ号：</td><td bgcolor="#CCCCCC"><input type="text" name="user_qq" size="20"></td></tr>
17 <tr><td colspan="2" bgcolor="#CCCCCC"><p align="center"><input type="submit" value="提交" name="B1">
18 <input type="reset" value="重置" name="B2"></td></tr>
19 </table>
20</form>
21</body>
22</html>
23
<html>2
<head>3
<title> 用户注册 </title>4
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head> 5
<body>6
<h2 align="center"> </h2>7
<form method="POST" action="verify.asp" name="myform" >8
<table border="0" align="center">9
<tr><td colspan="2" bgcolor="#6699FF"><div align="center">用户注册</div></td>10
</tr>11
12
<tr><td bgcolor="#CCCCCC">用户名：</td><td bgcolor="#CCCCCC"><input type="text" name="user_name" size="20">*</td></tr>13
<tr><td bgcolor="#CCCCCC">密码：</td><td bgcolor="#CCCCCC"><input type="password" name="user_pass1" size="20">* (密码长度不能少于6位数)</td></tr>14
<tr><td bgcolor="#CCCCCC">密码确认：</td><td bgcolor="#CCCCCC"><input type="password" name="user_pass2" size="20">*</td></tr>15
<tr><td bgcolor="#CCCCCC">E_mail:</td><td bgcolor="#CCCCCC"><input type="text" name="user_email" size="20">*</td></tr>16
<tr><td bgcolor="#CCCCCC">QQ号：</td><td bgcolor="#CCCCCC"><input type="text" name="user_qq" size="20"></td></tr>17
<tr><td colspan="2" bgcolor="#CCCCCC"><p align="center"><input type="submit" value="提交" name="B1">18
<input type="reset" value="重置" name="B2"></td></tr>19
</table>20
</form>21
</body>22
</html>23
三.注册处理页面verify.asp
1<html>
2<body>
3 <%
4 Dim error_message
5 If Trim(Request("user_name"))="" Then
6 error_message=error_message&"请填写您的用户名"
7 End If
8 If Trim(Request("user_pass1"))="" Or Len(Trim(Request("user_pass1")))<6 Then
9 error_message=error_message&"<br>您的密码不能为空且不能少于6位数!"
10 End If
11 If Trim(Request("user_pass1"))<>Trim(Request("user_pass2")) Then
12 error_message=error_message&"<br>您两次输入的密码不相同，请重新输入！"
13 End If
14 If Instr(Request("user_email"),"@")=0 Then
15 error_message=error_message&"请输入有效合法的E-mail地址 ！"
16 End If
17 If Request("user_qq")<>"" and IsNumeric(Request("user_qq"))=False Then
18 error_message=error_message&"QQ号码应该是数字,请重新输入!"
19 End If
20 If error_message<>"" Then
21 Response.Write error_message&"请<a href='login.asp'>返回</a>重新输入"
22 Else
23 '以下连接数据库，建立一个Connection对象实例db
24 Dim db
25 Set db=Server.CreateObject("ADODB.Connection")
26 db.Open "Dbq="&Server.Mappath("data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
27 '以下建立Recordset对象实例rs
28 Dim strSql,rs,username,password
29 'strSql="Select * From user Order By uid Desc"
30
31 username=Trim(Request("user_name")) '用户名记入cookies
32 password=Trim(Request("user_pass1"))
33 email=Trim(Request("user_email"))
34 qq=Trim(Request("user_qq"))
35
36 StrSql="Insert Into user(username,userpwd, email,qq) Values('" & username & "','" & password & "','" & email & "','" & qq & "')"
37 Set rs=db.Execute(strSql)
38 response.write "<a href='login.asp'>注册成功，点击登录</a>"
39 '下面可以继续进行各种操作
40 End If
41 %>
42</body>
43</html>
44
<html>2
<body>3
<%4
Dim error_message5
If Trim(Request("user_name"))="" Then6
error_message=error_message&"请填写您的用户名"7
End If 8
If Trim(Request("user_pass1"))="" Or Len(Trim(Request("user_pass1")))<6 Then9
error_message=error_message&"<br>您的密码不能为空且不能少于6位数!"10
End If11
If Trim(Request("user_pass1"))<>Trim(Request("user_pass2")) Then12
error_message=error_message&"<br>您两次输入的密码不相同，请重新输入！"13
End If14
If Instr(Request("user_email"),"@")=0 Then15
error_message=error_message&"请输入有效合法的E-mail地址 ！"16
End If17
If Request("user_qq")<>"" and IsNumeric(Request("user_qq"))=False Then18
error_message=error_message&"QQ号码应该是数字,请重新输入!"19
End If20
If error_message<>"" Then21
Response.Write error_message&"请<a href='login.asp'>返回</a>重新输入"22
Else23
'以下连接数据库，建立一个Connection对象实例db24
Dim db 25
Set db=Server.CreateObject("ADODB.Connection") 26
db.Open "Dbq="&Server.Mappath("data.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" 27
'以下建立Recordset对象实例rs28
Dim strSql,rs,username,password 29
'strSql="Select * From user Order By uid Desc" 30
31
username=Trim(Request("user_name")) '用户名记入cookies32
password=Trim(Request("user_pass1")) 33
email=Trim(Request("user_email"))34
qq=Trim(Request("user_qq"))35
36
StrSql="Insert Into user(username,userpwd, email,qq) Values('" & username & "','" & password & "','" & email & "','" & qq & "')"37
Set rs=db.Execute(strSql)38
response.write "<a href='login.asp'>注册成功，点击登录</a>"39
'下面可以继续进行各种操作40
End If41
%>42
</body>43
</html>44
