建站常识

用asp实现的批量生成大量规律性内容的实现代码，脚本程序就是为了简化用户输入，代替人手操作的，大家一定要好好利用，以下是上海网站制作公司 www.021jz.com.cn 提供技术支持

<%

Dim StarTime

StarTime = Timer()

Dim objFSO,objFolder,objFile,FF

FF = Server.MapPath("UploadFile/image/")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(ff) Then

Set objFolder = objFSO.GetFolder(ff)

For Each subFolder in objFolder.SubFolders

For Each objFile in subFolder.Files

strFile=right(objFile,len(objFile)-instr(objFile,"\UploadFile\image\")-0)

Set Photo = Server.CreateObject("Persits.Jpeg")

PhotoPath = Server.MapPath("\img\logosy.png")       '水印图片路径

Photo.Open PhotoPath                              

Set Logo = Server.CreateObject("Persits.Jpeg")

LogoPath = Server.MapPath(strFile)                  '获取图片路径

Logo.Open LogoPath

Logo.DrawImage Logo.Width-170, Logo.Height-30, Photo  '获取图片长与宽，然后减去对应logo图片宽与高，固定在图片右下角位置

Logo.Quality=100 '不要图片失真处理

Logo.Save Server.mappath(strFile)   '替换原始图片并保存

Set Logo = Nothing  

Next

Next

Else

Response.Write "文件夹"&ff&"不存在，无法读取相关信息！"

End If

Set objFolder = Nothing

Set objFSO = Nothing

Dim EndTime

EndTime = Timer()

%>

当前页面执行的时间：<%=FormatNumber((EndTime - StarTime) * 1000, 3)%>毫秒

asp程序开发