我用的新云系统3.1,生成HTML时错误,麻烦ASP高手指点

来源：百度知道 编辑：UC知道 时间：2024/05/12 10:32:45
好像这个系统不是自动生成HTML的,需要手动去生成.但是当内容多了的时候就出错> 代码
If isxmltext = 1 Then
xmlFilePath = m_strXMLPath & xmlfilename
TextContent = Newasp.ReadXMLDocument(xmlFilePath,"article/@content")
If TextContent = "" Then TextContent = Rs("content") & ""
Else
TextContent = Rs("content")
End If
'---------------------------------------------
ArticleContent = Replace(TextContent, "[page_break]", "")
ArticleContent = Newasp.CutString(ArticleContent, CInt(Newasp.HtmlSetting(3)))
'--缩略图
ImageUrl = Newasp.GetImageUrl(Rs("ImageUrl"), ChannelRootDir)
ImageUrl = Newasp.GetFlashAndPic(ImageUrl, Newasp.HtmlSetting(6), Newasp.HtmlSetting(7))
Thumbnail = "<a href=""" & ArticleUrl & """ title=""" & Rs("title") & """>" & ImageUrl & "</a>&q

先判断TextContent值是否为空，如果为空则不执行ArticleContent = Replace(TextContent, "[page_break]", "")这句。如果不为空则执行。
Replace,Left,Right等方法调用的时候，都必须先判断参数是否为空值，不然就会出现“无效使用Null”类似的错误~

这样改：
if TextContent<>"" then
ArticleContent = Replace(TextContent, "[page_break]", "")
end if

ArticleContent = Replace(TextContent, "[page_break]", "")

这里面的 TextContent 为 NULL ，所以不能使用Replace ，报错

if(isnull(TextContent)) then TextContent="TextContent的值为NULL"
ArticleContent = Replace(TextContent, "[page_break]", "")

TextContent 值为空