csort_edit.asp

来自「能进行网上购物的需求」· ASP 代码 · 共 234 行

ASP
234 行
字号 
<!--#include file="conn.asp" -->
<%
if session("admin_name")="" then
        response.redirect "default.asp"
end if
%>
<%
'开始添加操作
if request("action")="add" then
csort_name=trim(request("csort_name"))
csort_ename=trim(request("csort_ename"))
csort_fname=trim(request("csort_fname"))
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,csort_ename,csort_fname, cnumber)values("&request("sort_name")&", '"&csort_name&"', '"&csort_ename&"', '"&csort_fname&"', '"&number&"')"
url="sort.asp"
response.redirect url
response.end
end if
%>
<%
'开始删除操作
if request("action")="del" then
        conn.execute "delete * from 56770_csort where csort_id="&request("csort_id")&" and cnumber='"&request("cnumber")&"'"
conn.execute "delete * from 56770_cxsort where csort_name="&request("csort_id")&""
conn.execute "delete * from 56770_cysort where csort_name="&request("csort_id")&""
conn.execute "delete * from 56770_product where csort_name="&request("csort_id")&""
url="sort.asp"
response.redirect url
response.end
end if
%>
<%
'开始修改操作
if request("action")="modi" then
Response.Write("<script>alert("" 很抱歉，程序版本为试用版 \n\n 您无法对数据库进行操作，如您需要请您购买商业版本 \n\n *****感谢您对我们的支持，我们会继续努力***** \n\n QQ：88464758 联系电话：0451-89575990 \n\n为中国电子商务发展助力！-- 56770.com"");history.back();</script>")
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_cxsort set csort_name='"&unitecsortto&"' where csort_name='"&unitecsort1&"' or csort_name='"&unitecsort2&"'"
'conn.execute "update 56770_cysort set csort_name='"&unitecsortto&"' where csort_name='"&unitecsort1&"' or 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="80%">
<tr>
<td colspan="2" background="images/admin_bg_1.gif">为<%=request("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%">简体中文名:</td>
<td>
<input type="text" name="csort_name" class="form">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">繁体中文名:</td>
<td>
<input type="text" name="csort_fname" class="form">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">英文名:</td>
<td>
<input type="text" name="csort_ename" 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>
<br>
<%if request("a")="modi" then%>
<%
sql="select * from 56770_csort where csort_id="&request("csort_id")&""
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
csort_name=rs("csort_name")
csort_ename=rs("csort_ename")
csort_fname=rs("csort_fname")
rs.Close
set rs=nothing
%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="80%">
<tr>
<td colspan="2" background="images/admin_bg_1.gif">修改二级类</td>
</tr>
<form name="modicsorta" method="post" action="csort_edit.asp?csort_id=<%=request("csort_id")%>">
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">简体中文名:</td>
<td>
<input type="text" name="csort_name" value="<%=csort_name%>" class="form">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">繁体中文名:</td>
<td>
<input type="text" name="csort_fname" value="<%=csort_fname%>" class="form">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">英文名:</td>
<td>
<input type="text" name="csort_ename" value="<%=csort_ename%>" 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="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>

csort_edit.asp - 源码说明

本页面展示了「能进行网上购物的需求」中的 csort_edit.asp 源码文件，采用 ASP 编程语言编写，共 234 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网上购物相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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