📄 addcangku.asp
字号:
<%@ LANGUAGE="VBScript"%>
<% response.buffer=true %>
<html>
<head>
<title>新增仓库</title>
<style type="text/css">
<!--
.STYLE2 {font-size: 36px;
font-family: "方正姚体";
color: #0000FF;
}
body {background-image: url(images/1.gif);}
.STYLE3 {font-size: 12px}
-->
</style>
<body topmargin="0" onload=this.document.input.storagename.focus();>
<p> </p>
<p>
<!--#include file="conn.asp"-->
<!--#include file=function.asp-->
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
if request.form("storagename")<>"" then
sql="select * from cangku where cname='"&request.form("storagename")&"'"
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("cname")=request.form("storagename")
rs("memo")=request.form("memo")
rs.update
response.write "<p align=center>添加成功,请[<a href='viewcangku.asp'>返回</a> ]<br><br>"
else
response.write "<p align=center>该仓库已存在,请[<a href='addcangku.asp'>重新输入</a> ]<br><br>"
end if
rs.close
else
response.write "<p align=center>请[<a href='addcangku.asp'>输入仓库名称</a> ]<br><br>"
end if
else
%>
</p>
<p><span class="STYLE2"><img src="images/2.gif" width="89" height="153">新增仓库信息</span></p>
<form action="addcangku.asp" method="POST" name="input">
<p align=center>
<table align=center border=0>
<tr>
<td nowrap><span class="STYLE3"><font color=blue>仓库名称：</span></td>
<td><input class=STYLE3 type=textbox name=storagename value=''> </td>
</tr>
<tr>
<td valign="top"><div align="right"><span class="STYLE3"><font color=blue>备注:</span></div></td>
<td><textarea class=STYLE3 name=memo rows=5 cols=40></textarea></td>
</tr>
<tr>
<td>
<td><br><input class=STYLE3 type=submit name=ok value=添加>
<input class=STYLE3 type=reset name=reset value=取消>
<input class=STYLE3 type=button name=retu value=返回 onclick=history.go(-1)>
</tr>
</table>
</form>
<%end if%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -