?? 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" ?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -