📄 addgong.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.providername.focus();>
<p>
<!--#include file="conn.asp"-->
<!--#include file=function.asp-->
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
if request.form("providername")<>"" then
sql="select * from gongying where gname='"&request.form("providername")&"'"
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("gname")=request.form("providername")
rs("memo")=request.form("memo")
rs.update
response.write "<p align=center>添加成功,请<a href='viewgong.asp'>返回</a><br><br>"
else
response.write "<p align=center>该供应商已存在,请<a href='addgong.asp'>重新输入</a><br><br>"
end if
rs.close
else
response.write "<p align=center>请<a href='addgong.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="addgong.asp" method="POST" name="input">
<p align=center>
<table align=center border=0>
<tr>
<td nowrap><font color=blue><span class="STYLE3">供应商名称：</span></td>
<td><input class=STYLE3 type=textbox name=providername 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=取消>
<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 + -