📄 selecttemplate.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
	Response.Expires=0
	Response.Buffer=true
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css">
<title>选择模板</title>
</head>

  <form method=post name=form1 id=form1 action="">
<table width=98% border=0 align=center cellpadding=2 cellspacing=1 class="tab" >

          <tr >
            <td class='tdTop2'><img border="0" src="../images/icon_title.gif" align="left">选择报表模板 </td>
          </tr>
          <tr class=InputFrameLine>
            <td class=tdBottom><table width=100% class=tableframe>
              <tr align=center class=listtitle>
                <td align="left" >
                  <select id=bm name=bm onchange="redirect(this.options.value)">
                    <option value='all' selected>所有类别</option>
                    <%
			set Rstmp=server.createobject("adodb.recordset")
			str = "select * from tbioaOffice_TemplateType order by id"
			Rstmp.open str,oConn,1,1
			while not Rstmp.eof
				userAuth=ReturnManage(Rstmp("usermod"),Rstmp("id"),"users","tbioaOffice_TemplateType") '取当级目录使用权限
				if userAuth then
					response.write "<option value="&Rstmp("id")&">"&server.htmlencode(trim(Rstmp("tempname"))) & vbcrlf
				end if
				Rstmp.MoveNext
			wend
			Rstmp.close
			set Rstmp=nothing
                    %>
                  </select>
                </td>
              </tr>
              <tr align=center>
                <td align="left">
                  <select id="RoleID" name="RoleID">
                    <%
			set rs_role=Server.CreateObject("ADODB.RecordSet")
			sql="select tbioaOffice_Template.RecordID,tbioaOffice_Template.FileType,tbioaOffice_Template.Descript,tbioaOffice_Template.Parentid,tbioaOffice_TemplateType.Tempname,tbioaOffice_TemplateType.usermod from tbioaOffice_Template,tbioaOffice_TemplateType where tbioaOffice_Template.parentid=tbioaOffice_TemplateType.id"
			rs_role.open sql,oConn,1,1
			dim groups
			groups=0
			while not rs_role.eof
				userAuth=ReturnManage(rs_role("usermod"),rs_role("Parentid"),"users","tbioaOffice_TemplateType") '取当级模板使用权限
                    		if userAuth then
                    		  response.write "<option value='"&rs_role("RecordID")&"|"&rs_role("FileType")&"'>"&rs_role("Tempname")&"/"&rs_role("Descript")&"</option>" & vbcrlf
				  groups=groups+1
				end if
				rs_role.MoveNext
			wend
		    %>
                  </select>
                </td>
              </tr>
            </table></td>
          </tr>
          <tr class=InputFrameButtonLine>
            <td  align="center" class="tdBottom"> <input type=hidden name=rolelist value="">
			<input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value=确定 name="bQD" id="bQD" onclick="re_role()">
              <input type=button class="button0" onmouseout=className="button0" onmouseover=className="button1" value=放弃 name="bFQ" id="bFQ" onclick="JavaScript:window.close()">
          </tr>

    </table>
</form>
<script language="JavaScript">
<!--
<%set rs_role=Server.CreateObject("ADODB.RecordSet")
sql="select tbioaOffice_Template.RecordID,tbioaOffice_Template.FileType,tbioaOffice_Template.Descript,tbioaOffice_Template.Parentid,tbioaOffice_TemplateType.Tempname,tbioaOffice_TemplateType.usermod from tbioaOffice_Template,tbioaOffice_TemplateType where tbioaOffice_Template.parentid=tbioaOffice_TemplateType.id"
rs_role.open sql,oconn,1,1
i=0%>
var groups=<%=groups%>;
var group=new Array(groups);
<%do while not rs_role.eof
	userAuth=ReturnManage(rs_role("usermod"),rs_role("Parentid"),"users","tbioaOffice_TemplateType") '取当级模板使用权限
	if userAuth then
%>
	group[<%=i%>]= new Array(3);
	group[<%=i%>][0]='<%=rs_role("ParentID")%>';
	group[<%=i%>][1]='<%=rs_role("RecordID")%>|<%=rs_role("FileType")%>';
	group[<%=i%>][2]='<%=rs_role("TempName")%>/<%=rs_role("Descript")%>';
	<%
	end if
	rs_role.movenext
	i=i+1
loop
rs_role.close
set rs_role=nothing%>

var temp=document.form1.RoleID;
var temp1=document.form1.SRoleID;
function redirect(x)
{
	for (m=temp.options.length-1;m>=0;m--){
		temp.options[m]=null;
		}
	if (x=='all'){
		for (i=0;i<groups;i++)
			temp.options[temp.options.length]=new Option(group[i][2],group[i][1]);
	}
	else
		for (i=0;i<groups;i++)
		{
			if (group[i][0]==x){
				temp.options[temp.options.length]=new Option(group[i][2],group[i][1]);
				}
		}
}
function re_role()
{
	var str;
	str="";
	str=form1.RoleID.value+'|'+form1.RoleID.options[form1.RoleID.options.selectedIndex].text
	window.returnValue=str;
	window.close();

}
//-->
</script>

<%
	set rs = nothing
	oConn.Close
	set oconn = nothing
%>
</BODY>
</html>
⌨️ 快捷键说明

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