<!DOCTYPE HTML>
<html>
<head>
<meta http-equiv='Content-Type' c />
<title>放狐表就不行</title>
</head>
<body>
<center><div id='video'><div id='a1'></div></div></center>
<script type='text/javascript' src='js/player.js'></script>
<script type='text/javascript'>
var flashvars={
f:'',
c:0,
b:1
};
var params={bgcolor:'#FFF',allowFullScreen:true,allowScriptAccess:'always'};
CKobject.embedSWF('ckplayer/ckplayer.swf','a1','ckplayer_a1','600','400',flashvars,params);
var video=['video/视频1.mp4->video/mp4'];
var support=['iPad','iPhone','ios','android+false','msie10+false','webKit'];
CKobject.embedHTML5('video','ckplayer_a1',600,400,video,flashvars,support);
</script>
</body>
</html>
放狐表的代码如下:
Dim e As RequestEventArgs = args(0)
Dim sb As New StringBuilder
sb.AppendLine("<!DOCTYPE HTML>")
sb.AppendLine("<html>")
sb.AppendLine("<head>")
sb.AppendLine("<meta http-equiv='Content-Type' c />")
sb.AppendLine("<title>放狐表就不行</title>")
sb.AppendLine("</head>")
sb.AppendLine("<body>")
sb.AppendLine("<center><div id='video'><div id='a1'></div></div></center>")
sb.AppendLine("<script type='text/javascript' src='js/player.js'></script>")
sb.AppendLine("<script type='text/javascript'>")
sb.AppendLine("
var flashvars={")
sb.AppendLine("
f:'',")
sb.AppendLine("
c:0,")
sb.AppendLine("
b:1")
sb.AppendLine("
};")
sb.AppendLine("
var params={bgcolor:'#FFF',allowFullScreen:true,allowScriptAccess:'always'};")
sb.AppendLine("
CKobject.embedSWF('ckplayer/ckplayer.swf','a1','ckplayer_a1','600','400',flashvars,params);")
sb.AppendLine("
var video=['video/视频1.mp4->video/mp4'];")
sb.AppendLine("
var support=['iPad','iPhone','ios','android+false','msie10+false','webKit'];")
sb.AppendLine("
CKobject.embedHTML5('video','ckplayer_a1',600,400,video,flashvars,support);")
sb.AppendLine(" </script>")
sb.AppendLine("</body>")
sb.AppendLine("</html>")
e.WriteString(sb.ToString)