📄 category_modify.asp
字号:
<%@ Language=VBScript %>
<%
'**************************************
'功能：修必选中的品种资料
'入口参数：
'tedit_stg_id(品种编号)
'出口参数：
'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("生产厂商")
'10.tedit_stg_id(要修改的品种编号)
'作者：蒋柳 日期：2001.6.4
'******************************************
%>
<%
'获得参数
Ledit_stg_id= Request("tedit_ctg_id")
%>
<%
'数据库连接
dim DBconn
set DBconn=server.CreateObject("ADODB.Connection")
DBconn.ConnectionTimeout =application("Connection2_Connectiontimeout")
DBconn.Open Application("Connection2_ConnectionString")'取得数据
set Rsctg=server.CreateObject ("ADODB.Recordset")
rsctg.CursorLocation=3
Sql="select Ctg_ID,Ctg_Name,Ctg_Spec,Ctg_TradePrice,Ctg_RetailPrice,Ctg_PutinStorePrice,Ctg_Unit,Ctg_ProduceNo,Ctg_ProduceFactory from Basic_category where ctg_id='"&Ledit_stg_id&"'"
Rsctg.Open Sql,DBconn,2
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<script language="vbscript">
<!--
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_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_modify_opr.asp" method="post" id=form1 name=frm_new>
<input type= hidden name=tedit_ctg_id value='<%=Ledit_stg_id%>'>
<P>品种代码：<%Response.Write rsctg("Ctg_ID")%>
<P>品种名称：<INPUT id=text2 name=Tstr_ctg_name maxlength=10 value='<%=rsctg("Ctg_Name")%>'><Font color=red >***</Font></P>
<P>品种规格：<INPUT id=text3 name=Tstr_ctg_spec maxlength=15 value='<%=rsctg("Ctg_Spec")%>'><Font color=red >***</Font></P>
<P> 批发价：<INPUT id=text4 name=Tstr_ctg_tradeprice maxlength=8 value='<%=rsctg("Ctg_TradePrice")%>'><Font color=red >***</Font>(币种为人民币，单位：元。请输入数字)</P>
<P> 零售价：<INPUT id=text5 name=Tstr_ctg_retailprice maxlength=8 value='<%=rsctg("Ctg_RetailPrice")%>'><Font color=red >***</Font>(币种为人民币，单位：元。请输入数字)</P>
<P> 入库价：<INPUT id=text6 name=Tstr_ctg_putinstoreprice maxlength=8 value='<%=rsctg("Ctg_PutinStorePrice")%>'><Font color=red >***</Font>(币种为人民币，单位：元。请输入数字)</P>
<P>品种单位：<INPUT id=text7 name=Tstr_ctg_unit maxlength=2 value='<%=rsctg("Ctg_Unit")%>'><Font color=red >***</Font></P>
<P>生产文号：<INPUT id=text8 name=Tstr_ctg_produceno maxlength=10 value='<%=rsctg("Ctg_ProduceNo")%>'><Font color=red >***</Font></P>
<P>生产厂商：<INPUT id=text9 name=Tstr_ctg_producefactory maxlength=15 value='<%=rsctg("Ctg_ProduceFactory")%>'><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>
<P> </P>
</BODY>
<%
DBconn.Close
%>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -