inputform.asp

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

ASP
65 行
字号 
<%
'文件名：inputform.asp
'作者：展亮
'功能：新建公文
'参数：form_name'表单名
'开发时间：2003-11-2 17:25
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="../asp/displayform.asp"-->
<%
'-----------------------------------------------------
%>

<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>
<%
form_name=request("form_name")
submit=request("submit")
%>
<table>
<tr>
<td><b><%=form_name%></b></td>
</tr>
</table>
</center>
<br>
<center>


  <form action="inputformtodb.asp" method="post" enctype="multipart/form-data" name="eventfrm" id="eventfrm">
  <input type="hidden" name="form_name" value="<%=form_name%>">
    <table border="0"  cellspacing="2" cellpadding="3">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from workflow_form_construction where form_name='" & cString(form_name) & "' order by form_arrno"
rs.open sql,oConn,1
while not rs.eof and not rs.bof
%>
<tr>
        <td height=30 align=center class="td3"> <b><%=rs("form_title")%></b> </td>
        <td valign="top" class="td2"> 
          <%
call displayform(rs("form_type"),rs("form_len"),rs("form_arrno"),rs("form_remark"),rs("form_bak"))
%>
        </td>
</tr>
<%
rs.movenext
wend
rs.close
set rs=nothing
set conn=nothing
%>
</table>
<input type="submit" name="submit" value="确定">
</form>
</center>
</body></html>

inputform.asp - 源码说明

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

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

⌨️ 快捷键说明

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