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
%>
在写留言的页面只要加这条语句: