📄 down_servermain.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 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 Down_ServerMain
KSCls.Execute()
Set KSCls = Nothing

Class Down_ServerMain
        Private KSCMS
		Private I
		Private totalPut
		Private CurrentPage
		Private SQLStr
		Private RSObj
        Private MaxPerPage
		Private Sub Class_Initialize()
		 MaxPerPage = 20
		  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(3, "KMD20004") Then
			  Response.Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back();';</script>")
			  Call KSCMS.ReturnErr(1, "")
			End If
			
			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 Page='" & CurrentPage & "';" & vbCrLf
			Response.Write "</script>"
			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/DownServerFunction.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"" cellpadding=""0"" cellspacing=""1"">"
			  Response.Write "<tr>"
				Response.Write "<td height=""3"" colspan=""4"" valign=""top""> <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
					Response.Write "<tr>"
					  Response.Write "<td width=""44%"" height=""25"" class=""sort"">"
					  Response.Write "<div align=""center"">服务器名称</div></td>"
			Response.Write "          <td width=""17%"" class=""sort""><div align=""center"">服务器地址</div></td>"
			Response.Write "          <td width=""20%"" align=""center"" class=""sort"">添加时间</td>"
			Response.Write "          <td width=""19%"" class=""sort""><div align=""center"">是否启用</div></td>"
			Response.Write "        </tr>"
			Response.Write "      </table></td>"
			Response.Write "  </tr>"
			
			 Set RSObj = Server.CreateObject("ADODB.RecordSet")
					   SQLStr = "SELECT * FROM KS_DownServer order by AddDate desc"
					   RSObj.Open SQLStr, conn, 1, 1
					 If RSObj.EOF And RSObj.BOF Then
					 Else
						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 "    </td>"
			Response.Write "  </tr>"
			Response.Write "</table>"
			Response.Write "</body>"
			Response.Write "</html>"
			End Sub
			Sub showContent()
					Do While Not RSObj.EOF
					  Response.Write "<tr>"
					  Response.Write "  <td width='44%' height='20'> &nbsp;&nbsp; <span DownServerID='" & RSObj("ID") & "' ondblclick=""EditDownServer('',this.DownServerID)"" title=""" & RSObj("servername") & """><img src='../Images/sys.gif' align='absmiddle'>"
					  Response.Write "    <span style='cursor:default;'>" & KSCMS.GotTopic(RSObj("ServerName"), 45) & "</span></span> "
					  Response.Write "  </td>"
					  Response.Write "  <td width='17%' align='center'>" & RSObj("ServerUrl") & " </td>"
					  Response.Write "  <td width='20%' align='center'><FONT Color=red>" & RSObj("AddDate") & "</font> </td>"
					  If RSObj("Hidden") = 0 Then
					   Response.Write "  <td width='19%' align='center'><font color=red>开启</font></td>"
					  Else
					   Response.Write "  <td width='19%' align='center'>关闭</td>"
					  End If
					  Response.Write "</tr>"
					I = I + 1
					  If I >= MaxPerPage Then Exit Do
						   RSObj.MoveNext
					Loop
					  RSObj.Close
					  conn.Close
					 Response.Write "<tr><td height='26' colspan='4' align='right'>"
					 Call KSCMS.showpage(totalPut, MaxPerPage, "Down_ServerMain.asp", True, "台", CurrentPage)
				 End Sub

End Class
%>
⌨️ 快捷键说明

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