ASP与ACCESS数据库

1 可以定制一个表格，让它从数据库中调出数据：
<% set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from ad order by bs",conn,1,1
do while not rs.EOF
response.Write ""&trim(rs("wordlink"))&"
"
rs.MoveNext
loop
rs.Close
set rs=nothing
%>
注：“wordlink”是表里面的一个字段名。
2 连接数据库一般都用这条语句：

Conn.asp代码如下：
<%@ CODEPAGE = "936" %> //这句话可以不要的
<%
dim conn
dim connstr
dim db
db="db/my.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
startime=timer()
%>
3例如：下面为添加留言的页面：(次文件名是tianjia.asp)

<%
set rs=server.createobject("adodb.recordset")
name = Request("name")
mail = Request("email")
face = Request("face")
sql="select * from message" （message是表名）
rs.open sql,conn,3,3
rs.addnew
rs("A_Name")=name
rs("A_Mail")=mail
rs("face")=face //这个是选择的图象，在数据库表的字段中可以用image/1.jpg就可以了
rs.update
rs.close
Response.Redirect "xianshi.asp" //这句话是重定向页面，即跳转到xianshi.asp
%>
<%
set rs=nothing
conn.close
set conn=nothing
%>
在写留言的页面只要加这条语句：

则提交时就调用tianjia.asp

相关文章

• 《无限暖暖》天星之羽获得位置介绍 12-20
• 《流放之路2》重铸台解锁方法介绍 12-20
• 《无限暖暖》瞄准那个亮亮的成就怎么做 12-20
• 《无限暖暖》魔气怪终结者完成方法 12-20
• 《无限暖暖》曙光毛团获得位置介绍 12-20
• 《无限暖暖》日光果获得位置介绍 12-20