28,391
社区成员
发帖
与我相关
我的任务
分享拜托，请看看这个查看新闻内容的代码，运行时总是报错，在第39行（newstext= HTMLEncode(newstext)）
<!--#include file="topxw.htm"-->
<script language="VBScript">
<!--
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
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> ")
HTMLEncode = fString
end if
end function
-->
</script>
<%
set cn= Server.CreateObject("ADODB.Connection")
Cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("./update/PageUpdata.mdb")
'
dim rs,sql,n,newstext,newstext1,content
'set rs1 = Server.CreateObject("ADODB.Recordset")
sql="update xxtbl set Count=Count+1 where Id=" & request("Id")
cn.execute(sql)
'rs1.open sql, cn
Set sr=server.createobject("adodb.Recordset")
sql = "Select Text1 from xxtbl where Id=" & request("Id") & " order by Id desc"
srl.open sql,Cn
'set rs=cn.execute(sql)
newstext = netsol("Text1")
newstext= HTMLEncode(newstext)
'virtual
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body topmargin=0 leftmargin=0>
<div align="center">
<center>
<table width="660" height="159" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="660" height="34"><br>
<center>
<font color=blue size="3"><strong><% =rs("Title") %></strong></font>
<br>
<hr align="center">
</center></td>
</tr>
<tr>
<td height="59" align="left" ><font size="3"><% response.write content %></font></td>
</tr>
<tr>
<td width="660" height="44" align="left" >
<hr>
</td>
</tr>
</table>
</center>
</div>
<p></p>
<%netsol.close
set netsol=nothing%>
</body>
</html>
出错提示
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
/Text.asp, 第 39 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)
页：
GET /Text.asp
<script language="VBScript">
<!--
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
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> ")
HTMLEncode = fString
end if
end function
-->
</script>
<%
set cn= Server.CreateObject("ADODB.Connection")
Cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("./update/PageUpdata.mdb")
'
dim rs,sql,n,newstext,newstext1,content
'set rs1 = Server.CreateObject("ADODB.Recordset")
sql="update xxtbl set Count=Count+1 where Id=" & request("Id")
cn.execute(sql)
'rs1.open sql, cn
Set sr=server.createobject("adodb.Recordset")
sql = "Select Text1 from xxtbl where Id=" & request("Id") & " order by Id desc"
srl.open sql,Cn
'set rs=cn.execute(sql)
newstext = netsol("Text1")
newstext= HTMLEncode(newstext)
'virtual
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body topmargin=0 leftmargin=0>
<div align="center">
<center>
<table width="660" height="159" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="660" height="34"><br>
<center>
<font color=blue size="3"><strong><% =rs("Title") %></strong></font>
<br>
<hr align="center">
</center></td>
</tr>
<tr>
<td height="59" align="left" ><font size="3"><% response.write content %></font></td>
</tr>
<tr>
<td width="660" height="44" align="left" >
<hr>
</td>
</tr>
</table>
</center>
</div>
<p></p>
<%netsol.close
set netsol=nothing%>
</body>
</html>
出错提示
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
/Text.asp, 第 39 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)
页：
GET /Text.asp
...全文
请发表友善的回复…
发表回复
