老鸟->见笑->飘过~~
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语句
2
3
4
5
6
7
8
###################################################################
一.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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44