📄 admin_brand.asp

📁 多功能在线报价系统源码多功能在线报价系统源码
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<!-- #include file="conn_CompMarket.asp" -->
<!-- #include file="adovbs.inc" -->
<%
Dim rsHardwareBrand '储存商品品牌
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>“商品品牌”管理</title>
<link href="priceEdit.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
'删除商品品牌-开始
If request.querystring("command")="delete" then
	If request.form("Submit")="删除" then
		Dim Brand_ID '储存品牌编号
		'品牌编号通过“hidden”属性的“input”表单元素来传递
		Brand_ID=request.form("Brand_ID")
		'设置当前查询所要操作的表和相应的SQL语句
		rsSource="HardwareBrand"
		rsSQL="delete "&rsSource&" where [品牌]='"&Brand_ID&"'"
		'建立记录集对象，开始查询
		'删除被选中的品牌
		set rsHardwareBrand=Server.CreateObject("ADODB.Recordset")
		rsHardwareBrand.Open rsSQL,dcnCompMarket,1,2,1
		If rsHardwareBrand.State=adStateOpen Then rsHardwareBrand.Close
		set rsHardwareBrand=Nothing
	End If
%>
<%
'设置当前查询所要操作的表和相应的SQL语句
rsSource="HardwareBrand"
rsSQL="select * from "&rsSource
'建立记录集对象，开始查询
set rsHardwareBrand=Server.CreateObject("ADODB.Recordset")
rsHardwareBrand.Open rsSQL,dcnCompMarket,1,2,1
%>
<table width="800" border="0" bgcolor="#999999">
<tr><td>
	<table border="1" width="100%" cellpadding="1">
	<tr><td align="center"><b>分类</b></td>
		<td align="center"><b>品牌</b></td>
		<td align="center"><b>操作</b></td>
	</tr>
