km_module.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 2006 Build 0201
'Copyright (C) 2002-2005 Kesion.Com  All rights reserved.
'商业注册联系：0596-6332802
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394 
'程序开发：科汛网络
'E-Mail  :[e-mail]
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'====================================================================================================================
Option Explicit
Response.Buffer = True
Server.ScriptTimeOut = 9999999
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="CheckSql.asp"-->
<%
Sub KS_Execute(strDllName, strClassName)
    On Error Resume Next
    If strDllName = "" Or IsNull(strDllName) Then
        Response.Write "请指定科汛组件名！"
        Exit Sub
    End If
    If strClassName = "" Or IsNull(strClassName) Then
        Response.Write "请指定科汛组件提供的类名！"
        Exit Sub
    End If
    Dim KS_Manage, objName
    objName = strDllName & "." & strClassName
    Set KS_Manage = Server.CreateObject(objName)
    If Err Then
        Err.Clear
        Response.Write "对不起，你的服务器没有安装科汛组件（" & strDllName & ".dll），所以不能使用本系统。"
        Exit Sub
    End If
    Call KS_Manage.Execute()
    Set KS_Manage = Nothing
    If Err.Number<>0 Then
        Response.Write "错 误 号：" & Err.Number & "<BR>"
        Response.Write "错误描述：" & Err.Description & "<BR>"
        Response.Write "错误来源：" & Err.Source & "<BR>"
        Err.Clear
    End If
End Sub
%>