📄 edit.asp
字号:
<%
'#################################################################
'# 兄弟资源网仓库管理 ver.2001
'#
'# 版权所有: 兄弟资源网
'#
'# 制作人 : 江湖兄弟
'#
'# 主页地址: http://soft.51dns.net/ 兄弟资源网
'#
'#################################################################
'#【版权声明】
'#
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛告诉我们
'#################################################################
%>
<%@ LANGUAGE="VBScript"%>
<%response.buffer=true%>
<%const title="修改品名"%>
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=title%></title>
<link rel=stylesheet type=text/css href=forum.css>
</head>
<body topmargin=0>
<!--#include file=myPrg.asp-->
<!--#include file=Opendb.inc-->
<%
CheckLogin
Showtitle(title)
getStorage(session("storage"))
%>
<%
nid=request.querystring("id")
'response.write "nid="&nid
if request("id")="" then
showerror("错误修改数据")
end if
if Request.ServerVariables("REQUEST_METHOD")="POST" then
errmsg=""
if request.form("name")="" then
errmsg="请填写名称！<br>"
end if
if request.form("unit")="" then
errmsg=errmsg+"请填写单位！<br>"
end if
if request.form("gg")="" then
errmsg=errmsg+"请填写规格！<br>"
end if
if request.form("hh")="" then
errmsg=errmsg+"请填写货号！<br>"
end if
if request.form("hm")="" then
errmsg=errmsg+"请填写货名！<br>"
end if
if request.form("max")="" then
errmsg=errmsg+"请填写最高存量！<br>"
end if
if request.form("min")="" then
errmsg=errmsg+"请填写最低存量！<br>"
end if
if request.form("address")="" then
errmsg=errmsg+"请填写储存地点！<br>"
end if
if errmsg<>"" then
showerror(errmsg)
end if
sql="select * from stock where name_id="&request("id")
rs.open sql,conn,3,2
if not rs.eof then
rs("name")=request.form("name")
' rs("storage_id")=session("storage")
' rs("type_id")=session("prnt")
rs("unit")=request.form("unit")
rs("rule")=request.form("gg")
rs("no")=request.form("hh")
rs("hm")=request.form("hm")
rs("max")=request.form("max")
rs("min")=request.form("min")
rs("address")=request.form("address")
rs.update
else
showerror("错误！没有该记录！")
end if
rs.close
response.redirect "list.asp?id="&request("id") '成功地留了言！
response.flush
else
sql="select * from stock where name_id="&request("id")
rs.open sql,conn,3,2
if not rs.eof then
%>
<form action="edit.asp" method="POST" name="input">
<p align=center><font color=red>请在以下的表格中修改相关的数据</font>
<p>
<table align=center border=0>
<input type=hidden name=id value=<%=nid%>>
<tr>
<td nowrap><font color=blue>名称：</td>
<td><input class=smallInput type=textbox name="name" value='<%=rs("name")%>'>**</td>
</tr>
<tr>
<td nowrap><font color=blue>计量单位：</td>
<td><input class=smallInput type=textbox name="unit" value='<%=rs("unit")%>'>**</td>
</tr>
<tr>
<td nowrap><font color=blue>规格：</td>
<td><input class=smallInput type=textbox name="gg" value='<%=rs("rule")%>'>**</td>
</tr>
<tr>
<td nowrap><font color=blue>货号：</td>
<td><input class=smallInput type=textbox name="hh" value='<%=rs("no")%>'>**</td>
</tr>
<tr>
<td nowrap><font color=blue>货名：</td>
<td><input class=smallInput type=textbox name="hm" value='<%=rs("hm")%>'>**</td>
</tr>
<tr>
<td nowrap><font color=blue>最高存量：</td>
<td><input class=smallInput type=textbox name="max" value='<%=rs("max")%>'>**</td>
</tr>
<tr>
<td nowrap><font color=blue>最低存量：</td>
<td><input class=smallInput type=textbox name="min" value='<%=rs("min")%>'>**</td>
</tr>
<tr>
<td nowrap><font color=blue>储存地点：</td>
<td><input class=smallInput type=textbox name="address" value='<%=rs("address")%>'>**</td>
</tr>
<tr>
<td>
<td ><br><input class=buttonface type=submit name=ok value=确定>
<input class=buttonface type=reset name=reset value=复原>
<input class=buttonface type=button name=retu value=返回 onclick=history.go(-1)>
</tr>
</table>
</form>
<%
rs.close
else
showerror("找不到该记录！")
end if
%>
<%end if%>
<!--#include file=copyright.asp-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -