📄 templatelist.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
'功能：报表模板列表栏目
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
stype=request("type"):if stype="" then stype=0 '当前栏目
'------------------------------------------------
'------------------------------------------------取记录
'取模板记录 （返回rs对象）
'
set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * From tbioaOffice_Template WHERE parentid=" & stype & " order by TemplateID asc"
rs.open sql,oConn,1,1
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
<base target="FrmMain">
<script language="javascript">
function ConfirmDel(FileUrl){
	if (confirm('是否确定删除该模板！')){
		location.href=FileUrl;
	}
}

function DoMenu(MenuValue){
    location.href=MenuValue;
    return true;
}
</script>
</head>
<body topmargin="10" leftmargin="10">
<!--#include file="Temp_manage_menu.htm"-->
<hr size=1>
<br>
<br>
<%
if rs.RecordCount=0 then
	response.write "<BR><BR>暂时为空！"
else
%>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
  <tr class="tdTop">
    <td nowrap width="80">编号</td>
    <td nowrap >模板名称</td>
    <td nowrap width="60">模板类型</td>
    <td nowrap >模板说明</td>
    <!--td nowrap >指定流程</td-->
    <td nowrap colspan="2" width="100">操作</td>
  </tr>
  <%

	i=0
	do while not Rs.eof
		if i mod 2 = 0 then td_class="td1" else td_class="td2"
	%>
  <tr>
    <td class="<%=td_class%>"><%=Rs("RecordID")%>&nbsp;</td>
    <td class="<%=td_class%>"><%=Rs("FileName")%>&nbsp;</td>
    <td class="<%=td_class%>"><%=Rs("FileType")%>&nbsp;</td>
    <td class="<%=td_class%>"><%=Rs("Descript")%>&nbsp;</td>
    <!--td class="<%=td_class%>"><%=GetTableValue("tbioaOffice_Flow_TemplateName","LCMC","LCBH",Rs("LCBH"))%>&nbsp;</td-->
    <td class="<%=td_class%>" width="50"> <img border="0" src="../images/icon_edit.gif" align="left">
      <a href="TemplateEdit.asp?RecordID=<%=Rs("RecordID")%>&FileType=<%=Rs("FileType")%>&type=<%=stype%>" target="_blank">编辑</a>
    </td>
    <td class="<%=td_class%>" width="50"> <img border="0" src="../images/icon_dele.gif" align="left">
      <a href="TemplateDel.asp?RecordID=<%=Rs("RecordID")%>&type=<%=stype%>" onClick="return confirm('确定要删除该条记录吗？\n该操作不可恢复！')">删除</a>
    </td>

  </tr>
  <%
		Rs.MoveNext
		i=i+1
		Loop
	Rs.Close
	Set Rs=Nothing
	%>
</table>
<%end if
oconn.close
set oconn=nothing%>
</body>
</html>
⌨️ 快捷键说明

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