21,887
社区成员
发帖
与我相关
我的任务
分享quicktime全屏代码？？？
我在网页中插入了一个quicktime代码如下：
<script language ="JavaScript">
<!--
/* a javascript function that takes a QT movie and calls its "Play" method */
function PlayIt(anObj)
{
anObj.Play();
}
/* a javascript function that takes a QT movie and calls its "Stop" method */
function StopIt(anObj)
{
anObj.Stop();
}
function RewindIt(anObj)
{
anObj.Rewind();
}
function Stepf(anObj)
{
anObj.Step(20);
}
function Stepb(anObj)
{
anObj.Step(-30);
}
//-->
</script>
<object classid="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" id=movie1 width="350" height="280"
codebase= "http://www.apple.com/qtactivex/qtplugin.cab" >
<param name="autoplay" value=True>
<param name="autohref" value=True>
<param name="target" value="myself">
<param name="href" value="<?=$path?>">
<param name="controller" value="false">
<param name="scale" value="Tofit">
<embed width="360" height="320" EnableJavaSript="true" name="movie1"
autoplay="True" href="<?=$path?>"
Target="Myself" autohref="True"></object>
<a href="javascript:PlayIt(document.movie1);">播放</a>
<a href="javascript:StopIt(document.movie1);">暂停</a>
<a href="javascript:RewindIt(document.movie1);">重播</a>
<a href="javascript:Stepf(document.movie1);">快进</a>
<a href="javascript:Stepb(document.movie1);">快退</a>
我现在还需要一个全屏功能，但找了好多资料，
折腾了一个星期也没做出来
哪位高手能指点一下，我在这先谢了
<script language ="JavaScript">
<!--
/* a javascript function that takes a QT movie and calls its "Play" method */
function PlayIt(anObj)
{
anObj.Play();
}
/* a javascript function that takes a QT movie and calls its "Stop" method */
function StopIt(anObj)
{
anObj.Stop();
}
function RewindIt(anObj)
{
anObj.Rewind();
}
function Stepf(anObj)
{
anObj.Step(20);
}
function Stepb(anObj)
{
anObj.Step(-30);
}
//-->
</script>
<object classid="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" id=movie1 width="350" height="280"
codebase= "http://www.apple.com/qtactivex/qtplugin.cab" >
<param name="autoplay" value=True>
<param name="autohref" value=True>
<param name="target" value="myself">
<param name="href" value="<?=$path?>">
<param name="controller" value="false">
<param name="scale" value="Tofit">
<embed width="360" height="320" EnableJavaSript="true" name="movie1"
autoplay="True" href="<?=$path?>"
Target="Myself" autohref="True"></object>
<a href="javascript:PlayIt(document.movie1);">播放</a>
<a href="javascript:StopIt(document.movie1);">暂停</a>
<a href="javascript:RewindIt(document.movie1);">重播</a>
<a href="javascript:Stepf(document.movie1);">快进</a>
<a href="javascript:Stepb(document.movie1);">快退</a>
我现在还需要一个全屏功能，但找了好多资料，
折腾了一个星期也没做出来
哪位高手能指点一下，我在这先谢了
...全文
请发表友善的回复…
发表回复
xeina 2004-07-02
- 打赏
- 举报
应该怎么做呢
高手帮忙啦
高手帮忙啦
xeina 2004-07-01
- 打赏
- 举报
quicktime的窗口还是没有变化！
xeina 2004-07-01
- 打赏
- 举报
Object.innerHTML="<object classid=\"clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B\" id=movie1 width=\""+(window.screen.width-40)+"\" height=\""+(window.screen.height-40)+"\" codebase= \"http://www.apple.com/qtactivex/qtplugin.cab\">";
这句有错误，我改不出来
这句有错误，我改不出来
xeina 2004-06-30
- 打赏
- 举报
点击全屏，quicktime窗口能全屏
我找了好多，都没找到关于调用quicktime的函数
我找了好多，都没找到关于调用quicktime的函数
woyingjie 2004-06-30
- 打赏
- 举报
不知道你想要的是你一个什么样的全屏窗口？？
gjd111686 2004-06-30
- 打赏
- 举报
function FullScreen(strID)
{
var Object=eval("document.all."+strID);
window.moveTo(-20,-20);
window.resizeTo(window.screen.width,window.screen.height);
Object.innerHTML="<object classid=\"clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B\" id=movie1 width=\""+(window.screen.width-40)+"\" height=\""+(window.screen.height-40)+"\"
codebase= \"http://www.apple.com/qtactivex/qtplugin.cab\" >"
}
<a href="javascript:FullScreen('movie1');">全屏</a>
{
var Object=eval("document.all."+strID);
window.moveTo(-20,-20);
window.resizeTo(window.screen.width,window.screen.height);
Object.innerHTML="<object classid=\"clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B\" id=movie1 width=\""+(window.screen.width-40)+"\" height=\""+(window.screen.height-40)+"\"
codebase= \"http://www.apple.com/qtactivex/qtplugin.cab\" >"
}
<a href="javascript:FullScreen('movie1');">全屏</a>
xeina 2004-06-30
- 打赏
- 举报
大家请多多帮忙！
xeina 2004-06-30
- 打赏
- 举报
luoluonozuoluo(学不会就去死；因为怕死所以死都要学会) ：
用你的代码的话，是全屏了，但出现的是白屏
能不这样呢
function goWin()
{
window.resizeTo( 675 , 621 );
gomovie(movie1)；
}
function gomovie()
{
var width=300;
var height=400;
movie1.innerHTML="<object classid=\"clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B\" id=movie1 width=\""+width+"\" height=\""+height+"\"
codebase= \"http://www.apple.com/qtactivex/qtplugin.cab\" >"}
<a href="javascript:goWin();">放大</a>
但是function gomovie()里问题，两者我也不知道怎么样结合
请大家帮我想想看呢
用你的代码的话，是全屏了，但出现的是白屏
能不这样呢
function goWin()
{
window.resizeTo( 675 , 621 );
gomovie(movie1)；
}
function gomovie()
{
var width=300;
var height=400;
movie1.innerHTML="<object classid=\"clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B\" id=movie1 width=\""+width+"\" height=\""+height+"\"
codebase= \"http://www.apple.com/qtactivex/qtplugin.cab\" >"}
<a href="javascript:goWin();">放大</a>
但是function gomovie()里问题，两者我也不知道怎么样结合
请大家帮我想想看呢
luoluonozuoluo 2004-06-30
- 打赏
- 举报
function goFullscreen(){
window.open(this.location.href,"","fullscreen");
goObj=getElementById(theStr)
goObj.width=screen.width;
goObj.height=screen.height;
}
<a href="javascript:goFullscreen('movie1');">全屏</a>
window.open(this.location.href,"","fullscreen");
goObj=getElementById(theStr)
goObj.width=screen.width;
goObj.height=screen.height;
}
<a href="javascript:goFullscreen('movie1');">全屏</a>
xeina 2004-06-30
- 打赏
- 举报
我的这个文件是look.php
是另一个页面链接过来的
代码：<input type=submit name=Submit value=\"收看\"
onClick=javascript:window.open('look.php','movie','width=375','height=421')>
这样的话，改变了大小看不到
用什么方法既能放大窗口，又能放大quicktime呢
是另一个页面链接过来的
代码：<input type=submit name=Submit value=\"收看\"
onClick=javascript:window.open('look.php','movie','width=375','height=421')>
这样的话，改变了大小看不到
用什么方法既能放大窗口，又能放大quicktime呢
gjd111686 2004-06-30
- 打赏
- 举报
You should also change the HEIGHT and WIDTH parameters to match the height and width of the movie (in pixels).
应该可以用
var width=300;
var height=400;
movie1.innerHTML="<object classid=\"clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B\" id=movie1 width=\""+width+"\" height=\""+height+"\"
codebase= \"http://www.apple.com/qtactivex/qtplugin.cab\" >"来调整大小
至于全屏可以模拟[比较麻烦]也可以用window.open('','','fullscreen=3')[效果不好]
应该可以用
var width=300;
var height=400;
movie1.innerHTML="<object classid=\"clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B\" id=movie1 width=\""+width+"\" height=\""+height+"\"
codebase= \"http://www.apple.com/qtactivex/qtplugin.cab\" >"来调整大小
至于全屏可以模拟[比较麻烦]也可以用window.open('','','fullscreen=3')[效果不好]
SaySorry 2004-06-29
- 打赏
- 举报
过路的
xeina 2004-06-29
- 打赏
- 举报
不可以啊
woyingjie 2004-06-29
- 打赏
- 举报
<body onload=window.open("newwin.htm","","fullscreen")>
xeina 2004-06-29
- 打赏
- 举报
嘿，不是吧
连接数据库代码实例
1,连接数据库代码 文件名称 conn.asp 所有访问数据库的文件都调用此文件
<%
db=\"data/data.mdb\" \'数据库存放目录
on error resume next
set conn=server.createobject(\"adodb.connection\")
conn.open \"driver={microsoft access driver (*.mdb)};dbq=\"&server.mappath(db)
if err then
err.clear
set conn = Nothing
response.write \"数据库连接出错，请检查conn.asp中的连接字符串。\"
response.end
end if
function CloseDB
Conn.Close
set Conn=Nothing
End Function
%>
<%
dim badword
badword=\"\'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|=\"
if request.QueryString<>\"\" then
chk=split(badword,\"|\")
for each query_name in request.querystring
for i=0 to ubound(chk)
if instr(lcase(request.querystring(query_name)),chk(i))<>0 then
response.write \"<script language=javascript>alert(\'传参错误！参数 \"&query_name&\" 的值中包含非法字符串！\\n\\n\');location=\'\"&request.ServerVariables(\"HTTP_REFERER\")&\"\'\"
response.end
end if
next
next
end if
%>
----------------------------------------------
2。增加纪录
<%
if request(\"action\")=\"add\" then
name=request.form(\"name\")
content=request.form(\"content\")
set rs=server.createobject(\"adodb.recordset\")
sql=\"select * from biao\"
rs.open sql,conn,3,2
rs.addnew
rs(\"name\")=name
if content<>\"\" then
rs(\"content\")=content
else
rs(\"content\")=null
end if
rs(\"date\")=date()
rs.update
rs.close
set rs=nothing
response.write \"<script language=javascript>alert(\'添加成功！\');location.href(\'index.asp\');
--------------------------------------
3.显示记录
<%
set rs=server.createobject(\"adodb.recordset\")
sql=\"select * from biao order by id desc\"
\'sql=\"select top 10 * from biao order by id desc\"
rs.open sql,conn,1,1
rs.pagesize=15 \'-------设置每页显示的记录数
dim page
page=request(\"page\")
if page<>\"\" and IsNumeric(page) then
page=clng(page)
else
page=1
end if
n=rs.pagecount
if page>n then
page=clng(n)
end if
if rs.eof then
response.write\"暂没有信息！\"
\'response.end
else
rs.absolutepage=page
end if
i=0
do while not rs.eof and i
--------如果是每行显示n个纪录开始----------------------------
<%
do while not rs.eof and i\"
end if
%>
--------如果是每行显示n个纪录结束-----------------------------
<%=rs(\"id\")%>
<% rs.movenext
i=i+1
loop
%>
<%
response.write(\"共\"&rs.recordcount&\"条信息 \")
if page<>1 then
response.write(\"首页 \")
else
response.write(\"首页 \")
end if
if page>1 then
response.write(\"上一页 \")
else
response.write(\"上一页 \")
end if
if page下一页 \")
else
response.write(\"下一页 \")
end if
if page<>n then
response.write(\"尾页 \")
else
response.write(\"尾页 \")
end if
response.write(\" 当前页：\"&page&\"/\"&n&\"\")
%>
转到：
