📄 category_new_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("生产厂商")
'作者：蒋柳 日期：2001.6.4
'****************************************************
%>
<%
'获得参数
Lstr_ctg_id=Request("tstr_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")
%>
<%
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 from Basic_category where ctg_id='"&Lstr_ctg_id&"' or ctg_name='"&Lstr_ctg_name&"'"
Rsctg.Open Sql,DBconn,2
if Rsctg.EOF then
sqlinsert="insert into basic_category (ctg_id,ctg_name,ctg_spec,ctg_tradeprice,ctg_retailprice,ctg_putinstoreprice,ctg_unit,ctg_produceno,ctg_producefactory) values( '"&Lstr_ctg_id&"','"&Lstr_ctg_name&"','"&Lstr_ctg_spec&"',"&Lstr_ctg_tradeprice&","&Lstr_ctg_retailprice&","&Lstr_ctg_putinstoreprice&",'"&Lstr_ctg_unit&"','"&Lstr_ctg_produceno&"','"&Lstr_ctg_producefactory&"')"
'Response.Write sqlinsert
DBconn.Execute sqlinsert
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%else%>
<script language="vbscript">
msgbox "你输入的记录已经存在，请返回重新输入",,"CMS系统提示"
window.history.back
</script>
<P> </P>
<%end if %>
<form name="saveok" action="category_list.asp">
<script language="vbscript">
msgbox "已成功增加记录",,"CMS系统提示"
window.saveok.submit()
</script>
</form>
<P> </P>
</BODY>
<%
DBconn.Close
%>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -