| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2999 人关注过本帖
标题:新闻浏览页面,求助!!!谢谢了!!!急!!!
取消只看楼主 加入收藏
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
收藏
 问题点数:0 回复次数:15 
新闻浏览页面,求助!!!谢谢了!!!急!!!
请高手帮忙看下我的代码哪里出错了,我自己检查不出来啊,新闻浏览页面,查看新闻的,我可以运行,但是整个页面是空的,连里面包含的头文件都没有,而且没有任何出错信息,请帮忙哦,急需!!!谢谢了
主要代码如下:
<!--#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
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
收藏
得分:0 
再问
请问下,那句应该放哪里啊,我之前的就是运行一下整个页面就是空白页,什么东西都没有的???
2008-05-18 10:54
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
收藏
得分:0 
可是为什么会这样呢,我数据可没有出错啊???
2008-05-18 11:05
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
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
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
收藏
得分:0 
恩,是啊,就只有这么一点提示的
2008-05-18 16:31
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
收藏
得分:0 
额,热点新闻那里倒是没出错,是另一个类别的新闻那里出错了,不过那真的只暂时添加了一条新闻,和那个有关系的吗??我试试先
2008-05-18 16:40
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
收藏
得分:0 
好厉害的说,现在主页是没有问题了,就是新闻浏览页面还是看不到什么东西,点进去了,就是空白,也没有提示出错,连有包含的头文件什么的都没有了
2008-05-18 16:43
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
收藏
得分:0 
<%    
    '数据库连接变量定义
    'Dim conn
    
    '数据库连接
    Set conn = Server.CreateObject("ADODB.Connection")
    '数据库连接字符串                        
      conn.ConnectionString = "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=new;User ID=sa; PASSWORD=841218"
      '打开数据库连接
    conn.Open
    
    '由程序处理错误,而不是缺省的由解释器处理错误
    If Err Then
        '发生错误,进行错误处理
        '释放数据库连接对象,并提示用户连接数据库出错
        Err.Clear
        Set conn = Nothing
        Response.Write "数据库连接出错,请检查连接字串。"
        'esponse.End
    End If
%>
2008-05-18 17:00
gudaohaha
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2008-5-9
收藏
得分:0 
还是一样的,什么都没有哦
2008-05-18 17:19
快速回复:新闻浏览页面,求助!!!谢谢了!!!急!!!
数据加载中...
 
   



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

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