zclist.asp

一个小小的固定资产程序

<!--#include file="connection.asp" -->
<!--#include file="tools.asp" -->
<!--#include file="check.asp"-->
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
function cform(){
 if(!confirm("您确认删除此用户！"))
 return false;

}
function pass(){
 if(!confirm("您确认该用户通过审核！"))
 return false;

}

</script>
<script language="JavaScript">
<!--
function MM_openBrWindow1(theURL,winName,features) { //v2.0
  window.open(theURL,winName);
}
//-->
function cform(){
 if(!confirm("您确认删除此用户！"))
 return false;

}
function pass(){
 if(!confirm("您确认该用户通过审核！"))
 return false;

}

</script>
<%
if Session("Urule")="b" then
%>
<%
search = ""

if request("name")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " name = '" & request("name") & "' "
end if

if request("bh")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " bh = '" & request("bh") & "' "
end if

if request("lb")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " lb = '" & request("lb") & "' "
end if

if request("jldw")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " jldw = '" & request("jldw") & "' "
end if

if request("sl")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " sl = '" & request("sl") & "' "
end if

if request("ggxh")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " ggxh = '" & request("ggxh") & "' "
end if

if request("jszs")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " jszs = '" & request("jszs") & "' "
end if

if request("wqjz")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " wqjz = '" & request("wqjz") & "' "
end if

if request("azf")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " azf = '" & request("azf") & "' "
end if

if request("zj")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " zj = '" & request("zj") & "' "
end if

if request("jz")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " jz = '" & request("jz") & "' "
end if

if request("jzdw")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " jzdw = '" & request("jzdw") & "' "
end if

if request("jzny")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " jzny = '" & request("jzny") & "' "
end if

if request("ccbh")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " ccbh = '" & request("ccbh") & "' "
end if

if request("syrq")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " syrq = '" & request("syrq") & "' "
end if

if request("synx")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " synx = '" & request("synx") & "' "
end if

if request("sydw")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " sydw = '" & request("sydw") & "' "
end if

if request("szd")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " szd = '" & request("szd") & "' "
end if

if request("bgr")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " bgr = '" & request("bgr") & "' "
end if

if request("szd1")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " szd1 = '" & request("szd1") & "' "
end if

if request("bgr1")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " bgr1 = '" & request("bgr1") & "' "
end if

if request("szd2")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " szd2 = '" & request("szd2") & "' "
end if

if request("bgr2")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " bgr2 = '" & request("bgr2") & "' "
end if

if request("zcgly")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " zcgly = '" & request("zcgly") & "' "
end if

if request("zclry")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " zclry = '" & request("zclry") & "' "
end if



table="zcdj"
if search<>"" then
	sql="select * from " & table &  search & "AND " & session("Uid") & "=zcdj.userID"
else 
	sql="select * from " & table &  " WHERE " & session("Uid") & "=zcdj.userID"
end if
'sql="select * from " & table & search 
'请参考下面代码排序
'sql="select * from " & table & search & " order by dtime DESC"

'response.write sql
'response.end
set rs=Server.CreateObject("ADODB.recordset")
rs.CursorType = 3
rs.Open sql,conn

rs.PageSize =30 '每页记录条数
result_num=rs.RecordCount '记录总数


if result_num<=0 then
	if search="" then
		word="目前还没有记录!"
	else	
		word="没有查到符合条件的记录!"
	end if	
else
	maxpage=rs.PageCount 
	page=request("page")
	
	if Not IsNumeric(page) or page="" then
		page=1
	else
		page=cint(page)
	end if
	
	if page<1 then
		page=1
	elseif  page>maxpage then
		page=maxpage
	end if
	
	rs.AbsolutePage=Page
end if

%>
<%
'统计

sql1="select sum(wqjz) from " & table & " WHERE " & session("Uid") & "=zcdj.userID"
set rs1=conn.execute(sql1) 
'execute是ADO中connection的一个方法，是用来执行前面所定义的sql语句
sql1="select sum(sl) from " & table & " WHERE " & session("Uid") & "=zcdj.userID"
set rs2=conn.execute(sql1)
'response.write sql1
'response.end 
'zqf=int(rs1(0)-rs2(0))
'bfl=zqf/rs1(0)*100
'int是数据类型,rs(0)是得到ysje的总计,rs1(0)就是另一个的
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css">
<title>包头铁路工程学校资产管理系统</title>

<META http-equiv=Content-Type content="text/html; charset=gb2312">
<SCRIPT language=JavaScript> 
<!-- // RightClickMenu 
var intDelay=1; //设置菜单显示速度，越大越慢 
var intInterval=30; //每次更改的透明度 
function showmenuie5(){ 
var rightedge=document.body.clientWidth-event.clientX 
var bottomedge=document.body.clientHeight-event.clientY 
if (rightedge<ie5menu.offsetWidth) 
ie5menu.style.left=document.body.scrollLeft+event.clientX-ie5menu.offsetWidth 
else 
ie5menu.style.left=document.body.scrollLeft+event.clientX 
if (bottomedge<ie5menu.offsetHeight) 
ie5menu.style.top=document.body.scrollTop+event.clientY-ie5menu.offsetHeight 
else 
ie5menu.style.top=document.body.scrollTop+event.clientY 
ie5menu.style.visibility="visible" 
//ie5menu.style.visibility="" 
ie5menu.filters.alpha.opacity=0 
GradientShow() 
return false 
} 
function hidemenuie5(){ 
//ie5menu.style.visibility="hidden" 
GradientClose() 
} 
function highlightie5(){ 
if (event.srcElement.className=="menuitems"){ 
event.srcElement.style.backgroundColor="highlight" 
event.srcElement.style.color="white" 
} 
} 
function lowlightie5(){ 
if (event.srcElement.className=="menuitems"){ 
event.srcElement.style.backgroundColor="" 
event.srcElement.style.color="#000000" 
} 
} 
function jumptoie5(){ 
if (event.srcElement.className=="menuitems"){ 
if (event.srcElement.url != ''){ 
if (event.srcElement.getAttribute("target")!=null) 
window.open(event.srcElement.url,event.srcElement.getAttribute("target")) 
else 
window.location=event.srcElement.url 
} 
} 
} 

function GradientShow() //实现淡入的函数 
{ 
ie5menu.filters.alpha.opacity+=intInterval 
if (ie5menu.filters.alpha.opacity<100) setTimeout("GradientShow()",intDelay) 
} 

function GradientClose() //实现淡出的函数 
{ 
ie5menu.filters.alpha.opacity-=intInterval 
if (ie5menu.filters.alpha.opacity>0) { 
 setTimeout("GradientClose()",intDelay) 
 } 
else { 
 ie5menu.style.visibility="hidden" 
 } 
} 

function ChangeBG() //改变菜单项的背景颜色，这里的两种颜色值可以改为你需要的 
{ 
oEl=event.srcElement 
if (oEl.style.background!="navy") { 
  oEl.style.background="navy" 
  } 
  else { 
  oEl.style.background="#cccccc"