📄 link_main.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 Link_Main
KSCls.Execute()
Set KSCls = Nothing
Class Link_Main
Private KSCMS
Private MaxPerPage, Row
Private CurrentPage
Private totalPut
Private FolderID, I, SqlStr , RSObj
Private Title , CreateDate, TempStr , GRS
Private KeyWord , SearchType, SearchParam
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, "KMCT10001") Then '检查友情链接操作(增和改)的权限检查
Call KSCMS.ReturnErr(1, "")
Exit Sub
End If
'收集搜索参数
KeyWord = Request("KeyWord")
SearchType = Request("SearchType")
'搜索参数集合
SearchParam = "KeyWord=" & KeyWord & "&SearchType=" & SearchType
FolderID = Trim(Request.QueryString("FolderID"))
If FolderID = "" Then FolderID = 0
Row = 8 '每行显示数
MaxPerPage = 16 '每页显示数量
If Request("page") <> "" Then
CurrentPage = CInt(Request("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 FolderID='" & FolderID & "'; //友情链接类别ID" & vbCrLf
Response.Write "var KeyWord='" & KeyWord & "'; //搜索关键字" & vbCrLf
Response.Write "var Page='" & CurrentPage & "'; //当前页码" & vbCrLf
Response.Write "var SearchParam='" & SearchParam & "'; //搜索参数集合" & 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/LinkFunction.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 KeyWord = "" Then
If FolderID = 0 Then
Response.Write "<input class=""buttonstyle"" name=""CreateFolder"" title=""添加友情链接类别"" type=""button"" value=""添加类别"" onclick=""CreateFolder();"" >"
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=""parent.frames['LeftFrame'].initializeSearch('Link')"">"
Response.Write "<input class=""buttonstyle"" name=""SearchButton"" type=""button"" value=""审核申请"" title=""审核未申请的友情链接站点"" onClick=""Verific();"">"
Response.Write " <input class=""buttonstyle"" name=""channeldel"" disabled title=""返回上一级"" type=""button"" value=""回上一级"" onclick=""ChangeUp();"">"
Else
Response.Write "<input class=""buttonstyle"" disabled name=""CreateFolder"" title=""添加友情链接类别"" type=""button"" value=""添加类别"" onclick=""CreateFolder();"" >"
Response.Write "<input class=""buttonstyle"" disabled name=""EditFolder"" title=""编辑友情链接类别"" type=""button"" value=""编辑类别"" onclick=""Edit('');"" >"
Response.Write "<input class=""buttonstyle"" disabled name=""channeldel"" title=""删除友情链接类别"" type=""button"" value=""删除类别"" onclick=""Delete('');"">"
Response.Write "<input class=""buttonstyle"" name=""SearchButton"" type=""button"" value=""搜索助理"" title=""搜索小助理"" onClick=""parent.frames['LeftFrame'].initializeSearch('Link')"">"
Response.Write "<input class=""buttonstyle"" name=""SearchButton"" type=""button"" value=""审核申请"" title=""审核未申请的友情链接站点"" onClick=""Verific();"">"
Response.Write " <input class=""buttonstyle"" name=""channeldel"" title=""返回上一级"" type=""button"" value=""回上一级"" onclick=""ChangeUp();"">"
End If
Else
Response.Write ("<img src='../Images/home.gif' align='absmiddle'><span style='cursor:hand' onclick=""location.href='link_Main.asp';parent.frames['BottomFrame'].location.href='../Split.asp?ButtonSymbol=Disabled&OpStr=常规管理 >> <font color=red>友情链接管理首页</font>';"">链接首页</span>")
Response.Write (">>> 搜索结果: ")
Select Case SearchType
Case 0
Response.Write ("名称含有 <font color=red>" & KeyWord & "</font> 的站点")
Case 1
Response.Write ("简介含有 <font color=red>" & KeyWord & "</font> 的站点")
End Select
End If
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""1"">"
If FolderID = 0 And KeyWord = "" Then
SqlStr = "Select * from KS_LinkFolder Order BY AddDate Desc"
Else
Dim Param
Param = " Where Verific=1"
If KeyWord <> "" Then
Select Case SearchType
Case 0
Param = Param & " And SiteName like '%" & KeyWord & "%'"
Case 1
Param = Param & " And Description like '%" & KeyWord & "%'"
End Select
Else
Param = Param & " And FolderID=" & FolderID
End If
Param = Param & " Order BY AddDate desc"
SqlStr = "Select * From KS_Link " & Param
End If
If FolderID = 0 And KeyWord = "" Then
Response.Write ("<tr><td height=6></td></tr>")
Else
Response.Write ("<tr> ")
Response.Write (" <td>")
Response.Write (" <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
Response.Write ("<tr align=""center""><td height=23 width=200 class=""sort"">网站名称</td><td width=90 class=""sort"">所属类别</td><td width=100 class=""sort"">类 型</td><td width=60 class=""sort"">点击数</td><td width=120 class=""sort"">添加日期</td><td width=80 class=""sort"">推荐站点</td><td width=80 class=""sort"">锁 定</td></tr>")
End If
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>"
Response.Write "</body>"
Response.Write "</html>"
End Sub
Sub showContent()
Dim T, TitleStr, LockStr, ShortName, RecommendStr
Do While Not RSObj.EOF
If FolderID = 0 And KeyWord = "" Then
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("FolderName")
ShortName = KSCMS.ListTitle(Title, 24)
TitleStr = " TITLE='类别名称:" & Title & " 创建日期:" & 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;"" FolderID=""" & RSObj("FolderID") & """ TitleStr=""" & Title & """ OnDblClick=""OpenTheFolder(this.FolderID,this.TitleStr)"">")
Response.Write ("<img src=""../Images/Folder/LinkFolder.gif""> ")
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>")
Else
If RSObj("Locked") = 1 Then
LockStr = "<font color=red>已锁定</font>"
Else
LockStr = "<font color=green>正常</font>"
End If
If RSObj("Recommend") = 1 Then
RecommendStr = "<font color=red>√</font>"
Else
RecommendStr = "×"
End If
TitleStr = " TITLE='网站名称:" & RSObj("SiteName") & " 网 址:" & RSObj("Url") & " 添加时间:" & RSObj("AddDate") & " 简要描述:" & RSObj("Description") & "'"
Response.Write ("<tr><td height=25" & TitleStr & "> <span ondblclick=""ViewLink(this.LinkID);"" LinkID=""" & RSObj("LinkID") & """><img src=../Images/Folder/Link.gif border=0 align=absmiddle><span style=""cursor:default"">" & RSObj("SiteName") & "</span></span></td>")
Response.Write ("<td align=""center"">")
Set GRS = Conn.Execute("Select FolderName From KS_LinkFolder Where FolderID=" & RSObj("FolderID"))
If Not GRS.EOF Then
Response.Write (GRS(0))
End If
GRS.Close
Response.Write ("</td>")
If RSObj("LinkType") = 0 Then
Response.Write ("<td align=""center"">文字链接</td>")
Else
Response.Write ("<td align=""center"">LOGO链接</td>")
End If
Response.Write ("<td align=""center"">" & RSObj("Hits") & "</td>")
Response.Write ("<td align=""center"">" & RSObj("AddDate") & "</td>")
Response.Write ("<td align=""center"">" & RecommendStr & "</td>")
Response.Write ("<td align=""center"">" & LockStr & "</td>")
Response.Write ("</tr>")
RSObj.MoveNext
End If
If RSObj.EOF Then Exit Do
I = I + 1
If I >= MaxPerPage Then Exit Do
Loop
RSObj.Close
Set RSObj = Nothing
Set GRS = Nothing
If FolderID <> 0 Or KeyWord <> "" Then
Response.Write "<tr><td height='26' colspan='6' align='right'>"
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Link_main.asp", True, "个", CurrentPage, "FolderID=" & FolderID & "&" & SearchParam)
Response.Write "</td></tr>"
End If
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -