?? addzhuanticlass.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('網絡超時或您還沒有登陸！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您沒有此項目管理權限！</b></font></div>"
response.End
end if
if qx11<>1 then
response.Write "<div align=center><font size=80 color=red><b>您沒有此項目管理權限！</b></font></div>"
response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
<link href="../css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style></head>
<%
if request("action")="adda" then
classname=trim(request("classname"))
''檢驗此一級分類是否唯一
sql="select * from shop_zhuanti_class where classname='"&classname&"' order by id desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,2
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("classname")=classname
rs("class")=trim(request("class"))
rs("px")=trim(request("px"))
rs("adddate")=now()
rs.update
end if
rs.close
set rs=nothing
response.redirect "zhuanticlass.asp"
response.end
end if
%>
<%
''開始刪除操作
if request("action")="del" then
conn.execute "delete from shop_zhuanti_class where classname='"&request("delsort")&"'"
response.redirect "zhuanticlass.asp"
response.end
end if
%>
<%
''開始修改操作
if request("action")="modi" then
if request("mtype")="" then
response.write"<SCRIPT language=JavaScript>alert('對不起，請合適您的分類修改項！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
''檢驗此一級分類是否唯一
sql="select * from shop_zhuanti_class where classname='"&request("mtype")&"' order by 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 shop_zhuanti_class set classname='"&request("mtype")&"' where classname='"&request("modiclass")&"'"
'conn.execute "update NewsData set news='"&request("mtype")&"' where news='"&request("modiclass")&"'"
response.redirect "zhuanticlass.asp"
response.end
end if
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
<tr>
<td width="1%"> </td>
<td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="30%"> <strong><b>管理導航 </b></strong><span class="tdbg"><a href="zhuanticlass.asp">欄目管理首頁</a> | <a href="addzhuanticlass.asp?a=add">添加一個分類</a></span></td>
<td width="70%" align="right"> </td>
</tr>
</table></td>
</tr>
</table>
<p> </p>
<br>
<%if request("a")="add" then%>
<table border="0" cellspacing="1" cellpadding="3" bgcolor="#9DB2D4" align="center" width="90%" class="border">
<tr bgcolor="#C7D3E6">
<td height="25" colspan="2" class="title">添加專題分類</td>
</tr>
<form name="addsort" method="post" action="addzhuanticlass.asp">
<tr bgcolor="#F0F3F8">
<td width="25%" align="right" class="tdbg">分類名：</td>
<td class="tdbg"> <input name="classname" type="text" class="wenbenkuang" id="classname">
排序： <input name="px" type="text" id="px" size="5"></td>
</tr>
<tr bgcolor="#F0F3F8">
<td align="right" class="tdbg">說明：</td>
<td class="tdbg"><textarea name="class" cols="50" rows="3" class="wenbenkuang" id="class"></textarea></td>
</tr>
<tr bgcolor="#F0F3F8">
<td colspan="2" align="center" class="tdbg"> <input name="Submit3" type="submit" class="go-wenbenkuang" value="添 加">
<input type="hidden" name="action" value="adda"> </td>
</tr>
</form>
</table>
<%end if%>
<br>
<%if request("a")="del" then%>
<table border="0" cellspacing="1" cellpadding="3" bgcolor="#9DB2D4" align="center" width="90%" class="border">
<tr bgcolor="#C7D3E6">
<td height="25" colspan="2" class="title">刪除專題分類</td>
</tr>
<form name="delclass" method="post" action="addzhuanticlass.asp">
<tr bgcolor="#F0F3F8">
<td width="25%" align="right" class="tdbg">分類名:</td>
<td class="tdbg">
<input type="text" name="delsort" class="wenbenkuang" value=> </td>
</tr>
<tr bgcolor="#F0F3F8">
<td colspan="2" align="center" class="tdbg">
<input name="Submit2" type="submit" class="go-wenbenkuang" value="刪 除">
<input type="hidden" name="action" value="del"> </td>
</tr>
</form>
</table>
<%end if%>
<br>
<%if request("a")="modi" then%>
<table border="0" cellspacing="1" cellpadding="3" bgcolor="#9DB2D4" align="center" width="90%" class="border">
<tr bgcolor="#C7D3E6">
<td height="25" colspan="2" class="title"><blockquote>
<p>修改專題分類</p>
</blockquote></td>
</tr>
<form name="modisort" method="post" action="addzhuanticlass.asp">
<tr bgcolor="#F0F3F8">
<td width="25%" align="right" class="tdbg">分類名:</td>
<td class="tdbg">
<input type="text" name="modiclass" class="wenbenkuang" value=> </td>
</tr>
<tr bgcolor="#F0F3F8">
<td align="right" class="tdbg">修改為:</td>
<td class="tdbg">
<input type="text" name="mtype" class="wenbenkuang"> </td>
</tr>
<tr bgcolor="#F0F3F8">
<td colspan="2" align="center" class="tdbg">
<input name="Submit22" type="submit" class="go-wenbenkuang" value="修 改">
<input type="hidden" name="action" value="modi"> </td>
</tr>
</form>
</table>
<%end if%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -