📄 file_upload.asp
字号:
<%@ Language=VBScript %>
<%
Response.Buffer=false
Response.Expires=0
%>
<!--#include file="upload.inc"-->
<!-- #include file="../dsn.asp" -->
<%
keyno=Request.QueryString("keyno")
tablename=Request.QueryString("tablename")
pic=Request.QueryString("pic")
picurl=Request.QueryString("picurl")
if keyno="" then
Response.End
else
keyno=cint(keyno)
end if
if pic=0 then
pictxt=""
else
pictxt=cstr(pic)
end if
if picurl="" then
newpicurl=""
else
newpicurl="/"&picurl
end if
set cn=server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.createobject("ADODB.recordset")
set rs2=server.createobject("ADODB.recordset")
set fs=CreateObject("Scripting.FileSystemObject")
htmlname="keyno="&keyno&"&pic="&pic&"&tablename="&tablename&"&picurl="&picurl
method=Request.QueryString("method")
mm=Request.QueryString ("mmm")
if method="del" then
if fs.FileExists(server.MapPath("../upfile"&newpicurl&"/"&filenames)) then '删除文件
fs.DeleteFile(server.MapPath("../upfile"&newpicurl&"/"&filenames))
end if
sqltext="select * from "+tablename+" where id="&keyno '更改数据库表实状态
rs.Open sqltext,cn,1,2
if not rs.EOF then
rs("picname"&pictxt)=""
rs("picflag"&pictxt)=0
end if
rs.Update
rs.Close
end if
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
set upload=new upload_5xSoft
set file=upload.file("filename")
formsize=file.filesize
formsize=request.totalbytes
bz="1"
dim fileclass(6)
fileclass(1)="asp"
fileclass(2)="php"
fileclass(3)="htm"
fileclass(4)="html"
fileclass(5)="jsp"
fileclass(6)="js"
dd=now()
kzname=right(file.filename,3)
baseint=cint(year(dd))+cint(month(dd))+cint(day(dd))+cint(hour(dd))+cint(minute(dd))+cint(second(dd))
randomize baseint
newname=year(dd)&month(dd)&day(dd)&hour(dd)&minute(dd)&second(dd)&cint(10000*rnd+1)&"."&kzname
sqltext="select * from "+tablename+" where id="&keyno
rs.Open sqltext,cn,1,1
if not rs.EOF then
oldname=trim(rs("picname"&pictxt))
end if
rs.Close
if fs.FileExists(server.MapPath("../upfile"&newpicurl&"/"&oldname)) then '删除老文件
fs.DeleteFile (server.MapPath("../upfile"&newpicurl&"/"&oldname))
end if
file.SaveAs Server.mappath("../upfile"&newpicurl&"/"&newname) '文件保存
set self=Request.ServerVariables("script_name")'成功上传的检验
if fs.FileExists(server.MapPath("../upfile"&newpicurl&"/"&newname)) then
else
err=1
sysmess="<b>上传失败！</b>"
end if
sqltext="select * from "+tablename+" where id="&keyno '更改数据库表实状态
rs.Open sqltext,cn,1,2
if not rs.EOF then
rs("picflag"&pictxt)=1
rs("picname"&pictxt)=newname
if pic=2 then
rs("filesize2")=formsize
end if
end if
rs.Update
rs.Close
'Response.Write("<script language=Javascript>")
'Response.Write("window.location.reload();")
'Response.Write("window.close();")
'Response.Write("</script>")
end if
sqltext="select * from "+tablename+" where id="&keyno
rs.Open sqltext,cn,1,1
if not rs.eof then
filenames=rs("picname"&pictxt)
picflag=rs("picflag"&pictxt)
fileflag=rs("fileflag")
if pic=2 then
titletxt=trim(rs("title"))
if rs("filesize2")<>"" then
filesize=cstr(cint(rs("filesize2")/1000))&"K"
end if
end if
end if
rs.Close
if err="" then err=0
if fileflag="" then fileflag=0
%>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000000; font-family: 宋体}
td {font-size: 12px; color: #000000; font-family: 宋体;line-height:130%}
.t1 {font:12px 宋体;color=000000}
.t2 {font:12px 宋体;color:ffffff}
-->
</style>
</head>
<title>文件上传</title>
<body bgcolor="#FF6633" leftmargin="1" topmargin="0" marginwidth="0" marginheight="0">
<form name="form2" enctype="multipart/form-data" action="file_upload.asp?<%=htmlname%>" method="post" onsubmit="return checkform()">
<table width="100%" border="0" height="100%" bgcolor="#FF6633" cellpadding="2" cellspacing="1">
<tr height=2><td></td></tr>
<tr bgcolor="#FFFFFF" align="center">
<td height="290">
<%
if sysmess<>"" then
Response.Write("<font color=red>提示："+sysmess+"</font><br>")
end if
%>
<table>
<%if pic=2 then%>
<%if picflag=1 then%>
<tr align=center><td align=right><font color=red>项目名称：</font></td><td align=left><%=titletxt%></td></tr>
<tr align=center><td align=right>文件大小：</td><td align=left><%=filesize%></td></tr>
<tr align=center><td align=right>文件名：</td><td align=left><%=filenames%></td></tr>
<%end if%>
<%else%>
<tr align=center><td>
<%if picflag=1 and err=0 then%>
<img src="../upfile<%=newpicurl%>/<%=filenames%>">
<%else%>
暂无图片
<%end if%>
</td></tr>
<%end if%>
</table>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<table width="100%" border="0">
<tr align="center">
<td width=100% align=left>
<%if pic<>0 and pic<>2 then%>
<%end if%>
选择图片<input type="file" name="filename" size=18>
<input type="submit" name="Submit" value="上传文件">
<%if picflag=1 then%>
<input type="button" name="delete" value="删除图片" onclick="Javascript:delpic()">
<%else%>
<%end if%>
<%if pic=0 or pic=2 then%>
<input type="button" name="closew" value="关闭窗口" onclick="Javascript:window.top.opener.location.reload();window.close()">
<%end if%>
</td>
</tr>
<tr align="center">
<td height="5"></td>
</tr>
</form>
<%if pic<>0 and pic<>2 then%>
<tr align="center">
<td width=100% align=left>
<iframe name=myview scrolling=auto width=100% height=60 src="pic_edit.asp?<%=htmlname%>&method=<%=method%>" frameborder=0></iframe>
</td>
</tr>
<%end if%>
</table>
</td>
</tr>
</table>
</body>
</html>
<script language=Javascript>
function checkform()
{
var filename
filename=document.form2.filename.value;
if (filename=="")
{ return false}
return true;
}
function delpic()
{
if (confirm('您确认要删除该文件吗？')==true)
{
window.location.href="file_upload.asp?method=del&<%=htmlname%>"
return false;
}
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -