📄 system_server.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 System_Server
KSCls.Execute()
Set KSCls = Nothing

Class System_Server
        Private KSCMS
		Private theInstalledObjects(17)
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub


		Function Execute()
		If Not KSCMS.ReturnPowerResult(0, "KMST10008") Then          '检查是否有组件查看的权限
		   Response.Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back();';</script>")
		   Call KSCMS.ReturnErr(1, "")
		  Response.End
		End If
		
		theInstalledObjects(0) = "MSWC.AdRotator"
		theInstalledObjects(1) = "MSWC.BrowserType"
		theInstalledObjects(2) = "MSWC.NextLink"
		theInstalledObjects(3) = "MSWC.Tools"
		theInstalledObjects(4) = "MSWC.Status"
		theInstalledObjects(5) = "MSWC.Counters"
		theInstalledObjects(6) = "IISSample.ContentRotator"
		theInstalledObjects(7) = "IISSample.PageCounter"
		theInstalledObjects(8) = "MSWC.PermissionChecker"
		theInstalledObjects(9) = "Scripting.FileSystemObject"
		theInstalledObjects(10) = "adodb.connection"
		theInstalledObjects(11) = "SoftArtisans.FileUp"
		theInstalledObjects(12) = "SoftArtisans.FileManager"
		theInstalledObjects(13) = "JMail.SMTPMail"
		theInstalledObjects(14) = "CDONTS.NewMail"
		theInstalledObjects(15) = "Persits.MailSender"
		theInstalledObjects(16) = "LyfUpload.UploadFile"
		theInstalledObjects(17) = "Persits.Upload.1"
		Call Main
		End Function
		
		Sub Main()
		 Response.Write ("<html>")
		 Response.Write ("<link href='../Inc/Admin_Style.CSS' rel='stylesheet' type='text/css'>")
		 Response.Write ("<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>")
		 Response.Write ("<body leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'  oncontextmenu=""return false"">")
		 Response.Write ("<table width='100%' border='0' cellspacing='0' cellpadding='0'>")
		 Response.Write (" <tr>")
		 Response.Write ("   <td height='25' class='sort'>")
		 Response.Write ("     <div align='center' ><strong>组件支持情况</strong></div></td>")
		 Response.Write (" </tr>")
		 Response.Write ("</table>")
		 
		 Response.Write ("<table width='699' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='#CDCDCD'>")
		 Response.Write ("   <form method='post' action='system_server.asp'>")
		 Response.Write ("<tr>")
		 Response.Write ("     <td height=20 bgcolor='#FFFFFF'>服务器组件探测查询-&gt; <font color='#FF0000'>组件名称:</font>")
		 Response.Write ("       <input type='text' name='classname' class='textbox' style='width:180'>")
		 Response.Write ("     <input type='submit' name='Submit' class='buttonstyle' value='测 试'>")
			 
		Dim strClass
		strClass = Trim(Request.Form("classname"))
		If "" <> strClass Then
		Response.Write "<br>您指定的组件的检查结果："
		If Not IsObjInstalled(strClass) Then
		Response.Write "<br><font color=red>很遗憾，该服务器不支持" & strClass & "组件！</font>"
		Else
		Response.Write "<br><font color=green>恭喜！该服务器支持" & strClass & "组件。</font>"
		End If
		Response.Write "<br>"
		End If
		Response.Write ("</font>")
		Response.Write ("      </td>")
		Response.Write ("  </tr></form>")
		Response.Write (" <tr>")
		Response.Write ("    <td height=25 bgcolor='#FFFFFF'><b><font color='#006666'> 　IIS自带组件</font></b></font></td>")
		Response.Write ("  </tr>")
		Response.Write ("  <tr>")
		Response.Write ("    <td height=20 bgcolor='#EEF8FE'>")
		Response.Write ("      <table width='100%' border=0 align='center' cellpadding=0 cellspacing=1 bgcolor='#CDCDCD'>")
		Response.Write ("        <tr align=center bgcolor='#EEF8FE' height=22>")
		Response.Write ("          <td width='70%'>组 件 名 称</td>")
		Response.Write ("          <td width='15%'>支 持</td>")
		Response.Write ("          <td width='15%'>不支持</td>")
		Response.Write ("        </tr>")
			  
		Dim I
		For I = 0 To 10
		Response.Write "<TR align=center bgcolor=""#EEF8FE"" height=22><TD align=left>&nbsp;" & theInstalledObjects(I) & "<font color=#888888>&nbsp;"
		Select Case I
		Case 9
		Response.Write "(FSO 文本文件读写)"
		Case 10
		Response.Write "(ACCESS 数据库)"
		End Select
		Response.Write "</font></td>"
		If Not IsObjInstalled(theInstalledObjects(I)) Then
		Response.Write "<td></td><td><font color=red><b>×</b></font></td>"
		Else
		Response.Write "<td><b>√</b></td><td></td>"
		End If
		Response.Write "</TR>" & vbCrLf
		Next
		
		Response.Write ("      </table></td>")
		Response.Write ("  </tr>")
		Response.Write ("  <tr>")
		Response.Write ("    <td height=25 bgcolor='#FFFFFF'> <font color='#006666'><b>　其他常见组件</b></font>")
		Response.Write ("    </td>")
		Response.Write ("  </tr>")
		Response.Write ("  <tr>")
		Response.Write ("    <td height=20 bgcolor='#EEF8FE'>")
		Response.Write ("      <table width='100%' border=0 align='center' cellpadding=0 cellspacing=1 bgcolor='#CDCDCD'>")
		Response.Write ("        <tr align=center bgcolor='#EEF8FE' height=22>")
		Response.Write ("          <td width='70%'>组 件 名 称</td>")
		Response.Write ("          <td width='15%'>支 持</td>")
		Response.Write ("          <td width='15%'>不支持</td>")
		Response.Write ("        </tr>")
			 
		For I = 11 To UBound(theInstalledObjects)
		Response.Write "<TR align=center height=18 bgcolor=""#EEF8FE""><TD align=left>&nbsp;" & theInstalledObjects(I) & "<font color=#888888>&nbsp;"
		Select Case I
		Case 11
		Response.Write "(SA-FileUp 文件上传)"
		Case 12
		Response.Write "(SA-FM 文件管理)"
		Case 13
		Response.Write "(JMail 邮件发送)"
		Case 14
		Response.Write "(CDONTS 邮件发送 SMTP Service)"
		Case 15
		Response.Write "(ASPEmail 邮件发送)"
		Case 16
		Response.Write "(LyfUpload 文件上传)"
		Case 17
		Response.Write "(ASPUpload 文件上传)"
		End Select
		Response.Write "</font></td>"
		If Not IsObjInstalled(theInstalledObjects(I)) Then
		Response.Write "<td></td><td><font color=red><b>×</b></font></td>"
		Else
		Response.Write "<td><b>√</b></td><td></td>"
		End If
		Response.Write "</TR>" & vbCrLf
		Next
		
		Response.Write ("      </table></td>")
		Response.Write ("  </tr>")
		Response.Write ("</table>")
		Response.Write ("</td>")
		Response.Write ("</tr>")
		Response.Write ("</table>")
		Response.Write "<div style=""text-align:center;color:#003300"">-----------------------------------------------------------------------------------------------------------</div>"
		Response.Write "<div style=""height:30px;text-align:center"">KeSion CMS V 2.2, Copyright (c) 2006-2008 <a href='http://www.kesion.com/' target=""_blank""><font color=#cc6600>KeSion.Com</font></a>. All Rights Reserved . </div>"
		End Sub
		Function IsObjInstalled(strClassString)
		On Error Resume Next
		IsObjInstalled = False
		Err = 0
		Dim xTestObj
		Set xTestObj = Server.CreateObject(strClassString)
		If 0 = Err Then IsObjInstalled = True
		Set xTestObj = Nothing
		Err = 0
		End Function
End Class
%>
💿 文件大小 9756 K
👤 上传用户 BO__1
📂 所属分类 Java编程
🏷️ 相关标签

#shtml #ASPX #html #采集
⌨️ 快捷键说明

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