| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 539 人关注过本帖
标题:[求助]关于附件的问题
只看楼主 加入收藏
kobe210
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-12
收藏
 问题点数:0 回复次数:7 
[求助]关于附件的问题
我做了一个网站,有一个链接,点击之后打开一个附件(比如一个word文档),在直接上面修改,有什么方法当浏览器关掉的时候,可以把修改过的附件保存到服务器?谢谢了。

[此贴子已经被作者于2006-4-24 16:57:29编辑过]


搜索更多相关主题的帖子: 附件 
2006-04-21 14:56
kobe210
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-12
收藏
得分:0 
没人帮忙一下啊。
2006-04-21 16:52
zfjyyzycl
Rank: 2
等 级:论坛游民
帖 子:239
专家分:10
注 册:2006-4-15
收藏
得分:0 
读去用户的原来文件内容
<%
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的吧,希望对你有帮助

2006-04-21 22:33
kobe210
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-12
收藏
得分:0 
谢谢楼上的,我试试看。
2006-04-22 14:32
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 

三楼的程序好象不能操作WORD 文档吧,对记事本文件倒是可以


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2006-04-22 14:42
zfjyyzycl
Rank: 2
等 级:论坛游民
帖 子:239
专家分:10
注 册:2006-4-15
收藏
得分:0 
以下是引用阳光白雪在2006-4-22 14:42:00的发言:

三楼的程序好象不能操作WORD 文档吧,对记事本文件倒是可以

偶不会操作word文档,就给你一个txt的吧,希望对你有帮助

2006-04-22 20:25
kobe210
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-12
收藏
得分:0 
我希望操纵的是excel跟word.而且是浏览器关掉它自动保存,不是在一个控件里把里面的内容读出来,提交才保存这样。不过同样得谢谢你。
2006-04-24 16:59
kobe210
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-4-12
收藏
得分:0 

哪位大侠救救我啊。

2006-04-25 10:22
快速回复:[求助]关于附件的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016977 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved