http://www.ffasp.com/rss/rss.asphttp://www.ffasp.com/content.asp?newsid=1550有用如下Microsoft.XMLHTTP的方法生成静态页面，但此方法有个弊端，在修改数据库内容后立刻调用生成的静态页面读不到最新数据典型的就是在后台修改新闻内容页后，立刻生成修改后的页面，数据不能及时更新。 Mon, 30 Nov 2009 14:09:56 GMThttp://www.ffasp.com/content.asp?newsid=1546Sub EFolder(FolderName) Dim FSO Set FSO=Server.CreateObject("Scripting.FileSystemObject") If Fso.folderexists(Server.MapPath(FolderName)) Then Set FSO=Nothing Exit Sub Else Wed, 18 Nov 2009 13:49:16 GMThttp://www.ffasp.com/content.asp?newsid=1393使用aspjpeg组件给指定图片添加文字水印 '**************************************************** '函数名：WaterMarkFont '作 用：给图片加文字水印 '参 数：ImgUrl 原图地址 ' FontColor 文字颜色 ' FontFamily 文字字体 ' FontSize 文字字号 ' FontBold 文字是否加粗 ' FontPosX 文字定位X ' FontPosY 文字定位Y ' Font 文字内容Fri, 26 Jun 2009 11:14:37 GMThttp://www.ffasp.com/content.asp?newsid=1392使用aspjpeg组件给指定图片添加图片水印 '**************************************************** '函数名：WaterMarkPic '作 用：给图片加图片水印 '参 数：ImgUrl 原图地址 ' LogoUrl Logo原图地址 ' LogoWidth Logo的缩放尺寸 宽度 ' LogoPosX Logo相对于Fri, 26 Jun 2009 10:48:53 GMThttp://www.ffasp.com/content.asp?newsid=1391使用aspjpeg组件生成缩略图 '**************************************************** '函数名：ThumbnailImg '作 用：制作图片的缩略图 '参 数：ImgUrl 原图地址 ' ImgWidth 新图的宽 ' Imgheight 新图的高 ' newImgurl 新图的存放地址 '**************************************************** Sub ThumbnailImg(Imgurl,ImgWidth,ImghFri, 26 Jun 2009 10:47:34 GMThttp://www.ffasp.com/content.asp?newsid=1374Function vbsEscape(str) dim i,s,c,a s="" For i=1 to Len(str) c=Mid(str,i,1) a=ASCW(c) If (a>=48 and a<=57) or (a>=65 and a<=90) or (a>=97 and a<=122) Then s = s & c ElseIf InStr("@*_+-./",c)>0 Then s = s & c ElseIf a>0 and a<16 Then s = s & "%0" & Hex(a) ElseIf Thu, 14 May 2009 15:52:00 GMThttp://www.ffasp.com/content.asp?newsid=1299GetSpecialFolder Method 返回特定的Windows文件夹的路径: Windows安装目录；Windows系统目录；Windows临时目录 FSO.GetSpecialFolder([0, 1, or 2])　 GetTempName Method 返回一个随机产生的文件或者目录名字，用于需要存储临时数据时 GWed, 10 Dec 2008 00:10:48 GMThttp://www.ffasp.com/content.asp?newsid=1298使用fso建立目录的程序，如果有多级目录，则一级一级的创建 '建立目录的程序，如果有多级目录，则一级一级的创建Function CreateDIR(ByVal LocalPath)On Error Resume NextLocalPath = Replace(LocalPath,"\","/")Wed, 10 Dec 2008 00:09:25 GMThttp://www.ffasp.com/content.asp?newsid=1297FSO替换指定文件的字符程序代码：'FSO替换指定文件的字符Function FSOLineEdit(filename,Target,String)Dim objFSO,objCountFile,FiletempDataSet objFSO = Server.CreateObject("Scripting.FileSystemObjeWed, 10 Dec 2008 00:08:49 GMThttp://www.ffasp.com/content.asp?newsid=1296使用fso读文件最后一行 function FSOlastline(filename) dim fso,f,temparray,tempcnt set fso = server.CreateObject("scripting.filesysteWed, 10 Dec 2008 00:07:46 GMT