?? upfile1.asp
字號(hào):
<!--#include file=conn.asp-->
<%
set rsmap = Server.CreateObject("ADODB.Recordset")
mapsql = "SELECT * FROM setmap"
rsmap.Open mapsql,conn
FilePath=rsmap("filepath")
FileMaxSize=rsmap("size")
FileType=rsmap("leixin")
fileweb=rsmap("weburl")
nameset =rsmap("nameset")
pathset =rsmap("pathset")
%>
<%
''將當(dāng)前的日期和時(shí)間轉(zhuǎn)為文件名
function makefilename(fname)
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname
end function
%>
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<title>WLONG3D文件上傳系統(tǒng) | http://www.wlong3d.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-size: 9pt}
a { color: #000000; text-decoration: none}
a:hover { text-decoration: underline}
.tx { height: 16px; width: 30px; border-color: black black #000000; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 1px; border-left-width: 0px; font-size: 9pt; background-color: #eeeeee; color: #0000FF}
.bt { font-size: 9pt; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; height: 16px; width: 80px; background-color: #eeeeee; cursor: hand}
.tx1 { height: 20px; width: 30px; font-size: 9pt; border: 1px solid; border-color: black black #000000; color: #0000FF}
-->
</style>
</head>
<body>
<table width="100%" border="1" cellspacing="1" cellpadding="2" bordercolor="#000000">
<tr>
<td>
<div align="center"><br>
<%
dim upload,file,formName,iCount
set upload=new upload_5xSoft ''建立上傳對(duì)象
if Pathset > 0 then ''得到上傳目錄
UpFilePath = upload.form("filepath")
else
UpFilePath = FilePath
''在目錄后加(/)
if right(UpFilePath,1)<>"/" then UpFilePath=UpFilePath&"/"
end if
iCount=0
for each formName in upload.file ''列出所有上傳了的文件
set file=upload.file(formName) ''生成一個(gè)文件對(duì)象
if file.FileSize>0 then ''如果 FileSize > 0 說(shuō)明有文件數(shù)據(jù)
if file.FileSize<FileMaxSize then ''如果未超過(guò)文件大小限制
if FileType<>"" then '如果限制了上傳文件類型
if Instr(FileType,GetExtendName(file.FileName)) then
TypeFlag = 1 '文件為允許的類型
else
TypeFlag = 0 '文件為不允許的類型
Response.write "不支持您所上傳的文件類型："
Response.write GetExtendName(file.FileName)
Response.write "<br>"
end if
else
TypeFlag = 1 '沒(méi)有限制上傳文件類型
end if
if TypeFlag = 1 then
vfname = makefilename(now())
if nameset = 1 then
fname = vfname & iCount & "." & GetExtendName(file.FileName)
elseif nameset =2 then
fname = file.FileName
elseif nameset = 3 then
fname = vfname & iCount & file.FileName
end if
file.SaveAs Server.mappath(UpFilePath&fname) ''保存文件
response.write "你的圖片路徑是"&fileweb&UpFilePath&fname&"<br>"
response.write "<font color=red>該圖片地址已經(jīng)被自動(dòng)復(fù)制到圖片路徑中</font><br>"
response.write "<script>parent.document.forms[0].hw_pic.value='"&fileweb&UpFilePath&fname&"'</script>"
iCount=iCount+1
' fileStr = fileStr & "<img src='pic/addon.gif'><a href='"& UpFilePath&file.FileName&"' target='_blank'>查看上傳的文件：<font color='red'>" & file.FileName &"</font> ("& file.FileSize &" kb)</a><br>"
FileNameStr = UpFilePath&fname
end if
else
response.write "文件大小超出限制，您最多可以上傳 "& FileMaxSize &"個(gè)字節(jié)的文件數(shù)據(jù)"
exit for
end if
end if
set file=nothing
next
set upload=nothing ''刪除此對(duì)象
if iCount>0 then
response.write "<br>成功地上傳了"&iCount&" 個(gè)文件!"
' response.end
else
response.write "<br>上傳文件失敗，請(qǐng)向管理員反應(yīng)!"
' response.end
end if
sub HtmEnd(Msg)
set upload=nothing
end sub
function GetExtendName(FileName)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,3)
ExtName = right(ExtName,3-Instr(ExtName,"."))
GetExtendName = ExtName
end function
%>
</div>
</td>
</tr>
</table>
</body>
</html>
<%
rsmap.Close
set rsmap=nothing
conn.close
set conn=nothing
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -