📄 warehouse_modify_opr.asp
字号:
<%@ Language=VBScript %>
<%
'***********************************
'修改仓库信息
'入口参数：tedit_whs_id( 要修改的仓库编号)
'出口参数：
'１。Tstr_whs_id(仓库编号)
'２。Tstr_whs_name(仓库名称)
'３。Tstr_whs_addr(仓库地址)
'4.Tstr_whs_telephone(联系电话)
'5 Tstr_whs_zipcode(邮政编号)
'6 tedit_whs_id(要修改的仓库编号)
'作者：蒋柳 日期：２００１。６。４
'***********************************
%>
<%
if Session("Gs_StaffID")="" then
Response.Write "网页已过期，请重试！"
Response.End
end if
'取得参数
Ledit_whs_id=trim(Request("tedit_whs_id"))
lstr_whs_id=trim(Request("tedit_whs_id"))
lstr_whs_name=trim(Request("Tstr_whs_name"))
lstr_whs_addr=trim(Request("Tstr_whs_addr"))
lstr_whs_telephone=trim(Request("Tstr_whs_telephone"))
lstr_whs_zipcode=trim(Request("Tstr_whs_zipcode"))
%>
<%
'数据库连接
dim DBconn
set DBconn=server.CreateObject("ADODB.Connection")
DBconn.Open Application("Connection2_ConnectionString")
'验证新的仓库编号是否与以前冲突。
set Rswhs_check=server.CreateObject ("adodb.recordset")
sql_check="select whs_id whs_name from basic_warehouse where whs_id!='"&Lstr_whs_id&"'and whs_name='"&lstr_whs_name&"'"
rswhs_check.Open sql_check,dbconn,2
if rswhs_check.EOF then
'更改数据
set Rswhs=server.CreateObject ("ADODB.Recordset")
Sql1="select whs_id,whs_name,whs_addr,whs_telephone,whs_zipcode from Basic_warehouse where whs_id='"&Ledit_whs_id&"'order by whs_id,whs_name"
Rswhs.Open Sql1,DBconn,2,3,1
Rswhs("whs_id")=Lstr_whs_id
rswhs("whs_name")=Lstr_whs_name
rswhs("whs_addr")=Lstr_whs_addr
rswhs("whs_telephone")=Lstr_whs_telephone
rswhs("whs_zipcode")=Lstr_whs_zipcode
rswhs.Update
%>
<HTML>
<HEAD>
<%
else
%>
<script language="vbscript">
msgbox "你修改的仓库名称已经存在，请重新输入！",,"CMS系统提示"
window.history.back()
</script>
<%
end if
%>
</HEAD>
<BODY>
<form name="saveok" action="warehouse_list.asp">
<script language="vbscript">
msgbox "已成功修改记录",,"CMS系统提示"
window.document.saveok.submit()
</script>
</form>
</BODY>
<% DBconn.Close %>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -