远古修改模版

修改远古模版

替换完模板影片原来的图片都不显示了~~这是个初级错误~~模板的原作者把上传目录改了。修正办法：common里的upload.inc.asp里的上传目录搞成download了~~下次修改的时候一并修改过来好了~

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

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

下就可以了。。但是原来的图片不要删，因为图片的路径已经记录在数据库里了。但是以后添加的电影图片都会在VODJPG目录里了~没注意这个问题，给大家大来的不便表示歉意。。抱歉~~

替换模板后出错问题的解决办法:

1.替换模板后HTTP500错误
造成这个错误的原因是您覆盖了dbcon.asp文件.我记得除第一个模板外,其他以后修改版为了防止大家发生
HTTP500错误,都没有压进去,如果您覆盖第四次修改版还是HTTP500错误,请注意,您可能使用的是ACC数据库.
总的来说覆盖模板HTTP500错误就是dbcon.asp里的数据库连接错误.

2.替换模板后出现以下错误提示:
ADODB.Recordset 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/Webmedia/oemui/toplist.inc.asp，行 78

解决办法就是多添加几部影片就好了.每种类别保证有5部以上影片.即可正常.....

3.如何修改模板的首页文字?
这是在网盟里有人提出的问题.修改模板标题在webmedia目录下的default.asp里修改.用记事本打开就看到了.

4.覆盖模板后提示"对不起您不能访问本系统资源,请确认您的访问地址!"错误.
这个可能是您原来使用的WBIP数据表是老版的,不是老贼发布的最新版.看压缩包里的"网吧IP教程.exe"照做即可!

5.覆盖模板后出现以下错误:
Microsoft JET Database Engine 错误 '80040e37'
Microsoft Jet 数据库引擎找不到输入表或查询 'gonggaoInfo'。 确定它是否存在，以及它的名称的拼写是否正确。

/oemui/vod/progmain.asp，行 44

很明显是没有添加gonggaoinfo和lianzai两条数据表...在压缩包里有"添加数据表的图片教程"....

6.覆盖模板后"经典剧场"不显示影片.或者其他类别不显示影片.
修改方法在压缩包里的"经典剧场修改办法"里有图片说明....

7.添加电影时.选择好图片.更改节目属性的时候出现错误???

遇到这个问题,只能是换张图片了......和图片的文件格式有关系.换了图片再上传就OK了~~

更改远古VOD的集数显示方式

 

dbend.inc.asp相当于是个YG的函数库，所有的模版都有这个文件并且都没做什么修改。现在你再在这个文件里加个取文件名的函数。代码如下：

function GetProgramName(iGameID) '获得节目的名
szSQL = "SELECT FullPath FROM Prog_Server where Prog_ID=" & iGameID
set rsData_Name = Server.CreateObject("ADODB.Recordset")
rsData_Name.Open szSQL,con,1,3
if not rsData_Name.EOF then
     FullPath = rsData_Name("FullPath")
     m = InStrRev(FullPath, "\")
     FullPath = Right(FullPath, Len(FullPath) - m)
     n = InStr(FullPath, ".")
     FullPath = Left (FullPath, n-1)
End If  
rsData_Name.Close
set rsData_Name = nothing
GetProgramName=FullPath
end function

这个iGameID是流媒体文件的ID，GetProgramName的返回值就是文件名（没有扩展名的主文件名）。

szShow = szShow & GetProgramName(rsData("Prog_ID")) & " </a></td>" & Chr(13)
这个应该在
在你的progshow.asp的里本来有一段是：

szShow = szShow & "第 " & rsData("Part_No") & " 集 </a></td>" & Chr(13)

的下面

缩短电影名称的改法

dbend.inc.asp的函数改成这样：

function GetProgramName(iGameID,iNum) '获得节目的名
szSQL = "SELECT FullPath FROM Prog_Server where Prog_ID=" & iGameID
set rsData_Name = Server.CreateObject("ADODB.Recordset")
rsData_Name.Open szSQL,con,1,3
if not rsData_Name.EOF then
     FullPath = rsData_Name("FullPath")
     m = InStrRev(FullPath, "\")
     FullPath = Right(FullPath, Len(FullPath) - m)
     n = InStr(FullPath, ".")
         FullPath = Left (FullPath, n-1)
       End If  
rsData_Name.Close
set rsData_Name = nothing
       if Len(FullPath) > iNum then FullPath = Left(FullPath, iNum) & "..."
GetProgramName=FullPath
end function

progshow.asp里改成这样：

szShow = szShow & GetProgramName(rsData("Prog_ID"),6) & " </a></td>" & Chr(13)

把他改成

szShow = szShow & GetProgramName(rsData("Prog_ID")) & " </a></td>" & Chr(13)
 

这样就OK啦
简单一句，就是
dbend.inc.asp里加函数
progshow.asp里改代码