📄 admin_sort.asp

📁 浪人文章系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
	set rsAS1=Server.CreateObject("Adodb.RecordSet")
	rsAS1.open "select * from "&GuTablePrefix&"_AsSort where AS_Name='"&Trim(Request.Form("SoAS_Name"))&"' and AS_SortID="&Trim(Request.Form("SoAS_SortID"))&"",GuConn,1,1
	if not(rsAS1.bof and rsAS1.eof) then
		GuSystemCode=3
		GuSystemMessage="同一类别下相同的分类名称已经存在"
	else
		dim rsASA
		set rsASA=Server.CreateObject("Adodb.RecordSet")
		rsASA.open "select * from "&GuTablePrefix&"_AsSort where AS_Name='"&Trim(Request.Form("SoAS_Name"))&"'",GuConn,1,3
		GuSQL="select * from "&GuTablePrefix&"_AsSort where (AS_ID is null)"
		rsASA.addnew
		rsASA("AS_Name")=SoAS_Name
		rsASA("AS_SortID")=SoAS_SortID
		rsASA("AS_Number")="0"
		rsASA("AS_Order")=SoAS_Order
		rsASA("AS_Username")=SoAS_Username
		rsASA("AS_IP")=SoAS_IP
		rsASA("AS_DateTime")=SoAS_DateTime
		rsASA.update
		rsASA.close
		set rsASA=Nothing
		GuSystemCode=00
		GuSystemMessage="新的分类别已添加完成"
		GuSystemURL="<a href=""Admin_Sort.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
		end if
		rsAS1.close
		set rsAS1=Nothing

	call GuMessage()
	
end sub


Sub AsSortModifySave()

	dim rsAS2
	set rsAS2=Server.CreateObject("Adodb.RecordSet")
	GuSQL="select * from "&GuTablePrefix&"_AsSort where AS_Name='"&SoAS_Name&"' and AS_SortID="&SoAS_SortID&" and AS_ID<>"&Trim(Request.Form("AsSortID"))
	rsAS2.open GuSQL,GuConn,1,1
	if not rsAS2.EOF then
		GuSystemCode=3
		GuSystemMessage="同一类别下相同的分类名称已经存在"
	else
		GuSQL="update "&GuTablePrefix&"_AsSort set AS_Name='"&SoAS_Name&"',AS_SortID="&SoAS_SortID&",AS_Order="&SoAS_Order&" where AS_ID="&Trim(Request.Form("AsSortID"))
		GuConn.execute GuSQL
		GuSQL="update "&GuTablePrefix&"_Article set Ar_SortID="&SoAS_SortID&" where Ar_AsSortID="&Trim(Request.Form("AsSortID"))
		GuConn.execute GuSQL
		GuSystemCode=00
		GuSystemMessage="分类名称已修改完成"
		GuSystemURL="<a href=""Admin_Sort.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
	end if
		rsAS2.close
		set rsAS2=Nothing

	call GuMessage()

end sub


Sub AsSortDelete()

	if Trim(Request("GuAsSortID"))="" then
		GuSystemCode=3
		GuSystemMessage="没有选择要删除的分类"
	else
		GuAsSortID=Trim(Request("GuAsSortID"))
		GuConn.execute("delete from "&GuTablePrefix&"_AsSort where AS_ID in ("&GuAsSortID&")")
		GuConn.execute("delete from "&GuTablePrefix&"_Article where Ar_AsSortID in ("&GuAsSortID&")")
		GuConn.execute("delete from "&GuTablePrefix&"_GuestBook where GB_AsSortID in ("&GuAsSortID&")")
		GuConn.execute("delete from "&GuTablePrefix&"_ConfigIC where CIC_Type='AsSort' and CIC_OldIDB in ("&GuAsSortID&")")
		GuSystemCode=00
		GuSystemMessage="所选择的分类及以下所有相关内容已删除完成"
		GuSystemURL="<a href=""Admin_Sort.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"
	end if

	call GuMessage()

end sub


Sub Admin_Sort(isSortModify,isAsSortModify)

if isSortModify then
	dim rsSo6
	set rsSo6=Server.CreateObject("Adodb.RecordSet")
	rsSo6.open "select * from "&GuTablePrefix&"_Sort where So_ID="&Trim(Request.QueryString("GuSortID")),GuConn,1,1
end if

if isAsSortModify then
	dim rsAS6
	set rsAS6=Server.CreateObject("Adodb.RecordSet")
	rsAS6.open "select * from "&GuTablePrefix&"_AsSort where AS_ID="&Trim(Request.QueryString("GuAsSortID")),GuConn,1,1
end if
%>

<table border="0" cellpadding="0" cellspacing="1" width="600" height="10" bgcolor="#CEEFE7">
<form name="Admin_Sort" method="post" action="Admin_Sort.asp" onSubmit="return Admin_Sort_Check();">
 <tr>
  <td width="600" height="30" background="Images/Admin_T_Bg1.gif" align="center" colspan="3"><font class="BlackS12"><b>类 别 分 类 管 理</b></font></td>
 </tr>
 <tr>
  <td width="600" height="10" bgcolor="#FFFFFF" colspan="3"></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">显示名称</font></td>
  <td width="276" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="SoAS_Name" maxlength="50" value="<%if isSortModify then Response.write rsSo6("So_Name") end if%><%if isAsSortModify then Response.write rsAS6("AS_Name") end if%>" class="Admin_InputText" style="width:76;background-color:#EAFBF5;">&nbsp;<select name="SoAS_SortID" class="Admin_Select" style="width:90;background-color:#EAFBF5;"><option value="">所属类别..</option><% 
dim rsSo7
set rsSo7=Server.CreateObject("Adodb.RecordSet")
rsSo7.open "select * from "&GuTablePrefix&"_Sort where So_Type='Sort' order by So_Order asc",GuConn,1,1
if not(rsSo7.bof and rsSo7.eof) then
	do while not rsSo7.eof
	if isAsSortModify then %><option value="<%=rsSo7("So_ID")%>" <%if rsSo7("So_ID")=rsAS6("AS_SortID") then
		Response.write "selected"
end if %>><%=rsSo7("So_Name")%></option><% else %><option value="<%=rsSo7("So_ID")%>"><%=rsSo7("So_Name")%></option><%
end if
	rsSo7.movenext
	loop
end if
	rsSo7.close
	set rsSo7=Nothing
%></select></td>
  <td width="240" height="28" bgcolor="#FFFFFF">&nbsp;<span id="JS_M_SoAS_Name" class="BlackV12">填写类别(分类)或其它链接的名称</span></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">排序代码</font></td>
  <td width="276" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="SoAS_Order" value="<%if isSortModify then%><%=rsSo6("So_Order")%><%elseif isAsSortModify then%><%=rsAS6("AS_Order")%><%else Response.write""&hour(time)&minute(time)&second(time)&"" end if%>" onKeypress="if(event.keyCode<48||event.keyCode>57)event.returnValue=false;" class="Admin_InputText" style="width:76;background-color:#EAFBF5;" maxlength="7"></td>
  <td width="240" height="28" bgcolor="#FFFFFF">&nbsp;<span id="JS_M_SoAS_Order" class="BlackS12">填写排列先后顺序的数字代码</span></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">选择类型</font></td>
  <td width="276" height="28" bgcolor="#FFFFFF">&nbsp;<select name="SoAS_Type" size="1" class="Admin_Select" style="width:77;background-color:#EAFBF5;"><%
if isSortModify or isAsSortModify then
	if Trim(Request.QueryString("GuComm"))="SOMO" then Response.write "<option value=""Sort"" selected>类别</option>" end if
	if Trim(Request.QueryString("GuComm"))="ASMO" then Response.write "<option value=""AsSort"" selected>分类</option>" end if
	if Trim(Request.QueryString("GuComm"))="OTMO" then Response.write "<option value=""Other"" selected>其它链接</option>" end if
else%>
<option value="Sort" selected>类别</option>
<option value="AsSort">分类</option>
<option value="Other">其它链接</option>
<%end if%></select>&nbsp;<input type="text" name="SoAS_OtherLink" maxlength="200" value="<%if isSortModify then Response.write rsSo6("So_OtherLink") end if%>" class="Admin_InputText" style="width:176;background-color:#FFFFFF;"></td>
  <td width="240" height="28" bgcolor="#FFFFFF">&nbsp;<span id="JS_M_SoAS_Type" class="BlackV12">选择类型，类别(分类)或其它链接</span></td>
 </tr>
 <tr>
  <td width="80" height="38" bgcolor="#FFFFFF"><input type="hidden" name="GuComm" value="<%if isSortModify or isAsSortModify then Response.write "SOASMOSA" else Response.write "SOASADSA" end if%>"><%if isSortModify then%><input type="hidden" name="SortID" value="<%=Trim(Request.QueryString("GuSortID"))%>"><%end if%><%if isAsSortModify then%><input type="hidden" name="AsSortID" value="<%=Trim(Request.QueryString("GuAsSortID"))%>"><%end if%></td>
  <td width="518" height="38" bgcolor="#FFFFFF" colspan="2">&nbsp;<input type="submit" value="" name="submit" class="<%if isSortModify or isAsSortModify then Response.write "Admin_Button_Modify" else Response.write "Admin_Button_Add" end if%>">&nbsp;<input type="reset" value="" name="cancel" class="Admin_Button_Reset"></td>
 </tr>
