📄 category_modify_opr.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("生产厂商")
'10.tedit_stg_id(要修改的品种编号)
'作者：蒋柳 日期：2001.6.4
'******************************************
%>
<%
'获得参数
Lstr_ctg_id=Request("tedit_ctg_id")
Lstr_ctg_name=Request("tstr_ctg_name")
Lstr_ctg_spec=Request("tstr_ctg_spec")
Lstr_ctg_tradeprice=Request("tstr_ctg_tradeprice")
Lstr_ctg_retailprice=Request("tstr_ctg_retailprice")
Lstr_ctg_putinstoreprice=Request("tstr_ctg_putinstoreprice")
Lstr_ctg_unit=Request("Tstr_ctg_unit")
Lstr_ctg_produceno=Request("tstr_ctg_produceno")
Lstr_ctg_producefactory=Request("tstr_ctg_producefactory")
Ledit_ctg_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_check=server.CreateObject ("adodb.recordset")
sql_check="select ctg_id from basic_category where ctg_name='"&Lstr_ctg_name&"' and ctg_id<>'"&trim(Lstr_ctg_id)&"'"
Rsctg_check.Open sql_check,dbconn,2
if Rsctg_check.EOF then
'更改数据
set Rsctg=server.CreateObject ("ADODB.Recordset")
Sql1="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_ctg_id&"'"
Rsctg.Open Sql1,DBconn,2,3,1
Rsctg("Ctg_ID")=Lstr_ctg_id
rsctg("ctg_name")=Lstr_ctg_name
rsctg("ctg_spec")=Lstr_ctg_spec
rsctg("ctg_tradeprice")=Lstr_ctg_tradeprice
rsctg("ctg_retailprice")=Lstr_ctg_retailprice
rsctg("ctg_putinstoreprice")=Lstr_ctg_putinstoreprice
rsctg("ctg_unit")=Lstr_ctg_unit
rsctg("ctg_produceno")=Lstr_ctg_produceno
rsctg("ctg_producefactory")=Lstr_ctg_producefactory
rsctg.Update
%>
<%else
%>
<script language="vbscript">
msgobx "你修改的品种名称已经在数据中存在!",,"CMS系统提示"
window.history.back();
</script>
<%
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form name="saveok" action="category_list.asp">
<script language="vbscript">
msgbox "已成功修改记录",,"CMS系统提示"
window.document.saveok.submit()
</script>
</form>
<P> </P>
</BODY>
<%
DBconn.Close
%>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -