ASP读取数据库内容

这个还不容易啊. 你在数据库里面应该有信息的id 和 信息的 标题title吧.

首先调用数据库, 就是我们说的标题列表.

如果是用表格布局的话 列表的代码应该是这样写的

<%

set rs = server.CreateObject("ADODB.Recordset")

sql = "select * from 表名 where 条件"

rs.open sql,conn,1,1

do while not rs.eof

%>

<tr>

<td width="10"></td>

<td height="21">·<%=left(rs("title"),10)%>

<td>

<td width="10"></td>

</tr>

<%

rs.movenext

loop

rs.close

set rs = nothing

%>

</table>

这样文章的标题列表就显示出来了

再加个连接到显示文章的内容页

就是在

<%=left(rs("title"),10)%>上加链接<a href = "内容页显示页面?id = <%=rs("id")%>"> <%=left(rs("title"),10)%></a>

最后就是内容显示页

要显示内容的话就是先读取传过来的id参数

<%

set rs = server.CreateObject("ADODB.Recordset")

sql = "select * from 表名 where id = '"&request("id")&"'"

rs.open sql,conn,1,1

%>

<tr>

<td width="10"></td>

<td height="21"><%=rs("title")%>

<td>

<td width="10"><%=rs("content")%></td>

</tr>

<%

rs.close

set rs = nothing

%>

</table>

这样就显示出来了

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

我在个人blog数据库的blog_content（记录日志的）表里加了一个log_pwd的字段，用来储存日志的密码。

现在在首页里需要判断日志log_pwd字段的值是否为空，若为空就直接进入日志页面，非空则提示要输入密码以后才能进入。

由于日志的ID是自动增加的，应该怎样动态读取数据库里每一篇日志的密码呢？

谢谢了

解析:

<!--日志列表-->

<%

Set rs= Server.CreateObject("ADODB.Recordset")

rs.open"select * from blog_content",conn,1,1

if rs.eof and rs.bof then

response.write （"没有数据"）

else

response.write ("<table>")

for i=1 to 50 '打开数据从1到50循环'

response.write ("<tr><td><a href=日志显示页面?id=")&rs("log_id")&(">")&rs("日志字段名")&("</a></td><tr>") '这句话显示日志的题目链接'

rs.movenext

if rs.eof then exit for

next

response.write ("</table>")

end if

rs.close:set rs=nothing

%>

<!--日志显示页面-->

<%

id=request("id") '这儿的ID是获取上页面的ID号'

if not isnumeric id then id = "" '这儿是判断ID是否数字，如果不是则ID为空'

pwd=request("pwd") '这儿是获取密码'

Set rs= Server.CreateObject("ADODB.Recordset")

rs.open"select * from blog_content where log_id="&id&"",conn,1,1 '这儿是打开log_id与ID相等的数据'

if rs.eof then

response.write （"没有找到相关文章"）

else

if pwd = "" or pwd=rs("log_pwd") then

response.write rs("日志字段")

rs.close:set rs=nothing

else

%>

<form action="日志显示页面?id=<%rs("log_id")%>" method="post" name=pwd>

<input name=pwd type=text>

<input type=submit name=Submit value="提交">

</form>

<%

end if

end if

%>

没测试，不知道对不对，如果还有问题请加QQ***********

分为三步举个例子，来形象的比喻下，让你很好理解，其实很简单从数据库里取数据，就好比从水库里放水下来一样 第一步：打开库里面的水闸开关。对应的就是先和数据库端发生连接，打开数据库。这里简单采用ADO方式来连接<%

dim conn ,connstr '定义变量

set conn=server.createobject("ADODB.Connection") '创建连接

connstr="Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &Server.MapPath(“数据库存放地址")

'只是ACCESS数据库的连接，举例。 conn.Open connstr '打开连接，已经将数据库端连接打开

%>第二步：在用户这边打开你的水龙头，把水放到水池里蓄起来。对应得就是在用户这一边要取数据就先创建数据集对象，将数据库里的数据先取出来放在数据集对象中，要的时候就通过数据集对象取出来。<%Set Rs = Server.CreateObject("ADODB.RecordSet") '创建RS对象，用的是RecordSet记录集

Sql="Select * From user" '指定查询语句，按要求查询你所想要取的数据

Rs.Open Sql,Conn,2,3 '打开水龙头，放水。数据取到Rs 数据集对象中 后面的2 3 是游标和锁方式，自己可以去了解，这里不说了%> 第三步：从水池里取水。对应的从数据集中取出你想要的数据。这里就不用循环方式了，只作举例说明下比如你要取user数据表中的用户名和密码信息那就是用户名：<% =Rs("username") %>密 码： <% =Rs("password") %>不知道你理解了没有，很形象的比喻，我当时学的时候也是通过这样一个比喻理解的，很简单，慢慢学慢慢深入，就会理解的更多。

---