inputformtodb.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 146 行

ASP
146 行
字号 
<%
Server.ScriptTimeout = 9999
'文件名：inputform.asp
'作者：展亮
'功能：发送公文表单
'参数：form_name'表单名
'开发时间：2003-11-2 20:47
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#INCLUDE FILE="../inc/upload.asp"-->
<%
oabusyname=Session("RealName")
oabusyusername=Session("LoginName")
%>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
 set rs=server.createobject("adodb.recordset")
 sql="select top 1 date_id from workflow_date_id order by date_id desc"
 rs.open sql,oConn,1
 date_id=0
 if not rs.eof and not rs.bof then
  date_id=rs("date_id")
 end if
 rs.close
 set rs=nothing
 date_id=date_id+1
'-------------------------------
	'申明文件上传对象
set upload=new upload_5xSoft

form_name=upload.form("form_name")
for Each formName In upload.form
	dpoint=instr(formName,"@")
	if dpoint>0 then
		content=upload.form(formName)
		form_type=left(formName,dpoint-1)
		datelen=len(formName)
		form_arrno=right(formName,datelen-dpoint)
		sql = "Insert Into workflow_" & form_type & "_content (form_arrno,content,form_name,date_id) Values( "
		sql = sql & "'" & cString(form_arrno) & "', "
		sql = sql & "'" & cString(content) & "', "
		sql = sql & "'" & cString(form_name) & "', "
		sql = sql & date_id & ")"
		oConn.Execute sql
	end if
next
for Each formName In upload.file
	dpoint=instr(formName,"@")
	if dpoint>0 then
		'文件上传处理
		set file=upload.file(formName)
	  	if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
'	  		fdname = year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
			filename = file.FileName
'			fdname = fdname & "." & right(filename,3)
			fbname = filename
			set fs=createobject("scripting.filesystemobject")
			if fs.fileExists(server.mappath("./docu/"&filename))=true then
				response.write "该文件已经存在"
				response.end
			else
				file.SaveAs Server.mappath("docu\"& filename )   ''保存文件
			end if
			set fs=nothing
		end if
		set file=nothing
'		filename=fdname
		form_type=left(formName,dpoint-1)
		datelen=len(formName)
		form_arrno=right(formName,datelen-dpoint)
'		fileContentType=field.ContentType
		set rs=server.createobject("ADODB.recordset")
		sql = "select * from workflow_" & form_type & "_content"
		rs.Open sql,oConn,1,3
		rs.addnew
		rs("form_arrno")=form_arrno
		rs("form_name")=form_name
		rs("date_id")=date_id
		if filename<>"" then
			rs("filename")=filename
'			rs("fileContentType")=fileContentType
		end if
		rs.update
		rs.close
		set rs=nothing
	end if
next
set upload=nothing



sql = "Insert Into workflow_date_id (form_name,date_id,username,name) Values( "
sql = sql &"'"& cString(form_name) & "', "
sql = sql &"'"& date_id & "', "
sql = sql &"'"& cString(oabusyusername) & "', "
sql = sql &"'"& cString(oabusyname) & "')"
oConn.Execute sql

flow_name=formnametoflowname(form_name)
set rs=server.createobject("adodb.recordset")
sql="select flow_no from workflow_flow_construction where flow_name='" & cString(flow_name) & "' and action_type='开始'"
rs.open sql,oConn,1
if not rs.eof and not rs.bof then
	flow_no=rs("flow_no")
end if
rs.close
set rs=nothing
sql = "Insert Into workflow_process_rec (date_id,flow_no,flow_name) Values( "
sql = sql & date_id & ", "
sql = sql & flow_no & ", "
sql = sql &"'"& cString(flow_name) & "')"
oConn.Execute sql
set oConn=nothing
'----------------------------------------
end if
%>



<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/flowstep.css" type=text/css>
<title>main</title>
</head>
<center>
<table>
<tr>
<td>
<b><font color="#3F608F">表单发送</font></b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</td>
<form action="inputform.asp" method="post" name="form1">
<td>
<input type="submit" value="返回">
<input type="hidden" name="form_name" value="<%=form_name%>">
</td>
</form>
</tr>
</table>
</center>
<br><br><br>
<center><font color=red size=3>发送完成！！</font></center>

</html>

inputformtodb.asp - 源码说明

本页面展示了「OFFICE办公自动化」中的 inputformtodb.asp 源码文件，采用 ASP 编程语言编写，共 146 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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