</form>
</table>
<%
if isSortModify then
	rsSo6.close
	set rsSo6=Nothing
end if

if isAsSortModify then
	rsAS6.close
	set rsAS6=Nothing
end if
%>

<br>

<%
dim rsSo8,rsSo9,rsAS8,iSo
set rsSo8=Server.CreateObject("Adodb.RecordSet")
set rsSo9=Server.CreateObject("Adodb.RecordSet")
set rsAS8=Server.CreateObject("Adodb.RecordSet")
rsSo8.open "select * from "&GuTablePrefix&"_Sort order by So_Order asc",GuConn,1,1
if err.number<>0 then
		Response.write "<table border=""0"" width=""600"" height=""20"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#CEEFE7"">"
		Response.write "<tr><td width=""600"" height=""40"" bgcolor=""#FFFFFF"">&nbsp;&nbsp;<font class=""RedS12"">数据库查询出错</font></td></tr></table>"
else
	if rsSo8.bof and rsSo8.eof then
		Response.write "<table border=""0"" width=""600"" height=""20"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#CEEFE7"">"
		Response.write "<tr><td width=""600"" height=""40"" bgcolor=""#FFFFFF"">&nbsp;<font class=""SilverS12"">没有找到相关数据</font></td></tr></table>"
	else
%>
<form name="Admin_Sort_List" method="post" action="Admin_Sort.asp">
<table border="0" cellpadding="0" cellspacing="0" width="600" height="10">
 <tr>
<%
		iSo=1
		do while not rsSo8.eof
%>
  <td height="10" width="300" bgcolor="#FFFFFF" valign="top" align="<%if (iSo mod 2)=0 then Response.write "right"%>"><table border="0" cellpadding="0" cellspacing="0" width="298" height="10" bgcolor="#CEEFE7" style="border-left-style:solid;border-left-width:1px;border-left-color:#CEEFE7;border-right-style:solid;border-right-width:1px;border-right-color:#CEEFE7;border-top-style:solid;border-top-width:1px;border-top-color:#CEEFE7;border-bottom-style:solid;border-bottom-width:0px;">
 <tr>
  <td height="10" width="298" bgcolor="#EAFBF5"><table border="0" cellpadding="0" cellspacing="0" width="296" height="25">
  <tr>
	<td width="168">&nbsp;<font class="BlackS12">【<%=rsSo8("So_Name")%>】</font></td>
	<td width="128" align="right"><font class="SilverS12"><%=rsSo8("So_Order")%></font>&nbsp;<a href="JavaScript:if(confirm('将同时删除所选择的类别及以下的所有相关内容...\n\n确定删除吗？'))location='Admin_Sort.asp?GuComm=SODE&GuSortID=<%=rsSo8("So_ID")%>'" class="SilverW14"><img src="Images/Admin_Button_Delete2.gif" border="0" width="14" height="10" style="filter:alpha(opacity=20)" onMouseOver="MakeVisible(this,0)" onMouseOut="MakeVisible(this,1)" title="删除"></a>&nbsp;<%if rsSo8("So_Type")="Sort" then%><a href="Admin_ConfigIC.asp?GuComm=AdSo&GuSortID=<%=rsSo8("So_ID")%>" class="SilverW14"><img src="Images/Admin_Button_Set2.gif" border="0" width="14" height="10" style="filter:alpha(opacity=20)" onMouseOver="MakeVisible(this,0)" onMouseOut="MakeVisible(this,1)" title="设为首页资源统计栏目"></a><%else%><img src="Images/Admin_Button_Set2.gif" border="0" width="14" height="10" style="filter:alpha(opacity=6)"><%end if%>&nbsp;<a href="Admin_Sort.asp?GuComm=<%if rsSo8("So_Type")="Sort" then Response.write "SOMO" else Response.write "OTMO" end if%>&GuSortID=<%=rsSo8("So_ID")%>" class="SilverW14"><img src="Images/Admin_Button_Modify2.gif" border="0" width="14" height="10" style="filter:alpha(opacity=20)" onMouseOver="MakeVisible(this,0)" onMouseOut="MakeVisible(this,1)" title="编辑"></a>&nbsp;</td>
  </tr></table></td>
 </tr>
 <tr>
  <td height="10" width="298" bgcolor="#FFFFFF"><table border="0" cellpadding="0" cellspacing="0" width="296" height="24">
