用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程序开发
