怎样用ASP显示数据库指定字段的指定数据?

怎样用ASP显示数据库指定字段的指定数据?,第1张

首先你得知道记录的线索是什么,

如果你知道是第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基本就等于入门了 加油!:)


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/9689614.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-01
下一篇 2023-05-01

发表评论

登录后才能评论

评论列表(0条)

保存