lrcv3a.asp

jkjgkjbkjklb hnbbnl,bmnmn

<%

'定义系统参数
Option Explicit
Dim SiteName,SiteUrl,SiteOpen,SiteCloseStr,i
Dim PageCode,PageCodes
dim Conn,Rs,Sqlstr
SiteName="" '站点名称
SiteUrl="http://localhost/" '站点路径
SiteOpen=True '站点是否开放，Ture为开放，False为关闭
SiteCloseStr="站点升级中！请稍候访问。。。" '站点关闭时显示的提示

'==========================================
'判断站点是否开启
'==========================================
If SiteOpen=False Then
	Response.Write(SiteCloseStr)
	Response.End()
End If

'==========================================
'正则表达式函数区
'==========================================	
Function ReplaceTest(patrn,replStr,str)
    Dim regEx,str1
	str1=str
    Set regEx = New RegExp
    regEx.Pattern = patrn
    regEx.IgnoreCase = True
	regEx.Global = True 
    ReplaceTest = regEx.Replace(str1,replStr)
End Function 

Function RegExpTest(patrn, strng)
	Dim regEx, Matchs, Matches, RetStr
	Set regEx = New RegExp 
	regEx.Pattern = patrn 
	regEx.IgnoreCase = True
	regEx.Global = True
	Set Matches = regEx.Execute(strng) 
	For Each Matchs in Matches
		RetStr = RetStr & Matchs.Value & "||"
	Next 
	RegExpTest = RetStr 
End Function 


'==========================================
'采集函数区
'==========================================

'获取页面源代码函数
Function GetHttpPage(HttpUrl)
	If IsNull(HttpUrl)=True Then
		Response.Write("请输入网址！")
		Exit Function
	End If
	Dim Http
	Set Http=server.createobject("MSX"&"ML2.XML"&"HTTP")
	Http.open "GET",HttpUrl,False
	Http.Send()
	If Http.Readystate<>4 then
		Set Http=Nothing
		response.Write("该网页无法访问！")
		Exit function
	End if
	GetHttpPage=BytesToBSTR(Http.responseBody,"gb2312")
	Set Http=Nothing
	If Err.number<>0 then
		Err.Clear
		Response.Write(SiteCloseStr)
		Response.End()
	End If
End Function

'转换编码函数
Function BytesToBstr(Body,Cset)
	Dim Objstream
	Set Objstream = Server.CreateObject("adod"&"b.stream")
	Objstream.Type = 1
	Objstream.Mode =3
	Objstream.Open
	Objstream.Write body
	Objstream.Position = 0
	Objstream.Type = 2
	Objstream.Charset = Cset
	BytesToBstr = Objstream.ReadText 
	Objstream.Close
	set Objstream = nothing
End Function
%>
<%
If Request.QueryString("Demo")<>"" Then
    PageCode=GetHttpPage(Request.QueryString("Demo"))
Else
    PageCode=GetHttpPage("http://ac61.cn/3/geci0.asp?ch="&Request.QueryString("ch")&"")
End If
PageCodes=PageCode
PageCode=ReplaceTest("<\?xml version=(.|\n)*?<url><!\[CDATA\[","",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("\]\]></url>(.|\n)*?</video>","",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("www.Feiyes.net","www.ac61.cn",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("Feiyes.net","www.ac61.cn",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("飞叶在线","阿常娱乐休闲阁",PageCodes)
Response.Write(PageCode)
%>