file_add.asp

来自「现在的病毒是越来越多了,几乎每上一回电脑都要杀毒,所以杀毒软件是必不可少的」· ASP 代码 · 共 71 行

ASP
71 行
字号 
<!--#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()'>"&"&nbsp;"&"<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>

file_add.asp - 源码说明

本页面展示了「现在的病毒是越来越多了,几乎每上一回电脑都要杀毒,所以杀毒软件是必不可少的」中的 file_add.asp 源码文件，采用 ASP 编程语言编写，共 71 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与病毒相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?