📄 updatematerial.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,GID
Dim ID1,Name1,Spec,Place,UserID1,Status,Good,Remark
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"))
'获取传递的参数
GID = CStr(Trim(Request.QueryString("sid")))

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

'Action变量用于标识用户按下“提交”按钮
If Trim(Request.QueryString("Action")) = "1" Then
	If getForm() = 1 Then
		'存储数据
		Call mc_Class.updateMaterial(ID1,Name1,Spec,Place,UserID1,Cint(Status),Cint(Good),Remark)	
		'对错误的处理
		IF ERR.number = 0 Then				 
			ec_Class.Message = "更新成功"
			Call ec_Class.showMessage("AddMaterial.asp","成功",2,2)
		Else
			ec_Class.Founderr = True
			ec_Class.Message = ERR.Description
			Call ec_Class.showMessage("AddMaterial.asp","失败",2,2)
		End If
		 
	Else
		Call ec_Class.showMessage("AddMaterial.asp","更新信息有误",2,2)
	End If
ElseIf GID <> "" Then
	'取得编号为GID的物资信息,存到本页的临时变量中
	Call mc_Class.SeekMaterialByID(GID,1)
	If Not mc_Class.dbc_Class.Rs.EOF Then
		Do While not mc_Class.dbc_Class.Rs.Eof
			ID1 = Cstr(mc_Class.dbc_Class.Rs("ID"))
			Name1 = Cstr(mc_Class.dbc_Class.Rs("Name"))
			Spec = Cstr(mc_Class.dbc_Class.Rs("Spec"))
			Place = Cstr(mc_Class.dbc_Class.Rs("Place"))
			UserID1 = Cstr(mc_Class.dbc_Class.Rs("UserID"))
			Status = CInt(mc_Class.dbc_Class.Rs("Status"))
			Good = CBool(mc_Class.dbc_Class.Rs("Good"))
			Remark = Cstr(mc_Class.dbc_Class.Rs("Remark"))	
			mc_Class.dbc_Class.Rs.MoveNext()
		Loop		
	Else				 
		ec_Class.Founderr = True
		ec_Class.Message = "无此物资信息！"
		Call ec_Class.showMessage("AddMaterial.asp","失败",2,2)	
	End If
	mc_Class.dbc_Class.CloseConn()
End If


