?? admin_sort.asp
字號:
<!--#include file="Include/conn.asp"-->
<!--#include file="include/char.asp" -->
<!--#include file="Include/check.asp"-->
<!--#include FILE="Include/Admin_Function.asp"-->
<%
'* 個人版價格：500元 商業版價格：700元
'* 演示：http://Demo.wenday.com
'* 版本：Engine_WenDay網站信息系統 Ver 2.0 演示版
'* 版權所有: 一奔網絡工作室(Wenday.Com)
'* 聯系QQ: 42367091
'* Email :wenday@21cn.com
'* 程序開發: Wenday
%>
<%CheckAdmin3%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后臺管理 >> 分類管理</title>
<link href="Img/Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="8">
<%
if Request("Action")="SetInfo" then
Id=Request("Id")
SqlSetInfo = "Select * from Sort where Id="&Id&" "
Set RsSetInfo = Conn.Execute(SqlSetInfo)
%>
<form name="form2" method="post" action="Admin_SortSave.asp?Action=SetInfo">
<table width="590" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="25" bgcolor="#EAEAEA"> <div align="center"><strong>設 置 面 頁 內
容</strong></div></td>
</tr>
<tr>
<td height="66" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="35%" height="26">
<div align="right">設置的類別：<img src="img/02_1.gif" width="12" height="9">
<input name="Names" type="text" id="Names" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" value="<%=RsSetInfo("Names")%>" size="15" maxlength="25" readonly>
<td width="65%"> <div align="right">
<input name="ID" type="hidden" id="ID22" value="<%=RsSetInfo("ID")%>" >
</div></td>
</tr>
<tr>
<td colspan="2" align="right"> <textarea name="content" id="content" style="display:none"><%=RsSetInfo("Info")%></textarea>
<IFRAME ID="content" SRC="editor.asp?id=content" FRAMEBORDER="0" SCROLLING="no" WIDTH="590" HEIGHT="420"></IFRAME>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" bgcolor="#EAEAEA">
<div align="center">
<input name="Submit22" type="submit" id="Submit223" value="設定">
<input type="reset" name="Submit4" value="重置">
<input type="button" value="刪除" onClick=window.open('Admin_SortSave.asp?action=B_Del&id=<%=RsSetInfo("ID")%>') name=del2>
</div></td>
</tr>
</table>
</form>
<%
RsSetInfo.close
set RsSetInfo =nothing
call closeconn()
%>
<!--#include file="Include/Foot.asp"-->
<%
response.end
%>
<%end if%>
<table width="590" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="749" height="25" bgcolor="#EAEAEA">
<div align="center"><strong>分 類 管 理</strong></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="6%" align="center"> <div align="center"> </div></td>
<td width="94%" align="center"> <div align="center">
<% if Request("Action")<>"Modify" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="Admin_SortSave.asp?Action=Add">
<tr>
<td align="center"> 添加:
<input name="Names" type="text" id="Names" size="18" maxlength="30" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none;BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<select name="B_id" id="B_id" >
<option value="0" >作為根分類</option>
<%
Sql = "Select * from Sort where B_id=0 and Setting<>3 and Setting<>5 order by S_Order "
Set Rs = Conn.Execute(Sql )
do while not Rs.eof
%>
<option value="<%=Rs("ID")%>"><%=Rs("Names")%></option>
<%
Rs.movenext
loop
Rs.close
set Rs=nothing
%>
</select>
<select name="Setting" >
<option value="1">圖文</option>
<option value="2">簡明</option>
</select>
<input type="submit" name="Submit" value="添 加">
</td>
</tr>
</form>
</table>
<%end if%>
<% if Request("Action")="Modify" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="Modify" method="post" action="Admin_SortSave.asp?Action=Modify">
<tr>
<td align="center">
<%
Id=Request("Id")
SqlModify = "Select * from Sort where Id="&Id&" "
Set RsModify = Conn.Execute(SqlModify)
do while not RsModify.eof
%>
<font color="#FF0000">
<input name="ID" type="hidden" id="ID3" value="<%=RsModify("ID")%>" size="1" >
</font> <font color="#FF0000">修改: </font>
<input name="Names" type="text" id="Names" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; BORDER-BOTTOM: rgb(0,0,0) 1px solid" value="<%=RsModify("Names")%>" size="18" maxlength="30" >
<select name="B_id" id="B_id" >
<option value="0" >作為根分類</option>
<%
Sql2 = "Select * from Sort where B_id=0 and Setting<>3 and Setting<>5 and id<>"&Id&" order by S_Order "
Set Rs2= Conn.Execute(Sql2 )
do while not Rs2.eof
%>
<option value="<%=Rs2("ID")%>" <% if RsModify("B_id")=Rs2("ID") then%>selected<%end if%>><%=Rs2("Names")%></option>
<%
Rs2.movenext
loop
Rs2.close
set Rs2=nothing
%>
</select>
<input type="submit" name="Submit" value="修 改">
<%
RsModify.movenext
loop
RsModify.close
set RsModify=nothing
%>
</td>
</tr>
</form>
</table>
<%end if%>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="56" bgcolor="#FFFFFF"> <table width="100%" border="0" align="right" cellpadding="1" cellspacing="0">
<tr>
<td height="7" colspan="2"></td>
</tr>
<tr>
<td width="29%" height="21">
<div align="center">分類信息</div></td>
<td width="71%">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="70%" height="19">類別信息設置</td>
<td width="30%">操作</td>
</tr>
</table>
</div></td>
</tr>
<%
SqlSort = "Select * from Sort where B_id=0 order by S_Order "
Set RsSort = Conn.Execute(SqlSort)
if RsSort.eof and RsSort.bof then
Response.write("<div align=center>還沒有設置分類.......</div>")
response.end
else
do while not RsSort.eof
%>
<tr>
<td colspan="2"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="Setting" method="post" action="Admin_SortSave.asp?Action=Setting">
<tr>
<td width="25%"> <img src="img/02_1.gif" width="12" height="9">
<input name="Names" type="text" value="<%=RsSort("Names")%>" size="12" maxlength="25" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<a href="admin_sort.asp?action=Modify&id=<%=RsSort("ID")%>">修改</a> </td>
<td width="75%">
<div align="right">
<input name="ID" type="hidden" id="ID4" value="<%=RsSort("ID")%>" >
<input name="Setting" type="radio" value="1" <% if RsSort("Setting")=1 then%>checked<%end if%> style="BORDER: medium none; ">
圖文
<input type="radio" name="Setting" value="2" <% if RsSort("Setting")=2 then%>checked<%end if%> style="BORDER: medium none; ">
簡明
<input type="radio" name="Setting" value="3" <% if RsSort("Setting")=3 then%>checked<%end if%> style="BORDER: medium none; ">
一級
<input type="radio" name="Setting" value="4" <% if RsSort("Setting")=4 then%>checked<%end if%> style="BORDER: medium none; ">
多項
<% if RsSort("Setting")<>5 then%>
<input type="radio" name="Setting" value="5" <% if RsSort("Setting")=5 then%>checked<%end if%> style="BORDER: medium none; ">
單頁
<%end if%>
<% if RsSort("Setting")=5 then%>
<a href="admin_sort.asp?Id=<%=RsSort("ID")%>&Action=SetInfo" title="設置本頁的內容"><font color="#FF0000">設置信息</font></a>
<%end if%>
排列
<input name="Order" type="text" id="Order" value="<%=RsSort("S_Order")%>" size="2" maxlength="5" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<input name="Submit2" type="submit" id="Submit2" value="設定">
<input type="button" value="刪除" onClick=location.href='Admin_SortSave.asp?action=B_Del&id=<%=RsSort("ID")%>' name=del>
</div></td>
</tr>
</form>
</table></td>
</tr>
<% if RsSort("Setting")<>3 and RsSort("Setting")<>5 then%>
<%
SqlClass = "Select * from Sort where B_ID= "& RsSort("ID") &" order by S_Order "
Set RsClass = Conn.Execute(SqlClass)
if RsClass.eof and RsClass.bof then
Response.write("")
else
do while not RsClass.eof
%>
<tr>
<td colspan="2"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="S_modify" method="post" action="Admin_SortSave.asp?action=Setting">
<tr>
<td width="27%" height="22">
<table width="151" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>├
<input name="Names" type="text" id="Names" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; BORDER-BOTTOM: rgb(0,0,0) 1px solid" value="<%=RsClass("Names")%>" size="12" >
<a href="admin_sort.asp?action=Modify&id=<%=RsClass("ID")%>">修改</a></td>
</tr>
</table></td>
<td width="73%">
<div align="right">
<% if RsSort("Setting")=4 or RsClass("Setting")=3 then%>
<a href="admin_sort.asp?Id=<%=RsClass("Id")%>&Action=SetInfo">設置本頁的內容</a>
<%end if%>
<input name="ID" type="hidden" id="ID" value="<%=RsClass("ID")%>" size="1" >
<% if RsSort("Setting")<>4 then%>
<input type="radio" name="Setting" value="1" <% if RsClass("Setting")=1 then%>checked<%end if%> style="BORDER: medium none; ">
圖文
<input type="radio" name="Setting" value="2" <% if RsClass("Setting")=2 then%>checked<%end if%> style="BORDER: medium none; ">
簡明
<input type="radio" name="Setting" value="3" <% if RsClass("Setting")=3 then%>checked<%end if%> style="BORDER: medium none; ">
單頁
<%end if%>
排列
<input name="Order" type="text" id="Order" value="<%=RsClass("S_Order")%>" size="2" maxlength="5" style="OTTOM: rgb(0,0,0) 1px solid" >
<input name="Submit3" type="submit" id="Submit32" value="設定">
<input type="button" value="刪除" onClick=window.open('Admin_SortSave.asp?action=Del&id=<%=RsClass("ID")%>') name=del>
</div></td>
</tr>
</form>
</table></td>
</tr>
<%
RsClass.movenext
loop
end if
RsClass.close
set RsClass=nothing
%>
<%end if%>
<%
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
conn.close
set conn=nothing
%>
</table></td>
</tr>
<tr>
<td height="23" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td height="25" bgcolor="#EAEAEA"> </td>
</tr>
</table>
<!--#include file="Include/Foot.asp"-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -