addfileform.htm

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

HTM
54 行
字号 
<!--#include file="../inc/Secure.htm"-->
<head>
<title>上传附件</title>
</head>
<%
LoginID=trim(session("LoginID"))
if LoginID="" then LoginID=0
if request("cmdDelete")<>"" then
	DeleteOneFile "../File_Up/DocTemp/"& LoginID &"/" &trim(Session("DocAttachFile"))
	Session("DocAttachFile")=""
end if

if Session("DocAttachFile")="" then
%>
	<form name="form1" enctype="multipart/form-data" action="AddFile.htm" method="post">
	<input type="file" name="AttachFile" size=30>
	<input type="Submit" name="cmdUp" value="提 交" onclick="return CheckData();">
	</form>
<%else%>
	<form name="form2" action="AddFileForm.htm" method="post">
	现有附件：<%=Session("DocAttachFile")%>	
	<input type="Submit" name="cmdDelete" value="删  除" onclick="delfile();">
	</form>
<%end if%>

<script language=javascript>
function CheckData()
{
	if(jtrim(document.form1.AttachFile.value)=="")
	{
		alert("请选择上传图片。")
		document.RoomForm.AttachFile.focus();
		return false;
	}
			
	return true;
}
function delfile(){
	self.opener.document.MailForm.attachfile.value='';
}
</script>
<script language=javascript src="../inc/jtrim.js"></script>
<%
sub DeleteOneFile (FilePathName)
	FilePathName=Server.Mappath(FilePathName)
	dim fs
	Set fs = server.CreateObject("Scripting.FileSystemObject")
	if trim(FilePathName)<>"" and fs.FileExists(FilePathName) then 
		fs.DeleteFile FilePathName
	end if
	set fs=nothing	
end sub
%>

addfileform.htm - 源码说明

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

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

⌨️ 快捷键说明

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