新微赢技术网

标题: [求助]关于附件的问题 [打印本页]

作者: 红尘醉 时间: 2010-1-19 23:31
标题: [求助]关于附件的问题
我做了一个网站，有一个链接，点击之后打开一个附件(比如一个word文档)，在直接上面修改，有什么方法当浏览器关掉的时候，可以把修改过的附件保存到服务器？谢谢了。
[知识问答 ωωω.χiuGoo.сom]

作者: ①個亼de鈊痛 时间: 2010-1-19 23:31
没人帮忙一下啊。

作者: 清茶淡水 时间: 2010-1-19 23:31
读去用户的原来文件内容
<%
Dim write
Dim fileSysObj, tf, read

' 读取文本read.txt
'获得文件名字
read = "read.txt"
'读取文件的完整路径

read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath
(Request.ServerVariables("PATH_INFO")), "\")) & read

'新建一个fileSysObj对象

Set fileSysObj = createObject("Scripting.FileSystemObject")

'读取整个文本文件

IF (fileSysObj.FileExists(read)) Then
'如果文件存在，则打来并读取文件
Set tf = filesysobj.OpenTextFile(read, 1)
read = tf.ReadLine
tf.Close
ELSE
'如果找不到read.txt文件，则显示下面的信息！
read = "没有相应的文件"

END IF
%>

'在下面表格中显示read.txt

<div align="center">
<form method="POST" action="write_txt.asp">
<table border="0" width="40%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" ><textarea name="S1" rows="1" cols="20" ><%=read%></textarea></td>
</tr>
<tr>
<td>
<input type="submit" value="提交" name="B1">
</tr>
</table>
</form>
用户编辑完了以后点击提交
write_txt.asp 代码
<%

Sub Write2File(strFile , strContent, blnAppend)
' 写入文件
' strFile 文件名(路径) , strContent 写入的内容, blnAppend 是否追加
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If blnAppend Then
Set objWriteText = objFSO.OpenTextFile(strFile,8,True)
Else
Set objWriteText = objFSO.OpenTextFile(strFile,2,True)
End If
objWriteText.WriteLine (strContent)
Set objWriteText = Nothing
Set objFSO = Nothing
' 容错处理
Select Case Err
Case 424 Response.Write "路径未找到或者该目录没有写入权限."
Case Else Response.Write Err.Description
End Select
End Sub
user_txt=request.form("s1")
Call Write2File ("read.txt", user_txt, True)
%>
read.txt 可以有系统命名，或随即生成，那就看你了
偶不会操作word文档，就给你一个txt的吧，希望对你有帮助

作者: ═━灆涩━═ 时间: 2010-1-19 23:31
谢谢楼上的，我试试看。

作者: ...火狐狸``` 时间: 2010-1-19 23:31
三楼的程序好象不能操作WORD 文档吧，对记事本文件倒是可以

作者: 草本刚 时间: 2010-2-6 22:05
漂亮只能为别人提供眼福，却不一定换到幸福。

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)