<%
rsAS8.open "select * from "&GuTablePrefix&"_AsSort where AS_SortID="&rsSo8("So_ID")&" order by AS_Order asc",GuConn,1,1
if err.number<>0 then
	Response.write "<tr><td bgcolor=""#FFFFFF"">&nbsp;<font class=""RedS12"">数据库查询出错</font></td></tr>"
else
	if rsAS8.bof and rsAS8.eof then
		Response.write "<tr><td bgcolor=""#FFFFFF"">&nbsp;<font class=""SilverS12"">没有找到相关数据</font></td></tr>"
	else
		do while not rsAS8.eof
%><tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#EAFBF5'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
	<td width="168">&nbsp;<input type="checkbox" name="GuAsSortID" id="GuAsSortID_<%=rsAS8("AS_ID")%>" value="<%=rsAS8("AS_ID")%>"><label for="GuAsSortID_<%=rsAS8("AS_ID")%>"><font class="BlackS12"><%=rsAS8("AS_Name")%></font></label></td>
	<td width="128" align="right"><font class="SilverS12"><%=rsAS8("AS_Order")%></font>&nbsp;<a href="JavaScript:if(confirm('将同时删除所选择的分类及以下的所有相关内容...\n\n确定删除吗？'))location='Admin_Sort.asp?GuComm=ASDE&GuAsSortID=<%=rsAS8("AS_ID")%>'" class="SilverW14"><img src="Images/Admin_Button_Delete2.gif" border="0" width="14" height="10" style="filter:alpha(opacity=20)" onMouseOver="MakeVisible(this,0)" onMouseOut="MakeVisible(this,1)" title="删除"></a>&nbsp;<a href="Admin_ConfigIC.asp?GuComm=AdAS&GuSortID=<%=rsAS8("AS_SortID")%>&GuAsSortID=<%=rsAS8("AS_ID")%>" class="SilverW14"><img src="Images/Admin_Button_Set2.gif" border="0" width="14" height="10" style="filter:alpha(opacity=20)" onMouseOver="MakeVisible(this,0)" onMouseOut="MakeVisible(this,1)" title="设为首页资源统计栏目"></a>&nbsp;<a href="Admin_Sort.asp?GuComm=ASMO&GuAsSortID=<%=rsAS8("AS_ID")%>" class="SilverW14"><img src="Images/Admin_Button_Modify2.gif" border="0" width="14" height="10" style="filter:alpha(opacity=20)" onMouseOver="MakeVisible(this,0)" onMouseOut="MakeVisible(this,1)" title="编辑"></a>&nbsp;</td>
  </tr><%
		rsAS8.movenext
		loop
	end if
end if
	rsAS8.close
%>
 </table></td></tr></table></td><%
		if (iSo mod 2)=0 then Response.write "</tr><tr>"
		iSo=iSo+1
		rsSo8.movenext
		loop
	rsSo8.close
	set rsAS8=Nothing
	set rsSo8=Nothing
%>
 </tr>
</table>
<table border="0" width="600" height="20" cellpadding="0" cellspacing="0" bgcolor="#CEEFE7" style="border-left-style:solid;border-left-width:1px;border-left-color:#CEEFE7;border-right-style:solid;border-right-width:1px;border-right-color:#CEEFE7;border-top-style:solid;border-top-width:1px;border-top-color:#CEEFE7;border-bottom-style:solid;border-bottom-width:1px;border-bottom-color:#CEEFE7;">
 <tr>
  <td width="600" height="38" bgcolor="#FFFFFF" align="right"><input type="hidden" name="GuComm" value="ASDE"><input onClick="{if(confirm('将同时删除该分类下的所有相关内容...\n\n确定删除吗？')){this.document();return true;}return false;}" type="submit" value="" name="Admin_AsSort_Delete" class="Admin_Button_Delete">&nbsp;<input type="button" name="Admin_Button_SelectAll" class="Admin_Button_SelectAll" onclick="JavaScript:GuSelectAll(document.Admin_Sort_List.GuAsSortID);">&nbsp;<input type="button" name="Admin_Button_SelectReverse" Class="Admin_Button_SelectReverse" onclick="JavaScript:GuSelectReverse(document.Admin_Sort_List.GuAsSortID);">&nbsp;<input type="button" name="Admin_Button_SelectClear" class="Admin_Button_SelectClear" onclick="JavaScript:GuSelectClear(document.Admin_Sort_List.GuAsSortID);">&nbsp;</td>
 </tr>
</table>
</form>
<br>
<%
	end if
end if

end sub
%>

<!--#include file="Include/Message.asp"-->

</body>
</html>

<%CloseDatabase%>
上一页 12
⌨️ 快捷键说明

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