错误'80020009' BOF 或EOF 中有一个是“真”
错误'80020009' BOF 或EOF 中有一个是“真” 行76别的页面都正确 就这个页面出现这错误 麻烦大家帮忙看下...行76我用蓝色标出了
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include virtual="/diablo3/Connections/conn.asp" -->
<%
Function HTMLcode(fString)
If Not IsNull(fString) Then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = replace(fString, "&#", "<I>&#</I>")
fString = Replace(fString, CHR(32), "<I></I> ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLcode = fString
End if
End Function
%>
<%
Dim news__MMColParam
news__MMColParam = "1"
If (Request.QueryString("news_id") <> "") Then
news__MMColParam = Request.QueryString("news_id")
End If
%>
<%
Dim news
Dim news_numRows
Set news = Server.CreateObject("ADODB.Recordset")
news.ActiveConnection = MM_conn_STRING
news.Source = "SELECT * FROM news WHERE news_id = " + Replace(news__MMColParam, "'", "''") + ""
news.CursorType = 0
news.CursorLocation = 2
news.LockType = 1
news.Open()
news_numRows = 0
%>
<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+"""
case "&" : result=result+"&"
case chr(13) : result=result+"<br/>"
case chr(9) : result=result+" "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>暗黑破坏神III 中文资讯网|暗黑破坏神3|暗黑破坏神2|暗黑破坏神|Diablo</title>
<link href="/diablo3/css.css" rel="stylesheet" type="text/css" />
</head>
<body class="background">
<!--#include file="../include/top2.asp"-->
<div class="bg_frame">
<!--#include file="../include/side.asp"-->
<div class="bg_frame_right" align="center">
<div style=" width:90%; padding-top:2%"align="center" class="font20"><strong><%=(news.Fields.Item("news_tittle").Value)%></strong></div>
<div style=" width:90%; padding-top:2%"align="center">
作者：<%=(news.Fields.Item("news_author").Value)%> 来源：<%=(news.Fields.Item("news_source").Value)%> 时间：<%=(news.Fields.Item("news_time").Value)%> </div>
<div style=" width:85%; padding-top:2%" align="left" class="font14"><%=HTMLcode((news.Fields.Item("news_content").Value))%></div>
</div>
</div>
<!--#include file="../include/footer.asp"-->
</body>
</html>
<%
news.Close()
Set news = Nothing
%>
