📄 admin_type.asp

📁 多功能在线报价系统源码多功能在线报价系统源码
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<!-- #include file="conn_CompMarket.asp" -->
<!-- #include file="adovbs.inc" -->
<%
Dim rsHardwareType '储存商品分类
%>
<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 Type_ID '储存分类编号
		'分类编号通过“hidden”属性的“input”表单元素来传递
		Type_ID=request.form("Type_ID")
		'设置当前查询所要操作的表和相应的SQL语句
		rsSource="HardwareType"
		rsSQL="delete "&rsSource&" where [分类]='"&Type_ID&"'"
		'建立记录集对象，开始查询
		'删除被选中的分类
		set rsHardwareType=Server.CreateObject("ADODB.Recordset")
		rsHardwareType.Open rsSQL,dcnCompMarket,1,2,1
		If rsHardwareType.State=adStateOpen Then rsHardwareType.Close
		set rsHardwareType=Nothing
	End If
%>
<%
'设置当前查询所要操作的表和相应的SQL语句
rsSource="HardwareType"
rsSQL="select * from "&rsSource
'建立记录集对象，开始查询
set rsHardwareType=Server.CreateObject("ADODB.Recordset")
rsHardwareType.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>
	</tr>
<%
'给出分类列表，给出“删除”按钮
Do While NOT rsHardwareType.EOF
	Response.Write("<form Method=""post"" Action=""admin_Type.asp?command=delete"">")
	'通过“hidden”属性的“input”表单元素来传递“分类编号”
	Response.Write("<input type=""hidden"" name=""Type_ID"" value=""" & _
		rsHardwareType.Fields("分类") & """>")
	Response.Write("<tr><td align=""center"">" & rsHardwareType.Fields("分类") & "</td>" & _
		"<td align=""center""><input type=""submit"" name=""Submit"" value=""删除""></td></tr>")
	Response.Write("</form>")
	rsHardwareType.MoveNext
Loop

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

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

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

<%
'添加商品分类-开始
If request.querystring("command")="add" Then
	If request.form("Submit")="添加分类" and not request.form("addType")="" then
		Dim newType '储存新的分类信息
		newType=request.form("addType")
		'设置当前查询所要操作的表和相应的SQL语句
		rsSource="HardwareType"
		rsSQL="insert into "&rsSource&" values ('"&newType&"')"
		'建立记录集对象，开始查询
		Set rsHardwareType=Server.CreateObject("ADODB.Recordset")
		rsHardwareType.Open rsSQL,dcnCompMarket,1,2,1
		If rsHardwareType.State=adStateOpen Then rsHardwareType.Close
		set rsHardwareType=Nothing
	End If
%>
<%
'设置当前查询所要操作的表和相应的SQL语句
rsSource="HardwareType"
rsSQL="select * from "&rsSource
'建立记录集对象，开始查询
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>
	</tr>
<%
'给出分类列表
Do While NOT rsHardwareType.EOF
	Response.Write("<tr><td align=center>" & rsHardwareType.Fields("分类") & "</td></tr>")
	rsHardwareType.MoveNext
Loop

'使用完毕后关闭数据库连接
rsHardwareType.Close
set rsHardwareType=Nothing
%>
	</table>
</td></tr>
<tr><td><form name="addProduct" method="post" action="admin_type.asp?command=add">
  <table border="1" align="center" cellpadding="3">
    <tr>
      <td>新增分类</td>
      <td><input name="addType" type="text" id="addType" 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 + -