asp显示数据库内容的代码

 

连接数据库的文件：conn.asp

<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("shuxue.mdb")
conn.open connstr
%>

显示页面：p.asp

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from form1"
rs.open sql,conn,1,1

%>
<table width="100" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#00FF00" >
<%
Do While not Rs.Eof
%>
<tr height="20" ><td><%=rs("name")%></td><td><%=rs("xuehao")%></td>
</tr>

<%
Rs.MoveNext
   Loop
%>
</table>

<%

rs.close()

conn.close()

%>