新灵感站族管理系统 API接口 （ASP版）示例下载及代码说明

新灵感 站族网站群管理 系统功能简介：

 

 

1.采 集：使用强大的搜索引擎（已开放新闻搜索，博客搜索），运用关键词采集文章，信息将更加准确.

2.关键词：支持百度风云榜关键词榜单，不用设关键词，也能获取最新热点信息.

3.过 滤：自行开发的HTML页面提取系统，对任意一篇HTML文章页页能够准确提取文章正文.

4.伪原创：我们有一个观点(做到用户能阅读，不影响逻辑，蜘蛛认原创否抄袭，优化效果达到最佳)

5.自 动：定时采集,自定义规则伪原创，自动定时定量上传.以达到蜘蛛实时抓取页面.

 

详细资料请查询 新灵感官网站网站：http://www.xinlg.com/

站族管理系统登录地址：http://www.zhanzu.net/

 

 

 

以下是ASP接口的示例 完整版下载

 

Conn.asp

<%
'数据库链接
IsSqlDataBase=0

If IsSqlDataBase=0 Then
    SqlDataBase    = "/main/inc/#Com.com$Admin^@2010_baopo.mdb"
    SqlProvider    = "Microsoft.Jet.OLEDB.4.0"
    Connstr="Provider="&SqlProvider&";Data Source="&Server.MapPath(SqlDataBase)
    SqlNowString="Now()"
    SqlChar="'"
    IsSqlVer="ACCESS"
Else
    SqlLocalName="(local)"
    SqlUserName    =""
    SqlPassword    =""
    SqlDataBase    =""
    SqlProvider    ="SQLOLEDB"
    ConnStr="Provider="&SqlProvider&"; User ID="&SqlUserName&"; Password="&SqlPassword&"; Initial CataLog="&SqlDataBase&"; Data Source="&SqlLocalName&";"
    SqlNowString="GetDate()"
    IsSqlVer="MSSQL"
END IF

On Error Resume Next
Set Conn=Server.CreateObject("ADODB.Connection")
'========Conn.open ConnStr   使用时请启用该语句
If Err Then
    Response.Write ""&IsSqlVer&"数据库连接出错，请检查连接字串。<br><br>"&Err.Source&" ("&Err.Number&")"
    Set Conn = Nothing
    err.Clear
    Response.End
End If



%>

 

Zhanzu.asp

 

<!--#include file="md5.asp"-->
<!--#include file="conn.asp"-->
<%

'=================你的帐户名称

SetUserName = "xinlg@163.com"


'=================所设置的站点的密码KEY 请对外保密 在管理系统编辑站点时可获取到。

SetKey = "C98BF1A9606FF525F84DEFEBD275A259"


'=================数据库链接字串 SQL Server

SetConnectionString = "Data Source=(local);Database=***;integrated security=true"


'=================用于给返回给服务器信息 0程序出错，或未知 1：成功 2：验证失败 3：数据无效

SetResultInfo = ""


'=================获取数据
Title = Request.Form("Title").Trim()
Keywords = Request.Form("Keywords").Trim()
Content = Request.Form("Content").Trim()
Source = Request.Form("Source").Trim()
ClassName = Request.Form("ClassName").Trim()
UserName = Request.Form("UserName").Trim()
Key = Request.Form("Key").Trim()


'=================程序入口开始

if ValidateUserName()=true then 
    if Title <> "" and Keywords <> "" and Content <> "" then
    
        '====================根据模块分类名称获取站点数据中分类的ID
        ClassId = 0
        set rs_select = conn.execute("select top 1 Id from C_Site_Menu where Menu_Name='"&ClassName&"'")
        if not se_select.eof and not se_select.bof then ClassId = rs_select(0)
        rs_select.close
        set rs_select = nothing
        
        '====================插入数据
        
        sql = "insert into C_Site_News(News_Classid,News_Name,News_Intro,News_date,News_Username) values("&ClassId&",'"&Title&"','"&Content&"','"&date(now)&"','"&UserName&"')"
        set rs_add = conn.execute(sql)
        rs_add.close
        set rs_add = nothing
        
        ResultInfo="1"
    else
        ResultInfo="3"
    end if
    

else
    ResultInfo="2"
end if

if ResultInfo="" then ResultInfo="0"

Response.Write(ResultInfo)


'==================验证用户信息

Function ValidateUserName()
    if Key = UCase(MD5(SetKey,32)) and UserName = SetUserName then
        ValidateUserName = true
    else
        ValidateUserName = false
    end if

    
End Function



%>

 

 

 

更多的详细资料请参考 ：

 

新灵感站族系统接口使用方式以及参数说明文档

http://www.xinlg.com/support/show/41.html