📄 ext_channelmain.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Ext_ChannelMain
KSCls.Execute()
Set KSCls = Nothing
Class Ext_ChannelMain
Private KSCMS
Private MaxPerPage, Row
Private CurrentPage
Private totalPut
Private ChannelID, I, SqlStr, RSObj,Action
Private Title, CreateDate, TempStr, GRS
Private SearchType
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
'主体部分
Public Sub Execute()
If Not KSCMS.ReturnPowerResult(0, "KMCT10000") Then '检查外部频道操作(增和改)的权限检查
Call KSCMS.ReturnErr(1, "")
Exit Sub
End If
ChannelID = KSCMS.G("ChannelID")
Action=KSCMS.G("Action")
If ChannelID = "" Then ChannelID = 0
Row = 8 '每行显示数
MaxPerPage = 16 '每页显示数量
If KSCMS.G("page") <> "" Then
CurrentPage = CInt(KSCMS.G("page"))
Else
CurrentPage = 1
End If
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; chaRSet=gb2312"">"
Response.Write "<title>管理员管理</title>"
Response.Write "<link href=""../Inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
Response.Write "<script language=""JavaScript"">" & vbCrLf
Response.Write "var Page='" & CurrentPage & "'; //当前页码" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<script language=""JavaScript"" src=""../JS/Common.js""></script>"
Response.Write "<script language=""JavaScript"" src=""../JS/ContextMenu.js""></script>"
Response.Write "<script language=""JavaScript"" src=""../JS/SelectElement.js""></script>"
Response.Write "<script language=""JavaScript"" src=""../Common/ExtFunction.JS""></script>"
Response.Write "</head>"
Response.Write "<body scroll=no topmargin=""0"" leftmargin=""0"" OnClick=""SelectElement();"" onkeydown=""GetKeyDown();"" onselectstart=""return false;"">"
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""sortbutton"">"
Response.Write " <tr>"
Response.Write " <td height=""23"" align=""left"">"
if Action="AdminChannel" Then
Response.Write "<input class=""buttonstyle"" name=""CreateFolder"" title=""添加外部频道"" type=""button"" value=""添加频道"" Disabled>"
Response.Write "<input class=""buttonstyle"" name=""EditFolder"" title=""编辑外部频道"" type=""button"" value=""编辑频道"" Disabled>"
Response.Write "<input class=""buttonstyle"" name=""channeldel"" title=""删除外部频道"" type=""button"" value=""删除频道"" Disabled>"
Response.Write "<input class=""buttonstyle"" name=""SearchButton"" type=""button"" value=""访问频道"" title=""访问频道"" Disabled>"
Response.Write "<input class=""buttonstyle"" name=""SearchButton"" type=""button"" value=""管理频道"" title=""进入频道后台管理"" Disabled>"
Response.Write "<input class=""buttonstyle"" name=""SearchButton"" type=""button"" value=""返回首页"" title=""返回频道管理首页"" onClick=""location.href='Ext_ChannelMain.asp?Page=" & CurrentPage & "';"">"
Else
Response.Write "<input class=""buttonstyle"" name=""CreateFolder"" title=""添加外部频道"" type=""button"" value=""添加频道"" onclick=""Create();"" >"
Response.Write "<input class=""buttonstyle"" name=""EditFolder"" title=""编辑外部频道"" type=""button"" value=""编辑频道"" onclick=""Edit('');"" >"
Response.Write "<input class=""buttonstyle"" name=""channeldel"" title=""删除外部频道"" type=""button"" value=""删除频道"" onclick=""Delete('');"">"
Response.Write "<input class=""buttonstyle"" name=""SearchButton"" type=""button"" value=""访问频道"" title=""访问频道"" onClick=""View();"">"
Response.Write "<input class=""buttonstyle"" name=""SearchButton"" type=""button"" value=""管理频道"" title=""进入频道后台管理"" onClick=""AdminChannel();"">"
End if
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
IF Action="AdminChannel" Then '管理频道
Call AdminChannel()
ElseIf Action="ViewChannel" Then '访问频道
Call ViewChannel()
Else
Call ChannelMain()
End IF
Response.Write "</body>"
Response.Write "</html>"
End Sub
Sub ChannelMain()
Response.Write "<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""1"">"
SqlStr = "Select * from KS_ExtChannel Order BY OrderID Asc,AddDate Desc"
Response.Write ("<tr><td height=6></td></tr>")
Set RSObj = Server.CreateObject("AdoDb.RecordSet")
RSObj.Open SqlStr, Conn, 1, 1
If Not RSObj.EOF Then
totalPut = RSObj.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage = 1 Then
Call showContent
Else
If (CurrentPage - 1) * MaxPerPage < totalPut Then
RSObj.Move (CurrentPage - 1) * MaxPerPage
Call showContent
Else
CurrentPage = 1
Call showContent
End If
End If
End If
Response.Write "</table>"
End Sub
Sub AdminChannel()
Dim RS
Set RS=Conn.Execute("Select * From KS_ExtChannel Where ChannelID=" & ChannelID)
IF Not RS.Eof Then
IF RS("TopFlag")=0 Then
Response.Write ("<script>alert('对不起，该频道已关闭！');history.back();</script>")
' Call ChannelMain()
Else
IF RS("OpenFlag")=1 Then
Response.Write ("<script>window.open('" & RS("AdminUrl") & "');</script>")
Call ChannelMain()
Else
Response.Write"<iframe frameborder=""0"" scrolling=""auto"" src=""" & RS("AdminUrl") & """ width=""100%"" height=""100%""></iframe>"
End IF
End IF
Else
Call ChannelMain()
End IF
RS.Close
Set RS=nothing
End Sub
Sub ViewChannel()
Dim RS
Set RS=Conn.Execute("Select Url,TopFlag From KS_ExtChannel Where ChannelID=" & ChannelID)
If Not RS.Eof Then
IF RS("TopFlag")=0 Then
Response.Write ("<script>alert('对不起，该频道已关闭！');</script>")
Else
Response.Write ("<script>window.open('" & RS("Url") & "');</script>")
End If
End If
Call ChannelMain()
RS.Close
Set RS=nothing
End Sub
Sub showContent()
Dim T, TitleStr, LockStr, ShortName, RecommendStr,ImgStr,ChannelStatusStr
Do While Not RSObj.EOF
Response.Write ("<tr> ")
Response.Write (" <td>")
Response.Write (" <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
Response.Write ("<tr> ")
For T = 1 To Row
If Not RSObj.EOF Then
Title = RSObj("ChannelName")
ShortName = KSCMS.ListTitle(Title, 24)
If RSObj("TopFlag")=1 Then
ImgStr="../Images/Folder/Bigdomain.gif"
ChannelStatusStr="正常"
Else
ImgStr="../Images/Folder/Bigdomain0.gif"
ChannelStatusStr="关闭"
End IF
TitleStr = " TITLE='频道名称:" & Title & " 频道状态:" & ChannelStatusStr & " 创建日期:" & RSObj("AddDate") & " 简要描述:" & RSObj("Description") & "'"
Response.Write ("<td width=""" & CInt(100 / Row) & "%"" Style=""cursor:default"" align=""center""" & TitleStr & ">")
Response.Write ("<span onmousedown=""mousedown(this);"" style=""POSITION:relative;"" ChannelID=""" & RSObj("ChannelID") & """ TitleStr=""" & Title & """ OnDblClick=""AdminChannel();"">")
Response.Write ("<img src=""" & ImgStr & """> ")
Response.Write ("<div style=""display:block;height:16;width:80;cursor:default"">" & ShortName & "</div>")
Response.Write ("</span>")
Response.Write ("</td>")
I = I + 1
If RSObj.EOF Or I >= MaxPerPage Then Exit For
RSObj.MoveNext
Else
Exit For
End If
Next
'不到7个单元格,则进行补空
Do While T <= Row
Response.Write ("<td width=70> </td>")
T = T + 1
Loop
Response.Write ("</tr>")
Response.Write ("<tr><td colspan=" & Row & " height=10></td></tr>")
Response.Write ("</table></td>")
Response.Write ("</tr>")
If RSObj.EOF Then Exit Do
I = I + 1
If I >= MaxPerPage Then Exit Do
Loop
RSObj.Close
Set RSObj = Nothing
Set GRS = Nothing
Response.Write "<tr><td height='26' colspan='6' align='right'>"
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Ext_ChannelMain.asp", True, "个", CurrentPage, "ChannelID=" & ChannelID)
Response.Write "</td></tr>"
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -