📄 upfile.asp
字号:
<!--#include FILE="upload_5xsoft.inc"-->
<!--#include file="../function/tablefunction.asp" -->
<html>
<head>
<title>文件上传</title>
</head>
<body>
<!--#include file="../session.asp" -->
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xSoft ''建立上传对象
formPath="../../IMG/"
iCount=0
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="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
set rs=server.CreateObject("adodb.recordset")
strsql="select * from Img"
rs.open strsql,db,0,2
rs.addnew
rs("ImgTitle")=upload.form("ImgTitle")
rs("image")=formPath&file.filename
rs("ClassName")=upload.form("ClassName")
rs.update
file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件
else
response.end
end if
%>
<table width="100%" border="3" cellpadding="5" cellspacing="5" bordercolor="#182683" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#EDF3FA">
<tr>
<td colspan="2"><div align="center" class="STYLE1" style="color: #FF0000;">发表成功!Very Good!! </div></td>
</tr>
<tr>
<td><div align="center"><a href="Image_add.asp"><strong>继续</strong></a></div></td>
<td><div align="center"><a href="<%=formPath&file.filename%>" target="_blank"><strong>查看</strong></a></div></td>
</tr>
</table>
<%end if
set file=nothing
next
set upload=nothing ''删除此对象
set upload=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -