📄 warehouse_new.asp
字号:
<%@ Language=VBScript %>
<%
'***********************************
'修改仓库信息
'入口参数：edit_whs_id( 要修改的仓库编号)
'出口参数：
'１。Tstr_whs_id(仓库编号)
'２。Tstr_whs_name(仓库名称)
'３。Tstr_whs_addr(仓库地址)
'4.Tstr_whs_telephone(联系电话)
'5 Tstr_whs_zipcode(邮政编号)
'作者：蒋柳 日期：２００１。６。４
'***********************************
%>
<HTML>
<HEAD>
<TITLE>添加仓库</TITLE>
<script language="vbscript">
<!--
Function checkTel(checkTel_checkStr)
dim checkTel_checkOK
dim checkstr
dim checkTel_decPoints
dim checkTel_allNum
checkTel_checkOK = "0123456789_#*** -,"
checkstr=trim(checkTel_checkStr)
checkTel = true
checkTel_decPoints = 0
checkTel_allNum = ""
for i = 1 to len(checkStr)
ch = mid(checkStr,i,1)
for j = 1 to len(checkTel_checkOK)
if ch = Mid (checkTel_checkOK,j,1) then
Exit For
end if
if j = len(checkTel_checkOK) then
checkTel = false
Exit For
end if
next
next
End function
Function checknum(checkNum_checkStr)
dim checkNum_checkOK
dim checkstr
dim checkNum_decPoints
dim checkNum_allNum
checkNum_checkOK = "0123456789."
checkstr=trim(checkNum_checkStr)
checknum = true
checkNum_decPoints = 0
checkNum_allNum = ""
for i = 1 to len(checkStr)
ch = Mid (checkStr,i,1)
for j = 1 to len(checkNum_checkOK)
if ch = Mid (checkNum_checkOK,j,1) then
Exit For
end if
if j = len(checkNum_checkOK) then
checknum = false
Exit For
end if
next
next
End function
Function Submit()
frm_whs_new.Submit
End Function
Function SubmitForm()
If Validate = false Then
Exit Function
else
Submit()
End If
End Function
Function Validate()
Validate = true
if trim(document.frm_whs_new.Tstr_whs_id.value) = "" then
msgbox "请输入仓库编码!",,"CMS系统提示"
Validate = False
Exit Function
End If
if checknum(document.frm_whs_new.Tstr_whs_id.value) = False then
msgbox "仓库编码必须为数字，请检查后重新输入!",,"Cms系统提示!"
Validate = False
Exit Function
End if
if trim(document.frm_whs_new.Tstr_whs_name.value) = "" then
msgbox "请输入仓库名称!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_whs_new.Tstr_whs_addr.value) = "" then
msgbox "请输入仓库地址!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_whs_new.Tstr_whs_addr.value) = "" then
msgbox "请输入仓库地址!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_whs_new.Tstr_whs_telephone) = "" then
msgbox "请输入仓库联系电话!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_whs_new.Tstr_whs_zipcode.value) = "" then
msgbox "请输入仓库地址的邮政编码!",,"CMS系统提示"
Validate = False
Exit Function
End If
if checknum(document.frm_whs_new.Tstr_whs_zipcode.value) = False then
msgbox "邮政编号必须为数字，请检查后重新输入!",,"Cms系统提示!"
Validate = False
Exit Function
End if
if checkTel(document.frm_whs_new.Tstr_whs_telephone.value) = False then
msgbox "你输入的电话号码有误，请检查后重新输入!",,"Cms系统提示"
Validate = False
Exit Function
End if
End function
-->
</script>
</HEAD>
<BODY>
<p><font size="5">仓库维护>>新增仓库</font></p>
<hr>
<form method="post" action="warehouse_new_opr.asp" name=frm_whs_new >
<input type= hidden name=tedit_whs_id >
<table width="75%" border="0">
<tr>
<td width="170"><div align="right">仓库代码：</div></td>
<td colspan="3" width="82%">
<input type="text" name="Tstr_whs_id" maxlength=3><Font color=red >***</Font>(请输入三位以内的数字)
</td>
</tr>
<tr>
<td width="170" height="2"><div align="right">仓库名称：</div></td>
<td colspan="3" width="82%" height="2">
<input type="text" name="Tstr_whs_name" size="30" maxlength=20 ><Font color=red >***</Font>(请输入15字以内的信息)
</td>
</tr>
<tr>
<td width="170">
<div align="right">仓库地址：</div>
</td>
<td colspan="3" width="82%">
<input type="text" name="Tstr_whs_addr" size="60" maxlength=30 ><Font color=red >***</Font>
</td>
</tr>
<tr>
<td width="170" height="15">
<div align="right">联系电话：</div>
</td>
<td colspan="3" height="15" width="82%" >
<input type="text" name="Tstr_whs_telephone" maxlength=20 ><Font color=red >***</Font>
</td>
</tr>
<tr>
<td width="170">
<div align="right">邮政编码：</div>
</td>
<td colspan="3" width="82%">
<input type="text" name="Tstr_whs_zipcode" maxlength=6 ><Font color=red >***</Font>
</td>
</tr>
<tr>
<td colspan="4">
<div align="center">
<hr>
<INPUT id=submit1 name=submit1 type=button value=提交 onclick='vbscript:SubmitForm()'>
<input type="button" name="Submit2" value="返回" onclick='window.location="warehouse_list.asp" '>
</div>
</td>
</tr>
</table>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -