要通过捉包可以看到．其调用串一般为   xxxx.xxx.xxx:80/wevlivd.tfs?uuid=xxx=prog_id=xxx.......．而那些uuid.prog_id等等

都是通过客户端和认正关通过验证后产生的．．所以一般情况下就没法写入VirtualWall的防盗参数了．．那怎么办呢?

经几天的不断测试和研究,居然让我发现在远古代的player.ASP文件中的WebPlayer.Session   = ""; //"";这个是在数据库的

ＵＵＩＤ用户唯一标记变量来的．如果这个值是空值时．远古就会自动帮他给予一个值．．但如果我们设定这个值为

WebPlayer.Session   = "11223344"; //""; 时．那么用户的在线表中的用户ＵＵＩＤ值就是这个11223344了．通过捉包．

xxxx.xxx.xxx:80/wevlivd.tfs?uuid=xxx=prog_id=xxx.......．就会为

xxxx.xxx.xxx:80/wevlivd.tfs?uuid=11223344=prog_id=xxx.......．所以通过改写WebPlayer.Session   = ""; //"";就可以把

VirtualWall的vsid=<%=getvsid()%>写入到远古代软件中去了~

写成WebPlayer.Session   = "vsid=<%=getvsid()%>"; //"";

然后打开你的VirtualWall软件．在你的ＶＯＤ资源站点上加上.tfs文件的防盗.

其它操作就按一般的防软件下载来加入就可以了．．

哈哈怎样．．成功了吧~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

值得注意的是:

一在主验证的服务器。也就是在你的IIS管理器上有WebMedia虚拟目录的那个站点在IIS加入域名如vod.5913bbs.com
一点是要在远古网站的后台开放服务器映射~把外网地址的地址改为修改好的域名地址vod.5913bbs.com

以前发的远古VOD5.0点播页不显示集数而显示文件名（http://bbs.wglm.net/read.php?tid=28113&u=24744）里提到过，dbend.inc.asp相当于是个远古VOD的函数库，所有的模版都有这个文件并且都没做什么修改。
现在你再在这个文件里加个连续节目更新情况自动分析函数。
这个函数在你的asp里的调用方式为：
<!--＃i nclude file="../common/dbcon.inc.asp" -->
<%i=GetNewProgramName("连续剧",30)
response.write i
%><!--＃i nclude file="../common/dbend.inc.asp" -->

上面的这个GetNewProgramName("连续剧",30)里的"连续剧"的意思就是连续剧的更新情况，可可以是动画片或其他的有更新的类别，30是指最近30天的更新情况。

更新的情况是以最后一次更新的来显示的，同一节目不会同时显示多次的更新情况的。

把下面的代码加在你的dbend.inc.asp就可以。
注意：下面代码用于SQL，如果你用的是ACCESS，要把DateDiff(Day,JoinTime,Getdate()) 改成DateDiff(Day,JoinTime,now())

function GetNewProgramName(iTypeName,iRule) '获得连载节目的更新
   szSQL_Type = "SELECT Type_ID FROM TypeInfo where Type_ID>=21 And TypeName='" & iTypeName & "'"
   set rsData_Type = Server.CreateObject("ADODB.Recordset")
   rsData_Type.Open szSQL_Type,con,1,3
   if not rsData_Type.EOF Then
       iTypeID=rsData_Type("Type_ID")
       rsData_Type.Close
   else
       GetNewProgramName="没找到类别" & iTypeName & "!"
         rsData_Type.Close   
       exit function   
   End if
     szSQL_Name = "SELECT ProgName,Prog_ID,Part_No,JoinTime FROM ProgInfo where Type_ID=" & iTypeID & " And DateDiff(Day,JoinTime,Getdate()) < " & iRule & " order by JoinTime desc "
   set rsData_Name = Server.CreateObject("ADODB.Recordset")
   rsData_Name.Open szSQL_Name,con,1,3
   if not rsData_Name.EOF Then
   MaxProgName=""
   OutPutNew=""
   do while not rsData_Name.EOF
       MaxProgName0=rsData_Name("ProgName")         
       MaxPart_No0= rsData_Name("Part_No")
       MaxTime0=Month(rsData_Name("JoinTime")) & "月" & Day(rsData_Name("JoinTime")) & "日"
       MaxProgID0=rsData_Name("Part_No")
       if Instr(MaxProgName,MaxProgName0) <> 0 then
           rsData_Name.MoveNext
       else
       szSQL_Part = "SELECT Prog_ID,ProgName,Part_No,JoinTime FROM ProgInfo where ProgName='" & MaxProgName0 & "'"
       set rsData_Part = Server.CreateObject("ADODB.Recordset")
       rsData_Part.Open szSQL_Part,con,1,3
         do while not rsData_Part.EOF
         MaxPart_No= rsData_Part("Part_No")
         if MaxPart_No > MaxPart_No0 then
             MaxPart_No0=MaxPart_No
             MaxProgName0=rsData_Part("ProgName")             
             MaxTime0=Month(rsData_Part("JoinTime")) & "月" & Day(rsData_Part("JoinTime")) & "日"
         end if
         rsData_Part.MoveNext
         if rsData_Part.EOF then exit do
         loop
         OutPutNew0="<a href='progmain.asp?ProgID=" & rsData_Name("Prog_ID") & "'><font color='#008000'>" & MaxTime0 & MaxProgName0 & "更新到第" & MaxPart_No0 & "集</font></a><br>"
         OutPutNew=OutPutNew & OutPutNew0
         rsData_Part.Close
         MaxProgName=MaxProgName & MaxProgName0
         rsData_Name.MoveNext
       end if
       if rsData_Name.EOF then exit do
      
      
       loop
       OutPutNew= "近" & iRule & "天" &    iTypeName & "更新：<br>" & OutPutNew
       OutPutNew="<marquee direction='up' height='163' οnmοuseοut='this.start()' οnmοuseοver='this.stop()' scrollAmount='1' scrollDelay='100' align='left'>" & OutPutNew & "</marquee>"
       GetNewProgramName=OutPutNew
   else   
   GetNewProgramName= "近" & iRule & "天无" &    iTypeName & "更新"
   End if   
   rsData_Name.Close
   set rsData_Type=nothing
   set rsData_Part=nothing
   set rsData_Name=nothing
end function

如果你自己搞不明白，可以下载下面的附件，把dbend.inc.asp覆盖原来的（在webmedia/common里），把p.asp放到/WebMedia/oemui/vod下，然后http://ip/webmedia/oemui/vod/p.asp就能见到效果了，你可以把p.asp用iframe的方式嵌入到的需要显示更新情况的页面里。

不显示影片图片的修改方法：

用记事本打开common/upload.inc.asp，然后搜索szDownloadPath = "../../download/"   然后把download改成vodjpg就可以了，如果在download里有图片的话，把图片全部复制到vodjpg目录

下就可以了。。但是原来的图片不要删，因为图片的路径已经记录在数据库里了。但是以后添加的***图片都会在VODJPG目录里了！