标题:新闻浏览页面,求助!!!谢谢了!!!急!!!
只看楼主
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
 问题点数:0 回复次数:30 
新闻浏览页面,求助!!!谢谢了!!!急!!!
请高手帮忙看下我的代码哪里出错了,我自己检查不出来啊,新闻浏览页面,查看新闻的,我可以运行,但是整个页面是空的,连里面包含的头文件都没有,而且没有任何出错信息,请帮忙哦,急需!!!谢谢了
主要代码如下:
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
set rscate=server.CreateObject("adodb.recordset")
rs.open "select * from news where newsid='"&request.QueryString("newsid")&"'",conn,1,3
if not rs.eof then
rqttitle=rs("newstitle")
rqtContent= rs("newsCONTENT")
rqtContent = replace(rqtContent,"[space]"," ")
'更新阅读数量
conn.Execute("UPDATE NEWS SET newsREADCOUNT = newsREADCOUNT + 1 WHERE newsID=" & Request.QueryString("newsid"))
'读取新闻类别
sql = "SELECT * FROM CATEGORY WHERE CID=" & rs("CID")
'执行查询
Set rsCate = conn.Execute(sql)
'如果记录集不为空,则设置新闻类别
If Not rsCate.EOF Then
stitle = rsCate("CNAME")
End If

'显示新闻标题、发表时间和内容
%>

<td height="184" colspan="4" valign="top"><!--#include file="head.asp"-->&nbsp;</td>
        </tr>
        <tr>
          <td width="27" height="60">&nbsp;</td>
          <td width="559" valign="top"><p class="style16"><strong>标题:<%=stitle%></strong>&nbsp;</p>
          <p class="style18"><%=rs("newsposttime")%>发表该新闻已被浏览过<%=rs("newsreadcount")%>次&nbsp;&nbsp;&nbsp;&nbsp;作者:<%=rs("newsposterid")%></font></span>&nbsp;</p></td>
          <td width="28">&nbsp;</td>
          <td width="216" rowspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
        </tr>
        <tr>
          <td height="1244" colspan="3" valign="top">
            <span class="style16"><%=rqtContent%>
       &nbsp;</span></td>
        </tr>
    </table></td>
     <div align="center"><br>         
          <input name="Submit" type="button" class="STYLE11" onClick="javascritp:window.close()" value="关闭窗口">
      </div>
        <div align="right"><a href="newDiscuss.asp?newsid=<%=Request("newsid")%>" class="style15">发表评论 </a></div></td></tr>
    <td>&nbsp;</td>
搜索更多相关主题的帖子: 页面 recordset adodb conn 
2008-05-18 10:43
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
response.write("select * from news where newsid='"&request.QueryString("newsid")&"'")
response.end
如果输出的SQL语句正确,那在数据库中执行下SQL语句,看看有结果没

2008-05-18 10:46
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
得分:0 
再问
请问下,那句应该放哪里啊,我之前的就是运行一下整个页面就是空白页,什么东西都没有的???
2008-05-18 10:54
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
<!--#include file="conn.asp"-->
<%
response.write("select * from news where newsid='"&request.QueryString("newsid")&"'")
response.end
%>

2008-05-18 10:56
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
取到你那样的结果说明newsid你没传过来
request.QueryString("newsid")的值是空,数据库查不到结果,当然不显示了....

2008-05-18 10:59
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
得分:0 
可是为什么会这样呢,我数据可没有出错啊???
2008-05-18 11:05
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
可能不关数据的事情,是你没把newsid这个字符串传递过来
现在的这个页,不能直接运行,需要其他页面传递newsid给他他才能运行....

2008-05-18 11:07
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
得分:0 
<%
            Set rs = Server.CreateObject("ADODB.RecordSet")
            sql="select * from News,Category where news.CateID=Category.CID and '热点新闻' order by NewsID desc"
            rs.open sql,conn,3,2
            on error resume next
            if not rs.eof then
            for i=1 to 5            
            Response.Write "<a class='style25' onClick='return newwin(this.href);' href='newsView.asp?id=" + cstr(rs("newsid")) + "'>" + rs("newsTitle") +"</p>"
            rs.movenext
            next
            rs.close
            end if
            %>        

这是我主页的读取新闻题目的代码,我就是从主页这里点击进去,然后跳到那个浏览的页面,麻烦帮我看看要怎么改吧,我实在是看不出来了哦
2008-05-18 11:11
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:0 
on error resume next
楼主代码里的这种语句去掉,这种语句会屏蔽错误信息。
2008-05-18 16:12
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
得分:0 
错误类型:
(0x80020009)
发生意外。
/new/index.asp, 第 203 行

可是如果去掉的话,我就出错了,在新闻的主页面那,Response.Write "<a class='style25' onClick='return newwin(this.href);' href='newsView.asp?id=" + cstr(rs("newsid")) + "'>" + rs("newsTitle") +"</p>"
            rs.movenext
2008-05-18 16:20



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-214874-1-1.html




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

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