📄 addproduct.asp
字号:
<!-- #include file="admin_protect.inc" -->
<!-- #include file="../opendb.inc" -->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta Name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta Name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; chaRset=gb2312">
<title>添加采购商页面</title>
</head>
<body>
<script language="JavaScript">
</script>
<p align="center"><font color="#0000FF"><b>添加新商品</b></font></p>
<form method="POST" Name="addproduct" action="addproduct.asp">
<div align="center">
<center>
<table border="1" cellspacing="1" width="50%" id="AutoNumber1" height="56">
<tr>
<td width="50%">商品名称</td>
<td width="50%"><input type="text" name="Name" size="20"></td>
</tr>
</table>
</center>
</div>
<p align="center"><input type="submit" value="添加商品" Name="Submit">
<input type="reset" value="重新填写" Name="B2"><input type="hidden" Name="action" value="addproduct"></p>
</form>
<p align="center"> </p>
</body>
</html>
<%
If Request("Action")<>"addproduct" Then
Response.End
Else
If Request("Action")="addproduct" Then
Name=Request("Name")
If Name ="" Then
'response.Redirect "Error.Asp?Error=001"
Response.Write"<script language=javascript>alert('采购商名称不能为空！');"
Response.Write"Javascript:history.go(-1)</script>"
Response.End
End If
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open(sqlOpenDB) '打开数据库
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select * From Product Where Name='"&Name&"'",Conn
If Not Rs.Eof Then
Response.Redirect "Error.Asp?Error=004"
Response.End
End If
Set Rs=Nothing
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open"Product",Conn,1,3
Conn.Execute "Insert Into Product (Name) Values ('"&Name&"')"
Response.Redirect "Success.Asp?Success=013"
End If
End If
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -