fileupload.htm

来自「全方面的OA管理程序代码」· HTM 代码 · 共 65 行

HTM
65 行
字号 
<!--#include file="../inc/Secure.htm"-->
<!--#include file="inc_AspUpload.htm"-->
<!--#include file="Const.htm"-->
<!--#include file="../Inc/Conn.htm"-->

<HTML>
<HEAD>
<TITLE> File System Manager  </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="styles.css">
</HEAD>
<%
dim strFileName, Personalpath
Personalpath=replace(trim(request.QueryString("FileUpFolder")),"'","''")
RootDir=replace(trim(request.QueryString("RootDir")),"'","''")

LoginID=session("LoginID")
if LoginID="" then response.end


if Personalpath = "" then Personalpath = RootDir
FileUpload Personalpath

arrFileName=split(strFileName,",")
'获取数据
strText1=EncriptRequest("Text1")
strText2=EncriptRequest("Text2")
strText3=EncriptRequest("Text3")
dim strText
strText=""
'if strText1<>"" then
	strText=strText& strText1 &","
'end if
'if strText2<>"" then
	strText=strText& strText2 &","
'end if
'if strText3<>"" then
	strText=strText& strText3 &","
'end if
arrText=split(strText,",")

nInt =  ubound(arrFileName)
for i=1 to nInt
	if i<=nInt then
		InsertData LoginID, Personalpath &"/"& arrFileName(i), arrText(i-1)
		response.write "<font color=red> 文件 "& arrFileName(i) &" 上传成功！</font><BR>"
	end if
next

set objUpload = nothing
response.write "<p><a href=FileManager.htm?RootDir="& RootDir &"&nf="& Personalpath &">[返回]</a>"
%>
</HTML>
<%
Sub InsertData(FromID, str1, str2)	 '添加
     sql="insert tblFile (FromID, FilePath,Title) values("& FromID & _
	 ",'" & str1 & _
	 "','" & str2 & _
	 "')"
	 'response.write sql
	 oConn.execute (sql)
End Sub
%>
<!--#include file="../Inc/Conn_Close.htm"-->

fileupload.htm - 源码说明

本页面展示了「全方面的OA管理程序代码」中的 fileupload.htm 源码文件，采用 HTM 编程语言编写，共 65 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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