📄 upfile.asp
字号:
<!--#include FILE="upload_5xsoft.inc"-->
<!--#include file="../function/tablefunction.asp" -->
<html>
<head>
<title>文件上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
</head>
<body style="font-size:12px;">
<!--#include file="../session.asp" -->
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from website"
rs.open sql,db,0,2
'response.write rs("myimg")
dim upload,file,formName,formPath,iCount,fileext,getFileExt,ext
set upload=new upload_5xSoft ''建立上传对象
formPath="/article/indexImgupload/"
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" or ext="PNG" or ext="GIF" or ext="JPG" or ext="JPEG" 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
rs("myimg")=index_pic
rs.update
'response.write index_pic
'response.Redirect "about_me.asp"
rs.close
set rs=nothing
'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>" & vbcrlf
strJS=strJS & "alert('上传文件成功');" & vbcrlf
strJS=strJS & "parent.location.reload()" & vbcrlf
strJS=strJS & "window.close();"& vbcrlf
strJS=strJS & "</SCRIPT>"
response.Write strJS
'session("img")=index_pic
%>
<!--<input name="Submit5" type="button" value="click" onClick="addPic(index_pic);" />-->
<%else
response.end
response.write "格式错误!"
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 + -