📄 viewalldept.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,Count,Status,IDs,User
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

Status = Trim(Request.QueryString("type"))
IDs = Trim(CStr(Request.QueryString("ids")))
User = Trim(CStr(Request.QueryString("User")))

'处理非法登录
If Login <> 1 Then
	ec_Class.Founderr = True
	ec_Class.Message = "非法登录"
	Call ec_Class.showMessage("Login.asp","非法登录",2,1)
Else
	If Status <> "" And IDs <> "" Then		
		Select Case Cint(Status)
			Case 1				
				Call mc_Class.dealMaterial("1","",IDs)
			Case 2
				Call mc_Class.dealMaterial("0","",IDs)				
			Case 3
				Call mc_Class.dealMaterial("2","",IDs)
			Case 4
				Call mc_Class.dealMaterial("1","",IDs)
			Case 5
				Call mc_Class.dealMaterial("3",User,IDs)
			Case 6
				Call mc_Class.dealMaterial("2","",IDs)			
		End Select
	End If
	Call mc_Class.getMaterialByUserID(UserID,23)
	
%>
<HTML>
	<HEAD>
		<title>materialList</title>
		<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
		<LINK href="style.css" type="text/css" rel="stylesheet">
		<script language=javascript>
		<!--
		
		function UpdateMaterial(){
			//用于标识选择记录的个数
			var intCount=0;
			//将要修改的物资ID
			var id = ""	
			//获取选择栏的所有Checkbox控件
			var checks = self.document.all.item("Checkbox1");
			for(var i=0;i<checks.length;i++){
				if(self.document.all.item("Checkbox1",i).checked){
					intCount ++;
					id = self.document.all.item("Checkbox1",i).id + "";			
				}		
			}
			if(intCount == 0){
				alert("请选择要修改的物资！");
				return false;
			}
			else if(intCount == 1){				
				//将要修改的物资ID传入修改页
				window.location = ('UpdateMaterial.asp?sid=' + id );
			}
			else{
				alert("你只能选择一个物资进行修改！");
				return false;
			}
		}
		
		//用于接收控件传来的用户ID值
		var user2
		function DealMaterial(type){
			//用于标识选择记录的个数
			var intCount=0;
			//用于记录选择物资ID的字符串列表
			var ids=""
			
			//处理方式字符串,用于提示用户
			var typestr=""
			switch(type){
				case 1:
					typestr = "入库"
					break
				case 2:
					typestr = "出库"
					break
				case 3:
					typestr = "移入"
					break
				case 4:
					typestr = "移出"
					break
				case 5:
					typestr = "分配"
					break;
				case 6:
					typestr = "退还"
					break;				
				default:
					typestr = ""
					break
			}	
			//用于记录责任人ID			
			var user1 = user2;
			
			//获取选择栏的所有Checkbox控件
			var checks = self.document.all.item("Checkbox1");
			for(var i=0;i<checks.length;i++){
				if(self.document.all.item("Checkbox1",i).checked){
					intCount ++;
					//这里的单引号很重要，有兴趣的读者可去掉试试，会出现一些有趣的BUG
					ids = ids + "'" + self.document.all.item("Checkbox1",i).id + "',";			
				}		
			}			
			if(intCount == 0){
				alert("请选择要"+typestr+"的物资！");
				return false;
			}
			else if(confirm("你确认要"+typestr+"这些物资吗？")){
				//去掉字符串末尾的逗号
				ids = ids.substr(0,ids.length-1);				
				window.location = ('ViewAllDept.asp?type=' + type + '&ids=' + ids + '&user='+ user1 );
			}
		}
		//-->
		</script>
	</HEAD>
	<body>
		<form id="TaskList" method="post" runat="server">
			<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="120">部门全部物资</TD>
								<TD align="right">
									 <INPUT class="style7" id="Button10" type="button" value="移  出" name="Button1"onclick ="DealMaterial(4)">
									<INPUT class="style7" id="Button13" type="button" value="修  改" name="Button1"  onclick ="UpdateMaterial()">
									  <SELECT id="Select1" name="UserID" onchange="javascript:parent.user2 = this.value;">
									 <OPTION  value=""></OPTION>
										<% 
										'读取所有的用户信息,导入下选列表
										Call uc_Class.getAllUser()
										Do While not uc_Class.dbc_Class.Rs.Eof%>
										<OPTION  value=<%=uc_Class.dbc_Class.Rs("ID")%>><%=uc_Class.dbc_Class.Rs("Name")%></OPTION>
										<%uc_Class.dbc_Class.Rs.MoveNext()
										Loop
										uc_Class.dbc_Class.CloseConn()
										%>
									</SELECT><INPUT class="style7" id="Button15" type="button" value="分 配" name="Button1" onclick ="DealMaterial(5)" >
								</TD>
							</TR>
						</TABLE>
					</td>
				</tr>
				<tr>
					<td>
						<TABLE cellSpacing="0" cellPadding="0" border="0">
							<tr>
								<td><INPUT class="style1" id="Button1" type="button" value="我的物资" name="Button1" onclick ="javascript:window.location = ('ViewPersonal.asp');">&nbsp;</td>
								<td><INPUT class="style1" id="Button2" type="button" value="闲置物资" name="Button1" onclick ="javascript:window.location = ('ViewUnuse.asp');">&nbsp;</td>
								<td><INPUT class="style6" id="Button3" type="button" value="部门物资" name="Button1" onclick ="javascript:window.location = ('ViewAllDept.asp');">&nbsp;</td>
								<td><INPUT class="style1" id="Button4" type="button" value="公司物资" name="Button1" onclick ="javascript:window.location = ('ViewAllCom.asp');">&nbsp;</td>
								<td align="right"></td>
							</tr>
						</TABLE>
						<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>
							<%Do While not mc_Class.dbc_Class.Rs.Eof%>
							<TR bgColor="#e8f4ff">								
								<TD align="center"><FONT color="#000000"><INPUT type="checkbox" name="Checkbox1" id =<%=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>
							
						</TABLE>
					</TD>
				</TR>
			</table>
		</form>
		<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>
<%mc_Class.dbc_Class.CloseConn()
End If%>
⌨️ 快捷键说明

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