📄 viewunuse.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,2)
%>
<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>
<!--
//用于接收控件传来的用户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">
</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');"> </td>
<td><INPUT class="style6" id="Button2" type="button" value="闲置物资" name="Button1" onclick ="javascript:window.location = ('ViewUnuse.asp');"> </td>
<td><INPUT class="style1" id="Button3" type="button" value="部门物资" name="Button1" onclick ="javascript:window.location = ('ViewAllDept.asp');"> </td>
<td><INPUT class="style1" id="Button4" type="button" value="公司物资" name="Button1" onclick ="javascript:window.location = ('ViewAllCom.asp');"> </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 + -