📄 seek.asp

📁 ASP+sql 组成的系统．功能强大
💻 ASP
字号:
<%@ Language=VBScript %>
<!--#Include File="ErrorClass.asp"-->
<!--#Include File="Class.asp"-->
<%
'此段声明表示遇到错误即跳到下一句
On Error Resume Next
Dim mc_Class,ec_Class,uc_Class,UserID,Login,Field1,Method1,Condition,Count
Set mc_Class = New MaterialClass
Set ec_Class = New ErrorClass
Set uc_Class = New UserClass
UserID = Trim(CStr(Request.Cookies("UserID")))
Login = CInt(Request.Cookies("Login"))
Count = 0

'处理非法登录
If Login <> 1 Then
	ec_Class.Founderr = True
	ec_Class.Message = "非法登录"
	Call ec_Class.showMessage("Login.asp","非法登录",2,1)
End If

If getForm() = 1 Then
	Select Case Cint(Field1)
		Case 1
			'依物资ID查询
			Call mc_Class.SeekMaterialByID(Condition,Cint(Method1))
		Case 2
			'依物资名称查询
			Call mc_Class.SeekMaterialByName(Condition,Cint(Method1))
		Case 3
			'依物资规格查询
			Call mc_Class.SeekMaterialBySpec(Condition,Cint(Method1))
		Case 4
			'依物资存放地点查询
			Call mc_Class.SeekMaterialByPlace(Condition,Cint(Method1))
		Case 5
			'依物资责任人查询
			Call mc_Class.SeekMaterialByUserID(Condition,Cint(Method1))
		Case Else
			'默认方式查询
		    Call mc_Class.SeekMaterialByID(Condition,Cint(Method1))
	End Select
End If



'功能：取得查询信息
Function getForm()	
	Field1 = trim(Request.Form("Field1"))
	Method1 = trim(Request.Form("Method1"))
	Condition = trim(Request.Form("Condition"))	
	If Field1 = "" OR Method1 = "" Then
		getForm = 0
	Else
		getForm = 1
	End IF
End Function

%>

<HTML>
	<HEAD>
		<title>查询</title>
		<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
		<LINK href="style.css" type="text/css" rel="stylesheet">
	</HEAD>
	<body>		
			<table id="Table1" cellSpacing="0" cellPadding="0" width="80%" align="center">
				<tr>
					<td vAlign="top" height="38">
						<TABLE class="style8" id="Table2" width="100%" border="0">
							<TR>
								<TD width="20"><IMG height="20" src="Image/26.gif" width="20"></TD>
								<TD width="80">物资查询</TD>
								<TD align="right">									</TD>
							</TR>
						</TABLE>
					</td>
				</tr>
				<tr>
					<td>
					<form id="Form1" method="post" action="Seek.asp">
						<TABLE cellSpacing="0" cellPadding="0" border="0" align=center>
							<tr>
								<td align=center>
								请选择查询依据字段：
								<SELECT ID="Field1" NAME="Field1" >
								<OPTION   value = "1">编号</OPTION>
								<OPTION   value = "2">名称</OPTION>
								<OPTION   value = "3">规格</OPTION>
								<OPTION   value = "4">存放地点</OPTION>
								<OPTION   value = "5">责任人</OPTION>
								</SELECT>
								查询方式：
								<SELECT ID="Method1" NAME="Method1" >
								<OPTION value = "1">完全匹配</OPTION>
								<OPTION value = "2">模糊方式</OPTION>
								</SELECT>
								值：<INPUT type="text" ID="Condition" NAME="Condition" width=60 class = "Style00">
								<INPUT type="submit" value="查  询" ID="Submit1" NAME="Submit1" class = "Style1" >
								</td>
							</tr>
						</TABLE>
						</form>
						<hr color="#666666" SIZE="1">
					</td>
				</tr>
				<TR>
					<TD>
						<TABLE class="style00" cellSpacing="1" cellPadding="1" width="100%">
							<TR bgColor="#337fb2">
								<TD align="center" width="5%"><FONT color="#ffffff">选择</FONT></TD>
								<TD align="center" width="15%"><FONT color="#ffffff">名称</FONT></TD>
								<TD align="center" width="20%"><FONT color="#ffffff">规格</FONT></TD>
								<TD align="center" width="10%"><FONT color="#ffffff">地点</FONT></TD>
								<TD align="center" width="10%"><FONT color="#ffffff">责任人</FONT></TD>
								<TD align="center" width="10%"><FONT color="#ffffff">状态</FONT></TD>
								<TD align="center" width="10%"><FONT color="#ffffff">是否完好</FONT></TD>
								<TD align="center" width="20%"><FONT color="#ffffff">备注</FONT></TD>
							</TR>
							<%IF getForm() = 1 Then							
							Do While not mc_Class.dbc_Class.Rs.Eof%>
							<TR bgColor="#e8f4ff">								
								<TD align="center"><FONT color="#000000"><INPUT id="Checkbox1" type="checkbox" name="Checkbox1" value =<%=Cstr(mc_Class.dbc_Class.Rs("ID"))%>></FONT></TD>
								<TD align="center"><FONT color="#000000"><%=mc_Class.dbc_Class.Rs("Name")%></FONT></TD>
								<TD align="center"><FONT color="#000000"><%=mc_Class.dbc_Class.Rs("Spec")%></FONT></TD>
								<TD align="center"><FONT color="#000000"><%=mc_Class.dbc_Class.Rs("Place")%></FONT></TD>
								<TD align="center"><FONT color="#000000"><%=uc_Class.getUserName(mc_Class.dbc_Class.Rs("UserID"))%></FONT></TD>
								<TD align="center"><FONT color="#000000"><%=mc_Class.getStatus(Cint(mc_Class.dbc_Class.Rs("Status")))%></FONT></TD>
								<TD align="center"><FONT color="#000000"><%=mc_Class.getGood(CBool(mc_Class.dbc_Class.Rs("Good")))%></FONT></TD>
								<TD align= "center"><FONT color="#000000"><%=mc_Class.dbc_Class.Rs("Remark")%></FONT></TD>
							</TR>	
							<%Count = Count + 1
							mc_Class.dbc_Class.Rs.MoveNext()
							Loop%>
							<tr>
								<td colspan = 8 align=right>共有<%=Count%>条记录</td>
							</tr>
							<%mc_Class.dbc_Class.CloseConn()%>
							<%End IF%>
						</TABLE>
					</TD>
				</TR>
			</table>		
		<hr width="80%" color="#666666" SIZE="1">
		<P align="center"><FONT color="white" size="2">程序设计——<A href="mailto:ymhdhlf@163.com">黄 雷</A></FONT></P>
	</body>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -