其实只有用上传和下载这一种方法,并且效果不是很好。
如果想在IE中直接编辑文档,那也不是可取的办法,比如Word文档在IE里面可以编辑,但是保存回服务器时比较麻烦,同时要求客户端必须安装Office。我劝你没有必要在这方面多费心思浪费时间,你看到有哪个出色系统有这么做的?
如果想在IE中直接编辑文档,那也不是可取的办法,比如Word文档在IE里面可以编辑,但是保存回服务器时比较麻烦,同时要求客户端必须安装Office。我劝你没有必要在这方面多费心思浪费时间,你看到有哪个出色系统有这么做的?
解决方案 »
- 求一个正则表达式!
- 跪求asp.net截取网站指定div标签内容的思想和基本算法代码
- 如何读取应用中子目录中的文件内容
- 如何进行多项目集成打包,生成多个iis虚拟目录???
- 如何指定asp.net 2.0使用iis来调试程序而不是 asp.net development server?
- 各位大哥,帮帮忙,数据绑定问题?
- 200分 征集 点击一个toolbar 上的删除 按钮弹出一个删除确认的对话框
- datalist中的DataItem问题
- asp.net的怪错
- 服务器上发布的网站报网页生成了 过多的重定向错误
- Public Sub Dispose() Implements IDisposable.Dispose这段代码在C#中怎么写?
- 各位好,一个关于DataGrid自动合计的问题!
“客户编辑好以后用客户端的脚本引发回送”:客户端怎么去取得编辑的内容,如文档里的图片方字或者EXCEL里的单元格内容呀?
但这只是一个思路,大家一起讨论!
Imports System.Data
Imports System.Data.SqlClientPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim oexcel As Excel.Application
Dim ebook As Excel.Workbook
Dim esheet As Excel.Worksheet
Dim irow, icol, i, j As Integer
Dim conn, conn_data As SqlConnection
Dim sqlcmd, sqlcmd_data As SqlCommand
Dim rs, rs_data As SqlDataReader
Dim sqlstr As String
Dim fso As System.IO.File
If fso.Exists(Server.MapPath(".") & "\0110.xls") Then
TextBox_row.Text = fso.Exists(Server.MapPath(".") & "\0110.xls")
Exit Sub
End If
oexcel = New Excel.Application
oexcel.Visible = False
ebook = oexcel.Workbooks.Open(Server.MapPath(".") & "\0110.xls") conn = New SqlConnection(Application("sqlstr"))
conn_data = New SqlConnection(Application("sqlstr"))
sqlstr = "select * from XT_RPDS where id='0110'"
sqlcmd = New SqlCommand(sqlstr, conn)
conn.Open()
rs = sqlcmd.ExecuteReader
conn_data.Open() While rs.Read
esheet = ebook.Worksheets.Item(rs("sheetname"))
sqlstr = rs("sqlstr") sqlcmd_data = New SqlCommand(sqlstr, conn_data)
rs_data = sqlcmd_data.ExecuteReader
i = 1
While rs_data.Read
For j = 0 To rs_data.FieldCount - 1
esheet.Cells(i, j + 1) = rs_data(j)
Next
i = i + 1
End While
rs_data.Close()
End While
rs_data.Close()
conn_data.Close()
rs.Close()
conn.Close()
Try
ebook.Save()
Catch objexception As Exception
Response.Write("wrong!")
Response.Write("<hr>")
Response.Write("<li>message:" + objexception.Message)
Response.Write("<li>source:" + objexception.Source)
Response.Write("<li>stack trace:" + objexception.StackTrace)
Response.Write("<li>target site:" + objexception.TargetSite.Name)
End Try
ebook.Close(Nothing, Nothing, Nothing)
oexcel.Workbooks.Close()
oexcel.Quit() System.Runtime.InteropServices.Marshal.ReleaseComObject(esheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(ebook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(oexcel)
esheet = Nothing
ebook = Nothing
oexcel = Nothing
GC.Collect() Response.ContentType = "application/x-msexcel"
Response.Redirect("0110.xls") End Sub
最好不要是商业产品。
我们要的是思路!