| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1131 人关注过本帖
标题:题目列表与详细内容显示
取消只看楼主 加入收藏
jm117
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2007-6-23
结帖率:0
收藏
 问题点数:0 回复次数:8 
题目列表与详细内容显示

我想在某页面show.asp左侧显示题目标题,在右侧显示“详细内容”,而且在列表中的题目建立超级链接,点击某个题目就在右侧显示它的详细内容。
我是这样做的:做一个页面list.asp(仅有一个表格,在表格内建立“详细内容”记录显示代码),然后在show.asp右侧调用list.asp,当然show.asp的左侧应该建立相应的题目字段显示代码和超级链接代码,左侧主要代码为:<a href="list.asp?id<%=rs("id")%>"><%=rs("title")%>
现在出现了如下问题,预览show.asp时,页面右侧能够直接显示第一篇文章的详细内容,但是当点击左侧题目进行链接时出现下列错误提示:
错误类型:
ADODB.Recordset (0x800A0BB9)
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/list.asp,
不知道问题何在?

搜索更多相关主题的帖子: 详细内容 列表 
2007-07-24 21:01
jm117
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2007-6-23
收藏
得分:0 
我接下来分两次贴代码,第一篇为show.asp代码,第二篇为list.asp代码

2007-07-24 21:53
jm117
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2007-6-23
收藏
得分:0 
<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="225" height="700" valign="top"><table width="225" border="1" cellpadding="0" cellspacing="0" bordercolor="#0099FF">
<tr bordercolor="#FFFFFF">
<td height="697" valign="top"><table width="220" height="22" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20" background="images/lm2.gif"><table width="220" height="22" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="48" height="18">&nbsp;</td>
<td width="172" background="images/lm3.gif"><span class="STYLE4">文章列表</span></td>
</tr>
</table></td>
</tr>
</table>
<table width="216" height="266" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCFF">
<tr bordercolor="#CCCCCC">
<td width="210" height="260" valign="top">
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from teach",bb,1,1
%>
<table width="194" border="0" cellspacing="0" cellpadding="0">
<%if rs.eof and rs.bof then
response.write("暂无信息")
else
do until rs.eof
%>
<tr>
<td width="18"><div align="center"><img src="images/dot1.gif" width="9" height="15" /></div></td>
<td width="176"><a href="list.asp?id<%=rs("id")%>"><%=rs("title")%></a></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
</table>
</td>
</tr>
</table></td>
</tr>
</table></td>
<td width="555" valign="top"><table width="555" border="1" cellpadding="0" cellspacing="0" bordercolor="#00CC99">
<tr bordercolor="#FFFFFF">
<td height="697" valign="top"><!--#include file="list.asp"--></td> 蓝色代码是调用list.asp
</tr>
</table></td>
</tr>
</table>

[此贴子已经被作者于2007-7-24 22:04:56编辑过]


2007-07-24 21:55
jm117
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2007-6-23
收藏
得分:0 

<table width="554" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>

<%
dim idj
idj="1"
if request("id" <> "") then
idj=request("id")
end if
%>
<%
sql ="Select * from teach where id=" + idj
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<div align="center" class="STYLE1"><%=rs("title")%></div><br>
<%=myhtmlencode(rs("message"))%>
<%
function myHTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")

fString = Replace(fString, CHR(32), "<I></I>&nbsp;")
fString = Replace(fString, CHR(9), "&nbsp;&nbsp;&nbsp;&nbsp;")
fString = Replace(fString, CHR(34), "&quot;")
fString = Replace(fString, CHR(39), "&#39;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
'fString = Replace(fString, CHR(10), "</P><P> ")

myHTMLEncode = fString
end if
end function
%>
</td>
</tr>
</table>


蓝色部分是为了让文章按照WORD编辑格式显示的代码

[此贴子已经被作者于2007-7-24 22:00:29编辑过]


2007-07-24 21:56
jm117
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2007-6-23
收藏
得分:0 
这两句数据库及表的连接代码没有问题,因为在打开其他很多表的时候都没出问题!

2007-07-25 10:08
jm117
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2007-6-23
收藏
得分:0 
<a href="list.asp?id<%=rs("id")%>"><%=rs("title")%></a></td>
改成
<a href="list.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td>
链接任报上述错误

改成
<a href="show.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td>
链接无反应,右侧调用始终是第一篇文章内容!而且第二种改法去掉=效果一样!

顺便说下你的第一种思路,加上<!--#include file="conn.asp"-->,在show.asp预览时提示重连接

[此贴子已经被作者于2007-7-25 11:11:50编辑过]


2007-07-25 11:09
jm117
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2007-6-23
收藏
得分:0 
bb是数据库连接驱动赋予的变量名,以下是数据库连接代码
conn.asp
<%
dim bb
set conn=server.createobject("adodb.connection")
bb="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("mr.mdb")
conn.open bb
%>

[此贴子已经被作者于2007-7-25 11:38:02编辑过]


2007-07-25 11:37
jm117
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2007-6-23
收藏
得分:0 
if request("id" <> "") then
和if request("id")<>"" then
效果一样

2007-07-25 13:01
jm117
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2007-6-23
收藏
得分:0 
最后按照楼兄madpbpl修改后成功了,谢谢各位!

2007-07-25 13:11
快速回复:题目列表与详细内容显示
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028373 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved