📄 duiwfw_cxjm.asp

📁 一套asp办公小软件
💻 ASP
字号:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>对外发文</title>
<link rel="stylesheet" type="text/css" href="Admin_Style.css">
<base target="_self">

<!--#include file="global.asp"-->
<!--#include file="function.asp"-->

<SCRIPT language=javascript>
function unselectall()
{
    if(document.myform.chkAll.checked){
	document.myform.chkAll.checked = document.myform.chkAll.checked&0;
    } 	
}

function CheckAll(form)
{
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.Name != "chkAll"&&e.disabled!=true)
       e.checked = form.chkAll.checked;
    }
}
function ConfirmDel()
{
	if(document.myform.Action.value=="Del")
	{
		if(confirm("确定要删除选中的对外发文吗？"))
		    return true;
		else
			return false;
	}
}
function openhelp()
{
	var Win =window.open("editor_ubbhelp.asp","face","width=550,height=400,resizable=1,scrollbars=1");
}
</script>

</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" style="background-color: #555555">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
  <tr> 
    <td height="22" colspan="2" align="center" class="title" style="background-image: url('images/topBar_bg.gif')">
	<strong>对 外 发 文 
	查 询</strong></td>
  </tr>
  <tr class="tdbg"> 
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td height="30"><a href="yewtzluru.asp">对外发文</a> </td>
  </tr>
</table>
<%Action=Trim(Request("Action"))
const MaxPerPage=20
Channel=Trim(Request("Channel"))
if Channel="" then
	Channel=0
else
	Channel=CLng(Channel)
end if
strFileName="duiwfw_cxjm.asp?Channel="&Channel
if request("page")<>"" then
    currentPage=cint(request("page"))
else
	currentPage=1
end if

'response.write(action)
if Action="Del" then
	call DelAnnounce()
  end if 
if Action="SetNew" then
	call SetNew()
end if	
if Action="CancelNew" then
	call CancelNew()
end if
%>
 <% if request("sj1")=1 then

 Tempstring="select * from duiwfw where id>0 "
 if request("Title")<>"" then
    Tempstring=Tempstring+" and tim like '%"&request("Title")&"%'"
 end if
 if request("sele1")<>"1" then
    Tempstring=Tempstring+" and tim like '%"&request("sele1")&"%'"
 end if

 if request("Title1")<>"" then
    Tempstring=Tempstring+" and zhutc like '%"&request("Title1")&"%'"
 end if
 if request("sele2")<>"1" then
    Tempstring=Tempstring+" and zhutc like '%"&request("sele2")&"%'"
 end if

 if request("Title6")<>"" then
    Tempstring=Tempstring+" and wenjwh like '%"&request("Title6")&"%'"
 end if
 if request("sele3")<>"1" then
    Tempstring=Tempstring+" and wenjwh like '%"&request("sele3")&"%'"
 end if

 if request("Title2")<>"" then
    Tempstring=Tempstring+" and dianzwjm='"&request("Title2")&"'"
 end if
 if request("sele4")<>"1" then
    Tempstring=Tempstring+" and dianzwjm='"&request("sele4")&"'"
 end if

 if request("Title3")<>"" then
    Tempstring=Tempstring+" and zerz like '%"&request("Title3")&"%'"
 end if
 if request("sele5")<>"1" then
    Tempstring=Tempstring+" and zerz like '%"&request("sele5")&"%'"
 end if

 if request("Title5")<>"" then
    Tempstring=Tempstring+" and fenlh='"&request("Title5")&"'"
 end if
 if request("sele6")<>"1" then
    Tempstring=Tempstring+" and fenlh='"&request("sele6")&"'"
 end if

 if request("Title4")<>"" then
    Tempstring=Tempstring+" and chenwrq>='"&request("Title4")&"'"
 end if
 if request("Title41")<>"" then
    Tempstring=Tempstring+" and chenwrq<='"&request("Title41")&"'"
 end if
  else
   Tempstring=session("Tempstring")
 end if
 session("Tempstring")=Tempstring

' response.write(tempstring)
' response.end
	set rs=server.createobject("adodb.recordset")
	rs.open Tempstring,conn,1,1
	
  	if rs.eof and rs.bof then
	    response.write "<table class=border border=0 cellspacing=1 width=100% cellpadding=0><tr valign=middle class=tdbg><td>"
		response.write "目前共有 0 个对外发文"
		response.write "</td></tr></table>"
	else
    	totalPut=rs.recordcount
		if currentpage<1 then
       		currentpage=1
    	end if
    	if (currentpage-1)*MaxPerPage>totalput then
	   		if (totalPut mod MaxPerPage)=0 then
	     		currentpage= totalPut \ MaxPerPage
		  	else
		      	currentpage= totalPut \ MaxPerPage + 1
	   		end if

    	end if
    	if currentPage=1 then
        	showContent
			response.write "<table class=border border=0 cellspacing=1 width=100% cellpadding=0><tr valign=middle class=tdbg><td>"
        	showpage strFileName,totalput,MaxPerPage,true,true,"个对外发文"
			response.write "</td></tr></table>"
   	 	else
   	     	if (currentPage-1)*MaxPerPage<totalPut then
         	   	rs.move  (currentPage-1)*MaxPerPage
         		dim bookmark
           		bookmark=rs.bookmark
            	showContent			
				response.write "<table class=border border=0 cellspacing=1 width=100% cellpadding=0><tr valign=middle class=tdbg><td>"
        	    showpage strFileName,totalput,MaxPerPage,true,true,"个对外发文"
			    response.write "</td></tr></table>"
        	else
	        	currentPage=1
           		showContent
			response.write "<table class=border border=0 cellspacing=1 width=100% cellpadding=0><tr valign=middle class=tdbg><td>"
        	showpage strFileName,totalput,MaxPerPage,true,true,"个对外发文"
			response.write "</td></tr></table>"
	    	end if
		end if
	end if
	rs.close
	set rs=nothing

sub showContent
   	dim i
   	
    i=0
%>
  
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
  <form name="myform" method="POST" action=<%=strFileName%> onsubmit="return ConfirmDel();">
    <tr  class="title"  > 
      <td width="20" height="22" align="center" style="background-image: url('images/topBar_bg.gif')"><strong>选择</strong></td>
      <td width="30" height="22" align="center" style="background-image: url('images/topBar_bg.gif')"><strong>ID</strong></td>
      <td width="120" height="22" align="center" style="background-image: url('images/topBar_bg.gif')" ><strong>题名</strong></td>
      <td width="110" height="22" align="center" style="background-image: url('images/topBar_bg.gif')"><strong>主题词</strong></td>
      <td width="120" height="22" align="center" style="background-image: url('images/topBar_bg.gif')">
		<strong>文号</strong></td>
      <td width="120" height="22" align="center" style="background-image: url('images/topBar_bg.gif')"><strong>责任者</strong></td>
      <td width="70" height="22" align="center" style="background-image: url('images/topBar_bg.gif')"><strong>成文日期</strong></td>
      <td width="70" height="22" align="center" style="background-image: url('images/topBar_bg.gif')"><strong>分类号</strong></td>      
      
    </tr>
<%
'response.write(rs.recordcount)
'response.end
if not(rs.bof and rs.eof) then
  do while not rs.eof
%>
    <tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#cccccc'" style="padding: 0px 2px;"> 
      <td align="center" background="images/topBar_bg.gif"> 
        <input type="checkbox" value=<%=rs("ID")%> name="AnnounceID" style="border: 0px;background-color: #eeeeee;">
      </td>
      <td align="center"> <%=rs("ID")%> </td>
      <td><a href="duiwfw_nr.asp?id=<%=rs("id")%>" target=_blank > <title="55"><%=rs("tim")%></a></td>
      <td align="center" > 
        <%=rs("zhutc")%>      </td>
      <td align="center" > 
        <%=rs("wenjwh")%>      </td>

       <td align="center"><%=rs("zerz")%></td>

      <td align="center"><%=rs("chenwrq")%></td>
      <td align="center"><%=rs("fenlh")%></td>

      
    </tr>
     <%
	i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext
loop
%>

    <%
		'rs.movenext
	'loop
	end if%>
    
   
   
  </form>
  </table>
  
  
<p class="border"> 
  <%end sub

  sub DelAnnounce()
	dim ID
	ID=Trim(Request("AnnounceID"))
	if ID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定要删除的对外发文ID！</li>"
		exit sub
	end if
	if Instr(ID,",")>0 then
		dim arrID,i
		arrID=split(ID,",")
		
		for i=0 to Ubound(arrID)
			conn.execute "delete from xiangmwj where ID=" & CLng(arrID(i))
		next
	else
		conn.execute "delete from xiangmwj where ID=" & CLng(ID)
	end if
	
end sub
sub SetNew()
	dim ID
	ID=Trim(Request("AnnounceID"))
	if ID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定对外发文ID</li>"
		exit sub
	end if
	if Instr(ID,",")>0 then
		dim arrID,i
		arrID=split(ID,",")
		for i=0 to Ubound(arrID)
			conn.execute "Update Announce set IsSelected=True Where ID=" & CLng(arrID(i))
		next
	else
		conn.execute "Update Announce set IsSelected=True Where ID=" & CLng(ID)
	end if

end sub
sub CancelNew()
	dim ID
	ID=Trim(Request("AnnounceID"))
	if ID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定公告ID</li>"
		exit sub
	end if
	if Instr(ID,",")>0 then
		dim arrID,i
		arrID=split(ID,",")
		for i=0 to Ubound(arrID)
			conn.execute "Update Announce set IsSelected=False Where ID=" & CLng(arrID(i))
		next
	else
		conn.execute "Update Announce set IsSelected=False Where ID=" & CLng(ID)
	end if
	
end sub

%>
</p>
</body>

</html>
⌨️ 快捷键说明

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