⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 pc.asp

📁 月光机器管理器
💻 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 + -