按月存档: 06月 2007

如何用asp读取Excel文件

1.ASP对Excel的基本操作(1) 建立Excel对象    创建Excel对象可以通过下面的代码来实现:<%set objExcelApp = CreateObject("Excel.Application")objExcelApp.DisplayAlerts = false               ’不显示警告objExcelApp.Application   = false               ’不显示界面%>(2) 新建Excel文件    新建Excel文件可以通过以下代码来实现:<%objExcelApp.WorkBooks.addset objExcelBook   = objExcelApp.ActiveWorkBookset objExcelSheets = objExcelBook.Worksheetsset objExcelSheet  = objExcelBook.Sheets(1)%>(3) 读取已有的Excel文件    读取已有的Excel文件可以通过下面的代码来实现        <%strAddr = Server.MapPath(".")objExcelApp.WorkBooks.Open(strAddr & "TempletTable.xls")set objExcelBook   = objExcelApp.ActiveWorkBookset objExcelSheets = objExcelBook.Worksheetsset objExcelSheet  = objExcelBook.WorkSheets(1)%>(4) 另存Excel文件    另存Excel文件可以通过以下代码来实现<%objExcelBook.SaveAs strAddr & "templateTables.xls"%>(5) 保存Excel文件    保存Excel文件可以通过以下代码来实现:<%objExcelBook.Save %>        (6) 退出Excel操作<%objExcelApp.Quit         ’一定要退出set objExcelApp = nothing%>
2 读取Excel文件的实例

实现图片上传并存入数据库中

用ＡＳＰ编写网站应用程序时间长了，难免会遇到各式各样的问题，其中 关于如何上传文件到服务器恐怕是遇见最多的问题了，尤其是上传图片，比如 你想要在自己的社区里面实现类似网易虚拟社区提供的“每日一星”的功能， 就要提供给网友上传照片的功能。上传图片文件到服务器可以使用各种免费的 文件上传组件，使用起来功能虽然很强大，但是由于很多情况下，我们只能使 用免费的支持ＡＳＰ的空间或者租用别人的虚拟空间，对于第一种情况，我们 根本就没有可能来使用文件上传组件；至于第二种情况，我们也要付出不少的 “银子”才可以。除非你拥有自己的虚拟主机，你就可以随便的在服务器上面 安装自己所需要的组件，这种情况对于大多数人来说是可望而不可及的。那我 们就没有办法了吗？呵呵，答案是肯定的（当然是肯定的了，要不然我也没法 写出这篇文章啊）。下面就让我们一起来使用纯ＡＳＰ代码来实现图片的上传 以及保存到数据库的功能（顺便也实现显示数据库中的图片到网页上的功 能）。 首先我们先来熟悉一下将要使用的对象方法。我们用来获取上一个页面传 递过来的数据一般是使用Request对象。同样的，我们也可以使用Request对象 来获取上传上来的文件数据，使用的方法是Request.BinaryRead()。而我们要从 数据库中读出来图片的数据显示到网页上面要用到的方法是： Request.BinaryWrite()。在我们得到了图片的数据，要保存到数据库中的时候， 不可以直接使用Insert语句对数据库进行操作，而是要使用ADO的 AppendChunk方法，同样的，读出数据库中的图片数据，要使用GetChunk方 法。各个方法的具体语法如下： * Request.BinaryRead语法：

asp读取文本文件函数fso和ado.stream两种方法

1、FSO读取文本文件的函数！<% Function  prtFiles(mPath,  fName,fPath) mPath指定相对路径 fName指定文件名（含扩展名） fPath指定目录 Dim  fs2,  f2 Set  fs2=Server.CreateObject("Scripting.FileSystemObject") fPath  =  Server.MapPath(mPath)&  "\"   fPath  =  fPath  &  fName Set  f2  =  fs2.OpenTextFile(fPath,1,true) prtFiles  =  f2.ReadAll Set  fs2  =  NothingEnd  Function %>比如我要输出当前目录的上级目录INC目录下的222.js文件的内容，那么asp就写成Response.write(prtFiles("../inc","222.js",""))
2、用ADODB.Stream读取文本文件