📄 file_add.asp
字号:
<!--#INCLUDE FILE="sysinc.asp" -->
<%Language=VBScript%>
<html>
<head>
<LINK href="../style.css" rel=stylesheet>
<title>文件上传</title>
</head>
<body bgcolor="#66CCFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<br>
<br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%
Dim objTool 'Dimension object variable
'Create and initialize the Upload object
Set objTool = Server.CreateObject("ASPSoft.Upload")
'Itemize the values in the Form collection
'Itemize the properties for the file browse form item
'response.write (objtool.form(190))
'Save the uploaded file to disk if one was selected
strFileName = objTool.Form("file1").Properties("SourceFileName")
If Len(strFileName) > 0 Then
sqlstr = "Select * FROM 文件信息"
my_rs.Open sqlstr,my_Conn,1,3
my_rs.Addnew
filename=objTool.Form("file1").Properties("SourceFileName")
my_rs("文件名")=filename
my_rs("文件大小")=objTool.Form("file1").Properties("Filesize")
my_rs("上传人")=session("Username")
my_rs("文件描述")=objTool.Form("textarea1")
my_rs.update
my_rs.close
set my_rs=nothing
ff=server.mappath("downupfile")
objTool.Form("file1").SaveToFile ff&"\", CStr(strFileName), True
Response.Write "文件上传成功！！"
Else
Response.Write("没有文件上传！！")
End If
response.write "<input type='button' value='返回' name='B2' class='buttonface' onclick='javascript:history.back()'>"&" "&"<input type='button' value='关闭窗口' name='B2' class='buttonface' onclick='javascript:self.close()'>"
%>
</td>
</tr>
</table>
<%
set my_rs=server.createobject("adodb.recordset")
sqlstr="select * from 系统日志信息"
my_rs.open sqlstr,my_Conn,1,3
my_rs.addnew
my_rs("使用者名称")=session("username")
my_rs("所做事件")="上传文件，文件名是"&filename
my_rs.update
my_rs.close
%>
</body>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -