www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/adminhtry/admin_special.asp
<!--#include file="setup.asp"--> <!--#include file="check.asp"--> <% Admin_header '===================================================================== ' 软件名称:新云网站管理系统 ' 当前版本:NewAsp Site Management System Version 3.0 ' 文件名称:admin_special.asp ' 更新日期:2006-12-20 ' 官方网站:新云网络(www.newasp.net www.newasp.net) QQ:94022511 '===================================================================== ' Copyright 2003-2007 newasp.net - All Rights Reserved. ' newasp is a trademark of newasp.net '===================================================================== Dim Action,Flag,i,strOption If Request("ChannelID") = 0 Or Request("ChannelID") = "" Then ErrMsg = "<li>Sorry!错误的系统参数,请选择正确的连接方式。</li>" Response.Redirect("showerr.asp?action=error&message=" & Server.URLEncode(ErrMsg) & "") Response.End Else ChannelID = CInt(Request("ChannelID")) End If %> <script language="javascript"> function formatbt() { var arr = showModalDialog("include/btformat.htm?",null, "dialogWidth:250pt;dialogHeight:166pt;toolbar=no;location=no;directories=no;status=no;menubar=NO;scrollbars=no;resizable=no;help=0; status:0"); if (arr != null){ document.myform.Topicformat.value=arr; myt.innerHTML="<span style='background-color: #FFFFff;font-size:12px' "+arr+">设置标题样式 ABCdef</span>"; } } function Cancelform() { document.myform.Topicformat.value=''; myt.innerHTML="<span style='background-color: #FFFFff;font-size:12px'>设置标题样式 ABCdef</span>"; } //--> </script> <table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder> <tr> <th><%=sChannelName%>专题栏目管理</th> </tr> <tr> <td class=tablerow1><strong>管理操作:</strong> <a href='?ChannelID=<%=ChannelID%>'>管理首页</a> | <a href='?action=add&ChannelID=<%=ChannelID%>'>添加专题栏目</a> | <a href='?action=orders&ChannelID=<%=ChannelID%>'>专题栏目排序</a></td> </tr> </table> <br> <% Flag = "Special" & ChannelID Action = LCase(Request("action")) If Not ChkAdmin(Flag) Then Server.Transfer("showerr.asp") Response.End End If Select Case Trim(Action) Case "save" Call SaveSpecial Case "modify" Call ModifySpecial Case "edit" Call EditSpecial Case "add" Call AddSpecial Case "del" Call DelSpecial Case "orders" Call SpecialOrder Case "saveorder" Call SpecialRenewOrder Case Else Call MainPage End Select If FoundErr = True Then ReturnError(ErrMsg) End If Admin_footer SaveLogInfo(AdminName) CloseConn Private Sub MainPage() %> <table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder> <tr> <th>专题名称</th> <th>连接目标</th> <th>连接类型</th> <th>修改专题栏目</th> <th>删除专题栏目</th> </tr> <% Set Rs = Newasp.Execute("Select SpecialID,ChannelID,SpecialName,Topicformat,Reopen,ChangeLink,SpecialUrl From NC_Special where ChannelID = "& ChannelID &" order by orders,SpecialID") If Rs.BOF And Rs.EOF Then Response.Write "<tr><td align=center colspan=5 class=TableRow2>还没有添加任何专题</td></tr>" Else Do While Not Rs.EOF Response.Write "<tr align=center>" Response.Write " <td class=tablerow1>" Response.Write "<A href=?action=edit&ChannelID=" Response.Write Rs("ChannelID") Response.Write "&SpecialID=" Response.Write Rs("SpecialID") Response.Write "><span " Response.Write Rs("Topicformat") Response.Write ">" Response.Write Rs("SpecialName") Response.Write "</span></A>" Response.Write " </td>" Response.Write " <td class=tablerow1>" If Rs("Reopen") <> 0 Then Response.Write "<font color=red>新窗口打开</font>" Else Response.Write "<font color=blue>本窗口打开</font>" End If Response.Write " </td>" Response.Write " <td class=tablerow1>" If Rs("ChangeLink") <> 0 Then Response.Write "<font color=red>转向连接</font>" Else Response.Write "<font color=blue>内部连接</font>" End If Response.Write " </td>" Response.Write " <td class=tablerow1>" Response.Write "<A href=?action=edit&ChannelID=" Response.Write Rs("ChannelID") Response.Write "&SpecialID=" Response.Write Rs("SpecialID") Response.Write ">编 辑 专 题</A>" Response.Write " </td>" Response.Write " <td class=tablerow1>" Response.Write "<A href=?action=del&ChannelID=" Response.Write Rs("ChannelID") Response.Write "&SpecialID=" Response.Write Rs("SpecialID") Response.Write " onclick=""{if(confirm('此操作将删除此专题\n您确定要删除吗?')){return true;}return false;}"">删 除 专 题</A>" Response.Write " </td>" Response.Write "</tr>" Rs.movenext Loop Rs.Close:Set Rs = Nothing End If %> </table> <% End Sub Private Sub AddSpecial() Dim NewSpecialID SQL = "select Max(SpecialID) from NC_Special" Set Rs = Newasp.Execute(SQL) If Rs.bof And Rs.EOF Then NewSpecialID = 1 Else NewSpecialID = Rs(0) + 1 End If If IsNull(NewSpecialID) Then NewSpecialID = 1 Rs.Close:Set Rs = Nothing %> <table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder> <tr> <th colspan=2>添加<%=sModuleName%>专题栏目</th> </tr> <form name=myform method=post action=?action=save> <input type=hidden name=ChannelID value='<%=ChannelID%>'> <input type=hidden name=SpecialID value='<%=NewSpecialID%>'> <tr> <td width="20%" class=tablerow1><strong>专题栏目名称:</strong></td> <td width="80%" class=tablerow1><input type=text name=SpecialName size=20 value=''> 样式:<input type="hidden" name="Topicformat" size="1" value=""> <span style="background-color: #fFfFff" id="myt" onclick="javascript:formatbt(this);" style='cursor:hand; font-size:11pt' >设置标题样式 ABCdef</span> <input type=checkbox name=cancel value='' onclick="Cancelform()"> 取消格式</td> </tr> <tr> <td class=tablerow2><strong>专题栏目说明:</strong></td> <td class=tablerow2><input type=text name=Readme size=50 id=Readme value=''></td> </tr> <tr> <td class=tablerow1><strong>专题所在目录:</strong></td> <td class=tablerow1><input type=text name=SpecialDir size=20 value=''></td> </tr> <tr> <td class=tablerow2><strong>是否新窗口打开:</strong></td> <td class=tablerow2><input type=radio name=Reopen value='0' checked> 否 <input type=radio name=Reopen value='1'> 是 </td> </tr> <tr> <td class=tablerow1><strong>是否转向连接:</strong></td> <td class=tablerow1><input type=radio name=ChangeLink value='0' checked onClick="ChangeSetting.style.display='none';"> 否 <input type=radio name=ChangeLink value='1' onClick="ChangeSetting.style.display='';"> 是 </td> </tr> <tr id=ChangeSetting style="display:none"> <td class=tablerow2><strong>转向连接URL:</strong></td> <td class=tablerow2><input type=text name=SpecialUrl size=50 value='http://'></td> </tr> <tr align=center> <td class=tablerow2></td> <td class=tablerow2><input type="button" onclick="javascript:history.go(-1)" value="返回上一页" name="B1" class=Button> <input type="submit" value="添加专题" name="B2" class=Button></td> </tr> </form> </table> <% End Sub Private Sub EditSpecial() Set Rs = Newasp.Execute("Select SpecialID,SpecialName,Topicformat,Readme,Reopen,SpecialDir,ChangeLink,SpecialUrl From NC_Special where ChannelID = "& ChannelID &" And SpecialID = " & Request("SpecialID")) If Rs.BOF And Rs.EOF Then Response.Write "参数错误!" Exit Sub End If %> <table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder> <tr> <th colspan=2>修改<%=sModuleName%>专题栏目</th> </tr> <form name=myform method=post action=?action=modify> <input type=hidden name=ChannelID value='<%=ChannelID%>'> <input type=hidden name=SpecialID value='<%=Rs("SpecialID")%>'> <tr> <td width="20%" class=tablerow1><strong>专题栏目名称:</strong></td> <td width="80%" class=tablerow1><input type=text name=SpecialName size=20 value='<%=Rs("SpecialName")%>'> 样式:<input type="hidden" name="Topicformat" size="1" value="<%=Server.HTMLEncode(Rs("Topicformat"))%>"> <span style="background-color: #fFfFff" id="myt" onclick="javascript:formatbt(this);" style='cursor:hand; font-size:11pt' ><span <%=Rs("Topicformat")%>>设置标题样式 ABCdef</span></span> <input type=checkbox name=cancel value='' onclick="Cancelform()"> 取消格式</td> </tr> <tr> <td class=tablerow2><strong>专题栏目说明:</strong></td> <td class=tablerow2><input type=text name=Readme size=50 value='<%=Rs("Readme")%>'></td> </tr> <tr> <td class=tablerow1><strong>专题所在目录:</strong></td> <td class=tablerow1><input type=text name=SpecialDir size=20 value='<%=Rs("SpecialDir")%>'></td> </tr> <tr> <td class=tablerow2><strong>是否新窗口打开:</strong></td> <td class=tablerow2><input type=radio name=Reopen value='0'<%If Rs("Reopen") = 0 Then Response.Write (" checked")%>> 否 <input type=radio name=Reopen value='1'<%If Rs("Reopen") = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class=tablerow1><strong>是否转向连接:</strong></td> <td class=tablerow1><input type=radio name=ChangeLink value='0'<%If Rs("ChangeLink") = 0 Then Response.Write (" checked")%> onClick="ChangeSetting.style.display='none';"> 否 <input type=radio name=ChangeLink value='1'<%If Rs("ChangeLink") = 1 Then Response.Write (" checked")%> onClick="ChangeSetting.style.display='';"> 是 </td> </tr> <tr id=ChangeSetting<%If Rs("ChangeLink") = 0 Then Response.Write (" style=""display:none""")%>> <td class=tablerow2><strong>转向连接URL:</strong></td> <td class=tablerow2><input type=text name=SpecialUrl size=50 value='<%=Rs("SpecialUrl")%>'></td> </tr> <tr align=center> <td class=tablerow2></td> <td class=tablerow2><input type="button" onclick="javascript:history.go(-1)" value="返回上一页" name="B1" class=Button> <input type="submit" value="修改专题" name="B2" class=Button></td> </tr> </form> </table> <% Rs.Close:Set Rs = Nothing End Sub Private Sub CheckSave() If Trim(Request.Form("SpecialName")) = "" Or Len(Request.Form("SpecialName")) => 30 Then FoundErr = True ErrMsg = ErrMsg + "<li>专题名称不能为空或者超过30个字符!</li>" End If If Trim(Request.Form("Readme")) = "" Then FoundErr = True ErrMsg = ErrMsg + "<li>专题说明不能为空!</li>" End If If Trim(Request.Form("SpecialDir")) = "" Then FoundErr = True ErrMsg = ErrMsg + "<li>专题目录不能为空!</li>" End If If Trim(Request.Form("SpecialUrl")) = "" Then FoundErr = True ErrMsg = ErrMsg + "<li>专题连接URL不能为空!</li>" End If If Not Newasp.IsValidChar(Trim(Request.Form("SpecialDir"))) Then FoundErr = True ErrMsg = ErrMsg + "<li>专题目录中含有非法字符或者中文字符!</li>" End If End Sub Private Sub SaveSpecial() Call CheckSave Dim neworders,NewSpecialID,SpecialDir Set Rs = Conn.Execute("select SpecialID from NC_Special where SpecialID = " & Request("SpecialID")) If Not (Rs.EOF And Rs.bof) Then ErrMsg = "<li>您不能指定和别的频道一样的序号。</li>" Founderr = True Exit Sub Else NewSpecialID = Request("SpecialID") End If SpecialDir = Replace(Replace(Trim(Request.Form("SpecialDir")), "\", ""), "/", "") If Founderr = True Then Exit Sub Set Rs = Newasp.Execute ("Select Max(orders) from NC_Special where ChannelID = " & Request("ChannelID")) If Not (Rs.EOF And Rs.bof) Then neworders = Rs(0) End If If IsNull(neworders) Then neworders = 0 Rs.Close Set Rs = Server.CreateObject("ADODB.Recordset") SQL = "select * from NC_Special" Rs.Open SQL,Conn,1,3 Rs.Addnew Rs("SpecialID") = NewSpecialID Rs("ChannelID") = Trim(Request.Form("ChannelID")) Rs("SpecialName") = Trim(Request.Form("SpecialName")) Rs("Topicformat") = Trim(Request.Form("Topicformat")) Rs("Readme") = Trim(Request.Form("Readme")) Rs("orders") = neworders + 1 Rs("Reopen") = Trim(Request.Form("Reopen")) Rs("SpecialDir") = Trim(Request.Form("SpecialDir")) Rs("ChangeLink") = Trim(Request.Form("ChangeLink")) Rs("SpecialUrl") = Trim(Request.Form("SpecialUrl")) Rs.update Rs.Close:Set Rs = Nothing Succeed("<li>添加新的专题栏目成功</li>") End Sub Private Sub ModifySpecial() Call CheckSave Dim SpecialDir SpecialDir = Replace(Replace(Trim(Request.Form("SpecialDir")), "\", ""), "/", "") Set Rs = Server.CreateObject("ADODB.Recordset") SQL = "select * from NC_Special where SpecialID = " & Request("SpecialID") Rs.Open SQL,Conn,1,3 Rs("SpecialName") = Trim(Request.Form("SpecialName")) Rs("Topicformat") = Trim(Request.Form("Topicformat")) Rs("Readme") = Trim(Request.Form("Readme")) 'Rs("orders") = neworders + 1 Rs("Reopen") = Trim(Request.Form("Reopen")) Rs("SpecialDir") = Trim(Request.Form("SpecialDir")) Rs("ChangeLink") = Trim(Request.Form("ChangeLink")) Rs("SpecialUrl") = Trim(Request.Form("SpecialUrl")) Rs.update Rs.Close:Set Rs = Nothing Succeed("<li>修改" & sChannelName & "的专题栏目成功</li>") End Sub Private Sub DelSpecial() Dim FolderPath If Trim(Request("SpecialID")) <> "" Then Set Rs = Newasp.Execute("Select SpecialDir From NC_Special where SpecialID = " & Request("SpecialID")) 'FolderPath = Newasp.InstallDir & Newasp.ChannelDir & "Special/" & Rs("SpecialDir") 'Newasp.FolderDelete(FolderPath) Newasp.Execute("DELETE FROM NC_Special WHERE SpecialID = " & CLng(Request("SpecialID"))) Rs.Close:Set Rs = Nothing OutHintScript (sChannelName & "专题栏目删除操作成功!") Else OutHintScript ("请选择正确的系统参数!") End If End Sub Private Sub SpecialOrder() Dim trs Dim uporders Dim doorders Response.Write " <table border=""0"" cellspacing=""1"" cellpadding=""2"" class=""tableBorder"" align=center>" & vbCrLf Response.Write " <tr>" & vbCrLf Response.Write " <th colspan=2>" & sChannelName & "专题栏目重新排序修改" Response.Write " </th>" Response.Write " </tr>" & vbCrLf SQL = "select * from NC_Special where ChannelID = "& Request("ChannelID") &" order by orders" Set Rs = Newasp.Execute(SQL) If Rs.bof And Rs.EOF Then Response.Write "您还没有添加相应的专题。" Else Do While Not Rs.EOF Response.Write "<form action=?action=saveorder method=post><tr><td width=""50%"" class=TableRow1>" & vbCrLf Response.Write "<span " & Rs("Topicformat") & ">" & Rs("SpecialName") & "</span>" Response.Write "</td><td width=""50%"" class=TableRow2>" & vbCrLf Set trs = Newasp.Execute("select count(*) from NC_Special where ChannelID = "& Request("ChannelID") &" And orders<" & Rs("orders") & "") uporders = trs(0) If IsNull(uporders) Then uporders = 0 Set trs = Newasp.Execute("select count(*) from NC_Special where ChannelID = "& Request("ChannelID") &" And orders>" & Rs("orders") & "") doorders = trs(0) If IsNull(doorders) Then doorders = 0 If uporders > 0 Then Response.Write "<select name=uporders size=1><option value=0>↑</option>" & vbCrLf For i = 1 To uporders Response.Write "<option value=" & i & ">↑" & i & "</option>" & vbCrLf Next Response.Write "</select>" End If If doorders > 0 Then If uporders > 0 Then Response.Write " " Response.Write "<select name=doorders size=1><option value=0>↓</option>" & vbCrLf For i = 1 To doorders Response.Write "<option value=" & i & ">↓" & i & "</option>" & vbCrLf Next Response.Write "</select>" & vbCrLf End If If doorders > 0 Or uporders > 0 Then Response.Write "<input type=hidden name=""ChannelID"" value=""" & Rs("ChannelID") & """><input type=hidden name=""SpecialID"" value=""" & Rs("SpecialID") & """> <input type=submit name=Submit class=button value='修 改'>" & vbCrLf End If Response.Write "</td></tr></form>" & vbCrLf Rs.movenext Loop End If Rs.Close Set Rs = Nothing Response.Write "</table>" End Sub Private Sub SpecialRenewOrder() Dim orders Dim uporders Dim doorders Dim oldorders If Not IsNumeric(Request("ChannelID")) Then ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub End If If Not IsNumeric(Request("SpecialID")) Then ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub End If If Request("uporders") <> "" And Not CInt(Request("uporders")) = 0 Then If Not IsNumeric(Request("uporders")) Then ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub ElseIf CInt(Request("uporders")) = 0 Then ErrMsg = ErrMsg & "<li>请选择要提升的数字!</li>" Founderr = True Exit Sub End If Set Rs = Newasp.Execute("select SpecialID,orders from NC_Special where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Request("SpecialID")) orders = Rs(1) i = 0 oldorders = 0 Set Rs = Newasp.Execute("select SpecialID,orders from NC_Special where ChannelID=" & Request("ChannelID") & " And orders<" & orders & " order by orders desc") Do While Not Rs.EOF i = i + 1 If CInt(Request("uporders")) >= i Then Newasp.Execute ("update NC_Special set orders=" & orders & "+" & oldorders & " where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Rs(0)) If CInt(Request("uporders")) = i Then uporders = Rs(1) End If orders = Rs(1) Rs.movenext Loop Newasp.Execute ("update NC_Special set orders=" & uporders & " where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Request("SpecialID")) Set Rs = Nothing ElseIf Request("doorders") <> "" Then If Not IsNumeric(Request("doorders")) Then ErrMsg = ErrMsg & "<li>非法的参数!</li>" Founderr = True Exit Sub ElseIf CInt(Request("doorders")) = 0 Then ErrMsg = ErrMsg & "<li>请选择要下降的数字!</li>" Founderr = True Exit Sub End If Set Rs = Newasp.Execute("select SpecialID,orders from NC_Special where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Request("SpecialID")) orders = Rs(1) i = 0 oldorders = 0 Set Rs = Newasp.Execute("select SpecialID,orders from NC_Special where ChannelID=" & Request("ChannelID") & " And orders>" & orders & " order by orders desc") Do While Not Rs.EOF i = i + 1 If CInt(Request("doorders")) >= i Then Newasp.Execute ("update NC_Special set orders=" & orders & " where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Rs(0)) If CInt(Request("doorders")) = i Then doorders = Rs(1) End If orders = Rs(1) Rs.movenext Loop Newasp.Execute ("update NC_Special set orders=" & doorders & " where ChannelID=" & Request("ChannelID") & " And SpecialID=" & Request("SpecialID")) Set Rs = Nothing End If Response.redirect "admin_special.asp?action=orders&ChannelID=" & ChannelID End Sub %>