<%
'给出品牌列表，给出“删除”按钮
Do While NOT rsHardwareBrand.EOF
	Response.Write("<form Method=""post"" Action=""admin_Brand.asp?command=delete"">")
	'通过“hidden”属性的“input”表单元素来传递“品牌编号”
	Response.Write("<input type=""hidden"" name=""Brand_ID"" value=""" & _
		rsHardwareBrand.Fields("品牌") & """>")
	Response.Write("<tr><td align=""center"">" & rsHardwareBrand.Fields("分类") & "</td>" & _
		"<td align=""center"">" & rsHardwareBrand.Fields("品牌") & "</td>" & _
		"<td align=""center""><input type=""submit"" name=""Submit"" value=""删除""></td></tr>")
	Response.Write("</form>")
	rsHardwareBrand.MoveNext
Loop

'使用完毕后关闭数据库连接
rsHardwareBrand.Close
set rsHardwareBrand=Nothing
%>
	</table>
</td></tr>
</table>
<%
'删除商品品牌-结束
End If
%>

<%
'修改商品品牌-开始
If request.querystring("command")="modify" then
	If request.form("Submit")="修改" then
		'品牌编号通过“hidden”属性的“input”表单元素来传递
		Brand_ID=request.form("Brand_ID")
		'修改后的商品品牌
		Dim Product_Brand
		Product_Brand=request.form("Product_Brand")
		if Product_Brand="" then response.redirect("admin_Brand.asp?command=modify")
		'设置当前查询所要操作的表和相应的SQL语句
		rsSource="HardwareBrand"
		rsSQL="update "&rsSource&_
			" set [品牌]='"&Product_Brand&"'"&_
			" where [分类]+[品牌]='"&Brand_ID&"'"
		'建立记录集对象，开始查询
		'修改被选中的品牌
		set rsHardwareBrand=Server.CreateObject("ADODB.Recordset")
		rsHardwareBrand.Open rsSQL,dcnCompMarket,1,2,1
		If rsHardwareBrand.State=adStateOpen Then rsHardwareBrand.Close
		set rsHardwareBrand=Nothing
	End If
%>
<%
'设置当前查询所要操作的表和相应的SQL语句
rsSource="HardwareBrand"
rsSQL="select * from "&rsSource
'建立记录集对象，开始查询
set rsHardwareBrand=Server.CreateObject("ADODB.Recordset")
rsHardwareBrand.Open rsSQL,dcnCompMarket,1,2,1
%>
<table width="800" border="0" bgcolor="#999999">
<tr><td>
	<table border="1" width="100%" cellpadding="1">
	<tr><td align="center"><b>分类</b></td>
		<td align="center"><b>品牌</b></td>
		<td align="center"><b>操作</b></td>
	</tr>
<%
'给出品牌列表，给出“修改”按钮
Do While NOT rsHardwareBrand.EOF
	Response.Write("<form Method=""post"" Action=""admin_Brand.asp?command=modify"">")
	'通过“hidden”属性的“input”表单元素来传递“品牌编号”
	Response.Write("<input type=""hidden"" name=""Brand_ID"" value=""" & _
		rsHardwareBrand.Fields("分类")+rsHardwareBrand.Fields("品牌") & """>")
	Response.Write("<tr><td align=""center"">"&rsHardwareBrand.Fields("分类")&"</td>"&_
		"<td align=""center"">" & _
		"<input type=""text"" size=""10"" name=""Product_Brand"" value=""" & rsHardwareBrand.Fields("品牌") & """>"&_
		"</td>" & _
		"<td align=""center""><input type=""submit"" name=""Submit"" value=""修改""></td></tr>")
	Response.Write("</form>")
	rsHardwareBrand.MoveNext
Loop

'使用完毕后关闭数据库连接
rsHardwareBrand.Close
set rsHardwareBrand=Nothing
%>
	</table>
</td></tr>
</table>
<%
'修改商品品牌-结束
End If
%>

<%
'添加商品品牌-开始
If request.querystring("command")="add" Then
	If request.form("Submit")="添加品牌" and _
	  not request.form("selectType")="" and _
	  not request.form("addBrand")="" then
		Dim selectType	'储存商品分类信息
		Dim newBrand 	'储存新的品牌信息
		selectType=request.form("selectType")
		newBrand=request.form("addBrand")
		'设置当前查询所要操作的表和相应的SQL语句
		rsSource="HardwareBrand"
		rsSQL="insert into "&rsSource&" values ('"&selectType&"','"&newBrand&"')"
		'建立记录集对象，开始查询
		Set rsHardwareBrand=Server.CreateObject("ADODB.Recordset")
		rsHardwareBrand.Open rsSQL,dcnCompMarket,1,2,1
		If rsHardwareBrand.State=adStateOpen Then rsHardwareBrand.Close
		set rsHardwareBrand=Nothing
	End If
%>
<%
'设置当前查询所要操作的表和相应的SQL语句
rsSource="HardwareBrand"
rsSQL="select * from "&rsSource
'建立记录集对象，开始查询
set rsHardwareBrand=Server.CreateObject("ADODB.Recordset")
rsHardwareBrand.Open rsSQL,dcnCompMarket,1,2,1
%>
<%
'设置当前查询所要操作的表和相应的SQL语句
rsSource="HardwareType"
rsSQL="select * from "&rsSource
'建立记录集对象，开始查询
Dim rsHardwareType '储存商品分类
set rsHardwareType=Server.CreateObject("ADODB.Recordset")
rsHardwareType.Open rsSQL,dcnCompMarket,1,2,1
%>
<table width="800" border="0" cellpadding="5" bgcolor="#999999">
<tr><td>
	<table border="1" align="center" cellpadding="1">
	<tr><td align="center"><b>分类</b></td>
		<td align="center"><b>现有品牌</b></td>
	</tr>
<%
'给出品牌列表
Do While NOT rsHardwareBrand.EOF
	Response.Write("<tr>"&_
		"<td align=""center"">"&rsHardwareBrand.Fields("分类")&"</td>"&_
		"<td align=""center"">" & rsHardwareBrand.Fields("品牌") & "</td></tr>")
	rsHardwareBrand.MoveNext
Loop

'使用完毕后关闭数据库连接
rsHardwareBrand.Close
set rsHardwareBrand=Nothing
%>
	</table>
</td></tr>
<tr><td><form name="addProduct" method="post" action="admin_Brand.asp?command=add">
  <table border="1" align="center" cellpadding="3">
    <tr>
      <td>分类</td>
      <td><select name="selectType" id="selectType">
        <option>请选择分类...</option>
      	<%
      	Do While not rsHardwareType.EOF
      		Response.Write("<option value="""&rsHardwareType.Fields("分类")&""">"&_
      			rsHardwareType.Fields("分类")&"</option>")
      		rsHardwareType.MoveNext
      	Loop
      	If rsHardwareType.State=adStateOpen Then rsHardwareType.Close
		set rsHardwareType=Nothing
		%>
      </select></td>
    </tr>
    <tr>
      <td>新增品牌</td>
      <td><input name="addBrand" type="text" id="addBrand" size="10"></td>
      </tr>
    <tr>
      <td colspan="2"><div align="center">
          <input type="submit" name="Submit" value="添加品牌">&nbsp;
          <input type="reset" name="Reset" value="重新输入">
      </div></td>
      </tr>
  </table>
</form>
	
</td>
</tr>
</table>

<%
'添加商品品牌-结束
End If
%>

<%
'使用完毕后关闭数据库连接
If dcnCompMarket.State=adStateOpen Then
	dcnCompMarket.Close
End If
Set dcnCompMarket=Nothing
%>
</body>
</html>
💿 文件大小 22 K
👤 上传用户 simoncxl
📂 所属分类 MySQL数据库
🏷️ 相关标签

#多功能 #报价 #源码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -