asp怎样读取数据库

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

问题描述:

我在个人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或其它数据库连接方式（如ODBC)来创建一个程序到数据库的连接。并得到一个ADO.Connection对象。（需要配置一个连接字符串）

二，调用Connection的Execute方法向数据库发送一条SQL语句。

三，增删改的情况下， *** 作完成，关闭数据库。

四，查询的情况下，ADO会将查询结果放入RecordSet对象集，需要遍历该对象集以取得每一条记录的内容。

五， *** 作完成后，关闭数据库

这个还不容易啊. 你在数据库里面应该有信息的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>

这样就显示出来了

---