?? pc.asp
字號:
<!--#include file="pcdb.asp"-->
<%
Response.Expires = 0
if Session("MAXPAGE") <=0 then session("MAXPAGE") = 20
MAX_PAGE=Session("MAXPAGE")
if Request.QueryString("order")<>null or Request.QueryString("order")<>"" then
ordername=(Request.QueryString("order"))
else
ordername="id"
end if
if Request.QueryString("allnum")<>null or Request.QueryString("allnum")<>"" then
MAX_PAGE=Request.QueryString("allnum")
session("MAXPAGE")=MAX_PAGE
end if
' 設定當前搜索
if Request.QueryString("search")<>"" then
Session("searchname")=Request.QueryString("search")
end if
' 設定當前過濾
if Request.QueryString("namefilter")<>"" then
Session ("namefilter") = Request.QueryString("namefilter")
end if
Set rs=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM 設備資源 "
searchfilter=""
if Session("searchname")<>"" then
if Session("searchname")<>"reset" then
searchfilter = searchfilter & " and (編號 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 部門 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 使用人 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or CPU LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 顯示器 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 硬盤 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 光驅 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 主板 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 內存 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 聲卡 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 音箱 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 網卡 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 鎖號 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 其他設備 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 實價 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 供應商 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 保修期 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 錄入時間 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 設備狀態 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or IP地址 LIKE '%" & Session("searchname") & "%' "
searchfilter = searchfilter & " or 備注 LIKE '%" & Session("searchname") & "%') "
else
Session("searchname")=""
end if
end if
if Session ("namefilter")<>"" then
strSQL = strSQL & " WHERE " & Session("namefilter") & searchfilter
elseif searchfilter<>"" then
if (left(searchfilter,4)=" and") then searchfilter= right(searchfilter,len(searchfilter)-4)
strSQL = strSQL & " WHERE " & searchfilter
end if
strSQL = strSQL & " ORDER by " & ordername
'response.write strSQL
rs.open strSQL,conn,1,1
alls=rs.Recordcount
if Request.QueryString("row")<>null or Request.QueryString("row")<>"" then
row=cint(Request.QueryString("row"))
else
row=alls-MAX_PAGE
end if
if row > alls-MAX_PAGE then row=alls-MAX_PAGE
if row < 0 then row=0
Session("row")=row
if Not RS.EOF then
RS.move row
end if
%>
<%
Sub ShowField(strFieldName, avarLookup)
if RS(strFieldName)<>"" then
Response.Write "<TD>" + RS(strFieldName) + "</TD>"
else
Response.Write "<TD>不詳</TD>"
end if
end sub
%>
<HTML><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="javascript">
var CurEl; //記錄當前的Element
var OldEl; //記錄上一次停留的Element
function TurnColor(){
//如果鼠標點擊的為表頭，直接返回 否則把上一次停留的行顏色置原色
//當前的行置成另外的顏色，并使OldID=CurID
if(event.srcElement.parentElement.className=="Body"){
if (OldEl!=null){
OldEl.style.backgroundColor="";
}
CurEl=event.srcElement.parentElement;
CurEl.style.backgroundColor="#fed179";
OldEl=CurEl
}
}
function find(board){
row=prompt("想要移到第幾條記錄呢？請輸入編號：\n",0)
if(row!=null&&row!=""){
row=row-1
link="pc.asp?row="+ row +"&name=<%=timer()%>"
document.location.href=link
}
}
function allnum(){
num=prompt("每屏想要顯示多少條記錄呢？請輸入數目：\n",20)
if(num!=null&&num!=""){
link="pc.asp?allnum="+ num +"&name=<%=timer()%>"
document.location.href=link
}
}
function search(){
num=prompt("請輸入要搜索的關鍵字：\n","")
if(num!=null&&num!=""){
link="pc.asp?search="+ num +"&name=<%=timer()%>"
document.location.href=link
}
}
</script>
<link rel="stylesheet" type="text/css" href="../d.css">
<script LANGUAGE="JavaScript">
<!--
var str = "toolbar=no,scrollbars=yes,width=600,height=250,top=10;left=10";
function editrow(eid)
{
// window.open ("pcedit.asp?id=" + eid , "edit", str);
link = "pcedit.asp?action=edit&id=" + eid , "edit", str
document.location.href=link
return false;
}
// -->
</script>
</head>
<BODY bgcolor="White" text="#000000" style="margin-left:3px;margin-top: 3px" topmargin="0" leftmargin="0" marginheight="0" marginwidth="0" link="#0072E3" vlink="#0072E3" >
<!--#include file="pctop.asp"-->
<TABLE bgcolor="#6AB5FF" style="color:#42428F" border="0" cellpadding="0" cellspacing="0" width="100%">
<TR style="font-size:9pt"><TD>
<a class='aa' href="javascript:find('<%=board%>')">移到</a>│<a class='aa' href="pc.asp?row=0&order=<%=ordername%>&name=<%=timer()%>">最始</a>│<a class='aa' href="pc.asp?row=<%=alls%>&order=<%=ordername%>&name=<%=timer()%>">最后</a><%
if row >0 then%>│<a class='aa' href="pc.asp?row=<%=row-MAX_PAGE%>&order=<%=ordername%>&name=<%=timer()%>">上頁</a><%else%>│<font color="#2f4f4f">上頁</font><%
end if
if row+MAX_PAGE<alls then
%>│<a class='aa' href="pc.asp?row=<%=row+MAX_PAGE%>&order=<%=ordername%>&name=<%=timer()%>">下頁</a><%else%>│<font color="#2f4f4f">下頁</font><%
end if %>│<a class='aa' href="javascript:allnum()">設置</a>│<a class='aa' href="pcedit.asp?action=add">添加</a>│<a class='aa' href="javascript:search()">搜索</a>│<% if (Session("searchname")<>"") then %> <a class='aa' href="pc.asp?search=reset&order=<%=ordername%>">全部</a>│<% end if %><a class='aa' href="pcfilter.asp">過濾</a>│<a class='aa' href="pcstat.asp">統計</a>│<a class='aa' href="pcrptfilter.asp">報表</a>│<a class='aa' href="../">返回</a>│
</td> <td align="right"><font color="#000000">第<% =int(row/MAX_PAGE)+1%>頁，共<% =alls%>條記錄，按<% =ordername%>排序 </font></td>
</tr>
</table>
<TABLE border="0" cellpadding="0" cellspacing="1" width="100%">
<TR bgcolor="#C4C4FF" style="font-size:9pt">
<TD width="76"><font color="#8F8FBD"><a href="pc.asp?order=編號">編號</a></font></TD>
<TD width="76"><font color="#8F8FBD"><a href="pc.asp?order=部門">部門</a></font></TD>
<TD width="76"><font color="#8F8FBD"><a href="pc.asp?order=使用人">使用人</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=CPU">CPU</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=顯示器">顯示器</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=硬盤">硬盤</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=IP地址">IP地址</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=設備狀態">設備狀態</a></font></TD>
</TR>
<%
for i=1 to MAX_PAGE
if RS.EOF then exit for
if i mod 2 = 0 then
%>
<TR bgcolor="#CEE7FF" style="font-size:9pt" OnDblClick=editrow("<% =RS("id")%>"); OnClick="TurnColor();" ID="<%=RS("id")%>" class="Body" >
<%
else
%>
<TR bgcolor="#FFFFDD" style="font-size:9pt" OnDblClick=editrow("<% =RS("id")%>"); OnClick="TurnColor();" ID="<%=RS("id")%>" class="Body" >
<%
end if
%>
<%
ShowField "編號", Null
ShowField "部門", Null
ShowField "使用人", Null
ShowField "CPU", Null
ShowField "顯示器", Null
ShowField "硬盤", Null
ShowField "IP地址", Null
ShowField "設備狀態",Null
%>
</TR>
<%
RS.MoveNext
next
RS.close
conn.close
%>
<TR bgcolor="#C4C4FF" style="font-size:9pt">
<TD><font color="#8F8FBD"><a href="pc.asp?order=編號">編號</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=部門">部門</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=使用人">使用人</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=CPU">CPU</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=顯示器">顯示器</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=硬盤">硬盤</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=IP地址">IP地址</a></font></TD>
<TD><font color="#8F8FBD"><a href="pc.asp?order=設備狀態">設備狀態</a></font></TD>
</TR>
</table>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -