?? pcrpt.asp
字號:
<!--#include file="pcdb.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<style type="text/css">
<!--
.font { font-size: 9pt ; line-height:13pt;
}
A:link {color:#0033CC; font-style: normal; text-decoration: none; cursor: hand}
A:visited {color:#0033CC; font-style: normal; text-decoration: none}
A:active {color: rgb(255,0,0); font-style: normal; text-decoration: none}
A:hover {color:#408080; font-style:bold; text-decoration: underline}
-->
</style>
<title>計算機設備匯總</title>
</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" >
<%
query= " "
%>
<h1 align="center"><font size="6" color="#0080ff">計算機設備匯總</font></h1>
<h1 align="right"><font size="2" color="#0080ff">信息部制</font></h1>
<table width="100%" cellspacing="0" cellpadding="5" border="1">
<tr>
<th bgcolor="#7c79ff" colspan="10"><span class="font"><p align="left"> 條件:
<% if Request.Form("使用人")<>"" then %>
使用人∩{
<%
Response.Write Request.Form("使用人") & "}"
query=query+" 使用人 like '%"+Request.Form("使用人")+"%' and"
%>
<% end if %>
<% if Request.Form("部門")<>"" then %>
部門∩{
<%
Response.Write Request.Form("部門") &"}"
query=query+" 部門 like '%"+Request.Form("部門")+"%' and"
%>
<% end if %>
<% if Request.Form("編號")<>"" then %>
編號∩{
<%
Response.Write Request.Form("編號") &"}"
query=query+" 編號 like '%"+Request.Form("編號")+"%' and"
%>
<% end if %>
設備狀態 =
<%
Response.Write Request.Form("設備狀態")
if Request.Form("設備狀態")<>"全部" then
query=query+" 設備狀態 = '"+Request.Form("設備狀態")+"' "
end if
%>
</span></P></th>
</tr>
<tr ALIGN="left">
<th bgcolor="#a6d2d2"><span class="font">序號</span></th>
<th bgcolor="#a6d2d2"><span class="font">編號</span></th>
<th bgcolor="#a6d2d2"><span class="font">使用人</span></th>
<th bgcolor="#a6d2d2"><span class="font">部門</span></th>
<th bgcolor="#a6d2d2"><span class="font">設備狀態</span></th>
</tr>
<DIV align=center>
<%
if (right(trim(query),3)="and") then query= left(trim(query),len(trim(query))-3)
if trim(query) <>"" then query=" where " + query
sql= "SELECT * FROM 設備資源 " + query + " order by 編號 " '以編號排序
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
alls=rs.Recordcount
IF RS.BOF or RS.EOF THEN
Response.Write "無記錄"
else '跳至最后
cc=1
Do While (Not RS.EOF )
Response.Write " <tr ALIGN=""left""> " + chr(13)
Response.Write " <td bgcolor=""#E0EFE9""><span class=""font""> "
Response.Write cc
cc=cc+1
Response.Write " <td bgcolor=""#E0EFE9""><span class=""font""> "
Response.Write rs("編號")
Response.Write " </span></td> " + chr(13)
Response.Write " <td bgcolor=""#E0EFE9""><span class=""font""> "
Response.Write rs("使用人")
Response.Write " </span></td> " + chr(13)
Response.Write " <td bgcolor=""#E0EFE9""><span class=""font""> "
Response.Write rs("部門")
Response.Write " </span></td> " + chr(13)
Response.Write " <td bgcolor=""#E0EFE9""><span class=""font""> "
Response.Write rs("設備狀態")
Response.Write " </span></td> " + chr(13)
rs.MoveNext
Loop
rs.Close
END IF
Response.Write " </table><p> </p></body></html>"
%>
</DIV>
</table>
<DIV align=center>
</FONT>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -