当前位置:乔建军中文网论坛频道论坛管理 → 贴子正文
      查看回贴:版主:四季  
当前离线 四季


IP:124.163.16.*
2008-07-06 18:20:56   楼主
主题:[公告]乔建军中文网经过近期的修改基本调整完毕
乔建军中文网建站已久了,但是一直是由于网站程序版本的问题,所以没有很快的调整好,不过经过最近一个星期的努力,网站现已经调整完毕,各个栏目也已经开通,并新安装调试了五种很漂亮的风格,特别是第五种风格:红色经典,也是本站默认的风格,是完全由本站原创设计安装的,希望朋友们能够喜欢。同时我们也增加设计了同样风格的首页,使网站更加贴近个人网站的风格和设计手法。

随着本站备案成功,我们就可以放心大胆的发展了,欢迎爱好民族声乐的朋友光临指导交流,更欢迎有识之士在论坛管理等诸多方面给予鼎立相助。

个性签名
当前离线 四季


IP:124.163.154.*
2008-07-06 13:11:17  #1
回复
在后台加上风格设置

一、
在admin_config.asp里找到
<tr class=Hxcmsds>
<td height="25" align="left">备案信息:</td>
<td width="*" align="left"><input size="40" value="<%=webinfo%>" name="webinfo"></td>
</tr>
在下面加上这句

<tr class=Hxcmsds>
<td height="25" align="right">默认风格:</td>
<td width="*" align="left"><input size="40" value="<%=skinid%>" name="skinid">  <img src="../img/help.gif" border="0" alt="只能填数字,!!!"></td>

二、
在admin_config.asp里找到
webinfo = replace(Trim(Request.Form("webinfo")),CHR(34),"'")
下加上这句

skinid = replace(Trim(Request.Form("skinid")),CHR(34),"'")

三、
在admin_config.asp里找到
        TempStr = TempStr & "webinfo="& Chr(34) & webinfo & Chr(34) &"                '设置备案信息" & VbCrLf
这句下加入

 TempStr = TempStr & "skinid="& Chr(34) & skinid & Chr(34) &"                  '设置默认皮肤" & VbCrLf

四、
在cmspublic.asp里找到这句
<link href="<%=InstallDir%>Css/index1.css" type="text/css" id="skincolor" rel="stylesheet" media="all" />
改成

<link href="<%=InstallDir%>Css/index<%=skinID%>.css" type="text/css" id="skincolor" rel="stylesheet" media="all" />

改完上述地方后别忘记登陆后台,点下基本设置 在默认风格:填写相应风格数字。

个性签名
[回贴] [引用]   顶部
当前离线 四季


IP:124.163.154.*
2008-07-06 13:14:24  #2
回复
HxCMS Ver 8.0 序列基本使用说明

版权及免责声明:
花香盈路网站管理系统,英文名称为"HxCms",系花香盈路(hx66.com.cn)独立开发,依法享有该软件版权和知识产权,并受中华人民共和国法律保护。任何组织和个人使用本程序,请务必遵守《HxCms使用协议》。
HxCms Ver8.0新功能简介


1、全新的宽屏5套风格。
2、全站采用DIV+CSS布局。
3、会员登陆、列表页、文章内容页、商城购物车、网站留言等等采用Ajax无刷新技术。
4、全新的音频、视频播放器,同步LRC歌词显示,同时支持上传LRC文件歌词和LRC文本歌词(解决了有些不支持.LRC格式文件的空间问题)。
5、改进软件下载方式,支持大文件下载。
6、全新改进的各频道评论功能,后台统一集中管理功能。
7、全新改版网页目录结构,有利于文件管理和频道的二级域名访问。

8、新闻、文章、图片、下载四频道的全自动无限复制功能。
====================================================================
相关说明:
一.后台管理——<请登陆后修改密码...> 
     用户名:admin
     密码:admin

二. 数据库连接文件(修改数据库名后,请修改相关连接数据库名)
   1.主站:数据库目录mdb/hx#66.asp
   2.论坛:数据库目录bbs/data/#hx.mdb
     3.备注: 数据库连接文件:inc/mdb.asp 内有主站和论坛两个数据库连接

三.广告调用方法:


    a).在后台添加你的广告连接。
    b).在管理界面里可看到你加的这个广告前面的ID号,记住它。
    c).在前台在你需要插入广告的位置,插入调用代码<%Call Hx66_AD(广告ID)%>

比如,你刚加的广告前面的ID号是1,那要调用这条广告,就用<%Call Hx66_AD(1)%>进行前台调用。多条广告就后面的ID用对应的ID号即可。 

四.Hxcms_js广告系统插件V1.0主要功能

     1、修改ad/mdb.asp文件,设定:
     mdb="../mdb/hx#66.asp"      ====设定主数据库连接路径                  
     pointsyes=1                 ====设定会员点击加分开关1为开,0为关  
     duration=12                 ====设定多少小时为一次有效点击        
      adpoints=10                 ====设定一次有效点击会员所加的分值    
     2、将AD目录的所有文件上传到Hxcms程序的根目录里。
     3、在Hxcms的admin.asp文件里,做上广告管理超连接:
        <a href="ad/index.asp" target="main">JS广告管理</a>

     4、前台调用用法:


     请先在网站上的相关网页上放入广告代码
        1.生成JS文件调用方式:<script src="网址/程序目录/js/广告ID.js"></script>
           只显点击统计,无显示次数的统计功能.

        2. 动态JS代码调用方式:<script src="网址/程序目录/ad.asp?adid=广告ID"></script>
          显示点击统计、显示次数的统计功能.

五.后台其它相关说明

     1.禁止注册:为防有人恶意注册你用的ID的连环ID,请在此填入你的站长ID。<如官方站是这样屏蔽:花香盈路|管理员|心窗|admin这样就不能注册什么心窗1、心窗2……等等>
     2.开启进后台先登陆前台功能建议你使用。<后台管理员的前台名称ID: 可以和后台管理员ID不相同,多个用分隔号 | 隔开>
     3.前台风格自选选关闭时,只对主站有效,此项不控制论坛。
     4、为了你系统的安全,请修改后台系统变量。
     5、I P 屏蔽*通配符的使用。*通配符简单的说,举个例吧——如一个IP地址为:218.251.3.54
你设定的屏蔽如为:218.251.3.*,*就代表所有的意思,脚本语言里就叫通配。那么所有218.251.3.为开头的IP都屏蔽了,不用一个个输。要范围更广点,就218.251.*.*或218.*.*.*。当然,你如是输入*.*.*.*,呵,除非你不想办站了:)
     6.默认的首页新闻幻灯是FLASH的,添加的图片请一定要用JPG格式.如你是要用其它格式的图,也可换为普通幻灯,调用函数
     7、设定了进后台先登陆前台功能的,存在网站关闭维护后不能登陆后台问题,解决办法两个:
⑴不能进登陆页面时,手工修改inc/CONFIG.asp
倒数第三行,former_yes=1                               '开关
将1改为0后,再上传这文件,直接连接ADMIN。ASP文件登陆后台
     8.添加中.......

六.花香程序图片水印设置讲解

   1.空间要支持aspjpeg组件
   2.有关设置是不是对。是文字的要写上你的文字,是图片的要在目录里放好图才行。 
   3、允许的最大图片文件大小——---不能为空
   4、选取上传组件:——------选无组件上传类
   5、选取生成预览图片组件:——选aspjpeg组件(必需要显Persits.Jpeg:√服务器支持!这样的字样,如不是,你将不能用水印功能,请联系空间商)
   6、生成预览图片大小设置(宽度|高度):——-------小图的大小。不能为空!
   7、图片水印设置开关:——----选水印文字效果(也可选图片效果)
   8、上传图片添加水印文字信息(可为空或0):——---写上你要的文字 
特需说明的是:你的图片是不可以太小的,太小了,叫程序写水印到哪?也看不到啊

七.音乐/影视设置和后台防盗链设置http://yu65.bokee.com/viewdiary.13796774.html
八.HxCMS Ver 8.0 BUG修正贴http://www.hx66.com.cn/bbs/Show.asp?bid=11&aid=10798


九.HxCMS Ver 8.0首页及各频道相关调用函数<和Hxcms V7.6差不多http://yu65.bokee.com/viewdiary.12542068.html>
   全新正制作中...

十.谈谈一些看似"不正常现象"的情况

    1>.LRC上传后不显示.歌也不能正常播放了.去掉LRC歌就可以正常播放
      解释:这是空间不支持.LRC格式文件的问题....故就要用到后台LRC文本歌词...不要用上传LRC文件歌词...其实:就是把后缀名.lrc改为.txt,而后用记事本打开<或直接选记事本打开>.把它复制到LRC文本歌词就OK了....
    2>.本站上的歌曲/影视不能播放,网络上的歌曲/影视却能播放,本地软件不能下载....
      解释:这是有些空间商为了节约资源,限制了这类占资源的流媒体....
    3>.网站安装在非根目录问题...出现"数据库连接出错,请检查主数据库连接字串"
      解释:网站安装在非根目录,比如:/home/
       则需要修改inc/mdb.asp里的
       '-----------网站目录,务必认真填写------------- 
       Const InstallDir = "/"        
       改为 :
       '-----------网站目录,务必认真填写------------- 
       Const InstallDir = "/home/"    
      同时修改js/js.js   ---------解决网站在二级目录无法显示会员的问题
              第一行<!-- var web_url="/";
                改成<!-- var web_url="/home/";
    4>.增加中....
十一:详细了解程序相关文件
     添加中.....

个性签名
[回贴] [引用]   顶部
当前离线 四季


IP:124.163.154.*
2008-07-06 13:16:14  #3
回复
HxCmsV8.0首页留言调控方法

第一步:

打开indexnew.asp文件,在最后加上下面代码(注意,在最后一个%>符的里边):

'=================================================
'过程名:index_book2
'作  用:首页留言调用
'参  数:num-------------调用条数
'        fontnum---------标题长度
'Web:    http://www.Hxcms.net
'=================================================
sub index_book2(num,fontnum)
sql="select top "&num&" id,zt,name,words,date,reply from words order by date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<ul  class=""list"">"
if rs.eof and rs.bof then
Response.Write "<li>暂时没有留言</li>" 
else
do while not rs.eof
Response.Write "<li><span>" 
If rs("reply")<>"" Then
Response.Write "[已回复]"
else
Response.Write "<FONT color=red>[未回复]</FONT>"
end if
Response.Write "</span>" 

