📄 warehouse_new_opr.asp
字号:
<%@ Language=VBScript %>
<%
'***********************************
'新增仓库
'出口参数：无
'入口参数：
'１。Tstr_whs_id(仓库编号)
'２。Tstr_whs_name(仓库名称)
'３。Tstr_whs_addr(仓库地址)
'4.Tstr_whs_telephone(联系电话)
'5 Tstr_whs_zipcode(邮政编号)
'作者：蒋柳 日期：２００１。６。４
'***********************************
%>
<HTML>
<HEAD>
<%
if Session("Gs_StaffID")="" then
Response.Write "网页已过期，请重试！"
Response.End
end if
Lstr_whs_id=Request("Tstr_whs_id")
Lstr_whs_name=request("Tstr_whs_name")
Lstr_whs_addr=Request("Tstr_whs_addr")
Lstr_whs_telephone=request("Tstr_whs_telephone")
Lstr_whs_zipcode=Request("Tstr_whs_zipcode")
%>
</HEAD>
<BODY>
<%
'数据库连接
dim DBconn
set DBconn=server.CreateObject("ADODB.Connection")
DBconn.Open Application("Connection2_ConnectionString")
'取得数据
set Rswhs=server.CreateObject ("ADODB.Recordset")
rswhs.CursorLocation=3
Sql="select whs_id,whs_name from Basic_warehouse where whs_id='"&Lstr_whs_id&"' or whs_name='"&Lstr_whs_name&"'"
Rswhs.Open Sql,DBconn,2
if Rswhs.EOF then
sqlinsert="insert into basic_warehouse(whs_id,whs_name,whs_addr,whs_telephone,whs_zipcode) values ('"&Lstr_whs_id&"','"&Lstr_whs_name&"','"&Lstr_whs_addr&"','"&Lstr_whs_telephone&"','"&Lstr_whs_zipcode&"')"
DBconn.Execute sqlinsert
%>
<%else
%>
<script language="vbscript">
<!--
msgbox "你输入的记录已经存在，请返回重新输入",,"CMS系统提示"
window.history.back()
-->
</script>
<%
end if
%>
<form name="saveok" action="warehouse_list.asp">
<script language="vbscript">
msgbox "已成功增加记录",,"CMS系统提示"
window.saveok.submit()
-->
</script>
</form>
</BODY>
<%
DBconn.Close
set DBconn=nothing
%>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -