ASP 显示数据库内容

<%
'建立数据库连接
Dim ConnStr, Conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./user.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr

'数据库数据查询
Dim sql, rs
sql = "Select * From info"
Set rs = Server.CreateObject("Adodb.Recordset")
rs.Open sql, Conn, 1, 1

'下面是数据输出
Response.Write("

") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf

If rs.BOF And rs.EOF Then
Response.Write("查无数据！")
Else
Do While Not rs.EOF
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
Response.Write(" ") & vbCrLf
rs.MoveNext
Loop
End If
Response.Write("

id	username	password	sex	personalinfo	ntime
" & rs("id") & "	" & rs("username") & "	" & rs("password") & "	" & rs("sex") & "	" & rs("personalinfo") & "	" & rs("ntime") & "

") & vbCrLf

'关闭数据库
rs.Close
Set rs = Nothing

Conn.Close
Set Conn = Nothing
%>

这是全部代码，认真仔细的研究每一句代码，能全部理解的话 那asp基本就等于入门了 加油！：）