<%=WebName %>-<%=WebUrl %>

<% dim conn,connstr,db db="admin/#dataasd.asp" '数据库文件位置 on error resume next if err then err.clear else set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(db) end if sub CloseConn() conn.close set conn=nothing end sub %> <% Dim WebName,WebUrl,WebCeo,WebMail,hostname Dim StealUrl,Stealpic,ClassName Dim rec,sqlstr set rec=server.createobject("adodb.recordset") sqlstr="select * from config" rec.open sqlstr,conn,1,1 if rec.bof and rec.eof then response.write "对不起!数据中没有相关数据!" else WebName = rec("WebName") '网站名称 WebUrl = rec("WebUrl") '网站地址 WebHost = rec("WebHost") '网站HOST WebCeo = rec("WebCeo") '站长姓名 WebMail = rec("WebMail") '联系E-Mail WebNumber = rec("WebNumber") '网站备案号 StealUrl = rec("StealUrl") '目标网站URL Stealpic = rec("Stealpic") '目标网站电影图片文件夹 Stealhost = rec("Stealhost") '目标网站host ClassName = rec("ClassName") '电影分类 DefaultPage = rec("DefaultPage") '首页总页数 TopPage = rec("TopPage") '首页总页数 MovieClass = rec("MovieClass") '电影总分类数 ClassPageMax= rec("ClassPageMax") '分类中页面数最大的值 Movie = rec("Movie") '电影总数 MovieUrl = rec("username") '电影集数 Server.ScriptTimeOut=rec("TimeOut") '设置采集的最长执行时间 Pic = rec("pic") '电影集数 rec.close set rec=nothing end if '静态设置 Dim Showmode1,Showmode2,Classdir,Moviedir,Defaultname set rec=server.createobject("adodb.recordset") sqlstr="select * from htmlset" rec.open sqlstr,conn,1,1 if rec.bof and rec.eof then response.write "对不起!数据中没有相关数据!" else Showmode1 = rec("showmode1") '网站首页显示模式HTM,ASP Showmode2 = rec("showmode2") '网站分类及电影页面HTM,ASP Classdir = rec("classdir") '网站分类目标名 Moviedir = rec("moviedir") '电影页面目录名 Defaultname = rec("defaultname") '静态首页文件名 rec.close set rec=nothing end if CloseConn() Version="1.2" %> <% Dim wstr,str,url,start,over '定义专用变量 '初始化通道 On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function GetBody(url) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send GetBody = .ResponseBody End With Set Retrieval = Nothing End Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.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 Function Newstring(wstr,strng) Newstring=Instr(lcase(wstr),lcase(strng)) if Newstring<=0 then Newstring=Len(wstr) End Function Function Newstring1(wstr,start,strng) Newstring1=Instr(start,lcase(wstr),lcase(strng)) if Newstring1<=0 then Newstring1=Len(wstr) End Function %> <% If Showmode1="HTM" then response.Redirect Defaultname End if Dim arry,main url=StealUrl wstr=getHTTPPage(url) wstr=replace(wstr,"../","") wstr=replace(wstr,StealUrl,"") wstr=replace(wstr,"sort/",Classdir) wstr=replace(wstr,"soft/",Moviedir) If showmode2="ASP" then wstr=replace(wstr,Classdir,"Class.asp?type=") wstr=replace(wstr,Moviedir,"Movie.asp?id=") wstr=replace(wstr,".htm","") wstr=replace(wstr,"ads8","ads8.htm") End if wstr=replace(wstr,"http://www.x828.com/","") If pic=1 then wstr=replace(wstr,Stealpic,"pic.asp?id=") else wstr=replace(wstr,Stealpic,"softpic.asp?id=") End if wstr=replace(wstr,"v/","images/") arry=split(wstr,"") wstr=arry(2) start=Newstring(wstr,"

") over=Newstring(wstr,"www.lalaba.com|www.2droom.com") main=mid(wstr,start,over-start) %> <%=WebName %>-<%=WebUrl %> name=keywords> name=description>

<%=main%>

Optimized to 1024x768 to Firefox,Netscape,Opera,MS-IE6+. Site powered by <%=Webhost%>.Template design:<%=WebCeo%>