如果你知道是第100条,要读第100条的姓名,那么
RS.absoluteposition=100
然后<%=RS("姓名")%>就是了.
假如你不知道是第几条,但知道条件是什么,比如说性别 男,注册日期为2006年1-1号...等等条件,那只有用sql来写了
<%'建立数据库连接
Dim ConnStr, Conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0Data 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("<table width='100%' border='0' cellpadding='0' cellspacing='0'>") &vbCrLf
Response.Write(" <tr>") &vbCrLf
Response.Write("<td height='30'>id</td>") &vbCrLf
Response.Write("<td>username</td>") &vbCrLf
Response.Write("<td>password</td>") &vbCrLf
Response.Write("<td>sex</td>") &vbCrLf
Response.Write("<td>personalinfo</td>") &vbCrLf
Response.Write("<td>ntime</td>") &vbCrLf
Response.Write(" </tr>") &vbCrLf
If rs.BOF And rs.EOF Then
Response.Write("查无数据!")
Else
Do While Not rs.EOF
Response.Write(" <tr>") &vbCrLf
Response.Write("<td height='30'>" &rs("id") &"</td>") &vbCrLf
Response.Write("<td>" &rs("username") &"</td>") &vbCrLf
Response.Write("<td>" &rs("password") &"</td>") &vbCrLf
Response.Write("<td>" &rs("sex") &"</td>") &vbCrLf
Response.Write("<td>" &rs("personalinfo") &"</td>") &vbCrLf
Response.Write("<td>" &rs("ntime") &"</td>") &vbCrLf
Response.Write(" </tr>") &vbCrLf
rs.MoveNext
Loop
End If
Response.Write("</table>") &vbCrLf
'关闭数据库
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
这是全部代码,认真仔细的研究每一句代码,能全部理解的话 那asp基本就等于入门了 加油!:)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)