search.asp

来自「最新电视插件(推荐),可用于小学教育演示。」· ASP 代码 · 共 56 行

<!--#include file=jzdvd.inc-->
<%
Server.ScriptTimeOut=120
dim id,zt_top,zt_body
on error resume next 
	id=request("keyword")
	if id="" then id=1
	page=request("page")
	if page="" then page=1
	url="http://www.jzdvd.com/search.asp?page="&page&"&keyword="&id&""
	zt_code=getHTTPPage(url)	
	if err.number=0 then
	'导航部分，紫色烈焰制作，QQ8963017，请注意保留本站链接，否则程序随时会有改动，有弹出窗口时不要找我。
	'搜索部分
	start=Instr(zt_code,"<!--搜索开始-->")
	over=Instr(zt_code,"<!--搜索结束-->")
	zt_top1=mid(zt_code,start,over-start)
	zt_top1=replace(zt_top1,".html","")
	zt_top1=replace(zt_top1,"html/play/play_","play.asp?id=")
	else 
		wscript.echo err.description 
	end if
%><!--#include file="head.asp"-->
<%=zt_top1%>
<!-- #include file="bottom.asp" --> 
<%
	  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 
%>