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
%>
接口如果没有现成的 50元 正常没人愿意处理 找我，我帮你写！！！！www.lepingw.com 联系ＱＱ：http://wpa.qq.com/pa?p=2:972130397:47,我来试试 {:soso_e103:}{:soso_e195:}
页:
[1]