'功能：取得查询信息并校验信息是否有效
Function getForm()	
	ID1 = trim(Request.Form("ID1"))
	Name1 = trim(Request.Form("Name1"))
	Spec = trim(Request.Form("Spec"))
	Place= trim(Request.Form("Place"))	
	UserID1= trim(Request.Form("UserID"))
	Status= trim(Request.Form("Status"))
	Good= trim(Request.Form("Good"))
	Remark= trim(Request.Form("Remark"))
	
	If ID1 = "" Then		
		ec_Class.Founderr = True
		ec_Class.Message = "物资编号不能为空<br>"		
	End IF
	If Name1 = "" Then		
		ec_Class.Founderr = True
		ec_Class.Message = ec_Class.Message + "物资名称不能为空<br>"		
	End IF	
	If Status = "" Then		
		ec_Class.Founderr = True
		ec_Class.Message = ec_Class.Message + "物资状态不能为空<br>"		
	End IF
	If Good = "" Then		
		ec_Class.Founderr = True
		ec_Class.Message = ec_Class.Message + "物资好坏不能为空<br>"		
	End IF
	If ec_Class.Founderr = True 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>
					<hr color="#666666" SIZE="1">
				</td>
			</tr>
			<TR>
				<TD>
					<br>
					<br>
					<form id="Form1" method="post" action="updatematerial.asp?Action=1">
						<TABLE cellSpacing="0" cellPadding="0" align="center" class="style8" width="564" border="1">
							<tr>
								<td align="right" width="120">物资编号：
								</td>
								<td width="438" align="left">&nbsp;&nbsp;<INPUT type="text" ID="Text1" NAME="id2" size="20" disabled value="<%=ID1%>"> <INPUT type="hidden" ID="Text5" NAME="id1" size="20" value="<%=ID1%>"> <FONT face="宋体" color="#ff0000">
										*</FONT>
								</td>
							</tr>
							<tr>
								<td align="right">名称：
								</td>
								<td align="left">&nbsp;&nbsp;<INPUT type="text" ID="Text2" NAME="name1" value="<%=Name1%>"> <FONT face="宋体" color="#ff0000">
										*</FONT>
								</td>
							</tr>
							<tr>
								<td align="right">规格：
								</td>
								<td align="left">&nbsp;&nbsp;<INPUT type="text" ID="Text3" NAME="Spec" value="<%=Spec%>">
								</td>
							</tr>
							<tr>
								<td align="right">存放地点：
								</td>
								<td align="left">&nbsp;&nbsp;<INPUT type="text" ID="Text4" NAME="place" value="<%=Place%>" >
								</td>
							</tr>
							<tr>
								<td align="right">责任人：
								</td>
								<td align="left">&nbsp;
									<SELECT id="Select1" name="UserID">
										<%If UserID1="" Then%><OPTION  value="" selected ><%Else%><OPTION  value=""><%End If%></OPTION>
										<% 
										'读取所有的用户信息,导入下选列表
										Call uc_Class.getAllUser()
										Do While not uc_Class.dbc_Class.Rs.Eof
										'判断责任人，并将其选中
										If UserID1=uc_Class.dbc_Class.Rs("ID") Then%>
										<OPTION  value="<%=uc_Class.dbc_Class.Rs("ID")%>" selected><%=uc_Class.dbc_Class.Rs("Name")%></OPTION>
										<%Else%>
										<OPTION  value="<%=uc_Class.dbc_Class.Rs("ID")%>"><%=uc_Class.dbc_Class.Rs("Name")%></OPTION>
										<%End If										
										uc_Class.dbc_Class.Rs.MoveNext()
										Loop
										uc_Class.dbc_Class.CloseConn()
										%>
									</SELECT>
								</td>
							</tr>
							<tr>
								<td align="right">状态：
								</td>
								<td align="left">&nbsp; 
									<%If Status=0 Then%>
									<INPUT id="Radio1" type="radio" value="0" name="Status" checked>出库 
									<%Else%>
									<INPUT id="Radio7" type="radio" value="0" name="Status">出库 
									<%End If%>
									<%If Status=1 Then%>
									<INPUT id="Radio8" type="radio" value="1" name="Status" checked>公司库存 
									<%Else%>
									<INPUT id="Radio9" type="radio" value="1" name="Status">公司库存 
									<%End If%>
									<%If Status=2 Then%>
									<INPUT id="Radio10" type="radio" value="2" name="Status" checked>部门库存 
									<%Else%>
									<INPUT id="Radio11" type="radio" value="2" name="Status">部门库存 
									<%End If%>
									<%If Status=3 Then%>
									<INPUT id="Radio12" type="radio" value="3" name="Status" checked>占有 
									<%Else%>
									<INPUT id="Radio13" type="radio" value="3" name="Status">占有 
									<%End If%>									
									<FONT face="宋体" color="#ff0000">*</FONT>
								</td>
							</tr>
							<tr>
								<td align="right">好坏：
								</td>
								<td align="left">&nbsp; 
									<%If Good Then%><INPUT type="radio" ID="Radio5" VALUE="1" NAME="Good" checked>好
									<%Else%><INPUT type="radio" ID="Radio2" VALUE="1" NAME="Good">好
									<%End If%>
									<%If not Good Then%><INPUT type="radio" ID="Radio3" VALUE="0" NAME="Good" checked>坏
									<%Else%><INPUT type="radio" ID="Radio4" VALUE="0" NAME="Good">坏
									<%End If%>
									<FONT face="宋体" color="#ff0000">	*</FONT>
								</td>
							</tr>
							<tr>
								<td align="right">备注：
								</td>
								<td align="left"><TEXTAREA id="Textarea1" name="Remark" rows="5" cols="21"> <%=Remark%> </TEXTAREA>
								</td>
							</tr>
							<tr>
								<td align="center" colspan="2"><INPUT type="submit" value="提  交" ID="Submit1" NAME="Submit1" class="style1">&nbsp;&nbsp;
									<INPUT type="reset" value="重  写" ID="Reset1" NAME="Reset1" class="style1"></td>
							</tr>
						</TABLE>
					</form>
				</TD>
			</TR>
		</table>
		<br>
		<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 + -