📄 template_step.inc.bak
字号:
End If
sTemp = sTemp & _
"<span id=btnMod style=""cursor:hand"" title=""修改制度名称，点击更新按钮""><img border=0 src=""../images/button/update.gif"" style=""vertical-align:bottom""></span>" & _
" " & _
"<span id=btnDel style=""cursor:hand"" title=""点击删除按钮删除制度名称""><img border=0 src=""../images/button/delete.gif"" style=""vertical-align:bottom""></span>" & _
" " & _
"<span id=btnRes style=""cursor:hand"" title=""重置""><img border=0 src=""../images/button/reset.gif"" style=""vertical-align:bottom""></span>" & _
" " & _
"<span id=btnCancel style=""cursor:hand"" title=""取消""><img border=0 src=""../images/button/cancel.gif"" style=""vertical-align:bottom""></span>"
NoField="序 号：<input type=text name=newno value='"& sNo & "' readonly style=""text-align:right"" size=8>"
end if
NoField = NoField & "<br><br><font color=darkgreen>[注：添加的步骤在选定的步骤序号之后]</i></font>"
sTemp = sTemp & "</td></tr></table></td>"
'----------------------------------------------------
' draw add table and return
'----------------------------------------------------
TableAdd = _
TableTitle("流程模板步骤信息", 300, "", "") & _
"<table cellspacing=20 cellpadding=0 width=300 align=left border=0>" & _
"<form name=frmInfoMgr method=post action=""template_step.asp"">" & _
"<tr height=60 valign=center>" & _
" <td width=300 align=left colspan=3>" & _
NoField &_
" <BR><BR>审批人：<select name=""newleader"" style=""width:130px"">" & _
SelectOptions(dbLocal,"v_user_account","account_id","account_name",sLeader,"") & _
" </select>" & _
" <BR><BR>操 作：<select name=""newoperation"" style=""width:130px"">" & _
SelectOptions(dbLocal,"t_step_operation","operation_id","operation_name",sOperation,"") & _
" </select>" & _
" <BR><BR>描 述：<input type=text name=""newdesc"" value='" & sDesc & "' maxlength=128>" & _
" <input type=hidden name=sid value='" & sid & "'>" & _
" <input type=hidden name=tid value='" & tid & "'>" & _
" <input type=hidden name=formAction>" & _
" </td>" & _
" </tr>" & _
"<tr height=40 align=center>" & _
sTemp & _
"</tr>" & _
"<tr height=10><td colspan=3 width=300> </td></tr>" & _
"</form>" & _
"</table>"
End Function
'***************************************************************************************************
'***************************************************************************************************
' Name : TableHeader
' Function : Table head for Record Table
' In : No
' Out : No
' Return : Table head of table record
' Comment : No
'
'---------------------------------------------------------------------------------------------------
Function TableHeader()
sFileName = "template_step.asp"
TableHeader = _
TableTitle("该流程模板步骤列表", 300, "", "#0040a0") & _
"<table cellspacing=0 cellpadding=0 width=300 align=center class=tablelist>" & _
"<tr>" & _
"<td class=tdHead align=center width=120> " & TableHeaderField(sFileName, "step_no", "步骤序号", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead align=center width=120> " & TableHeaderField(sFileName, "account_name", "审批人", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead align=center width=60> " & TableHeaderField(sFileName, "operation_name", "操作", sFormParams, iSort, iSorted) & "</td>" & _
"</tr>"
End Function
'***************************************************************************************************
'***************************************************************************************************
' Name : TableRecords
' Function : Table List the Records
' In : 9 parameters
' sSQL --- sql statement
' iCols --- columns
' iRecordsPerPage --- records per page
' iTotalRecords --- total records
' iCurrentPage --- current page
' iTotalPages --- total pages
' sFileName --- file name
' sFormParams --- form parameters
' sSortParam --- sort parameters
' Out : No
' Return : Table head of table record
' Comment : No
'
'---------------------------------------------------------------------------------------------------
Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
'-------------------------------------------------------------
' declares
'-------------------------------------------------------------
Dim sTemp : sTemp = "" ' 临时字符串变量
Dim j ' 临时循环变量
'------------------------------------
' 分页所需的变量定义
'------------------------------------
Dim iCounter : iCounter = 1
Dim iPrevPage, iNextPage
'-----------------------------------
' 获取数据库连接
'------------------------------------
dim crs : set crs = New CRecordset
dim rs : set rs = crs.open(dbLocal,sSQL)
dim sDocSubject, sDocId, sDocSender, sDocSentDate,sDocType
Dim tid,sid
Dim sNo,sLeader,sOperation,sDesc,sTemplateId,sStepId
'--------------------------------------------------
' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
'--------------------------------------------------
if Not rs.EOF then
rs.Move (iCurrentPage - 1) * iRecordsPerPage
end if
'--------------------------------------------------
' write the record list table
'--------------------------------------------------
while not rs.EOF and iCounter <= iRecordsPerPage
sNo = crs.GetValue("step_no")
sLeader = crs.GetValue("account_name")
sOperation = crs.GetValue("operation_name")
sStepId = crs.GetValue("step_id")
sTemplateId = crs.GetValue("template_id")
sTemp = sTemp & "<tr valign=center>" & _
"<td class=tdlist width=120 style=""cursor:hand"" onclick=""javascript:location.href='../flowmgr/template_step.asp?tid=" & sTemplateId & "&sid="& sStepId &"';""><img src=""../images/bg/ar-g.gif"" width=8 height=8>第" & sNo & "步</td>" & _
"<td class=tdlist align=center width=120 title='" & sLeader & "' >" & sLeader & " </td>" & _
"<td class=tdlist align=center width=60 title='" & sOperation & "' >" & sOperation & " </td>" & _
"</tr>"
iCounter = iCounter + 1
rs.movenext
wend
crs.Close()
'--------------------------------------------------
' 填补空白行
'--------------------------------------------------
sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)
'--------------------------------------------------
' 首页、前页、后页、尾页等分页信息
'--------------------------------------------------
sTemp = sTemp & "<tr><td class=tdlist colspan=" & iCols & " align=right>" & _
Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
" </td></tr>"
'--------------------------------------------------
' Returns
'--------------------------------------------------
TableRecords = sTemp
End Function
'***************************************************************************************************
'***************************************************************************************************
' Name : TableLink
' Function : Table Show the Search records detail
' In : No
' Out : No
' Return : Table of record detail
' Comment : No
'
'---------------------------------------------------------------------------------------------------
Function TableLink()
'-----------------------------------------------------
' declares and get parameter
'-----------------------------------------------------
Dim id : id = GetParam("id")
Dim path
Dim links
'-----------------------------------------------------
' Connect to Database
'-----------------------------------------------------
dim crs : set crs = New CRecordset
dim sSQL : sSQL = "select doc_path from T_Document where doc_id=" & ToSQL(id, "Number")
dim rs : set rs = crs.open(dbLocal,sSQL)
path = crs.GetValue("doc_path")
crs.Close()
'--------------------------------------------------
' Construct the link string
'--------------------------------------------------
If IsEmpty(id) Then
'------------------------------------------
' hide the Browse and Upload links
'------------------------------------------
links = ""
Else
'------------------------------------------
' show the Browse and Upload links
'------------------------------------------
links = _
" " & _
" <img src=""../images/goto.gif"" > <a href='infomgr_a.asp?did=" & id & "'>公文附件管理</a>" & _
" " & _
" <img src=""../images/goto.gif"" > <a href='filemgr.asp?id=" & id & "'>公文文件上载</a>" & _
" " & _
" <img src=""../images/goto.gif"" > <a href='submit.asp?id=" & id & "'>公文提交审批</a>"
If path <> "" Then
links = links & " " & _
" <img src=""../images/goto.gif"" > <a href='" & path & "'>公文文件阅读</a>"
End If
End If
'--------------------------------------------------
' Return the table of links
'--------------------------------------------------
TableLink = _
"<table width=600 cellspacing=0 cellpadding=0 border=0 align=left>" & _
"<tr height=10>" & _
" <td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
"</tr>" & _
"<tr height=20 align=left>" & _
" <td width=600 align=left> " & _
" <img src=""../images/goto.gif"" > <a href=""template.asp"">流程模板管理</a>" & _
" <img src=""../images/goto.gif"" > <a href=""flow.asp"">流程管理</a>" & _
" <img src=""../images/goto.gif"" > <a href=""sign.asp"">审批管理</a>" & _
" </td>" & _
"</tr>" & _
"</table>"
End Function
'***************************************************************************************************
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -