📄 category_new.asp
字号:
<%@ Language=VBScript %>
<%
'************************************************
'功能：新增一个品种信息
'入口叁数：无
'出口参数：
'1.tstr_ctg_id(品种编号)
'2.tstr_ctg_name(品种名称)
'3.tstr_ctg_spec("品种规格")
'4。tstr_ctg_tradeprice("批发价")
'5.tstr_ctg_retailprice("零售价")
'6.tstr_ctg_putinstoreprice("入库价")
'7.Tstr_ctg_unit("单位")
'8.tstr_ctg_produceno("生产文号")
'9.tstr_producefactory("生产厂商")
'作者：蒋柳 日期：2001.6.4
'****************************************************
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<script language="vbscript">
<!--
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_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_new.Tstr_ctg_id.value) = "" then
msgbox "请输入品种代码!",,"CMS系统提示"
Validate = False
Exit Function
End If
if checknum(document.frm_new.Tstr_ctg_id.value) =false then
msgbox "品种代码只能由数字组成!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_new.Tstr_ctg_name.value) = "" then
msgbox "请输入品种名称!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_new.Tstr_ctg_spec.value) = "" then
msgbox "请输入品种规格!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_new.Tstr_ctg_tradeprice.value) = "" then
msgbox "请输入品种批发价!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_new.Tstr_ctg_retailprice.value) = "" then
msgbox "请输入品种零售价!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_new.Tstr_ctg_putinstoreprice.value) = "" then
msgbox "请输入品种入库价!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_new.Tstr_ctg_unit.value) = "" then
msgbox "请输入品种单位!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_new.Tstr_ctg_produceno.value) = "" then
msgbox "请输入品种批发文号!",,"CMS系统提示"
Validate = False
Exit Function
End If
if trim(document.frm_new.Tstr_ctg_producefactory.value) = "" then
msgbox "请输入品种批发厂商!",,"CMS系统提示"
Validate = False
Exit Function
End If
if not(Isnumeric(document.frm_new.Tstr_ctg_tradeprice.value)) then
msgbox "你输入的品种批发价格有误!",,"Cms系统提示"
Validate = False
Exit Function
End if
if not(isnumeric(document.frm_new.Tstr_ctg_retailprice.value)) then
msgbox "你输入的品种零售价格有误!",,"Cms系统提示"
Validate = False
Exit Function
End if
if not(isnumeric(document.frm_new.Tstr_ctg_putinstoreprice.value)) then
msgbox "你输入的品种入库价格有误!",,"Cms系统提示"
Validate = False
Exit Function
End if
End function
-->
</script>
</HEAD>
<BODY>
<P>品种维护>>新增品种</P>
<HR>
<form action="category_new_opr.asp" name=frm_new method="post" >
<P>品种代码：<INPUT id=text1 name=Tstr_ctg_id maxlength=6><Font color=red >***</Font>(请输入六位数以内的数字)</P>
<P>品种名称：<INPUT id=text2 name=Tstr_ctg_name maxlength=10 ><Font color=red >***</Font></P>
<P>品种规格：<INPUT id=text3 name=Tstr_ctg_spec maxlength=15><Font color=red >***</Font></P>
<P> 批发价：<INPUT id=text4 name=Tstr_ctg_tradeprice maxlength=8><Font color=red >***</Font>(币种为人民币，单位：元。请输入数字)</P>
<P> 零售价：<INPUT id=text5 name=Tstr_ctg_retailprice maxlength=8><Font color=red >***</Font>(币种为人民币，单位：元。请输入数字)</P>
<P> 入库价：<INPUT id=text6 name=Tstr_ctg_putinstoreprice maxlength=8><Font color=red >***</Font>(币种为人民币，单位：元。请输入数字)</P>
<P>品种单位：<INPUT id=text7 name=Tstr_ctg_unit maxlength=2><Font color=red >***</Font></P>
<P>生产文号：<INPUT id=text8 name=Tstr_ctg_produceno maxlength=5><Font color=red >***</Font></P>
<P>生产厂商：<INPUT id=text9 name=Tstr_ctg_producefactory maxlength=15><Font color=red >***</Font></P>
<HR>
<P>
<INPUT id=submit1 name=submit1 type=button value=提交 onclick='vbscript:SubmitForm()'><INPUT id=button1 name=button1 type=button value="返回" onclick='window.location="category_list.asp" ' ></P>
<P> </P>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -