📄 upfile.asp
字号:
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>文件上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<script>
function addPic(url){
parent.document.form1.index_pic.value=url
}
</script>
</head>
<body style="font-size:12px;background: #fffbef;">
<!--#include file="../session.asp" -->
<%
dim upload,file,formName,formPath,iCount,fileext,getFileExt,ext
set upload=new upload_5xSoft ''建立上传对象
formPath="../../linkLogo/"
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
fileext=file.FileName
ext=mid(fileext,InStrRev(fileext, ".")+1)
if ext="jpg" or ext="jpeg" or ext="gif" or ext="png" then
file.FileName=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&Ext
file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件
index_pic=formPath&file.FileName
response.write "<font color=red>首页图片上传成功</font>"
response.write "<a href="&index_pic&" target='_blank'>查看</a> "
response.write "<a href='up_form.html'>重新上传</a>"
strJS="<SCRIPT language=javascript>" & vbcrlf
strJS=strJS & "parent.document.form1.logo.value='" & index_pic & "';" & vbcrlf
strJS=strJS & "</script>"
response.Write strJS
%>
<!--<input name="Submit5" type="button" value="click" onClick="addPic(index_pic);" />-->
<%else
response.end
end if
end if
set file=nothing
next
set upload=nothing ''删除此对象
set upload=nothing
response.end
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -