📄 edit.asp
字号:
<%@ LANGUAGE="VBScript"%>
<html>
<head>
<title>提货单管理</title>
<style type="text/css">
<!--
.STYLE2 { font-family: "方正姚体";
color: #0000FF; font-size: 30pt;}
body { background-image: url(images/1.gif);}
.STYLE3 {font-size: 12px}
-->
</style>
</head>
<body topmargin=0>
<p> </p>
<p>
<!--#include file="conn.asp"-->
<!--#include file=function.asp-->
<%
getcangku(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("unit")=request.form("unit")
rs("rule")=request.form("gg")
rs("num")=request.form("hh")
rs("mingcheng")=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
%>
</p>
<form action="edit.asp" method="POST" name="input">
<p align=left class="style1 STYLE2">提货单管理
<p align=center>
<p>
<table align=center border=0>
<input type=hidden name=id value=<%=nid%>>
<tr>
<td nowrap><font color=blue><span class="STYLE3">名称：</span></td>
<td><input class=STYLE3 type=textbox name="name" value='<%=rs("name")%>'>
**</td>
</tr>
<tr>
<td nowrap class="STYLE3"><font color=blue>计量单位：</td>
<td><input class=STYLE3 type=textbox name="unit" value='<%=rs("unit")%>'>
**</td>
</tr>
<tr>
<td nowrap><font color=blue><span class="STYLE3">规格：</span></td>
<td><input class=STYLE3 type=textbox name="gg" value='<%=rs("rule")%>'>
**</td>
</tr>
<tr>
<td nowrap class="STYLE3"><font color=blue>货号：</td>
<td><input class=STYLE3 type=textbox name="hh" value='<%=rs("num")%>'>
**</td>
</tr>
<tr>
<td nowrap class="STYLE3"><font color=blue>货名：</td>
<td><input class=STYLE3 type=textbox name="hm" value='<%=rs("mingcheng")%>'>
**</td>
</tr>
<tr>
<td nowrap class="STYLE3"><font color=blue>最高存量：</td>
<td><input class=STYLE3 type=textbox name="max" value='<%=rs("max")%>'>
**</td>
</tr>
<tr>
<td nowrap class="STYLE3"><font color=blue>最低存量：</td>
<td><input class=STYLE3 type=textbox name="min" value='<%=rs("min")%>'>
**</td>
</tr>
<tr>
<td nowrap class="STYLE3"><font color=blue>储存地点：</td>
<td><input class=STYLE3 type=textbox name="address" value='<%=rs("address")%>'>
**</td>
</tr>
<tr>
<td>
<td ><br><input class=STYLE3 type=submit name=ok value=修改>
<input class=STYLE3 type=reset name=reset value=取消>
</tr>
</table>
</form>
<%
rs.close
else
showerror("找不到该记录！")
end if
%>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -