Question

关于ASP读取HTML的问题

我的代码是这样的
head=LoadFile(path & "template/" & tempurl & "/head.html")

Function head(a)
If head <> "" then temp_head = head_foot(head) end if
a = replace(a,"{head}",temp_head):head = a
End Function

Function LoadFile(m_Root)
Dim Filename,fso,hndFile
Filename = m_Root
If Right(Filename, 1)<>"/" And Right(Filename, 1)<>"\" Then Filename = Filename & "/"
Filename = Server.MapPath(Filename & m_FileName)
Set fso = CreateObject("Scripting.FileSystemObject")
set hndFile = fso.OpenTextFile(Filename) 这里是127行
if not hndFile.atendofstream then
LoadFile = hndFile.ReadAll
end if
Set hndFile = Nothing
Set fso = Nothing
End Function

如果目录中找不到head.html这个文件，系统就会报错
Microsoft VBScript 运行时错误 (0x800A0035)
文件未找到
/inc/temp.asp, 第 127 行

请问怎么屏蔽这个错误，也就是说在有head.html的时候读取。
没有则不读取，也不报错。。 请高手指点一下

Answer 1

Set fso = CreateObject("Scripting.FileSystemObject")
set hndFile = fso.OpenTextFile(Filename) 这里是127行
If not hndFile.atendofstream then
改成
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
set hndFile = fso.OpenTextFile(Filename)
If Err.Number<>0 Then Exit Function
If not hndFile.atendofstream then

Answer 2

按照提示去操作吧，引入文件/inc/temp.asp。检查下是不是head=LoadFile(path & "template/" & tempurl & "/head.html")这里的路径不对或者有问题