sort_edit.asp

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

ASP
247 行
字号 
<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
    response.redirect "default.asp"
end if
'开始添加操作
if request("action")="adda" then
sort_name=trim(request("sort_name"))
sort_ename=trim(request("sort_ename"))
sort_fname=trim(request("sort_fname"))
number=request("number")
'检验此一级分类是否唯一
sql="select * from 56770_sort where sort_name='"&sort_name&"' order by sort_id desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 3, 3
if not(rs.eof or rs.bof)then
        response.write"<SCRIPT language=JavaScript>alert('对不起，此一级分类名[或编号]不唯一, 请核实！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
 rs.addnew
rs("sort_name")=sort_name
rs("sort_ename")=sort_ename
rs("sort_fname")=sort_fname
rs("number")=number
rs("sy")=1
rs.update
end if
rs.close
set rs=nothing
response.redirect "sort.asp"
response.end
end if
%>
<%
'开始删除操作
if request("action")="del" then
        conn.execute "delete * from 56770_sort where sort_id="&request("sort_id")&""
 conn.execute "delete * from 56770_csort where sort_name="&request("sort_id")&""
 conn.execute "delete * from 56770_cxsort where sort_name="&request("sort_id")&""
 conn.execute "delete * from 56770_cysort where sort_name="&request("sort_id")&""
conn.execute "delete * from 56770_product where sort_name="&request("sort_id")&""
response.redirect "sort.asp"
response.end
end if
%>
<%
'开始修改操作
if request("action")="modi" then
        if request("sort_name")="" then
        response.write"<SCRIPT language=JavaScript>alert('对不起，请合适您的分类修改项！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
'检验此一级分类是否唯一
sql="select * from 56770_sort where sort_name='"&request("sort_name")&"' and sort_id<>"&request("sort_id")&"  order by sort_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_sort set sort_name='"&request("sort_name")&"', sort_ename='"&request("sort_ename")&"', sort_fname='"&request("sort_fname")&"' where sort_id="&request("sort_id")&""
response.redirect "sort.asp"
response.end
end if
%>
<%
'开始合并操作
if request("action")="unite" then
        unitesort1=trim(request("unitesort1"))
unitesort2=request("unitesort2")
unitesortto=trim(request("unitesortto"))
if unitesort1="" or unitesort2="" or unitesort1=unitesort2 or unitesortto="" then
        response.write"<SCRIPT language=JavaScript>alert('对不起，您在合并分类时有错误操作, 请核实！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
conn.execute "update 56770_sort set sort_name='"&unitesortto&"' where sort_name='"&unitesort1&"'"
conn.execute "delete * from 56770_sort where sort_name='"&unitesort2&"'"
response.redirect "sort.asp"
response.end
end if
%>
<link rel="stylesheet" type="text/css" href="css.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" 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 bgcolor="#6699CC">
<td colspan="2" height="25">添加一级分类</td>
</tr>
<form name="addsort" method="post" action="sort_edit.asp">
<%
sql="select * from 56770_sort order by sort_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("number")+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="sort_name" class="form">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">繁体中文名:</td>
<td>
<input type="text" name="sort_fname" class="form">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">英文名:</td>
<td>
<input type="text" name="sort_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="#FFFF99">
<td colspan="2" align="center" bgcolor="#B0CBE6">
<input type="submit" name="Submit" value="添 加">
<input type="hidden" name="action" value="adda">
</td>
</tr>
</form>
</table>
<%end if%>
<br>
<%if request("a")="modi" then%>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="80%">
<%
sql="select * from 56770_sort where sort_id="&request("sort_id")&""
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
sort_name=rs("sort_name")
sort_ename=rs("sort_ename")
sort_fname=rs("sort_fname")
rs.Close
set rs=nothing
%>
<tr bgcolor="#6699CC">
<td colspan="2" height="25">修改一级类</td>
</tr>
<form name="modisort" method="post" action="sort_edit.asp?sort_id=<%=request("sort_id")%>">
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">简体中文名:</td>
<td>
<input type="text" name="sort_name" value="<%=sort_name%>" class="form">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">繁体中文名:</td>
<td>
<input type="text" name="sort_fname" value="<%=sort_fname%>" class="form">
</td>
</tr>
<tr bgcolor="#B0CBE6">
<td align="right" width="25%">英文名:</td>
<td>
<input type="text" name="sort_ename" value="<%=sort_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">
</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 bgcolor="#6699CC">
<td colspan="2" height="25">合并一级分类</td>
</tr>
<form name="unitesort" method="post" action="sort_edit.asp">
<tr bgcolor="#FFFF99">
<td align="right" width="25%" bgcolor="#B0CBE6">分类名:</td>
<td bgcolor="#B0CBE6">
<input type="text" name="unitesort1" class="form" value=<%=request("unitesort")%>>
</td>
</tr>
<tr bgcolor="#FFFF99">
<td align="right" bgcolor="#B0CBE6">分类名:</td>
<td bgcolor="#B0CBE6">
<select name="unitesort2">
<option value="" selected>请选择一级分类(2)</option>
<%
sql="select * from 56770_sort where sort_name<>'"&request("unitesort")&"'"
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 1, 1
while not rs.eof
%>
<option value="<%=rs("sort_name")%>"><%=rs("sort_name")%></option>
<%
rs.movenext
wend
rs.Close()
set rs=nothing
%>
</select>
</td>
</tr>
<tr bgcolor="#FFFF99">
<td align="right" bgcolor="#B0CBE6">合并为:</td>
<td bgcolor="#B0CBE6">
<input type="text" name="unitesortto" 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">
</td>
</tr>
</form>
</table>
<%end if%>
</body>
</html>

sort_edit.asp - 源码说明

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

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

⌨️ 快捷键说明

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