📄 csort_edit.asp

📁 本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.
💻 ASP
字号:
<!--#include file="conn.asp" -->
<%
if session("admin_name")="" then
        response.redirect "error.asp?error=001"
end if
%>
<%
'开始添加操作
if request("action")="add" then
        csort_name=trim(request("csort_name"))
number=request("number")
'检验此二级分类是否唯一
sql="select * from 56770_csort where sort_name='"&request("sort_name")&"' and csort_name='"&csort_name&"' order by csort_id desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if not(rs.eof or rs.bof)then
        response.write"<SCRIPT language=JavaScript>alert('对不起，此二级分类名[或编号]不唯一, 请核实！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
rs.close
set rs=nothing
conn.execute "insert into 56770_csort (sort_name,csort_name, cnumber)values('"&request("sort_name")&"', '"&csort_name&"', '"&number&"')"
url="sort.asp"
response.redirect url
response.end
end if
%>
<%
'开始删除操作
if request("action")="del" then
        conn.execute "delete * from 56770_csort where csort_name='"&request("delcsort")&"' and cnumber='"&request("cnumber")&"'"
conn.execute "delete * from 56770_product where csort_name='"&request("delcsort")&"'"
url="sort.asp"
response.redirect url
response.end
end if
%>
<%
'开始修改操作
if request("action")="modi" then
        '检验此一级分类是否唯一
sql="select * from 56770_csort where sort_name='"&request("sort_name")&"' and csort_name='"&request("modicsortto")&"' order by csort_id desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if not(rs.eof or rs.bof)then
        response.write"<SCRIPT language=JavaScript>alert('对不起，此二级分类名[或编号]不唯一, 请核实！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
rs.close
set rs=nothing
conn.execute "update 56770_csort set csort_name='"&request("modicsortto")&"' where csort_name='"&request("modicsort")&"' and cnumber='"&request("cnumber")&"'"
conn.execute "update 56770_product set csort_name='"&request("modicsortto")&"' where csort_name='"&request("modicsort")&"'"
url="sort.asp"
response.redirect url
response.end
end if
%>
<%
'开始合并操作
if request("action")="unite" then
        unitecsort1=request("unitecsort1")
unitecsort2=request("unitecsort2")
unitecsortto=request("unitecsortto")
if unitecsort1="" or unitecsort2="" or unitecsortto="" then
        response.write"<SCRIPT language=JavaScript>alert('对不起，您在合并分类时有错误操作, 请核实！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
conn.execute "update 56770_csort set csort_name='"&unitecsortto&"' where csort_name='"&unitecsort1&"'"
conn.execute "delete * from 56770_csort where csort_name='"&unitecsort2&"'"
conn.execute "update 56770_product set csort_name='"&unitecsortto&"' where csort_name='"&unitecsort1&"' or csort_name='"&unitecsort2&"'"
url="sort.asp"
response.redirect url
response.end
end if
%>
<link rel="stylesheet" href="css.css" type="text/css">
<body bgcolor="#FFFFCC" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF" vspace="0" hspace="0">
<tr>
<td height="27" bgcolor="#FFCC33" background="images/admin_bg_1.gif">.:: 您可以在这里进行商品类别相关操作</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="50">&nbsp; </td>
</tr>
</table>
<br>
<%if request("a")="add" then%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="60%">
<tr>
<td colspan="2" background="images/admin_bg_1.gif">为<%=request("sort_name")%>添加二级分类</td>
</tr>
<form name="addcsort" method="post" action="csort_edit.asp">
<%
sql="select * from 56770_csort order by csort_id desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs.eof or rs.bof then
        number="0001"
else
        number=rs("cnumber")+1
number=right("0000"&number, 4)
end if
rs.close
set rs=nothing
%>
<tr bgcolor="#B0CBE6">
<td align="right" width="25%" bgcolor="#B0CBE6">分类名:</td>
<td>
<input type="text" name="csort_name" class="form">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td align="right">编号:</td>
<td>
<input type="text" name="number" class="form" value=<%=number%>>
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td colspan="2" align="center" >
<input type="submit" name="Submit" value="添 加">
<input type="hidden" name="action" value="add">
<input type="hidden" name="sort_name" value="<%=request("sort_name")%>">
</td>
</tr>
</form>
</table>
<%end if%>
<br>
<%if request("a")="des" then%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="60%">
<tr>
<td colspan="2" background="images/admin_bg_1.gif">删除<%=request("sort_name")%>下的二级类<%=request("delcsort")%></td>
</tr>
<form name="deladdcsort" method="post" action="csort_edit.asp">
<%
if request("delcsort")<>"" then
        %>
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">分类名:</td>
<td>
<input type="text" name="delcsort" class="form" value=<%=request("delcsort")%> readonly>
</td>
</tr>
<%else%> <%end if%>
<tr>
<td colspan="2" align="center" bgcolor="#B0CBE6">
<input type="submit" name="Submit2" value="删 除">
<input type="hidden" name="action" value="del">
<input type="hidden" name="sort_name" value="<%=request("sort_name")%>">
<input type="hidden" name="cnumber" value="<%=request("cnumber")%>">
</td>
</tr>
</form>
</table>
<%end if%>
<br>
<%if request("a")="modi" then%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="60%">
<tr>
<td colspan="2" background="images/admin_bg_1.gif">修改二级类</td>
</tr>
<form name="modicsorta" method="post" action="csort_edit.asp">
<%
if request("modicsort")<>"" then
        %>
<tr>
<td align="right" width="25%" bgcolor="#B0CBE6">分类名:</td>
<td bgcolor="#B0CBE6">
<input type="text" name="modicsort" class="form" value=<%=request("modicsort")%> readonly>
</td>
</tr>
<%else%> <%end if%>
<tr>
<td align="right" bgcolor="#B0CBE6">修改为:</td>
<td bgcolor="#B0CBE6">
<input type="text" name="modicsortto" class="form">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td colspan="2" align="center">
<input type="submit" name="Submit22" value="修 改">
<input type="hidden" name="action" value="modi">
<input type="hidden" name="sort_name" value="<%=request("sort_name")%>">
<input type="hidden" name="cnumber" value="<%=request("cnumber")%>">
</td>
</tr>
</form>
</table>
<%end if%>
<%if request("a")="unite" then%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="60%">
<tr background="images/admin_bg_1.gif">
<td colspan="2">合并二级分类</td>
</tr>
<form name="unitecsort" method="post" action="csort_edit.asp">
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">分类名:</td>
<td>
<input type="text" name="unitecsort1" class="form" value=<%=request("unitecsort")%> readonly>
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td align="right">分类名:</td>
<td>
<select name="unitecsort2">
<option value="" selected>请选择二级分类(2)</option>
<%
sql="select * from 56770_csort where sort_name='"&request("sort_name")&"' and csort_name<>'"&request("unitecsort")&"'"
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
while not rs.eof
%>
<option value="<%=rs("csort_name")%>"><%=rs("csort_name")%></option>
<%
rs.movenext
wend
rs.Close()
set rs=nothing
%>
</select>
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td align="right">合并为:</td>
<td>
<input type="text" name="unitecsortto" class="form">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td colspan="2" align="center">
<input type="submit" name="Submit222" value="合 并">
<input type="hidden" name="action" value="unite">
<input type="hidden" name="sort_name" value="<%=request("sort_name")%>">
</td>
</tr>
</form>
</table>
<%end if%>
</body>
</html>
⌨️ 快捷键说明

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