日期：2014-05-16 浏览次数：21026 次
<!--#include file="../inc/NoCatch.asp"--> <!--#include file="../inc/Secure.asp"--> <!--#include file="../inc/conn.asp"--> <!--#include file="../inc/Const.asp"--> <!--#include file="../inc/fun.asp" --> <% '------------------------------------------------设置参数 LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID lodindep=getuser("tbioaUser",LoginID,"department","未知") maxmessage=200 '每页显示记录数 currentpage=request("page") '当前页码 Search=request("Search") '上次查询条件 set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from kbfqd" rs.open sql,oConn,1,1 Showpage=Paging(rs,maxmessage,currentpage,"Search="&Server.URLEncode(Search)) '------------------------------------------------处理记录 %> <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="topFrame"> <script language="javascript"> function checkAll(boolValue) { var allcheck=document.getElementsByName("ck"); for(var i=0;i<allcheck.length;i++) if(allcheck[i].type=="checkbox") allcheck[i].checked=boolValue; } function selectAll() { var checkbox1=document.getElementById("ckall"); if(checkbox1.checked==true ) { checkAll(true); } else { checkAll(false); } } </script> <script language="vbscript"> function ischecked(obj) for i = 0 to obj.length-1 if obj(i).checked then ischecked = true : exit function next ischecked = false end function function chk() dd=form1.ck.length if ischecked(form1.ck)=false then alert("未选择任何项目！！！") return false exit function end if end function </script> <style type="text/css"> <!-- .STYLE2 {color: #0000FF} --> </style> </head> <body topmargin="0" leftmargin="0" > <form name="eventfrm" method="POST" action="" onSubmit="return require(this)"> <%=Showpage%> <br> <% if rs.RecordCount=0 then response.write "<BR><BR>暂时为空！" else count=1 %> <table width="780" border="0" cellpadding="1" cellspacing="1" class="tab"> <tr> <td width="30" nowrap class="tdTop"><div align="center">序号</div></td> <td width="60" nowrap class="tdTop"><div align="center">项目编号</div></td> <td width="250" nowrap class="tdTop"><div align="center">供应</div></td> &nb