Response.Write "<a href=""GuestBook/Index.asp"" title=""留言姓名:"&rs("name")&"&#13&#10留言时间:"&rs("date")&""">"&gotTopic(rs("zt"),fontnum)&"</a>" & vbCrLf
Response.Write "</li>" & vbCrLf
rs.movenext
loop
end if
rs.close
set rs=nothing
Response.Write "</ul>"
end sub

第二步:在你首页需要调用的地方,特效//用<%call index_book2(10,26)%> 标签调用,即可.

个性签名
[回贴] [引用]   顶部
当前离线 四季


IP:124.163.154.*
2008-07-06 13:21:25  #4
回复
推荐文章首页调用

第一步:

打开indexnew.asp文件,在最后加上下面代码(注意,在最后一个%>符的里边): '=================================================
'过程名:index_bestart
'作  用:推荐文章
'参  数:num-调用条数,nn-显示长度
'        NewWindows-----是否新窗打开,True为是,False为否
'Web:   http://www.65vv.com
'=================================================
sub index_bestart(num,nn,NewWindows)
Response.Write "<ul class=""list"">"
dim nnn
if NewWindows=True then
nnn="target='_blank'"
else
nnn=""    
end if
set RsHxcms=server.createobject("adodb.recordset")
set RsHxcms=conn.execute("select top "&num&" * from art where passed=0 and isbest=1 order by art_id desc")
do while not RsHxcms.eof
Response.Write "<li><span>"&Right("0"&month(RsHxcms("art_date")),2)&"-"&right("0"&day(RsHxcms("art_date")),2)&"</FONT></span>"
Response.Write "<a class=""a50""></a><a href=Art/show.asp?id="&RsHxcms("art_id")&" title="&RsHxcms("art_title")&" "& nnn &">"&gotTopic(RsHxcms("art_title"),nn)&"</a></li>" & vbCrLf
RsHxcms.movenext
loop
if RsHxcms.bof and RsHxcms.eof then
   Response.Write "<li>暂时没有推荐文章!</li>"
end if
RsHxcms.close
set RsHxcms=nothing
Response.Write "</ul>"
end sub

第二步:在你首页需要调用的地方,推荐//用<%call index_bestart(5,28,False)%> 标签调用,即可.

个性签名
[回贴] [引用]   顶部
当前离线 四季


IP:124.163.154.*
2008-07-06 13:23:24  #5
回复
65vv.com推荐图文Art/index.asp

像65vv.com一样的效果http://www.65vv.com/Art/index.asp

方法:

一:Art目录下的index.asp添加以下红色代码........<在<%和%>之间添加>

菜鸟提示|例如:在下面之上加

'================================
'过程名:list_Art
'作  用:简洁文章列表
'================================

'=================================================
'过程名:Flashart
'作  用:首页新闻图片FLASH幻灯
'参  数:num--------------调用条数
'        fontnum----------显示文字长度
'        PicWidthStr--------图片宽度
'        PicHeightStr-------图片高度
'        BGcolor------------背景色
'        txtheight----------文字显示高度,0为不显示
'web:    www.65vv.com
'=================================================
Function Flashart(num,fontnum)
Dim RsFilterObj,FlashStr,ImagesStr,TxtStr,LinkStr
FilterSql = "SELECT top "&num&" * FROM art where ChannelID=2 and isimg=1 and images<>'' ORDER BY art_id DESC"
Set RsFilterObj = Conn.Execute(FilterSql)
If not RsFilterObj.Eof then
  Dim Temp_Num
  Temp_Num = 0
  Do While Not RsFilterObj.Eof
  Temp_Num = Temp_Num + 1
  RsFilterObj.MoveNext
  Loop
  RsFilterObj.MoveFirst
  If Temp_Num <=1 then
  Set RsFilterObj = Nothing
  Flashart = "至少需要两条图片文章才能正确显示幻灯效果"
  Set RsFilterObj = Nothing
  Exit Function 
  End If
  do while Not RsFilterObj.Eof  
  if ImagesStr = "" then
     ImagesStr = InstallDir&RsFilterObj("images")
     TxtStr = gotTopic(RsFilterObj("art_title"),fontnum)
     LinkStr = ""&InstallDir&"Art/Show.asp?id="&RsFilterObj("art_id")
     Nincle="addInfo("""&TxtStr&""","""&ImagesStr&""","""&LinkStr&""");"&Chr(13)
   else
     ImagesStr = InstallDir&RsFilterObj("images")
     TxtStr = gotTopic(RsFilterObj("art_title"),fontnum)
     LinkStr = ""&InstallDir&"Art/Show.asp?id="&RsFilterObj("art_id")
     Nincle=Nincle&"addInfo("""&TxtStr&""","""&ImagesStr&""","""&LinkStr&""");"&Chr(13)
   end if     
  RsFilterObj.MoveNext
  loop
FlashStr="<script type=text/javascript>"& Chr(13)
FlashStr=FlashStr&"<!--"& Chr(13)
FlashStr=FlashStr&"var varText = """""& Chr(13)
 FlashStr=FlashStr&"function addInfo(title,photourl,link){"& Chr(13)
  FlashStr=FlashStr&"if(varText!=""""){"& Chr(13)
   FlashStr=FlashStr&"varText+=""|||"";"& Chr(13)
  FlashStr=FlashStr&"}"& Chr(13)
  FlashStr=FlashStr&"varText+=title+""|_|""+photourl+""|_|""+link;"& Chr(13)
 FlashStr=FlashStr&"}"& Chr(13)
FlashStr=FlashStr&nincle
FlashStr=FlashStr&"var hxcmsFlash2 = new hxcmsFlash(""../js/news.swf"", ""FlashFocus2"", 470, 240, ""6"");"&Chr(13)
FlashStr=FlashStr&"hxcmsFlash2.addParam(""quality"", ""high"");"&Chr(13)
FlashStr=FlashStr&"hxcmsFlash2.addParam(""wmode"", ""transparent"");"&Chr(13)
FlashStr=FlashStr&"hxcmsFlash2.addVariable(""info"",varText);"&Chr(13)
FlashStr=FlashStr&"hxcmsFlash2.write(""FlashFocus2"");"&Chr(13)
FlashStr=FlashStr&"//-->"&Chr(13)
FlashStr=FlashStr&"</script>"&Chr(13)
  else
    FlashStr="没有幻灯图文"
  end if
    RsFilterObj.Close
Set RsFilterObj = Nothing
    Flashart= FlashStr
End Function

 

特别声明:免费版去掉上面黑色 ChannelID=2 

二:Art目录下的index.asp添加以下红色代码

以下是引用片段:
<!--相关评论 -->
        <div class="side_border">
        <div class="topic_bg1">
        <div class="topic">最新评论</div></div>
        <div class="list_l"><%=cmshx_commend(ChannelID)%></div>
        </div>
   </div>
   <div class="Tab_right w_4">
   <div class="w_4 side_border"><!--焦点图开始-->
<script src="../js/newsflash.js" type=text/javascript></script>
<div id=FlashFocus2 align=center></div>
<%=Flashart(6,35)%><!--焦点图结束-->
</div>
        <%call list_Art()%>
   </div>
</div>
<!--页面左边结束-->
<!--页面右边开始-->
<div class="Tab_right w_7">
        <!--用户登陆 -->
        <div class="Tab_left w_7 side_border">
        <div class="topic_bg1">
        <div class="topic">用户登陆</div>
        </div>
        <div class="other_16" id="userinfo"><img alt="" src="../images/loading.gif" /><br/>加载中……</div>
 


三:下载news.swf、newsflash.js   再保存到js目录下<以下是这两个文件下载点>

           1. http://hxcms.net/js/news.swf

           2. http://hxcms.net/js/newsflash.js 

四:特别提示:图片最好是上传的,大小标准310*220,大小不一,效果不好.......

个性签名
[回贴] [引用]   顶部
当前离线 四季


IP:124.163.154.*
2008-07-06 13:27:05  #6
回复
真正非5张滚动图片的代码

看了一写网站图片栏目加了滚动代码...但无论调试20张图片,还是调试100张图片,永远是5张在来回滚动...就没有意义了...故本站/做了简单的改变...下面请跟我"沙丘"一起改一下:<说明:我这个只增加到18张...想多或少还要改变长度大小....>/

这个也是很容易做到:

1.找到index.asp文件.....<以下是图片更新代码>         <div>
        <div class="Tab_left w_8 side_border">
        <div class="topic_bg1">
        <div class="topic">图片更新</div>
         <span><a href="Pic/Index.asp">More...</a></span> </div>
        <div id=demo style="overflow:hidden;height:128px;width:99%;"><table align=left cellpadding=0 cellspace=0 border=0><tr><td id=demo1 valign=top>        
        <div class="pic_url2 Tab_left"><%call index_pic(18,0)%></div></td><td id=demo2 valign=top></td></tr></table></div> 
<script
var speed=30 
demo2.innerHTML=demo1.innerHTML 
function Marquee(){ 
if(demo2.offsetWidth-demo.scrollLeft<=0) 
demo.scrollLeft-=demo1.offsetWidth 
else{ 
demo.scrollLeft++ 


var MyMar=setInterval(Marquee,speed) 
demo.onmouseover=function() {clearInterval(MyMar)} 
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)} 
</script>    

</div>


 


2.打开css/index1.css    <增加以下代码>在文件最尾加也可以/ /*图片样式开始2*/
.pic_url2 {
 margin: 5px 5px 5px 0px;
 width:2420px;
}

.pic_url2 li {
 display: block;
 float: left;
 line-height: 28px;
 padding-top: 5px;
        padding-bottom: 5px;
 padding-left: 6px;
 padding-right: 6px;
 /*width: 120px;*/
        text-align:center;
 list-style:none;
}

.pic_url2 img{
 padding:1px;
 border:1px #CCCCCC solid;
 margin-top:2px;
 
}
/*图片样式结束2*/

 


备注:index2.css   index3.css   index4.css   index5.css  也一样增加以上代码....

如果有什么不解之处...请留言/GuestBook/Index.asp

或者发表你的评论....谢谢!65之家.HxCms之后盾...

个性签名
[回贴] [引用]   顶部
当前离线 四季


IP:124.163.16.*
2008-07-06 18:12:45  #7
回复
加上SWF格式影视代码搞定56|优酷|土豆影视

影视播放器问题:比如:有人加了支持56视频...在IE6.0看一切正常,在IE7.0就不正常了,播放不了...等等...故加代码要考虑IE7.0,必定现在很多人IE6.0也会慢慢全部升级到IE7.0.... 
我觉得最简单扼要的方案就是加上"SWF"格式的Flash播放器代码...不管是:56视频|优酷影视|土豆影视....都可以用此代码来播发这些影视....就不用找这找那代码了!

1.在Video/vidplayer.asp加入如下代码 <!-- ----swf播放器代码开始-------->
<%elseif ftype="swf" then%>
<script language="javascript">
function initPlayer()
{
document.player.SetWantMouseEvents(true)
}
function noRB()
{
setTimeout("alert('右键禁止')",400)
}
function killErr(){
      return true;

window.onerror=killErr;
</script>
<script language="vbscript">
sub player_OnRButtonDown(ByVal nFlags, ByVal nX, ByVal nY)
 if player.getfullscreen() then
  player.SetOriginalSize()
  noRB()
 else
  msgbox("右键禁止")
 end if
End Sub
</script>
<script language="javascript">
<!-- Begin
var ap_name = navigator.appName;
var ap_vinfo = navigator.appVersion;
var ap_ver = parseFloat(ap_vinfo.substring(0,ap_vinfo.indexOf('(')));
var time_start = new Date();
var clock_start = time_start.getTime();
var dl_ok=false;
function init ()
{
if(ap_name=="Netscape" && ap_ver>=3.0)
dl_ok=true;
return true;
}
function get_time_spent ()
{
var time_now = new Date();
return((time_now.getTime() - clock_start)/1000);
}
function show_secs () 
{
var i_total_secs = Math.round(get_time_spent());
var i_secs_spent = i_total_secs % 60;
var i_mins_spent = Math.round((i_total_secs-30)/60);
var s_secs_spent = "" + ((i_secs_spent>9) ? i_secs_spent : "0" + i_secs_spent);
var s_mins_spent = "" + ((i_mins_spent>9) ? i_mins_spent : "0" + i_mins_spent);
document.fm0.time_spent.value = s_mins_spent + ":" + s_secs_spent;
window.setTimeout('show_secs()',1000);
}
init();
window.setTimeout('show_secs()',1);
//  End -->
</script>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" bgcolor="#000000" onload="initPlayer()">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%">
  <tr>
    <td width="100%" valign="top">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%">
      <tr>
        <td width="10" height="40">
        <img border="0" src="../img/play_vid/jinplay_1.gif" width="10" height="40"></td>
        <td height="40">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
          <tr>
            <td background="../img/play_vid/jinplay_2.gif">
            欢迎您观看:<%=dddd%>(第<%=urlno%>集)</td>
            <td width="63">
            <img border="0" src="../img/play_vid/jinplay_4.gif" width="63" height="40"></td>
            <td width="79">
            <a href="javascript:this.location.reload()"><img border="0" src="../img/play_vid/jinplay_7.gif" width="79" height="40"></a></td>
            <td width="75">
            <a href="#" onclick="if (document.player.GetPlayState()==3) document.player.SetFullScreen()"><img border="0" src="../img/play_vid/jinplay_8.gif" width="75" height="40"></a></td>
          </tr>
        </table>
        </td>
        <td width="10" height="40">
        <img border="0" src="../img/play_vid/jinplay_10.gif" width="10" height="40"></td>
      </tr>
      <tr>
        <td width="10" valign="top" background="../img/play_vid/jinplay2.gif"> </td>
        <td bgcolor="#000000">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #000000" bordercolor="#111111" width="100%" height="100%">
          <tr>
            <td width="100%" align="center">

<!-- ----swf代码开始------->
           <HTML xmlns:flashercn>
    <import namespace="flashercn" implementation="../js/Player.htc" />
    <flashercn:player src="<%=flvurl%>" width="560" height="400" />
    <xmp id="ViewFlash" style="display:none"> 
    <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="380" height="251" align="middle">
            <param name="movie" value="<%=flvurl%>"><param name="quality" value="high">
    </object>
    </xmp>
    <script language="javascript">
     try{parseFloat(window.navigator.userAgent.match(/MSIE ([\d\.]+)/)[1])<5.5?ViewFlash.outerHTML=ViewFlash.innerText:"" }
     catch(e){ViewFlash.outerHTML=ViewFlash.innerText}
     </script>
 </td>
          </tr>
        </table>
        </td>
        <td width="10" valign="top" background="../img/play_vid/jinplay1.gif"> </td>
      </tr>
      <tr>
        <td width="10" height="11" valign="top">
        <img border="0" src="../img/play_vid/jinplay_16.gif" width="10" height="11"></td>
        <td height="11" valign="top" background="../img/play_vid/jinplay_18.gif">
        <img border="0" src="../img/play_vid/jinplay_18.gif" width="10" height="11"></td>
        <td width="10" height="11" valign="top">
        <img border="0" src="../img/play_vid/jinplay_20.gif" width="10" height="11"></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!-- -------swf播放器代码结束------ -->

 


2.在Admin/admin_video.asp中加入以下红色代码(有两处):

第一处:

<tr class=Hxcmsds><td width="17%" align="right">影片格式:</td><td width="83%"><select name="runsystem" size="1">
                    <option value="RM">RM 影视</option>
                    <option value="ASF">ASF 影视</option>
                    <option value="swf">swf影视</option>
                    <option value="其它">其它(FLV等格式)</option>
                  </select></td></tr>
<tr class=Hxcmsds><td width="17%" align="right">电影剧照:</td><td width="83%"><input type="text" name="images" class="textarea" size="40" value="img/nopic.gif"></td></tr>

 

第二处: <tr class=Hxcmsds><td width="17%" align="right">影片格式:</td><td width="83%"><select name="runsystem" size="1">
<option value="RM" <%if rs("runsystem")="RM" then response.write "selected" end if%>>RM 影视</option>
<option value="ASF" <%if rs("runsystem")="ASF" then response.write "selected" end if%>>ASF 影视</option>
<option value="swf" <%if rs("runsystem")="swf" then response.write "selected" end if%>>swf影视</option>
<option value="其它" <%if rs("runsystem")="其它" then response.write "selected" end if%>>其它影视</option>
                  </select></td></tr>
<tr class=Hxcmsds><td width="17%" align="right">电影剧照:</td><td width="83%"><input type="text" name="images" id="images" class="textarea" size="40" value="<%=rs("images")%>"></td></tr>

个性签名
[回贴] [引用]   顶部
当前离线 建军粉丝


IP:125.34.59.*
2008-08-03 18:51:47  #8
回复
太专业了,看着有点复杂。
个性签名
[回贴] [引用]   顶部
首页 上一页 下一页 尾页 页 (当前第1页 共18条记录)
快速回复主题: →插入表情图  心情图片