📄 addmaterial.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
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"))

'处理非法登录
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
		'此段声明表示遇到错误即跳到下一句
		On Error Resume Next	
		'存储数据
		Call mc_Class.addMaterial(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
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="addmaterial.asp?Action=1">
						<TABLE cellSpacing="0" cellPadding="0" align="center" class="style8" width="542" border="1">
							<tr>
								<td align="right" width="120">物资编号：
								</td>
								<td width="416" align="left">&nbsp;&nbsp;<INPUT type="text" ID="Text1" NAME="id1" size="20"> <FONT face="宋体" color="#ff0000">
										*</FONT>
								</td>
							</tr>
							<tr>
								<td align="right">名称：
								</td>
								<td align="left">&nbsp;&nbsp;<INPUT type="text" ID="Text2" NAME="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">
								</td>
							</tr>
							<tr>
								<td align="right">存放地点：
								</td>
								<td align="left">&nbsp;&nbsp;<INPUT type="text" ID="Text4" NAME="place">
								</td>
							</tr>
							<tr>
								<td align="right">责任人：
								</td>
								<td align="left">&nbsp;
									<SELECT id="Select1" name="UserID">
									<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>
								</td>
							</tr>
							<tr>
								<td align="right">状态：
								</td>
								<td align="left">&nbsp; <INPUT id="Radio1" type="radio" value="0" name="Status">出库 <INPUT type="radio" ID="Radio2" VALUE="1" NAME="Status" checked>公司库存
									<INPUT type="radio" ID="Radio3" VALUE="2" NAME="Status" >部门库存 <INPUT type="radio" ID="Radio4" VALUE="3" NAME="Status">占有
									<FONT face="宋体" color="#ff0000">*</FONT>
								</td>
							</tr>
							<tr>
								<td align="right">好坏：
								</td>
								<td align="left">&nbsp; <INPUT type="radio" ID="Radio5" VALUE="1" NAME="Good" checked>好 <INPUT type="radio" ID="Radio6" VALUE="0" NAME="Good">坏
									<FONT face="宋体" color="#ff0000">*</FONT>
								</td>
							</tr>
							<tr>
								<td align="right">备注：
								</td>
								<td align="left"><TEXTAREA id="Textarea1" name="Remark" rows="5" cols="21"></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 + -