账号通
    

账号  

密码  

1474

查看

0

回复
主题:sk采集插件 软件采集地址错误解决方法 [收藏主题]  
thomaschen 当前离线

10

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:332 分
登录次数:7 次
注册时间:2008/7/26
最后登录:2010/2/21
thomaschen 发表于:2008/10/26 3:58:00   | 只看该作者 查看该作者主题 楼主 
科汛在线网校系统

软件采集时 如果下载地址是在新窗口打开的话

对下载地址的采集会出现链接错误

 

比如 你下载内容页的地址在二级页面 如   http://www.域名/一级路径/软件页面

新窗口打开的是一级页面 如 http://www.域名/下载页面

 

下载链接在下载页面要是 href="down.asp?xxxxx"

这种情况就会出现错误 采集回来的地址将会是 http://www.域名/一级路径/down.asp?xxxxx

 

 

解决方法 找到 Plus\SK_Cj\Inc\cj_cls.asp

 

打开文件 在开始部分  加入代码  dim NewsUrl2

找到 870行 上下 If DownNewType=1 then'新窗口打开下载连接
  If DownNewlist_s<>"" or  DownNewlist_o<>"" or DownNewUrl_s<>"" or DownNewUrl_o<>"" then

 

改下上句下面代码为  红色部分为新加跟修改的代码

 

NewsUrl2=Trim(Skcj.FormatRemoteUrl(DownUrls,NewsUrl))   
   DownUrls=Skcj.ReplaceTrim(Skcj.GetHttpPage(DownUrls,selEncoding))      
   DownUrls=Skcj.GetBody(DownUrls,DownNewlist_s,DownNewlist_o,False,False)
   If DownUrls<>"$False$" then
   
    DownUrls=Skcj.GetBody(DownUrls,DownNewUrl_s,DownNewUrl_o,False,False)
    IF DownUrls<>"$False$" then
     DownUrls=Trim(Skcj.FormatRemoteUrl(DownUrls,NewsUrl2))              
    Else
     FoundErr=True

 

 

1619 行 上下 If DownNewlist_s<>"" or  DownNewlist_o<>"" or DownNewUrl_s<>"" or DownNewUrl_o<>"" then
   DownUrls=Replace(DownUrls,"0|下载地址1|","")

 

NewsUrl2=Trim(Skcj.FormatRemoteUrl(DownUrls,NewsUrl))
   DownUrls=Skcj.ReplaceTrim(skcj.GetHttpPage(DownUrls,selEncoding))
   DownUrls=Skcj.GetBody(DownUrls,DownNewlist_s,DownNewlist_o,False,False)
   If DownUrls<>"$False$" then
    DownUrls=Skcj.GetArray(DownUrls,DownNewUrl_s,DownNewUrl_o,False,False)
    IF DownUrls<>"$False$" then
     i=1 
     TypeUrlArray=Split(DownUrls,"$Array$")
     For Arr_ii=0 to Ubound(TypeUrlArray)
      DownUrls=Trim(Skcj.FormatRemoteUrl(TypeUrlArray(Arr_ii),NewsUrl2))
      If arr_ii=0  then
       DownUrls_i="0|下载地址1|" & DownUrls
       i=i+1
      Else

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.06250秒 powered by KesionCMS 9.0