asp留言本学习

来源：百度文库编辑：神马文学网时间：2024/04/28 14:15:07

ASP出来有好些年了，但还是有很多朋友徘徊在ASP的大门之外，关于她的本身有太多的内容，要是细说，讲几天都讲不完，这里只是说一些ASP与ACCESS的一些简单操作，给大家开一个小头^^。
我们来看看一个简单留言本的构成：
----------------------------------
1。ACCESS2000数据库bookdata.mdb,放置在data目录下
----------------------------------
有2个表:一个是admin,用于放置管理员信息,字段有id(自动计数),username(文本),adminpsw(文本);一个是info,用于放置留言，字段有id(自动计数),name(文本),from(文本),email(文本),neirong(备注),uptime(默认值为now())。
!是不是发现在ACCESS里改动数据后数据库会变的很大？即使删除数据？这里有个简单的方法，新建一个数据库，把原来的数据库全部导入，你就会看到数据库缩小了不少^^,然后覆盖回去吧
----------------------------------
2。数据库连接文件conn.asp
----------------------------------
<%连接数据库有多种方法，下面的采用较老版本ACCESS驱动的连接方法
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("data/bookdata.mdb") 这里可以将mdb文件改名
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
----------------------------------
3。留言本首页index.asp
----------------------------------
<%@LANGUAGE="VBSCRIPT"%>

ASP+ACCESS简单留言本

欢迎来到我的留言本，多多指教

‖我要留言‖管理进入‖

<%
最典型的ADO应用
set rs=server.CreateObject("adodb.recordset")
建立数据查询，以时间先后排序(近的在最上面)
strSQL = "SELECT * FROM info ORDER BY uptime DESC"
rs.Open strSQL,conn,1,1
如果有记录则循环显示所有数据
Do While Not rs.EOF
%>

来自 <% = rs("from") %> 的 "><% = rs("name") %> 于<% = rs("uptime") %> 写下了
<% = rs("neirong") %>

<%
rs.MoveNext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

----------------------------------
4。留言增加页add.asp
----------------------------------
<%@LANGUAGE="VBSCRIPT"%>

<%
如果能从浏览器客户端得到add的值，则执行添加数据
dim cadd
cadd= request("action")
if cadd= "add" then
dim cname,cfrom,cemail,cneirong
Trim()函数的作用是将取得的数据前后空格去掉，如果有的话
cname=Trim(Request.form("name"))
cfrom=Trim(Request.form("from"))
cemail=Trim(Request.form("email"))
cneirong=Trim(Request.form("neirong"))
Set rs = Server.CreateObject("ADODB.Recordset")
注意下面的 1,2 这个是Recordset对象的LockType属性，当为1,2时才允许更新数据
1,1 为只读(默认) 详情请查询相关资料
rs.Open "info",conn,1,2
rs.addnew
rs("name")=cname
rs("from")=cfrom
rs("email")=cemail
rs("neirong")=cneirong
rs("uptime")=now()
rs.update
rs.close
set rs=nothing
response.redirect "index.asp"
end if
%>

填写留言