📄 typelist.asp
字号:
<!--#include file="../Conndb.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>商品类型管理</title>
<link rel="stylesheet" href="../style.css">
<script language="javascript">
function form_onsubmit(obj)
{
ValidationPassed = true;
if(obj.typeid.selectedIndex <0) {
alert("请选择一级类型");
ValidationPassed = false;
return ValidationPassed;
}
if(obj.typename.value == "") {
alert("请输入商品类型名称");
ValidationPassed = false;
return ValidationPassed;
}
}
function form_onsubmit1(obj)
{
ValidationPassed = true;
if(obj.typename.value == "") {
alert("请输入商品类型名称");
ValidationPassed = false;
return ValidationPassed;
}
}
</script>
</head>
<body link="#000080" vlink="#080080">
<form id="form1" name="form1" method="POST">
<%
'处理添加、修改和删除操作
dim Soperate,Operid,TypeName,UpId
Soperate = Request.QueryString("oper")
Operid = Request.QueryString("tid")
'删除
If Soperate="delete" Then
'判断商品类型表中是否存在此类型
sql = "SELECT * FROM ProType WHERE TypeId=" & Operid
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
'判断此类型是否存在下级类型
sql = "SELECT * FROM ProType WHERE UpperId=" & Operid
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
Response.Write "此商品类型存在下级商品类型，不能删除！"
Response.End()
Else
'判断此商品类型下是否存在商品
sql = "SELECT * FROM Product WHERE TypeId=" & Operid
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
Response.Write "此商品类型包含商品信息，不能删除！"
Response.End()
End If
End If
sqldelt = "DELETE FROM ProType WHERE TypeId=" & Operid
Conn.Execute(sqldelt)
Response.Write "商品类型已经成功删除！"
End If
'添加
ElseIf Soperate = "add" then
TypeName = Request("typename")
UpId = Request("sUpperId")
If UpId="0" Then
UId = 0
Else
UId = Request("typeid")
End If
' Response.Write TypeName&"||"&cstr(UpId)&"||"&cstr(UId)
'判断是否已经存在此商品类型名称
sql = "SELECT * FROM ProType WHERE TypeName='" & TypeName & "'"
'Response.Write sql
Set rs = Conn.Execute(sql)
'如果没有此商品类型名称，则创建新记录
If Rs.EOF Then
sql = "INSERT INTO ProType VALUES('" & TypeName & "'," & UId & ")"
Conn.Execute(sql)
Response.Write"商品类型已经成功添加！"
Else
Response.Write "已经存在此商品类型名称！"
Response.End()
End If
Set rs = Nothing
ElseIf Soperate = "edit" Then
TypeName = Request("typename")
'如果新商品类型名称与旧名称不同，则判断是否存在此商品类型名称
sql = "SELECT * FROM ProType WHERE TypeName = '" & TypeName & "' And TypeId=" & Operid
Set rs = conn.Execute(sql)
If Rs.EOF Then '如果原商品类型编号和新商品类型名称不存在，则表示商品类型名称发生变化
Set rs = Nothing
'此时判断是否存在此商品类型名称
sql = "SELECT * FROM ProType WHERE TypeName='" & TypeName & "'"
Set rs = Conn.Execute(sql)
If Rs.EOF Then '新商品类型不存在
conn.Execute("UPDATE ProType SET TypeName='" & TypeName & "' WHERE TypeId=" & Operid)
Response.Write "商品类型已经成功修改！"
Else
Response.Write "已经存在此商品类型名称"
Response.End()
End if
End If
End If
%>
<p align='center'><font style="FONT-SIZE: 12pt"><b>商 品 类 型 管 理</b></font></p>
<center>
<table border="1" cellspacing="0" width="90%" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF">
<tr>
<td width="30%" align="center" bgcolor="#FEEC85"><strong>商品类型名称</strong></td>
<td width="30%" align="center" bgcolor="#FEEC85"><strong>子类型名称</strong></td>
<td width="20%" align="center" bgcolor="#FEEC85"><strong>修 改</strong></td>
<td width="20%" align="center" bgcolor="#FEEC85"><strong>删 除</strong></td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Set RsType = Server.CreateObject("ADODB.RecordSet")
'读取一级商品类型数据到记录集rs中
sql = "SELECT * FROM ProType WHERE UpperId=0 ORDER BY TypeId"
rs.Open sql, conn, 1, 1
If rs.EOF Then
'如果记录集为空，则显示“目前还没有记录”
Response.Write "<tr><td colspan=4 align=center><font style='COLOR:Red'>目前还没有记录。</font></td></tr></table>"
Else
'在表格中显示商品类型名称
Do While Not rs.EOF
%>
<tr>
<td><%=rs("TypeName")%></td>
<td> </td>
<td align="center"><a href="TypeList.asp?Oper=update&tid=<%=rs("TypeId")%>&name=<%=rs("TypeName")%>">修 改</a></td>
<td align="center"><a href="TypeList.asp?Oper=delete&tid=<%=rs("TypeId")%>&name=<%=rs("TypeName")%>">删 除</a></td>
</tr>
<%
'读取此商品类型下所有商品类型信息
sql1 = "SELECT * FROM ProType WHERE UpperId=" & rs("TypeId") &" ORDER BY TypeId"
RsType.Open sql1, conn,1,4
Do While Not RsType.EOF
%>
<tr>
<td> </td>
<td><%=RsType("TypeName")%></td>
<td align="center"><a href="TypeList.asp?Oper=update&tid=<%=RsType("TypeId")%>&name=<%=RsType("TypeName")%>">修 改</a></td>
<td align="center"><a href="TypeList.asp?Oper=delete&tid=<%=RsType("TypeId")%>&name=<%=RsType("TypeName")%>">删 除</a></td>
</tr>
<%
RsType.MoveNext()
Loop
RsType.Close()
rs.MoveNext()
Loop
%>
</table>
<p align="center">
<% End If%>
</form>
<%
'如果当前状态为修改，则显示修改的表单，否则显示添加的表单
If Soperate = "update" Then
sTitle = Request.QueryString("name")
%>
<form name="UFrom" method="post" action="TypeList.asp?tid=<%=Operid%>&Oper=edit">
<div align="center">
<input type="hidden" name="sorgname" value="<%=sTitle%>">
<font color="#FFFFFF"><b><font color="#000000">商品类型名称</font></b></font>
<input type="text" name="typename" size="20" value="<%=sTitle%>">
<input type="submit" name="Submit" value=" 修 改 ">
</div>
</form>
<%Else%>
<form name="AForm" method="post" action="TypeList.asp?Oper=add" onsubmit="return ValidationPassed">
<p align="center">
<font color="#FFFFFF"><b><font color="#000000">添加一级商品类型：</font></b></font>
商品类型名称： <input type="text" name="typename" size="20">
<input type="hidden" name="sUpperId" value="0">
<input type="submit" name="Add" value=" 添 加 " onclick="return form_onsubmit1(this.form)">
</p>
</form>
<form name="BForm" method="post" action="TypeList.asp?Oper=add" onsubmit="return ValidationPassed">
<p align="center">
<select name="typeid">
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
'将商品类型装入下拉菜单中
sql = "SELECT * FROM ProType WHERE UpperId=0 ORDER BY TypeId"
Set RsType = Conn.Execute(sql)
Do While Not RsType.EOF
sname = RsType("TypeName")
tid = RsType("TypeId")
%>
<option value="<%=tid%>"><%=sname%></option>
<%
RsType.movenext
Loop
%>
</select>
<font color="#FFFFFF"><b><font color="#000000">添加二级商品类型：</font></b></font>
商品类型名称： <input type="text" name="typename" size="20">
<input type="hidden" name="sUpperId" value="1">
<input type="submit" name="Submit" value=" 添 加 " onclick="return form_onsubmit(this.form)">
</p>
</form>
<%End If%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -