请教，如何读写服务器上的文件？

Slamdunk 2001-12-21 11:00:18

...全文

150 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

Slamdunk 2001-12-24

打赏
举报

谢谢！！

Slamdunk 2001-12-21

打赏
举报

To silent:
老兄，小弟手头没有关于adodb.stream的资料，不知道在哪可以找到。

silentlamb 2001-12-21

打赏
举报

用adodb.stream对象的LoadFromFile()和SaveToFile()方法可以读取二进制文件

cn520 2001-12-21

打赏
举报

使用Set fs = Server.CreateObject("Scripting.FileSystemObject")创建的文件对象，暂时还只能存取文本文件格式。

Slamdunk 2001-12-21

打赏
举报

谢谢，百合。我想知道用asp怎样读写非文本格式的文件？

cpplus 2001-12-21

打赏
举报

这个啊~~，就一言难尽了啊~~~，给你一个例子吧（这是一个发贺卡的处理程序）：
<%
Randomize
filenum = Int(1000000*Rnd + 1)
filename = server.mappath("..\card")&"\"&filenum&".htm" '建立一个card文件夹保存贺卡
yejiao = server.mappath(".\")&"\"&"yejiao.htm"
'response.write filename
'response.end
filenametemp = filenum&".htm"
toname = request.form("toname")
fromname = request.form("fromname")
mailto = request.form("mailto")
mailfrom = request.form("mailfrom")
wish = request.form("wish")
url = request.form("url")

if mailto="" then
response.write"请填写收卡人地址！"&"<BR>"
'返回出错页面
end if
if mailfrom="" then
response.write"请填写发卡人地址！"&"<BR>"
'返回出错页面
end if
if toname="" then
response.write"请填写收卡人姓名！"&"<BR>"
'返回出错页面
end if
if fromname="" then
response.write"请填写发卡人姓名！"&"<BR>"
'返回出错页面
end if

'对邮件地址进行判断

'save this page as a html page
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set SaveFile = fs.CreateTextFile(filename,TRUE)
Set YejiaoFile = fs.OpenTextFile(yejiao,1,TRUE)

Set SendFile = fs.OpenTextFile(url,1,TRUE)
num = SendFile.line
do while not SendFile.AtEndOfStream
thisline = SendFile.ReadLine
num = SendFile.line
' response.write thisline
if InStr(thisline,"")<>0 then
SaveFile.WriteLine("<form method='POST' action='CardSend.asp'>")
SaveFile.Write("<div align='center'>TO:")
SaveFile.WriteLine("<input type='hidden' value="&"'"&toname&"' "&"name='toname'>")
SaveFile.WriteLine("<input type='hidden' value="&"'"&fromname&"' "&"name='fromname'>")
SaveFile.WriteLine("<input type='hidden' value="&"'"&mailto&"' "&"name='mailto'>")
SaveFile.WriteLine(toname)
SaveFile.WriteLine("<br>")
SaveFile.WriteLine("WISH:")
SaveFile.WriteLine(wish)
SaveFile.WriteLine("<br>")
SaveFile.WriteLine("FROM:")
SaveFile.WriteLine("<input type='hidden' value="&"'"&mailfrom&"' "&"name='mailfrom'>")
SaveFile.WriteLine(fromname)
SaveFile.WriteLine("<input type='hidden' value="&"'"&filename&"' "&"name='url'>")
SaveFile.WriteLine("</div>")
SaveFile.WriteLine("<p align='center'><input type='submit' value='发送' name='send'>")
SaveFile.WriteLine("<input type='submit' value='重写' name='redo'>")
SaveFile.WriteLine("</p>")
SaveFile.WriteLine("</form>")
do while not YejiaoFile.AtEndOfStream
SaveFile.WriteLine(YejiaoFile.ReadLine)
loop
exit do
else
SaveFile.WriteLine(thisline)
end if
loop

SendFile.Close

Set SendFile = nothing
Set SaveFile = nothing
Set NewFile = nothing
Set YejiaoFile = nothing
Set fs = nothing

response.redirect filenametemp

response.write toname&"<BR>"
response.write fromname&"<BR>"
response.write mailto&"<BR>"
response.write mailfrom&"<BR>"
response.write wish&"<BR>"
response.write url&"<BR>"
response.write filename&"<BR>"

%>

cn520 2001-12-21