3.2远程数据导出
客户端可以通过在HTML文件中嵌入超级链接激活一个ASP文件来实现,代码略。
下面主要介绍ASP文件的实现:
<%
‘指定欲建立的文件
FullPath=Server.MapPath("/gdzcgl/ruanjiangl/backup/dwbak.txt")
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objWriteTS=objFS.CreateTextFile(FullPath,-1,0)
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open"Driver={SQL Server};Server=(Local);UID=sa;PWD=system;DATABASE=pubs;"
’用SQL语句查询欲导出的数据
SQL1="select * from rdw"
Set RS1=Conn.Execute(SQL1)
‘从RecordSet对象中逐条读取数据并写入文件
For i=0 to RS1.Fields.Count-1
objWriteTS.Write(RS1(i).Name)
objWriteTS.Write(" ")
Next
objWriteTS.WriteLine
Do While Not RS1.EOF
For i=0 to RS1.Fields.Count-1
objWriteTS.Write(RS1(i))
objWriteTS.Write(" ")
Next
objWriteTS.WriteLine
RS1.MoveNext
Loop
objWriteTS.Close
RS1.Close
conn.Close
‘通过建立ASPSmartUpload组件的SmartUpload对象,并调用其DownLoadFile方法
‘把建立的文件下载到客户端
Dim MyUpLoad
Set MyUpload = Server.CreateObject("AspSmartUpLoad.SmartUpLoad")
MyUpload.DownloadFile "/gdzcgl/ruanjiangl/backup/dwbak.txt","application/x-zip-compressed" %>
上面的ASP文件的主要处理逻辑如下:
在WEB服务器的指定路径下建立一个文件备写。
连接需要的 SQL 数据库,从指定的表中查询到所需数据
把上面查到的数据库记录逐条写入文件
调用ASPSmartUpload组件的SmartUpload对象的DownloadFile 方法把指定文件下载到客户端
4.总结
上面的远程数据导入、导出技术已经在高校国有资产管理系统中得到很好的应用,现在写出来希望能为我们开发网络资源管理系统中所涉及的数据库问题提供一个解决方案。这种技术较其它方案如通过FTP或邮件等具有可集成性和易使用性,可直接移植到其他WEB应用中而无须重写代码。
作者简介:
华东师范大学教育信息技术学系2000研 上海 200062 wfrsh@163.net
北京化工大学计算机系 102信箱 北京 100029 wenhongonline@263.net
参考文献
[1] 廖信彦,编著.Active Server Page 3彻底研究.北京: 中国铁道出版社,2000年.
[2] 汪晓平等 ASP网络开发技术 北京:人民邮电出版社