上传页代码：
"/"thenSavePath=SavePath&"/"'在目录后加(/)
%>
(MaxFileSize*1024)then
msg="文件大小超过了限制，最大只能上传"&CStr(MaxFileSize)&"K的文件！"
founderr=true
endif
fileExt=lcase(file.FileExt)
Forumupload=split(UpFileType,"|")
fori=0toubound(Forumupload)
EnableUpload=false
iffileEXT=trim(Forumupload(i))then
EnableUpload=true
exitfor
endif
next
iffileEXT="asp"orfileEXT="asa"orfileEXT="aspx"orfileEXT="cer"orfileEXT="cdx"then
EnableUpload=false
endif
ifEnableUpload=falsethen
msg="这种文件类型不允许上传！\n\n只允许上传这几种文件类型："&UpFileType
founderr=true
endif
strJS=""
response.writestrJS
setfile=nothing
next
setupload=nothing
endsub
%>
水印代码：
PrivateSubOk3w_AspJpeg(FileExtPath)
DimBG_File,BG,BG_W,BG_H,x,y,logo,logo_w,logo_h
BG_File=FileExtPath
Ifrs9("whzwhzType")0Then
SetBG=Server.CreateObject("Persits.Jpeg")
BG.OpenBG_File
BG_W=BG.Width
BG_H=BG.Height
Ifrs9("whzwhzType")=1Then
BG.Canvas.Font.Color="&H"&rs9("whzwhz005")
BG.Canvas.Font.ShadowColor=&HFFFFFF
BG.Canvas.Font.Family=rs9("whzwhz003")
BG.Canvas.Font.Size=rs9("whzwhz004")
BG.Canvas.Font.Bold=False
BG.Canvas.Font.Quality=3
SelectCasers9("whzwhz001")
Case0
x=20:y=20
Case1
x=BG_W-Len(rs9("whzwhz002"))*20:y=20
Case2
x=20:y=BG_H-20
Case3
x=BG_W-Len(rs9("whzwhz002"))*20:y=BG_H-20*2
Case4
x=BG_W\2-Len(rs9("whzwhz002"))*20\2:y=BG_H\2-20*2
EndSelect
BG.Canvas.PrintTextx,y,rs9("whzwhz002")
EndIf
Ifrs9("whzwhzType")=2Then
Setlogo=Server.CreateObject("Persits.Jpeg")
logo.OpenServer.MapPath(rs9("whzwhz006"))
logo_w=logo.Width
logo_h=logo.Height
SelectCasers9("whzwhz001")
Case0
x=20:y=20
Case1
x=BG_W-logo_w-20:y=20
Case2
x=20:y=logo_h-20
Case3
x=BG_W-logo_w-20:y=BG_H-logo_h-20
Case4
x=BG_W\2-logo_w\2:y=BG_H\2-logo_h-20
EndSelect
BG.DrawImagex,y,logo,0.8,&HFFFFFF
Setlogo=Nothing
EndIf
BG.Quality=85
BG.SaveBG_File
SetBG=Nothing
EndIf
EndSub
分 -->
|
