📄 elist.inc
字号:
<%
Dim gSid : gSid = GetParam("id")
'************************************************************************************************
' 函数名 : TableHeader()
' 输 入 :
' 输 出 : 一个用于显示角色列表的表头
' 功能描述:
' 调用模块: list_role.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-08-01
' 版 本 :
'************************************************************************************************
Function TableHeader()
Response.Write TableTitle("设备列表", 600, "", "#0040a0")
TableHeader = _
"<table cellspacing=1 cellpadding=3 width=600 align=center style=""table-layout:fixed"" bgcolor=""silver"">" & _
"<tr bgcolor=""#eeeeee"">" & _
"<td class=tdHead width=100 align=center>设备编号</td>" & _
"<td class=tdHead width=100 align=center>设备名称</td>" & _
"<td class=tdHead width=80 align=center>设备型号</td>" & _
"<td class=tdHead width=80 align=center>设备维护</td>" & _
"<td class=tdHead width=80 align=center>人事管理</td>" & _
"<td class=tdHead width=80 align=center>工作单管理</td>" & _
"<td class=tdHead width=""*"" align=center>设备管理</td>" & _
"</tr>"
End Function
'************************************************************************************************
' 函数名 : TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages,
' sFileName, sFormParams, sSortParams)
' 输 入 : 查询语句，栏目数量，每页记录条数，总记录条数，当前页码，总页数，文件名，查询表单参数，排序参数
' 输 出 : 显示待审批的会议列表
' 功能描述: 根据输入参数，显示相应的结果
' 调用模块: list_role.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-07-11
' 版 本 :
'************************************************************************************************
Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
dim sTemp : sTemp = "" ' 临时字符串变量
dim j ' 临时循环变量
'------------------------------------
' 分页所需的变量定义
'------------------------------------
Dim iCounter : iCounter = 1
Dim iPrevPage, iNextPage
'------------------------------------
' 获取数据库连接
'------------------------------------
dim rs : set rs = openRS(conn,sSQL)
dim iRole_id, sRole_desp,iRcustomer,iRstock,iRpurchase,iRhr,iRworksheet,iRequipment
' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
if Not rs.EOF then
rs.Move (iCurrentPage - 1) * iRecordsPerPage
end if
while not rs.EOF and iCounter <= iRecordsPerPage
iRole_id = GetValue(rs,"role_id")
sRole_desp = GetValue(rs,"role_desp")
iRcustomer=GetValue(rs,"customer_right")
iRstock=GetValue(rs,"stock_right")
iRpurchase=GetValue(rs,"purchase_right")
iRhr=GetValue(rs,"hr_right")
iRworksheet=GetValue(rs,"worksheet_right")
iRequipment=GetValue(rs,"equipment_right")
sTemp = sTemp & "<tr bgcolor=white>" & _
"<td style=""cursor:hand;color:blue;"" align=left nowrap title=""" & Tohtml(iRole_id) & """ ><a href=""newrole.asp?roleid=" & iRole_id &""" ><img border=0 src=""../images/bg/ar-g.gif"" width=8 height=8> " & ToHTML(sRole_desp) & "</a> </td>" & _
"<td align=left title=""customer_right"" nowrap> " & ToRightDesp(iRcustomer) & " </td>" & _
"<td align=left title=""stock_right"" nowrap> " & ToRightDesp(iRstock) & " </td>" & _
"<td align=left title=""purchase_right"" nowrap> " & ToRightDesp(iRpurchase) & " </td>" & _
"<td align=left title=""hr_right"" nowrap> " & ToRightDesp(iRhr) & " </td>" & _
"<td align=left title=""worksheet_right"" nowrap> " & ToRightDesp(iRworksheet) & " </td>" & _
"<td align=left title=""equipment_right"" nowrap> " & ToRightDesp(iRequipment) & " </td>" & _
"</tr>"
iCounter = iCounter + 1
rs.movenext
wend
CloseRS(rs)
' 填补空白行
sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)
' 首页、前页、后页、尾页等分页信息
sTemp = sTemp & "<tr bgcolor=white><td class=tdlist colspan=" & iCols & " align=right>" & _
Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
" </td></tr>"
TableRecords = sTemp&"</table>"
End Function
'************************************************************************************************
' 函数名 : TableLink()
' 输 入 :
' 输 出 :
' 功能描述: 角色管理相关连接
' 调用模块: list_role.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-08-01
' 版 本 :
'************************************************************************************************
Function TableLink()
TableLink = _
"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & _
"<tr height=30>" & _
" <td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
"</tr>" & _
"<tr height=30>" & _
" <td width=600> " & _
" <img src=""../images/goto.gif"" width=11 height=11> <a href=""newrole.asp"">新增角色</a>" & _
" " & _
" <img src=""../images/goto.gif"" width=11 height=11> <a href=""list_role.asp"">角色列表</a></td>" & _
"</tr>" & _
"</table>"
End Function
Function FormHead()
dim s : s=""
s = s & "<form method=post name=frmMgr action=""eaddeq.asp"">" & vbLF
s = s & "<input type=""hidden"" name=""FormAction"">" & vbLF
s = s & "<input type=""hidden"" name=""id"" value=""" & gSid & """>" & vbLF
s = s & "<input type=""hidden"" name=""eid"" value=""" & gEid & """>" & vbLF
s = s & "<input type=""hidden"" name=""pid"" value=""" & gPid & """>" & vbLF
FormHead = s
End Function
Function TitleTable()
dim sTitle
sTitle = "系统设备列表"
TitleTable= wtba(wra(wda(sTitle)))
End Function
Function ToolTable()
dim sActionLinks
sActionLinks = "Tooltable"
ToolTable = wtba(sActionLinks)
End Function
Function ListTable()
dim rs
dim en,ev,ee(2)
dim sql
dim i
dim lt
dim s1,s2,s3
s1 = ""
s2 = ""
s3 = ""
en = Array("设备编号","设备名称","设备型号")
ev = Array("number","name","model")
for each i in en
s1 = s1 & wda(i)
Next
s1 = s1 & wda("维护")
s1 = s1 & wda("更换")
s1 = s1 & wda("增加子设备")
s1 = wra(s1)
sql = "select * from t_equipment where sys_id=" & gSid
' ww sql
set rs = openrs(conn,sql)
While Not rs.eof
'no row matched
s2 = ""
for i = 0 to 2
ee(i) = GetValue(rs,ev(i))
s2 = s2 & wda(ee(i))
Next
s2 = s2 & wda("<a href=./eaddeq.asp?id="& gSid & "&eid="& Getvalue(rs,"equi_id")& ">－></a>")
s2 = wra(s2)
s3 = s3 & s2
' ww "/*"& s3 & "*/"
rs.movenext
Wend
closers(rs)
s3 = wtba(s1 & s3)
'display list
ListTable = "<center>" & TitleTable &"<BR>"& s3 &"<BR>"& ToolTable
End Function
Function InsertTable()
dim ft 'organize a formtable
dim de ' delimit
dim s1,s2
dim r,c,i,j
dim ev1(18)
ev1(1)="<INPUT TYPE=""text"" NAME="& ev(1) &" maxlength=20>"
ev1(2)="<INPUT TYPE=""text"" NAME="& ev(2) &" maxlength=20>"
ev1(3)="<SELECT NAME="& ev(3) &">" & SelectOptions(conn, "select * from t_equipment_type", "type_id", "type_desc", "")&"</SELECT>"
ev1(4)="<SELECT NAME="& ev(4) &">" & SelectOptions(conn, "select * from t_node", "node_id", "node_desp", "")&"</SELECT>"
ev1(5)="<INPUT TYPE=""text"" NAME="& ev(5) &" maxlength=20>"
ev1(6)="<INPUT TYPE=""text"" NAME="& ev(6) &" maxlength=20>"
ev1(7)="<INPUT TYPE=""text"" NAME="& ev(7) &" maxlength=20>"
ev1(8)=DrawCal("", Date, ev(8), "img8")
ev1(9)="<INPUT TYPE=""text"" NAME="& ev(9) &" maxlength=20>"
ev1(10)="<INPUT TYPE=""text"" NAME="& ev(10) &" maxlength=20>"
ev1(11)=DrawCal("", Date, ev(11), "img11")
ev1(12)="<INPUT TYPE=""text"" NAME="& ev(12) &" maxlength=20>"
ev1(13)="<INPUT TYPE=""text"" NAME="& ev(13) &" maxlength=20>"
ev1(14)="<INPUT TYPE=""text"" NAME="& ev(14) &" maxlength=20>"
ev1(15)="<INPUT TYPE=""text"" NAME="& ev(15) &" maxlength=20>"
ev1(16)="<INPUT TYPE=""text"" NAME="& ev(16) &" maxlength=20>"
ev1(17)="<INPUT TYPE=""text"" NAME="& ev(17) &" maxlength=20>"
ev1(18)="<INPUT TYPE=""text"" NAME="& ev(18) &" maxlength=20>"
' display ename and evalue array
r=9:c=2
s2="":s1=""
for i = 1 to r
s1=""
for j= 1 to c
s1= s1 & wda(en(Cint((i-1)*2+j))) & wda(ev1(Cint((i-1)*2+j)))
' response.write(s1)
' response.end
next
s2 = s2 & wra(s1)
next
ft = wtba(s2)
InsertTable= "<center>" & TitleTable &"<BR>"& FormHead & ft &"<BR>"& ToolTable
end Function
Function UpdateTable()
dim ft 'organize a formtable
dim de ' delimit
dim s1,s2
dim r,c,i,j,s
dim ev5(18),ev1(18)
dim einfo
dim rs
dim sql
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -