?? dzmanage.asp
字號:
<!--#include file="connection.asp" -->
<!--#include file="tools.asp" -->
<!--#include file="check.asp"-->
<%
if Session("Urule")<>"a" and Session("Urule")<>"b" then
response.redirect "error.asp?id=admin"
end if
%>
<%
if Session("Urule")="a" then
%>
<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>
<%
search = ""
if request("xsdw")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " xsdw = '" & request("xsdw") & "' "
end if
if request("fph")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " fph = '" & request("fph") & "' "
end if
if request("fptime")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " fptime = '" & request("fptime") & "' "
end if
if request("dzlb")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " dzlb = '" & request("dzlb") & "' "
end if
if request("mlbh")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " mlbh = '" & request("mlbh") & "' "
end if
if request("dzname")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " dzname = '" & request("dzname") & "' "
end if
if request("dzgg")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " dzgg = '" & request("dzgg") & "' "
end if
if request("dw")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " dw = '" & request("dw") & "' "
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("grdj")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " grdj = '" & request("grdj") & "' "
end if
if request("grje")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " grje = '" & request("grje") & "' "
end if
if request("mldj")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " mldj = '" & request("mldj") & "' "
end if
if request("mlje")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " mlje = '" & request("mlje") & "' "
end if
if request("zzdw")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " zzdw = '" & request("zzdw") & "' "
end if
if request("gldw")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " gldw = '" & request("gldw") & "' "
end if
if request("dzgly")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " dzgly = '" & request("dzgly") & "' "
end if
if request("dzlry")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " dzlry = '" & request("dzlry") & "' "
end if
table="dzdj"
sql="select * from " & table & search
'請參考下面代碼排序
'sql="select * from " & table & search & " order by dtime DESC"
'response.write sql
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(grje) from " & table & search
set rs1=conn.execute(sql1)
'execute是ADO中connection的一個方法，是用來執行前面所定義的sql語句
sql1="select sum(sl) from " & table & search
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" } } // --> </SCRIPT>
<STYLE type=text/css>.cMenu {
BORDER-RIGHT: #666666 2px solid; BORDER-TOP: #e4e4e4 2px solid; FONT-SIZE: 9pt; FILTER: alpha(opacity=0); VISIBILITY: hidden; BORDER-LEFT: #e4e4e4 2px solid; WIDTH: 110px; CURSOR: default; COLOR: #000000; LINE-HEIGHT: 20px; BORDER-BOTTOM: #666666 2px solid; POSITION: absolute; BACKGROUND-COLOR: #d6d3ce; FONT-: normal
}
.menuitems {
PADDING-RIGHT: 3px; PADDING-LEFT: 15px; FONT-SIZE: 9pt; PADDING-BOTTOM: 0px; MARGIN: 2px; PADDING-TOP: 0px
}
</STYLE>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
</head>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0">
<OBJECT id=WebBrowser height=0 width=0
classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2></OBJECT><RIGHTCLICK><!--[if IE]>
<DIV class=cMenu id=ie5menu onmouseover=highlightie5() onclick=jumptoie5()
onmouseout=lowlightie5()>
<DIV class=menuitems url="javascript:click_obj(0)">后退</DIV>
<DIV class=menuitems url="javascript:click_obj(1)">前進</DIV>
<DIV class=menuhr>
<HR style="WIDTH: 100%">
</DIV>
<DIV class=menuitems url="javascript:click_obj(2)">刷新</DIV>
<DIV class=menuitems url="javascript:click_obj(4)">查看源文件</DIV>
<DIV class=menuhr>
<HR style="WIDTH: 100%">
</DIV>
<DIV class=menuitems url="javascript:click_obj(5)">屬性</DIV></DIV><![endif]-->
<SCRIPT language=JavaScript> <!-- function click_obj(id){ switch(id){ case 0: history.back() break case 1: history.forward() break case 2: window.location.reload() break case 3: window.external.AddFavorite(location.href, document.title) break case 4: window.location = "view-source:" + window.location.href break case 5: document.all.WebBrowser.ExecWB(10,1) break } } if (document.all&&window.print){ ie5menu.className="cMenu" document.oncontextmenu=showmenuie5 document.body.onclick=hidemenuie5 } //--> </SCRIPT>
</RIGHTCLICK>
<!--#include file="top.inc"-->
<% if result_num<=0 then %>
<center><BR><BR><% =word %></center>
<% else %>
<table width="598" border="0" cellspacing="2" cellpadding="0" align="center">
<tr>
<td>共搜索到<font color="#FF0000"><% =result_num %></font>條符合條件的信息</td>
<font size="2">低值易耗品完全價值<font size="3" color="red"><%=rs1(0)%></font>元；數量<font size="3" color="red"><%=rs2(0)%></font>；
</tr>
</table>
<% call LastNextPage(maxpage,page,"width=100% ","<p align=center class=font2>") %>
<table width="1800" border="0" cellspacing="1" cellpadding="0" align="center">
<tr align=center bgcolor=#97D0FB>
<td><b>銷售單位</b></td>
<td><b>發票號數</b></td>
<td><b>發票日期</b></td>
<td><b>資產類別</b></td>
<td><b>目錄編號</b></td>
<td><b>低值名稱</b></td>
<td><b>規格</b></td>
<td><b>計量單位</b></td>
<td><b>數量</b></td>
<td><b>購入單價</b></td>
<td><b>購入金額</b></td>
<td><b>目錄單價</b></td>
<td><b>目錄金額</b></td>
<td><b>增置單位</b></td>
<td><b>管理單位</b></td>
<td><b>資產管理員</b></td>
<td><b>資產錄入員</b></td>
<td><b>錄入日期</b></td>
<td><b>審核</b></td>
<td><b>使用狀態</b></td>
<td><b>編輯</b></td>
<td><b>刪除</b></td>
</tr>
<% for i=1 to rs.PageSize %>
<tr bgcolor=#EEF8FD>
<td align=center><a href="dzshow.asp?id=<% =rs("id") %>"><% =HtmlOut(rs("xsdw")) %></a></td>
<td align=center><% =HtmlOut(rs("fph")) %></td>
<td align=center><% =HtmlOut(rs("fptime")) %></td>
<td align=center><% =HtmlOut(rs("dzlb")) %></td>
<td align=center><% =HtmlOut(rs("mlbh")) %></td>
<td align=center><% =HtmlOut(rs("dzname")) %></td>
<td align=center><% =HtmlOut(rs("dzgg")) %></td>
<td align=center><% =HtmlOut(rs("dw")) %></td>
<td align=center><% =HtmlOut(rs("sl")) %></td>
<td align=center><% =HtmlOut(rs("grdj")) %></td>
<td align=center><% =HtmlOut(rs("grje")) %></td>
<td align=center><% =HtmlOut(rs("mldj")) %></td>
<td align=center><% =HtmlOut(rs("mlje")) %></td>
<td align=center><% =HtmlOut(rs("zzdw")) %></td>
<td align=center><% =HtmlOut(rs("gldw")) %></td>
<td align=center><% =HtmlOut(rs("dzgly")) %></td>
<td align=center><% =HtmlOut(rs("dzlry")) %></td>
<td align=center><% =HtmlOut(rs("dzlrtime")) %></td>
<td>
<% if rs("dzsh")=true then %>已審核<%else%>待審核<%end if%>
</td>
<td>
<% if rs("dzdbf")=false and rs("dzbf")=false and rs("dzczcl")=false then %>
情況良好
<%else if rs("dzdbf")=true and rs("dzbf")=true and rs("dzczcl")=false then%>
<a href="#" onClick="MM_openBrWindow('dzbfsm.asp?id=<%=rs("id")%>','','width=500,height=300');">已報廢</a>
<%else if rs("dzdbf")=true and rs("dzbf")=true and rs("dzczcl")=true then%>
<a href="#" onClick="MM_openBrWindow('dzczclsm.asp?id=<%=rs("id")%>','','width=500,height=300');">殘值處理</a>
<%else if rs("dzdbf")=true and rs("dzbf")=false and rs("dzczcl")=false then%>
<a href="#" onClick="MM_openBrWindow('dzbfsmedit.asp?id=<%=rs("id")%>','','width=500,height=300');">待報廢</a>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
</td>
<td>
<div align="center"><a href="dzjoin.asp?editid=<% response.write rs("id") %>">編輯</a></div>
</td>
<td>
<div align="center"><a href="dzdel.asp?id=<% response.write rs("id") %>">刪除</a></div>
</td>
</tr>
<% rs.movenext
if rs.EOF then Exit For
i=i+1 %>
<tr bgcolor=#D7EFFB>
<td align=center><a href="zcshow.asp?id=<% =rs("id") %>"><% =HtmlOut(rs("xsdw")) %></a></td>
<td align=center><% =HtmlOut(rs("fph")) %></td>
<td align=center><% =HtmlOut(rs("fptime")) %></td>
<td align=center><% =HtmlOut(rs("dzlb")) %></td>
<td align=center><% =HtmlOut(rs("mlbh")) %></td>
<td align=center><% =HtmlOut(rs("dzname")) %></td>
<td align=center><% =HtmlOut(rs("dzgg")) %></td>
<td align=center><% =HtmlOut(rs("dw")) %></td>
<td align=center><% =HtmlOut(rs("sl")) %></td>
<td align=center><% =HtmlOut(rs("grdj")) %></td>
<td align=center><% =HtmlOut(rs("grje")) %></td>
<td align=center><% =HtmlOut(rs("mldj")) %></td>
<td align=center><% =HtmlOut(rs("mlje")) %></td>
<td align=center><% =HtmlOut(rs("zzdw")) %></td>
<td align=center><% =HtmlOut(rs("gldw")) %></td>
<td align=center><% =HtmlOut(rs("dzgly")) %></td>
<td align=center><% =HtmlOut(rs("dzlry")) %></td>
<td align=center><% =HtmlOut(rs("dzlrtime")) %></td>
<td>
<% if rs("dzsh")=true then %>已審核<%else%>待審核<%end if%>
</td>
<td>
<% if rs("dzdbf")=false and rs("dzbf")=false and rs("dzczcl")=false then %>
情況良好
<%else if rs("dzdbf")=true and rs("dzbf")=true and rs("dzczcl")=false then%>
<a href="#" onClick="MM_openBrWindow('dzbfsm.asp?id=<%=rs("id")%>','','width=500,height=300');">已報廢</a>
<%else if rs("dzdbf")=true and rs("dzbf")=true and rs("dzczcl")=true then%>
<a href="#" onClick="MM_openBrWindow('dzczclsm.asp?id=<%=rs("id")%>','','width=500,height=300');">殘值處理</a>
<%else if rs("dzdbf")=true and rs("dzbf")=false and rs("dzczcl")=false then%>
<a href="#" onClick="MM_openBrWindow('dzbfsmedit.asp?id=<%=rs("id")%>','','width=500,height=300');">待報廢</a>
<%end if%>
<%end if%>
<%end if%>
<%end if%>
</td>
<td>
<div align="center"><a href="dzjoin.asp?editid=<% response.write rs("id") %>">編輯</a></div>
</td>
<td>
<div align="center"><a href="dzdel.asp?id=<% response.write rs("id") %>">刪除</a></div>
</td>
</tr>
<%
rs.movenext:if rs.EOF then Exit For
next
%>
</table>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -