📄 accessoryfile.asp

📁 OFFICE办公自动化

💻 ASP

字号:

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<html>
<head>
<title>上传附件</title>
<link rel='stylesheet' type='text/css' href='../css/main.css'>
</head>
<body class=tdbottom>
<%
Set FileObj=Server.CreateObject("DBstep.FileUpLoad")'调用上传组件
FileObj.FilePath=Server.MapPath(".") & "/files/"'设置附件上传后存放目录
mName = FileObj.request("Name")
mPid = FileObj.request("Pid")
mExtName = FileObj.ExtName("File1")
mSaveName = DateToStr(now()) & mExtName
'FileStat = FileObj.SaveFile("File1",mSaveName)
FileStat = SaveFile(Server.MapPath(".") & "/files/"&mSaveName,FileObj.FileBody("File1"))
if FileStat=true then
	sql = "INSERT INTO tbioaOffice_Accessory (agreementid,name,filename) VALUES ('"&mPid&"','"&mName&"','"&mSaveName&"')"
	oConn.Execute sql
	response.write "<script language=javascript>alert('上传成功！'); opener.Accessory.location.reload(); window.close()</SCRIPT>"
else
	response.write "<script language=javascript>alert('上传失败！'); history.back()</SCRIPT>"
end if
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -