📄 addtihuo.asp
字号:
<%@ LANGUAGE="VBScript"%>
<html>
<head>
<title>新增提货商</title>
<style type="text/css">
<!--
.STYLE2 {font-size: 36px; font-family: "方正姚体";
color: #0000FF;}
.STYLE3 {font-size: 12px}
body { background-image: url(images/1.gif);}
-->
</style>
</head>
<body topmargin="0" onload=this.document.input.usesname.focus();>
<p>
<!--#include file="conn.asp"-->
<!--#include file=function.asp-->
<%
getStorage(session("storage"))
%>
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
if request.form("usesname")<>"" then
sql="select * from tihuo where tname='"&request.form("usesname")&"'"
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("tname")=request.form("usesname")
rs("memo")=request.form("memo")
rs.update
response.write "<p align=center>添加成功,请<a href='viewkucun.asp'>返回</a><br><br>"
else
response.write "<p align=center>该类别已存在,请<a href='addtihuo.asp'>重新输入</a><br><br>"
end if
rs.close
else
response.write "<p align=center>请<a href='addtihuo.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="addtihuo.asp" method="POST" name="input">
<p align=center>
<table align=center border=0>
<tr>
<td nowrap><div align="right"><span class="STYLE3"><font color=blue>提货单位：</span></div></td>
<td><input class=STYLE3 type=textbox name=usesname value=''>
</td>
</tr>
<tr>
<td valign="top"><font color=blue>
<div align="right"><span class="STYLE3">备注：</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=取消>
</tr>
</table>
</form>
<%end if%>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -