50元 求马克思CMS免登陆发布模块

纵横古都

接口功能

1、实现免登陆发布，免去了Cookie过期重复登录

2、支持连载功能

3、支持远程图片或者通过火车头下载到本地的图片

4、支持关键字发布

5、支持自动智能检查全站是否有重复电影，如果标题相同，接口将更新电影数据，如果不存在，则新增加一条数据记录


有人买过的 或者有的 PM我一份撒  QQ 96224

有 的 速度来啊   

纵横古都

这有个别人发的免费版的  谁会ASP的 给修改下 改成 MSSQL的 然后把其他的功能补充完整  功能完善  也可以。



<!--#include file="inc/config.asp"-->
<!--#include file="inc/pinyin.asp"-->



<%
dim lian
lian=true '是否开启连续模式

Set conn=server.CreateObject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(""&accessFilePath&"")
conn.open connstr
if request("action")="save" then

        Password=trim(request("Password"))        '密码
        m_name=trim(request("m_name"))'标题
        m_enname = MoviePinYin(m_name)'英文名此处为拼音
        m_letter = left(m_enname,1)'开头字母
        m_type=trim(request("m_type"))'栏目
        m_pic=trim(request("m_pic"))'图片
        m_hit=trim(request("m_hit"))'点击数量
        m_actor=trim(request("m_actor"))'演员
        m_note=trim(request("m_note"))'备注
        m_des=trim(request("m_des"))'相关介绍
        m_commend=trim(request("m_commend"))'星级
        m_addtime=trim(request("m_addtime"))'添加时间
        m_publishyear=trim(request("m_publishyear"))'发布年份
        publisharea=trim(request("publisharea"))'地区
        m_playdata=trim(request("m_playdata"))'播放地址
        m_keyword=trim(request("m_keyword"))'关键词
        m_director=trim(request("m_director"))'导演
        b_type=trim(request("b_type"))'导演

'判断类型是否正确
        b_type_check=getReferedId(b_type)
        if(b_type_check="") then
                response.write "请核对播放器类型是否与接口中类型匹配"+b_type
                response.end()
        end if
        flag=false

'对采集来的播放地址数据行进处理
       



'从数据库中读出是否有重复的标题
        if lian=true then

        end if
'数据入库       
        if(flag=false) then
        getdata1 = getdata(m_playdata,b_type)
                set rs=server.createobject("adodb.recordset")
                sql="select * from m_data order by m_id asc"
                rs.open sql,conn,1,3
                rs.addnew
                rs("m_name")=m_name
                rs("m_type")=m_type
                rs("m_pic")=m_pic
                rs("m_hit")=m_hit
                rs("m_actor")=m_actor
                rs("m_des")=m_des
                rs("m_note")=m_note
                rs("m_commend")=m_commend
                rs("m_publishyear")=m_publishyear
                rs("m_publishyear")=m_publishyear
                rs("m_playdata")=getdata1
                rs("m_keyword")=m_keyword
                rs("m_director")=m_director
                rs("m_enname")=m_enname
                rs("m_letter")=m_letter
                rs.update
                rs.close
                set rs=nothing
        end if
        response.write "ok"
end if

























'有重复标题进行的操作
'm_playdata_data 从数据库中读出的数据
'm_playdata POST 过来的新地址
'b_type 播放器类型
Function updata(m_playdata_data,m_playdata,b_type)
       
End Function


Function getdata(m_playdata,b_type)
        getdata=""
        b_type_ReferedId=getReferedId(b_type)
        m_playdata_arr=split(m_playdata,"|||")
        for i=0 to ubound(m_playdata_arr)
                playdata=playdata+"第"&i+1&"集$"+m_playdata_arr(i)+"$"+b_type_ReferedId+"#"
        next
        playdata=left(playdata,len(playdata)-1)
        playdata=b_type+"$$"+playdata
        getdata = playdata
End Function

Function getReferedId(str)
        getReferedId = ""
        if instr(str,"土豆高清")>0 then getReferedId = "hd_tudou": exit function
        if instr(str,"新浪高清")>0 then getReferedId = "hd_iask": exit function
        if instr(str,"搜狐高清")>0 then getReferedId = "hd_sohu": exit function
        if instr(str,"天线高清")>0 then getReferedId = "hd_openv": exit function
        if instr(str,"56高清")>0 then getReferedId = "hd_56": exit function
        if instr(str,"56")>0 then getReferedId = "56": exit function
        if instr(str,"优酷")>0 then getReferedId = "youku": exit function
        if instr(str,"土豆")>0 then getReferedId = "tudou": exit function
        if instr(str,"搜狐")>0 then getReferedId = "sohu": exit function
        if instr(str,"新浪")>0 then getReferedId = "iask": exit function
        if instr(str,"六间房")>0 then getReferedId = "6rooms": exit function
        if instr(str,"qq")>0 then getReferedId = "qq": exit function
        if instr(str,"youtube")>0 then getReferedId = "youtube": exit function
        if instr(str,"17173")>0 then getReferedId = "17173": exit function
        if instr(str,"ku6视频")>0 then getReferedId = "ku6": exit function
        if instr(str,"FLV")>0 then getReferedId = "flv": exit function
        if instr(str,"SWF")>0 then getReferedId = "swf": exit function
        if instr(str,"real")>0 then getReferedId = "real": exit function
        if instr(str,"media")>0 then getReferedId = "media": exit function
        if instr(str,"qvod")>0 then getReferedId = "qvod": exit function
        if instr(str,"ppstream")>0 then getReferedId = "pps": exit function
        if instr(str,"迅播高清")>0 then getReferedId = "gvod": exit function
        if instr(str,"远古高清")>0 then getReferedId = "wp2008": exit function
        if instr(str,"ppvod高清")>0 then getReferedId = "ppvod": exit function
        if instr(str,"闪播Pvod")>0 then getReferedId = "pvod": exit function
        if instr(str,"播客CC")>0 then getReferedId = "cc": exit function
        if instr(str,"皮皮影音")>0 then getReferedId = "pipi": exit function
        if instr(str,"激动")>0 then getReferedId = "joy": exit function
        if instr(str,"奇艺")>0 then getReferedId = "qiyi": exit function
        if instr(str,"百度影音")>0 then getReferedId = "bdhd": exit function
End Function

%>

kang3bao

接口如果没有现成的   50元 正常没人愿意处理

mohuanshji85

找我，我帮你写！！！！www.lepingw.com

猪八戒吃西瓜

联系ＱＱ：,我来试试

hua00120

{:soso_e103:}{:soso_e195:}