?? admin_flash.asp
字號:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 軟件名稱：新云網(wǎng)站管理系統(tǒng)
' 當前版本：NewCloud Site Management System Version 2.1
' 文件名稱：admin_flash.asp
' 更新日期：2004-12-20
' 官方網(wǎng)站：新云網(wǎng)絡(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action,isEdit,Flag,DefaultShowMode
Dim i,ClassID,RsObj,flashid,findword,keyword,strClass
Dim TextContent,FlashTop,FlashBest,ForbidEssay
Dim maxperpage,CurrentPage,totalnumber,TotalPageNum
Dim s_ClassName,ChildStr,FoundSQL,isAccept,selflashid
Dim FlashAccept,Auditing
ChannelID = Newasp.ChkNumeric(Request("ChannelID"))
If ChannelID = 0 Then ChannelID = 5
If ChannelID = 5 Then
DefaultShowMode = 1 '-- 默認顯示模式
Else
DefaultShowMode = 2 '-- 默認顯示模式
End If
Flag = sChannelDir & ChannelID
If Request("isAccept") <> "" Then
isAccept = 0
Else
isAccept = 1
End If
Action = LCase(Request("action"))
'If Not ChkAdmin(Flag) Then
' Server.Transfer("showerr.asp")
' Response.End
'End If
Select Case Trim(Action)
Case "save"
Call SaveFlash
Case "modify"
Call ModifyFlash
Case "add"
isEdit = False
Call FlashEdit(isEdit)
Case "edit"
isEdit = True
Call FlashEdit(isEdit)
Case "del"
Call FlashDel
Case "view"
Call FlashView
Case "setting"
Call PageTop
Call BatchSetting
Case "saveset"
Call SaveSetting
Case "move"
Call PageTop
Call BatchMove
Case "savemove"
Call SaveMove
Case "batdel"
Call PageTop
Call BatcDelete
Case "alldel"
Call AllDelFlash
Case Else
Call showmain
End Select
If FoundErr = True Then
ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Private Sub PageTop()
Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=TableBorder>"
Response.Write " <tr>"
Response.Write " <th colspan=2>" & sModuleName & "管理選項</th>"
Response.Write " </tr>"
Response.Write " <tr><form method=Post name=myform action='admin_flash.asp' onSubmit='return JugeQuery(this);'>"
Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
Response.Write "<td class=TableRow1>搜索："
Response.Write " <input name=keyword type=text size=20>"
Response.Write " 條件："
Response.Write " <select name=queryopt>"
Response.Write " <option value='1' selected>" & sModuleName & "名稱</option>"
Response.Write " <option value='2'>添 加 人</option>"
Response.Write " <option value='3'>不限條件</option>"
Response.Write " </select> <input type=submit name=Submit value='開始查詢' class=Button></td>"
Response.Write " <td class=TableRow1>" & sModuleName & "導航："
Dim srtClassMenu
Response.Write "<select onchange=""if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}"">" & vbCrLf
Response.Write "<option value='admin_flash.asp?ChannelID=" & ChannelID & "'>≡全部" & sModuleName & "列表≡</option>" & vbCrLf
srtClassMenu = Newasp.ClassJumpMenu(ChannelID)
srtClassMenu = Replace(srtClassMenu, "{ClassID=" & Request("sortid") & "}", "selected")
Response.Write srtClassMenu
Response.Write "</select>"
Response.Write " </td></form>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td colspan=2 class=TableRow2><strong>操作選項：</strong> <a href='admin_flash.asp?ChannelID=" & ChannelID & "'>管理首頁</a> | "
Response.Write " <a href='admin_flash.asp?action=add&ChannelID=" & ChannelID & "'>添加" & sModuleName & "</a> | "
Response.Write " <a href='admin_classify.asp?ChannelID=" & ChannelID & "&action=add'>添加" & sModuleName & "分類</a> | "
Response.Write " <a href='admin_classify.asp?ChannelID=" & ChannelID & "'>" & sModuleName & "分類管理</a></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br>"
End Sub
Private Sub showmain()
If Not ChkAdmin("AdminFlash" & ChannelID) Then
Server.Transfer("showerr.asp")
Response.End
End If
If Not IsEmpty(Request("selflashid")) Then
selflashid = Request("selflashid")
Select Case Newasp.CheckStr(Request("act"))
Case "批量刪除":Call batdel
Case "批量移動":Call batmove
Case "更新時間":Call upindate
Case "批量推薦":Call isCommend
Case "取消推薦":Call noCommend
Case "批量置頂":Call isTop
Case "取消置頂":Call noTop
Case "批量審核":Call BatAccept
Case "取消審核":Call NotAccept
Case "生成HTML":Call BatCreateHtml
Case Else
Response.Write "無效參數(shù)！"
End Select
End If
Call PageTop
Dim strListName
Dim specialID,sortid,Cmd,child
Response.Write "<script language=""JavaScript"" src=""include/showpage.js""></script>" & vbNewLine
Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=TableBorder>"
Response.Write " <tr>"
Response.Write " <th width='5%' nowrap>選擇</th>"
Response.Write " <th width='68%'>" & sModuleName & "名稱</th>"
Response.Write " <th width='9%' nowrap>管理操作</th>"
Response.Write " <th width='9%' nowrap>錄 入 者</th>"
Response.Write " <th width='9%' nowrap>整理日期</th>"
Response.Write " </tr>"
strListName = "&channelid="& ChannelID &"&sortid="& Request("sortid") &"&specialID="& Request("specialID") &"&isAccept="& Request("isAccept") &"&keyword=" & Request("keyword")
If Request("sortid") <> "" Then
SQL = "select ClassID,ChannelID,ClassName,child,ChildStr from [NC_Classify] where ChannelID = " & ChannelID & " And ClassID=" & Request("sortid")
Set Rs = Newasp.Execute(SQL)
If Rs.bof And Rs.EOF Then
Response.Write "Sorry！沒有找到任何" & sModuleName & "分類。或者您選擇了錯誤的系統(tǒng)參數(shù)!"
Response.End
Else
s_ClassName = Rs("ClassName")
ClassID = Rs("ClassID")
child = Rs("child")
ChildStr = Rs("ChildStr")
sortid = CLng(Request("sortid"))
End If
Rs.Close
Else
s_ClassName = "全部" & sModuleName
sortid = 0
child = 0
End If
maxperpage = 30 '###每頁顯示數(shù)
If Not IsNumeric(Request("page")) And Len(Request("page")) <> 0 Then
Response.Write ("錯誤的系統(tǒng)參數(shù)!請輸入整數(shù)")
Response.End
End If
If Not IsEmpty(Request("page")) And Len(Request("page")) <> 0 Then
CurrentPage = CInt(Request("page"))
Else
CurrentPage = 1
End If
If CInt(CurrentPage) = 0 Then CurrentPage = 1
If Not IsNull(Request("keyword")) And Request("keyword") <> "" Then
keyword = Newasp.ChkQueryStr(Request("keyword"))
If CInt(Request("queryopt")) = 1 Then
findword = "A.title like '%" & keyword & "%'"
ElseIf CInt(Request("queryopt")) = 2 Then
findword = "A.username like '%" & keyword & "%'"
Else
findword = "A.title like '%" & keyword & "%' or A.username like '%" & keyword & "%'"
End If
FoundSQL = findword
s_ClassName = "查詢" & sModuleName
Else
specialID = 99999
If Trim(Request("sortid")) <> "" Then
FoundSQL = "A.isAccept="& isAccept & " And A.ClassID in (" & ChildStr & ")"
Else
If Trim(Request("specialID")) <> "" Then
specialID = CLng(Request("specialID"))
If Request("specialID") <> 0 Then
FoundSQL = "A.isAccept = " & isAccept & " And specialID =" & Request("specialID")
Else
FoundSQL = "A.isAccept = " & isAccept & " And specialID > 0"
End If
Else
FoundSQL = "A.isAccept = " & isAccept
End If
End If
End If
TotalNumber = Newasp.Execute("Select Count(flashid) from NC_FlashList A where A.ChannelID = " & ChannelID & " And "& FoundSQL &"")(0)
TotalPageNum = CInt(TotalNumber / maxperpage) '得到總頁數(shù)
If TotalPageNum < TotalNumber / maxperpage Then TotalPageNum = TotalPageNum + 1
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > TotalPageNum Then CurrentPage = TotalPageNum
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "select A.*,C.ClassName from [NC_FlashList] A inner join [NC_Classify] C on A.ClassID=C.ClassID where A.ChannelID = " & ChannelID & " And "& FoundSQL &" order by A.isTop desc, A.addTime desc ,A.flashid desc"
If IsSqlDataBase = 1 Then
If CurrentPage > 100 Then
Rs.Open SQL, Conn, 1, 1
Else
Set Rs = Newasp.Execute(SQL)
End If
Else
Rs.Open SQL, Conn, 1, 1
End If
Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
If Rs.BOF And Rs.EOF Then
Response.Write "<tr><td align=center colspan=5 class=TableRow2>還沒有找到任何" & sModuleName & "！</td></tr>"
Else
Rs.MoveFirst
If TotalPageNum > 1 then Rs.Move (CurrentPage - 1) * maxperpage
i = 0
Response.Write " <tr>"
Response.Write " <td colspan=""5"" class=""TableRow2"">"
ShowListPage CurrentPage,TotalPageNum,totalnumber,maxperpage,strListName,s_ClassName
Response.Write "</td>"
Response.Write " </tr>"
Response.Write " <form name=selform method=post action="""">"
Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
Response.Write "<input type=hidden name=action value=''>"
Do While Not Rs.EOF And i < CInt(maxperpage)
If Not Response.IsClientConnected Then Response.End
If (i mod 2) = 0 Then
strClass = "class=TableRow1"
Else
strClass = "class=TableRow2"
End If
Response.Write " <tr>"
Response.Write " <td align=center " & strClass & "><input type=checkbox name=selflashid value=" & Rs("flashid") & "></td>"
Response.Write " <td " & strClass & ">"
If Rs("isTop") <> 0 Then
Response.Write "<img src=""images/istop.gif"" width=15 height=17 border=0 alt=置頂動畫>"
End If
Response.Write "[<a href=?ChannelID=" & Rs("ChannelID") & "&sortid="
Response.Write Rs("ClassID")
Response.Write ">"
Response.Write Rs("ClassName")
Response.Write "</a>] "
Response.Write "<a href=?action=view&ChannelID=" & Rs("ChannelID") & "&flashid="
Response.Write Rs("flashid")
Response.Write ">"
Response.Write Newasp.ReadFontMode(Rs("title"),Rs("ColorMode"),Rs("FontMode"))
Response.Write "</a>"
If Rs("isBest") <> 0 Then
Response.Write " <font color=blue>薦</font>"
End If
%>
</td>
<td align="center" nowrap <%=strClass%>><a href=?action=edit&ChannelID=<%=Rs("ChannelID")%>&flashid=<%=Rs("flashid")%>>編輯</a> | <a href=?action=del&ChannelID=<%=Rs("ChannelID")%>&flashid=<%=Rs("flashid")%> onclick="{if(confirm('動畫刪除后將不能恢復，您確定要刪除該動畫嗎?')){return true;}return false;}">刪除</a></td>
<td align="center" nowrap <%=strClass%>><%=Rs("UserName")%></td>
<td align="center" nowrap <%=strClass%>>
<%
If Rs("addTime") >= Date Then
Response.Write "<font color=red>"
Response.Write Newasp.FormatDate(Rs("addTime"), 2)
Response.Write "</font>"
Else
Response.Write Newasp.FormatDate(Rs("addTime"), 2)
End If
%>
</td>
</tr>
<%
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -