用(yòng)asp實現的(de)批量生成大(dà)量規律性内容的(de)實現代碼，腳本程序就是爲了(le)簡化(huà)用(yòng)戶輸入，代替人(rén)手操作的(de)，大(dà)家一定要好好利用(yòng)，以下(xià)是上海網站制作公司 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") '水(shuǐ)印圖片路徑
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 '獲取圖片長(cháng)與寬，然後減去對(duì)應logo圖片寬與高(gāo)，固定在圖片右下(xià)角位置
Logo.Quality=100 '不要圖片失真處理(lǐ)
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()
%>
當前頁面執行的(de)時(shí)間：<%=FormatNumber((EndTime - StarTime) * 1000, 3)%>毫秒
asp程序開發
