|
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 "<a href="&trim(rs("url"))&" target=_blank>"&trim(rs("wordlink"))&"</a><br>" rs.MoveNext loop rs.Close set rs=nothing %> 注：“wordlink”是表里面的一个字段名。 2 连接数据库一般都用这条语句： <!--#include file="conn.asp"--> 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) <!--#include file="conn.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 %> 在写留言的页面只要加这条语句：<FORM action=tianjia.asp method=post>则提交时就调用tianjia.asp |