play.asp

最新电视插件(推荐),可用于小学教育演示。

<!--#include file=jzdvd.inc-->
<%
Server.ScriptTimeOut=120
dim id,zt_top,zt_body
on error resume next 
	id=request("id")
	if id="" then id=1
	url="http://www.jzdvd.com/html/play/play_"&id&".html"
	zt_code=getHTTPPage(url)	
	if err.number=0 then
	'导航部分，紫色烈焰制作，QQ8963017，请注意保留本站链接，否则程序随时会有改动，有弹出窗口时不要找我。
	start=Instr(zt_code,"<!--")
	over=Instr(zt_code,"</html>")
	zt_top=mid(zt_code,start,over-start)	
	zt_top=replace(zt_top,"../images/css.css","style.css")
	zt_top=replace(zt_top,"../images","images")
	zt_top=replace(zt_top,"/play.asp?-.asp","view.asp")
	else 
		wscript.echo err.description 
	end if
%>
<%=zt_top%>
<%conn.close
        Set conn=nothing
		%>
<%
	  function getHTTPPage(url) 
		on error resume next 
		dim http 
		set http=Server.createobject("Microsoft.XMLHTTP") 
		Http.open "GET",url,false 
		Http.send() 
		if Http.readystate<>4 then
			exit function 
		end if 
		getHTTPPage=bytes2BSTR(Http.responseBody) 
		set http=nothing
		if err.number<>0 then err.Clear  
	end function 
	Function bytes2BSTR(vIn) 
		dim strReturn 
		dim i1,ThisCharCode,NextCharCode 
		strReturn = "" 
		For i1 = 1 To LenB(vIn) 
			ThisCharCode = AscB(MidB(vIn,i1,1)) 
			If ThisCharCode < &H80 Then 
				strReturn = strReturn & Chr(ThisCharCode) 
			Else 
				NextCharCode = AscB(MidB(vIn,i1+1,1)) 
				strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
				i1 = i1 + 1 
			End If 
		Next 
		bytes2BSTR = strReturn 
	End Function 
%>