| Author |
 Topic  |
|
|
top
Junior Member
150 Posts |
 Posted - 24 August 2009 : 10:58:41
|
There are a large video of series and must put a link Click to Watch Episode
How to develop a video in the preview instead of the accumulation of video
Making it into (to see video Click )
[youtube][/youtube] , [vidgoogle][/vidgoogle] , [wmv][/wmv] |
|
|
iane87
Starting Member
USA
42 Posts |
Posted - 24 August 2009 : 16:49:39
|
This will require quite a bit of additional code. First, you need to edit inc_func_common.asp and instead of replacing [wmv][/wmv] with the windows media player plug-in code it must be replaced with
<a target="_blank" href="pop_video.asp?Type=WMV&File=MyMovie.wmv">Click here to play video</a>
Then you need to write the code for the file pop_video.asp to generate the video plug-in based on the query string. You can use Request.QueryString("File") to get the value from the query string so you know which video to load. |
Twitter MOD | Search Provider MOD | W3C Valid RSS MOD | Google Translate MOD |
 |
|
|
top
Junior Member
150 Posts |
Posted - 24 August 2009 : 17:11:41
|
hi iane87
Is it possible more clarify the law
What is the law pop_video.asp |
Edited by - top on 24 August 2009 17:18:31 |
|
|
|
iane87
Starting Member
USA
42 Posts |
Posted - 24 August 2009 : 17:39:37
|
Ok, I will write example code for you for WMV files. You will need to add the code for you tube and vidgoogle as well.
<%
select case Request.QueryString("Type")
case "WMV"
response.write "<object classid='clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95' width='480' height='360' codebase='http://www.microsoft.com/Windows/MediaPlayer/'>" & vbNewLine & _
"<param name='Filename' value='" Request.QueryString("File") & "'>" & vbNewLine & _
"<param name='AutoStart' value='true'>" & vbNewLine & _
"<param name='ShowControls' value='true'>" & vbNewLine & _
"<param name='BufferingTime' value='2'>" & vbNewLine & _
"<param name='ShowStatusBar' value='true'>" & vbNewLine & _
"<param name='AutoSize' value='true'>" & vbNewLine & _
"<param name='InvokeURLs' value='false'>" & vbNewLine & _
"<embed src='" & Request.QueryString("File") & "' type='application/x-mplayer2' autostart='1' enabled='1' showstatusbar='1' showdisplay='1' showcontrols='1' pluginspage='http://www.microsoft.com/Windows/MediaPlayer/' CODEBASE='http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,0,0' width='480' height='360'></embed>" & vbNewLine & _
"</object>"
case "YouTube"
'Add you tube code here
case "vidGoogle"
'Add vidGoogle code here
end select
%> |
Twitter MOD | Search Provider MOD | W3C Valid RSS MOD | Google Translate MOD |
|
|
|
top
Junior Member
150 Posts |
Posted - 24 August 2009 : 18:06:38
|
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/forum/pop_video.asp, line 50
"<param name='Filename' value='" Request.QueryString("File") & "'>" & vbNewLine & _
---------------------------------^
|
|
|
|
iane87
Starting Member
USA
42 Posts |
Posted - 24 August 2009 : 18:22:10
|
OOps forgot the ampersand before Request.QueryString("File") try this:
<%
select case Request.QueryString("Type")
case "WMV"
response.write "<object classid='clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95' width='480' height='360' codebase='http://www.microsoft.com/Windows/MediaPlayer/'>" & vbNewLine & _
"<param name='Filename' value='" & Request.QueryString("File") & "'>" & vbNewLine & _
"<param name='AutoStart' value='true'>" & vbNewLine & _
"<param name='ShowControls' value='true'>" & vbNewLine & _
"<param name='BufferingTime' value='2'>" & vbNewLine & _
"<param name='ShowStatusBar' value='true'>" & vbNewLine & _
"<param name='AutoSize' value='true'>" & vbNewLine & _
"<param name='InvokeURLs' value='false'>" & vbNewLine & _
"<embed src='" & Request.QueryString("File") & "' type='application/x-mplayer2' autostart='1' enabled='1' showstatusbar='1' showdisplay='1' showcontrols='1' pluginspage='http://www.microsoft.com/Windows/MediaPlayer/' CODEBASE='http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,0,0,0' width='480' height='360'></embed>" & vbNewLine & _
"</object>"
case "YouTube"
'Add you tube code here
case "vidGoogle"
'Add vidGoogle code here
end select
%> |
Twitter MOD | Search Provider MOD | W3C Valid RSS MOD | Google Translate MOD |
|
|
|
top
Junior Member
150 Posts |
Posted - 24 August 2009 : 18:27:52
|
| Thank you working on wmv very well how to get to the Law on youtube and vidgoogle and flv |
|
|
|
top
Junior Member
150 Posts |
Posted - 25 August 2009 : 07:39:44
|
| I want the law flv |
|
|
|
iane87
Starting Member
USA
42 Posts |
Posted - 25 August 2009 : 15:22:00
|
You need to get the HTML code to play the other videos. If you don't know the HTML you can copy it from your site by right clicking and hitting view source(if you have the video mod and a video on that page) it will begin. It will start with <object> and end with </object> Then goto http://www.123marbella.net/response.write.generator/ and convert it to asp code. Then replace the paths with
value='" Request.QueryString("File") & "'
If you get an error let me know and I will help you. |
Twitter MOD | Search Provider MOD | W3C Valid RSS MOD | Google Translate MOD |
|
|
|
top
Junior Member
150 Posts |
Posted - 29 August 2009 : 19:53:09
|
Very good bravo
Thank you |
|
|
| |
Topic |
|
Topic Locked
