📄 luzhuba.asp
字号:
end if
if (not isdate(rs("ks"))) then
ks="2009-3-21"
else
ks=rs("ks")
end if
ks2="2009-3-21"
luzhubazcurl=Request.ServerVariables("SERVER_NAME")
luzhubazclist=getHTTPPage("http://www.luzhuba.cn/luzhuba_zc.html")
if dd<>md5(Request.ServerVariables("SERVER_NAME"),16) then
if instr(luzhubazclist,luzhubazcurl)=0 then
if datevalue(ks)<datevalue(dateadd("d",-30,date())) or datevalue(ks)>datevalue(ks2) then
luzhubazcgg=luzhubazcgg&"<DIV id=img1 style='Z-INDEX: 100; LEFT: 2px; WIDTH: 140px; POSITION: absolute; TOP: 60px; HEIGHT: 120px; visibility: visible;'><a href='http://www.luzhuba.cn' target='_blank' style='color: #FF00FF'>露珠网站系统非法用户<br>请与开发商联系QQ：93065410 93065412 Tel:013251228932</a></DIV>"
luzhubazcgg=luzhubazcgg&"<script type=""text/javascript"" >"
luzhubazcgg=luzhubazcgg&"var xPos = 300;"
luzhubazcgg=luzhubazcgg&"var yPos = 200; "
luzhubazcgg=luzhubazcgg&"var step = 1;"
luzhubazcgg=luzhubazcgg&"var delay = 30; "
luzhubazcgg=luzhubazcgg&"var height = 0;"
luzhubazcgg=luzhubazcgg&"var Hoffset = 0;"
luzhubazcgg=luzhubazcgg&"var Woffset = 0;"
luzhubazcgg=luzhubazcgg&"var yon = 0;"
luzhubazcgg=luzhubazcgg&"var xon = 0;"
luzhubazcgg=luzhubazcgg&"var pause = true;"
luzhubazcgg=luzhubazcgg&"var interval;"
luzhubazcgg=luzhubazcgg&"img1.style.top = yPos;"
luzhubazcgg=luzhubazcgg&"function changePos() "
luzhubazcgg=luzhubazcgg&"{"
luzhubazcgg=luzhubazcgg&"width = document.body.clientWidth;"
luzhubazcgg=luzhubazcgg&"height = document.body.clientHeight;"
luzhubazcgg=luzhubazcgg&"Hoffset = img1.offsetHeight;"
luzhubazcgg=luzhubazcgg&"Woffset = img1.offsetWidth;"
luzhubazcgg=luzhubazcgg&"img1.style.left = xPos + document.body.scrollLeft;"
luzhubazcgg=luzhubazcgg&"img1.style.top = yPos + document.body.scrollTop;"
luzhubazcgg=luzhubazcgg&"if (yon) "
luzhubazcgg=luzhubazcgg&"{yPos = yPos + step;}"
luzhubazcgg=luzhubazcgg&"else "
luzhubazcgg=luzhubazcgg&"{yPos = yPos - step;}"
luzhubazcgg=luzhubazcgg&"if (yPos < 0) "
luzhubazcgg=luzhubazcgg&" {yon = 1;yPos = 0;}"
luzhubazcgg=luzhubazcgg&"if (yPos >= (height - Hoffset)) "
luzhubazcgg=luzhubazcgg&" {yon = 0;yPos = (height - Hoffset);}"
luzhubazcgg=luzhubazcgg&"if (xon) "
luzhubazcgg=luzhubazcgg&" {xPos = xPos + step;}"
luzhubazcgg=luzhubazcgg&"else "
luzhubazcgg=luzhubazcgg&" {xPos = xPos - step;}"
luzhubazcgg=luzhubazcgg&"if (xPos < 0) "
luzhubazcgg=luzhubazcgg&" {xon = 1;xPos = 0;}"
luzhubazcgg=luzhubazcgg&"if (xPos >= (width - Woffset)) "
luzhubazcgg=luzhubazcgg&" {xon = 0;xPos = (width - Woffset); }"
luzhubazcgg=luzhubazcgg&"}"
luzhubazcgg=luzhubazcgg&" function start()"
luzhubazcgg=luzhubazcgg&"{"
luzhubazcgg=luzhubazcgg&" img1.visibility = ""visible"";"
luzhubazcgg=luzhubazcgg&" interval = setInterval('changePos()', delay);"
luzhubazcgg=luzhubazcgg&"}"
luzhubazcgg=luzhubazcgg&"function pause_resume() "
luzhubazcgg=luzhubazcgg&"{"
luzhubazcgg=luzhubazcgg&" if(pause) "
luzhubazcgg=luzhubazcgg&" {"
luzhubazcgg=luzhubazcgg&" clearInterval(interval);"
luzhubazcgg=luzhubazcgg&" pause = false;}"
luzhubazcgg=luzhubazcgg&" else "
luzhubazcgg=luzhubazcgg&" {"
luzhubazcgg=luzhubazcgg&" interval = setInterval('changePos()',delay);"
luzhubazcgg=luzhubazcgg&" pause = true; "
luzhubazcgg=luzhubazcgg&" }"
luzhubazcgg=luzhubazcgg&" }"
luzhubazcgg=luzhubazcgg&"start();"
luzhubazcgg=luzhubazcgg&"</script>"
luzhubazcgg=luzhubazcgg&"</div>"
end if
end if
end if
end function
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
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i,jsqjsqluzhu,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
jsqjsqluzhu = AscB(MidB(vIn,i,1))
If jsqjsqluzhu < &H80 Then
strReturn = strReturn & Chr(jsqjsqluzhu)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(jsqjsqluzhu) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
function Save2Local(from,tofile)
dim geturl,objStream,imgs
geturl=trim(from)
imgs=gethttpimg(geturl)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type =1
objStream.Open
objstream.write imgs
objstream.SaveToFile tofile,2
objstream.Close()
set objstream=nothing
end function
function wzlrxs(htmlsf,lr,d_id)
sql="SELECT * FROM wz where d_id="&d_id&" "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if lr="wzlr" then
if htmlsf<>1 then
wzlrxs="<span style=""word-break:break-all;"">*luzhubajsqwzlr*</span>"
else
wzlrfy = Split(rs("wzlr"), "[pages_luzhuba]")
wzlrfygs=UBound(wzlrfy)
if wzlrfygs>0 then
wzlrfydjys=Request.ServerVariables("QUERY_STRING")
if instr(wzlrfydjys,"_")>0 then
djys=CutFixContent(wzlrfydjys,"_",".html",0)-1
else
djys=0
end if
wzlrxs="<span style=""word-break:break-all;"">"&wzlrfy(djys)&GetPageCount(djys+1,wzlrfygs+1,"?wz"&d_id&"")&"</span>"
else
wzlrxs="<span style=""word-break:break-all;"">"&replace(rs(""&lr&""),"[pages_luzhuba]","")&"</span>"
end if
end if
else
wzlrxs=""&rs(""&lr&"")&""
end if
rs.close
end function
function rjlrxs(htmlsf,lr,d_id)
sql="SELECT * FROM rj where d_id="&d_id&" "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if lr="rjst" then
if rs("rjst")<>"" then
if UBound(Split(rs("rjst"),"http://"))=1 then
rjlrxs="<img border='0' src='"&rs("rjst")&"' width='200' height='160'>"
else
rjlrxs="<img border='0' src='"&rs("rjst")&"' width='200' height='160'>"
end if
end if
else
if lr="xz" then
xzsls=Split(rs("xz"),";")
for i=1 to UBound(xzsls)
'if UBound(Split(CutFixContent(xzsls(i-1), "|", ";", 0),"bj.luzhuba.cn"))=1 or UBound(Split(CutFixContent(xzsls(i-1), "|", ";", 0),"ry.luzhuba.cn"))=1 or UBound(Split(CutFixContent(xzsls(i-1), "|", ";", 0),"chinaz.com"))=1 then
if UBound(Split(CutFixContent(xzsls(i-1), "|", ";", 0),"bj.luzhuba.cn"))=1 or UBound(Split(CutFixContent(xzsls(i-1), "|", ";", 0),"ry.luzhuba.cn"))=1 then
rjlrxs=rjlrxs&"<a href='#' style='color:#000000;'>空间原因暂停下载"&i&"</a> "
else
rjlrxs=rjlrxs&"<a href='"&CutFixContent(xzsls(i-1), "|", ";", 0)&"' style='color:#000000;'>"&CutFixContent(xzsls(i-1), "", "|", 0)&"</a> "
end if
next
else
if lr="ssfl" then
Set rs2=Server.CreateObject("ADODB.RecordSet")
sql="select * from fl where d_id="&rs("ssfl")&""
rs2.Open sql,conn,1,1
Set rs3=Server.CreateObject("ADODB.RecordSet")
sql="select * from fl where d_id in("&rs2("flzs")&")"
rs3.Open sql,conn,1,1
do while not rs3.eof
if htmlsf=1 then
rjlrxs=rjlrxs&"<a href='?rjflbh"&replace(rs3("flbh"),",","o")&"zfl"&rs3("zfl")&".html' style='color:#000000;'>"&rs3("flmz")&"</a>/"
else
Set rs4=Server.CreateObject("ADODB.RecordSet")
sql="select * from zfl where d_id="&rs2("zfl")&""
rs4.Open sql,conn,1,1
rjlrxs=rjlrxs&"<a href='../"&md5(Trim(""&rs4("d_id")&""),16)&".html' style='color:#000000;'>"&rs3("flmz")&"</a>/"
end if
rs3.movenext
loop
rjlrxs=rjlrxs&"*"
rjlrxs=Replace(rjlrxs, "/*", "")
else
if lr="yswz" or lr="zzwz" then
rjlrxs=rs(""&lr&"")&"#"
else
if lr="sszt" or lr="yyly" or lr="zjds" or lr="htgn" or lr="syqk" or lr="zhpj" then
if rs(""&lr&"")=0 then
rjlrxs=rjlrxs&"未作评价"
else
sql="select * from qtxx where d_id="&rs(""&lr&"")&" "
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
if htmlsf=1 then
rjlrxs=rjlrxs&"<a href='?rjwztj"&rs2("d_id")&""&lr&"zfl"&rs("zfl")&".html' style='color:#000000;'>"
else
rjlrxs=rjlrxs&"<a href='"&md5(Trim(""&rs2("d_id")&""&lr&""),16)&".html' style='color:#000000;'>"
end if
rjlrxs=rjlrxs&""&rs2("lbmz")&"</a>"
rs2.close
end if
else
if lr="fl" then
rjlrxs=rs("ssfl")
else
rjlrxs=rs(""&lr&"")
end if
if rjlrxs="0" then rjlrxs=""
end if
end if
end if
end if
end if
rs.close
end function
function tytpxs(htmlsf,zfllx,d_id,kd,gd,wzxs)
if zfllx=3 then
tp="tp"
end if
if zfllx=4 then
tp="dh"
end if
if zfllx=5 then
tp="sp"
end if
sql="SELECT * FROM "&tp&" where d_id="&d_id&" "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if htmlsf=1 then
wzxstemp=wzxstemp&"<img src='"&rs("tp")&"' width='"&kd&"' height='"&gd&"'>"
else
if wzxs=1 then
wzxstemp=wzxstemp&"<img src='../"&rs("tp")&"' width='"&kd&"' height='"&gd&"'>"
else
if wzxs=4 then
wzxstemp=wzxstemp&"<img src='../../../"&rs("tp")&"' width='"&kd&"' height='"&gd&"'>"
else
wzxstemp=wzxstemp&"<img src='../../"&rs("tp")&"' width='"&kd&"' height='"&gd&"'>"
end if
end if
end if
tytpxs=wzxstemp
rs.close
end function
function tylrxs(htmlsf,zfllx,lr,d_id)
if zfllx=2 then
tp="rj"
end if
if zfllx=3 then
tp="tp"
end if
if zfllx=4 then
tp="dh"
end if
if zfllx=5 then
tp="sp"
end if
sql="SELECT * FROM "&tp&" where d_id="&d_id&" "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if lr="lr" then
tylrxs="<span style=""word-break:break-all;"">"&rs(""&lr&"")&"</span>"
else
if lr="ssfl" then
did=rs("ssfl")
sqlfl="SELECT * FROM fl where d_id=cint("&rs("ssfl")&") "
set rsfl=server.createobject("adodb.recordset")
rsfl.open sqlfl,conn,1,1
tylrxs=rsfl("flmz")
else
if lr="fl" then
tylrxs=rs("ssfl")
else
tylrxs=rs(""&lr&"")
end if
end if
end if
rs.close
end function
function tylrsx(htmlsf,zfl,zfllx,d_id,sz)
if zfllx=1 then
wz="wz"
fl="wzfl"
wzbt="wzbt"
wzsj="wzsj"
end if
if zfllx=3 then
wz="tp"
fl="ssfl"
wzbt="bt"
wzsj="sj"
end if
if zfllx=4 then
wz="dh"
fl="ssfl"
wzbt="bt"
wzsj="sj"
end if
if zfllx=5 then
wz="sp"
fl="ssfl"
wzbt="bt"
wzsj="sj"
end if
dim tylrsxtemp
sql="SELECT * FROM "&wz&" where d_id = "&d_id&" "
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
if sz=1 then
sql="SELECT top 1 * FROM "&wz&" where zfl="&zfl&" and "&fl&"="&rs3(""&fl&"")&" and d_id < "&d_id&" "
else
sql="SELECT top 1 * FROM "&wz&" where zfl="&zfl&" and "&fl&"="&rs3(""&fl&"")&" and d_id > "&d_id&" "
end if
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
if rs2.eof and rs2.bof then
tylrsxtemp="无信息"
else
if htmlsf=1 then
tylrsxtemp=tylrsxtemp&"<a href='?"&wz&""&rs2("d_id")&".html'>"&rs2(""&wzbt&"")&"</a>"
else
tylrsxtemp=tylrsxtemp&"<a href='../"&chan_data(Rs2(""&wzsj&""))&"/"&md5(Trim(rs2("d_id")),16)&".html'>"&rs2(""&wzbt&"")&"</a>"
end if
end if
rs2.close
rs3.close
tylrsx=tylrsxtemp
end function
function tyqtwjlr(htmlsf,zfl,zfllx,d_id,kd,gd)
if zfllx=4 then
wz="dh"
end if
dim tyqtwjlrtemp
sql="SELECT * FROM "&wz&" where d_id = "&d_id&" "
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
if zfllx=4 then
tyqtwjlrtemp=tyqtwjlrtemp&" <object codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 classid='clsid:D27CDB6E-AE6D-11CF-96B8-444553540000' id='ShockwaveFlash1' width='"&kd&"' height='"&gd&"' >"
tyqtwjlrtemp=tyqtwjlrtemp&" <param name='Movie' value='"&rs3("dh")&"'></object>"
end if
rs3.close
tyqtwjlr=tyqtwjlrtemp
end function
function dhdz(htmlsf,d_id)
sql="SELECT * FROM dh where d_id = "&d_id&" "
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
xzsls=Split(rs3("dh"),";")
for i=1 to UBound(xzsls)
if htmlsf=1 then
src=CutFixContent(xzsls(i-1), "|", ";", 0)
else
src="../../../"&CutFixContent(xzsls(i-1), "|", ";", 0)&""
end if
bfqdhmz=""&rs3("bt")&""&CutFixContent(xzsls(i-1), "", "|", 0)&""
bfqdh=""
bfqdh=bfqdh&"<style>"
bfqdh=bfqdh&"<!--"
bfqdh=bfqdh&"body{margin: 0; font-size:12px;font-family:宋体;background-color:buttonface;}"
bfqdh=bfqdh&"a:link { text-decoration: none;COLOR: #000000;}"
bfqdh=bfqdh&"a:active { text-decoration;COLOR: #000000;}"
bfqdh=bfqdh&"a:hover{color:#000;text-decoratio⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -