沙宣经典直线图片:Microsoft VBScript 编译器错误 错误 '800a03f6'

来源：百度文库 编辑：高校问答 时间：2024/04/29 20:34:58
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a0046'

没有权限

/MessageAdd.asp，行40

<HTML>
<HEAD>
<TITLE>添加留言</TITLE>
</HEAD>
<BODY>
<%
'定义变量,对象
Dim Name,Email,Subject,Content
Dim Line1,Line2,Line3,Line4,Line5
Dim objFSO,objFin,objFOut
Dim FilePath,OldFilePath
'获取由Index.htm页面传送过来的变量
Name=Request("Name")
Email=Request("Email")
Subject=Request("Subject")
Content=Request("Content")
'判断输入内容是否符合要求,如不符合,回到Index.htm页面
If Name="" Or Email="" Or Subject="" Or Content ="" Then
Response.Write"<FONT color=red>输入框不能为空白!</FONT><P>"
Response.write"<A href=Index.htm>返回留言页面</A></BODY></HTML>"
'程序结束
Response.End
End If
'生成留言板一条信息的各行内容
Line1="留言人："&Name&"<BR>"
Line2="Email：<A href=mailto:"&Email&">"&Email&"</A><BR>"
Line3="主 题："&Subject&"<BR>"
Content=Replace(Content,vbCrLf,"<BR>")
Line4="<TABLE width=100% bgcolor=LightBlue><TR><TD>"
Line4=Line4&Content&"</TD></TR></TABLE>"
Line5="时 间："&Now()
'创建文件系统对象
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
'获取Message.txt和MessageOld.txt文件的物理路径
FilePath=Server.MapPath("Message.txt")
OldFilePath=Server.MapPath("MessageOld.txt")
'将信息写入文件前,要将本进程锁定
Application.Lock
if objFSO.FileExists(FilePath) then
objFSO.MoveFile FilePath,OldFilePath
end if
'创建两个文件对象
Set objFIn=objFSO.OpenTextFile(OldFilePath,,True)
Set objFOut=objFSO.CreateTextFile(FilePath)
'如果MessageOld.txt文件非空,则将其内容先复制到Message.txt文件中
if not objFIn.AtEndOfStream then
objFOut.WriteLine objFIn.ReadAll
end if
'将本次留言内容追加到Message.txt的最后
objFOut.WriteLine Line1
objFOut.WriteLine Line2
objFOut.WriteLine Line3
objFOut.WriteLine Line4
objFOut.WriteLine Line5
objFOut.WriteLine "<HR>"
'在删除MessageOld.txt文件之前,先关闭MessageOld.txt文件对象
objFIn.Close
objFSO.DeleteFile OldFilePath,True
'解除对本进程的锁定
Application.UnLOck
'将网页重定向到Index.htm
Response.Redirect"Index.htm"
%>
</BODY>
</HTML>

http://www.help-union.net/home/display.asp?id=625

ASP错误代码总结

希望有帮助

我不知道

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)