哪里出了问题 - ASP及.net - 5D互动论坛

» 互动论坛 » ASP及.net » 哪里出了问题

跳转到：

每页显示15条 1/1<<<1>>

主题: 哪里出了问题

cxh
职务：普通成员
等级：1
金币：0.0
发贴：7

引用

#12002/6/26 13:31:55

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

文件未找到

/cxh/book.asp, 行10

哪里出了问题？

<% @language="vbscript" %>
<%

if Request.ServerVariables("REQUEST_METHOD")="POST" then

set fsFilesys=CreateObject("Scripting.FileSystemObject")

set myText=fsFilesys.OpenTextFile(Server.MapPath("/")&"/book.txt")

Temp=myText.Readall
myText.Close

if Request("task")="insert" Then

Tname=request.form("name")
Tsex=request.form("sex")
Temail=request.form("email")
turl=request.form("url")
Tfrom=request.form("from")
Tcomments=request.form("comments")
Ttime="#&@"&time
if Len(Tcomments)<2 Then
%>

对不起！你还未留言。返回 <%
else
if Lcase(Left(Turl,7))<>"http://" Then
Turl="http://"&Turl
End if
Turl=Lcase(Turl)

set myText=fsFilesys.CreateTextFile(Server.MapPath("/")&"/book.txt")
myText.WriteLine(Tname)
myText.WriteLine(Tsex)
myText.WriteLine(Temail)
myText.WriteLine(Turl)
myText.WriteLine(Tfrom)
myText.WriteLine(Tcomments)
myText.writeLine(Ttime)
myText.WriteLine(date)
myText.writeLine(Temp)
myText.Close
%>

<%

end if

End if

else

%>

留言薄
<% colorbg="#BED9FC" %>