<%OPTION EXPLICIT%>
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上传</title>
<style type="text/css">
<!--
td { font-size: 12px; line-height: 17px }
body { font-size: 12px; line-height: 17px }
p { margin-top: 1; margin-bottom: 1 }
a:link { text-decoration: none; color: black }
a:visited { text-decoration: none; color: black }
a:hover { text-decoration: underline; color: red }
-->
</style>
</head>
<body>
<%
Server.ScriptTimeout=9000
dim upload,file,formName,formPath,iCount,nn,nn1
set upload=new upload_5xSoft ''建立上传对象
response.write upload.Version&"<br><br>" ''显示上传类的版本
formPath="/productpic"
''在目录后加(/)
if right(formPath,1)<>"/" then
formPath=formPath&"/"
end if
iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
nn=Lcase(right(file.FileName,4))
if instr(nn,"jpg")=0 and instr(nn,"gif")=0 then
response.Write "<script>alert('文件类型错误,只能为.jpg\.gif类型的文件!');history.back(1);</script>"
response.end
end if
if file.FileSize>5000000 then '文件大小
response.Write "<script>alert('文件大小超出限制性!');history.back(1);</script>"
response.end
end if
nn1=now()
nn1=replace(nn1," ","")
nn1=replace(nn1,":","")
nn1=replace(nn1,"-","")
file.SaveAs Server.mappath(formPath&nn1&nn) ''保存文件
iCount=iCount+1
end if
set file=nothing
next
set upload=nothing ''删除此对象
%>
<%
Dim Jpeg
' 建立实例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 打开目标图片
Jpeg.Open Server.MapPath(formPath&nn1&nn)
' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000' 红色
Jpeg.Canvas.Font.Family = "宋体"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, "Copyright (c) Cnmaya.org"
' 保存文件
Jpeg.Save Server.MapPath(formPath&nn1&nn)
' 注销对象
Set Jpeg = Nothing
response.write "<script>window.opener.document.myform.productpic.value='"&formPath&nn1&nn&"'</script>"
%>
<script language="javascript">
window.alert("文件上传成功!请不要修改生成的链接地址！");
window.close();
</script>
</body>
</html>
waimao.zip_公司网站
版权申诉
164 浏览量
2022-09-23
00:35:46
上传
评论
收藏 16.82MB ZIP 举报
waimao.zip_公司网站 （1468个子文件） 
listuser.asp 16KB listuser.asp 16KB viewdingdan.asp 15KB viewdingdan.asp 15KB feedback.asp 14KB feedback.asp 14KB feedback.asp 14KB feedback.asp 14KB editdingdan.asp 14KB editdingdan.asp 14KB manageproduct.asp 13KB manageproduct.asp 13KB aspcheck.asp 12KB aspcheck.asp 12KB index.asp 12KB index.asp 12KB zhuantiedit.asp 12KB zhuantiedit.asp 12KB index.asp 12KB index.asp 12KB md5.asp 11KB md5.asp 11KB md5.asp 11KB md5.asp 11KB md5.asp 11KB md5.asp 11KB research.asp 11KB research.asp 11KB managezhuanti.asp 11KB managezhuanti.asp 11KB research.asp 11KB research.asp 11KB fangshi.asp 10KB fangshi.asp 10KB editxx.asp 10KB editxx.asp 10KB zhuantiAdd.asp 9KB zhuantiAdd.asp 9KB managepinglun.asp 9KB managepinglun.asp 9KB fklist.asp 9KB fklist.asp 9KB webconfig.asp 9KB webconfig.asp 9KB admin.asp 8KB admin.asp 8KB manageuser.asp 8KB manageuser.asp 8KB managejiangpin.asp 8KB managejiangpin.asp 8KB manageshjia.asp 8KB manageshjia.asp 8KB ewebeditor.asp 8KB ewebeditor.asp 8KB editproduct.asp 8KB editproduct.asp 8KB editnews.asp 8KB editnews.asp 8KB top.asp 7KB top.asp 7KB news.asp 7KB news.asp 7KB top.asp 7KB top.asp 7KB news.asp 7KB news.asp 7KB toushu.asp 7KB toushu.asp 7KB addproduct.asp 7KB addproduct.asp 7KB editfile.asp 7KB editfile.asp 7KB listshj.asp 7KB listshj.asp 7KB guanggao.asp 7KB guanggao.asp 7KB addnews.asp 7KB addnews.asp 7KB products.asp 6KB products.asp 6KB products.asp 6KB products.asp 6KB editjiangpin.asp 6KB editjiangpin.asp 6KB order1.asp 6KB order1.asp 6KB menu.asp 6KB menu.asp 6KB 复件 (2) menu.asp 6KB 复件 (2) menu.asp 6KB include.asp 6KB include.asp 6KB upload.asp 6KB upload.asp 6KB startup.asp 6KB startup.asp 6KB sysset_fudong.asp 6KB sysset_fudong.asp 6KB toushuedit.asp 5KB toushuedit.asp 5KB共 1468 条
- 1
- 2
- 3
- 4
- 5
- 6
- 15
资源评论
