luzhuba.asp

露珠网站是一个以文章类、下载类、图片类、动画类、视频类为主的综合网站。我们的目标：麻雀虽小(223kb)

if btxs=1 then
wzxstemp=wzxstemp&""&qtxx(rs(""&btzt&""),1)&";color:#"&rs(""&btys&"")&""
else
if btqtxszt<>"" then
wzxstemp=wzxstemp&"font-family:"&btqtxszt&";"
end if
if btqtxsys<>"" then
wzxstemp=wzxstemp&"color:"&btqtxsys&";"
end if
end if
wzxstemp=wzxstemp&"'>"
wzxstemp=wzxstemp&"[演示程序]</a>"
end if
if rs("btlj")<>"" then
wzxstemp=wzxstemp&"<a href='"&rs("btlj")&"' target='_blank'"
else
if htmlsf=1 then
wzxstemp=wzxstemp&"<a href='?"&wz&""&rs("d_id")&".html'"  
else
if wzxs=1 then
wzxstemp=wzxstemp&"<a href='"&zflwz&"/"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html'"  
else
if wzxs=4 then
wzxstemp=wzxstemp&"<a href='../"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html'"  
else
wzxstemp=wzxstemp&"<a href='"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html'"  
end if 
end if
end if
end if
wzxstemp=wzxstemp&" style='font-size: "&zh&";"
if btxs=1 then
wzxstemp=wzxstemp&""&qtxx(rs(""&btzt&""),1)&";color:#"&rs(""&btys&"")&""
else
if btqtxszt<>"" then
wzxstemp=wzxstemp&"font-family:"&btqtxszt&";"
end if
if btqtxsys<>"" then
wzxstemp=wzxstemp&"color:"&btqtxsys&";"
end if
end if
wzxstemp=wzxstemp&"' title='"&rs(""&wzbt&"")&"'  target=_blank>"
wzxstemp=wzxstemp&""&gotTopic(rs(""&wzbt&""),btkd)&"</ul></a>||||"
end if
if xslx=2 then
if rs(""&wztp&"")<>"" then
wzxstemp=wzxstemp&"<div style='margin:2px;text-align:center; "
if imgzx=1 then
wzxstemp=wzxstemp&"float: left;"
end if
wzxstemp=wzxstemp&"' >"
wzxstemp=wzxstemp&"<ul style='BORDER-RIGHT: #ddd 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #ddd 1px solid; PADDING-LEFT: 4px; BACKGROUND: #eee; PADDING-BOTTOM: 4px; MARGIN: 0px; BORDER-LEFT: #ddd 1px solid;  COLOR: #f60; PADDING-TOP: 4px; BORDER-BOTTOM: #ddd 1px solid; WIDTH: "&imgkd&"px;HEIGHT: "&imggd&"px;'>"
imgkd2=imgkd
imggd2=imggd
if rs("btlj")<>"" then
wzxstemp=wzxstemp&"<a href='"&rs("btlj")&"' target='_blank' style='color:#"&rs(""&btys&"")&";'>"
else
if htmlsf=1 then
wzxstemp=wzxstemp&"<a href='?"&wz&""&rs("d_id")&".html' style='color:#0000FF;'  target=_blank>"
else
if wzxs=1 then
wzxstemp=wzxstemp&"<a href='"&zflwz&"/"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html' style='color:#0000FF;'  target=_blank>"
else
if wzxs=4 then
wzxstemp=wzxstemp&"<a href='../"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html' style='color:#0000FF;'  target=_blank>"
else
wzxstemp=wzxstemp&"<a href='"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html' style='color:#0000FF;'  target=_blank>"
end if
end if
end if
end if
if htmlsf=1 then
wzxstemp=wzxstemp&"<img src='"&rs(""&wztp&"")&"' width='"&imgkd2&"' height='"&imggd2&"' title='"&rs(""&wzbt&"")&"' >"
else
if wzxs=1 then
wzxstemp=wzxstemp&"<img src='../"&rs(""&wztp&"")&"' width='"&imgkd2&"' height='"&imggd2&"' title='"&rs(""&wzbt&"")&"' >"
else
if wzxs=4 then
wzxstemp=wzxstemp&"<img src='../../../"&rs(""&wztp&"")&"' width='"&imgkd2&"' height='"&imggd2&"' title='"&rs(""&wzbt&"")&"' >"
else
wzxstemp=wzxstemp&"<img src='../../"&rs(""&wztp&"")&"' width='"&imgkd2&"' height='"&imggd2&"' title='"&rs(""&wzbt&"")&"' >"
end if
end if
end if
wzxstemp=wzxstemp&"</a></ul>"
if imgbt=1 then
if rs("btlj")<>"" then
wzxstemp=wzxstemp&"<a href='"&rs("btlj")&"' style='color:#0000FF;font-size: "&zh&";color:#"&rs(""&btys&"")&";'  target=_blank>"
else
if htmlsf=1 then
wzxstemp=wzxstemp&"<a href='?"&wz&""&rs("d_id")&".html' style='color:#0000FF;font-size: "&zh&";'  target=_blank>"
else
if wzxs=1 then
wzxstemp=wzxstemp&"<a href='"&zflwz&"/"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html' style='color:#0000FF;font-size: "&zh&";'  target=_blank>"
else
if wzxs=4 then
wzxstemp=wzxstemp&"<a href='../"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html' style='color:#0000FF;font-size: "&zh&";'  target=_blank>"
else
wzxstemp=wzxstemp&"<a href='"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html' style='color:#0000FF;font-size: "&zh&";'  target=_blank>"
end if
end if
end if
end if
wzxstemp=wzxstemp&"<div style='margin:2px;font-size: "&zh&";color:#"&rs(""&btys&"")&";'>"&gotTopic(rs(""&wzbt&""),btkd)&"</a></div>"
end if
wzxstemp=wzxstemp&"</div>||||"
else
wzxstemp=wzxstemp&"无任何图片!"
end if
end if
if xslx=3 then
if zfllx=2 then
if rs("kkjj")=0 then 
wzdt="rjjs" 
else
wzdt="kkjj"
end if
end if
if rs(""&wzdt&"")<>"""" then
if rs("btlj")<>"" then
wzxstemp=wzxstemp&"<a href='"&rs("btlj")&"' style='color:#003596;font-size: "&zh&";color:#"&rs(""&btys&"")&";'  target=_blank>"
else
if htmlsf=1 then
wzxstemp=wzxstemp&"<a href='?"&wz&""&rs("d_id")&".html' style='color:#"&rs(""&btys&"")&";font-size: "&zh&";'  target=_blank>"
else
if wzxs=1 then
wzxstemp=wzxstemp&"<a href='"&zflwz&"/"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html' style='color:#"&rs(""&btys&"")&";font-size: "&zh&";'  target=_blank>"
else
if wzxs=4 then
wzxstemp=wzxstemp&"<a href='../"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html' style='color:#"&rs(""&btys&"")&";font-size: "&zh&";'  target=_blank>"
else
wzxstemp=wzxstemp&"<a href='"&chan_data(""&rs(""&wzsj&"")&"")&"/"&md5(Trim(rs("d_id")),16)&".html' style='color:#"&rs(""&btys&"")&";font-size: "&zh&";'  target=_blank>"
end if
end if
end if
end if
wzdtlr=LCASE(replace(replace(rs(""&wzdt&""),"<br>",""),"<BR>",""))
wzdtlrqca=Split(wzdtlr,"<a href=")
for r=1 to UBound(wzdtlrqca)
wzdtlr=replace(wzdtlr,"<a href="&CutFixContent("*"&wzdtlrqca(r),"*","</a>",0)&"</a>","")
next
wzxstemp=wzxstemp&"<ul style='text-align:center;BACKGROUND-COLOR:#"&ulxsbg&";"&ulxsfs&" PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px;  PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px;HEIGHT: 24px;font-weight: bold' >"&gotTopic(rs(""&wzbt&""),btkd)&"</ul><ul style='BACKGROUND-COLOR:#"&ulxsbg&";"&ulxsfs&" PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px;  PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px'>"&gotTopic(wzdtlr,dt)&"</ul></a>||||"
end if
end if
rs.movenext
loop
if rs.eof and rs.bof then
wzxstemp=wzxstemp&"<font color=""#666666"">目前尚无任何信息！</font>||||"
end if
rs.close
luzhubaxs=lrgsh(wzxstemp)
end function
function lrgsh(lr)
sql="SELECT hh FROM admin "   
set rshh=server.createobject("adodb.recordset")
rshh.open sql,conn,1,1
lrgsh = Replace(lr, "||||", ""&rshh("hh")&"")
lrgsh = Replace(lrgsh, "[luzhubak]", "")
lrgsh = Replace(lrgsh, "[luzhubaj]", "")
rshh.close
end function
function flids(lr)
sql="SELECT  * FROM fl where d_id="&lr&""   
set rsfl=server.createobject("adodb.recordset")
rsfl.open sql,conn,1,1
flids=rsfl("flbh")
rsfl.close
end function
function luzhubawzlink(htmlsf,lr,zfl,wzxs)
zfllx=""
zflwz2=""
lrxs=lr
if InStr(""&lr&"","sszt")>1 then lrxs="sszt"
if InStr(""&lr&"","yyly")>1 then lrxs="yyly"
if InStr(""&lr&"","zjds")>1 then lrxs="zjds"
if InStr(""&lr&"","htgn")>1 then lrxs="htgn"
if InStr(""&lr&"","syqk")>1 then lrxs="syqk"
if InStr(""&lr&"","zhpj")>1 then lrxs="zhpj"
Set rszfl=Server.CreateObject("ADODB.RecordSet") 
sql="select * from zfl where d_id="&zfl&" "
rszfl.Open sql,conn,1,1
zfllx=rszfl("zfllx")
zflwz2=rszfl("zflmzxy")
rszfl.close
if zfllx=1 then
wjm="wzlist.asp"
wz="wz"
end if
if zfllx=2 then
wjm="rjlist.asp"
wz="rj"
end if
if zfllx=3 then
wjm="tplist.asp"
wz="tp"
end if
if zfllx=4 then
wjm="dhlist.asp"
wz="dh"
end if
if zfllx=5 then
wjm="splist.asp"
wz="sp"
end if
if htmlsf=1 then
select case lrxs
case "qbwz":luzhubawzlink="?"&left(wjm,2)&"wztjqbwzzfl"&zfl&".html"
case "fytj":luzhubawzlink="?"&left(wjm,2)&"wztjfytjzfl"&zfl&".html"
case "fyrm":luzhubawzlink="?"&left(wjm,2)&"wztjfyrmzfl"&zfl&".html"
case "sszt":luzhubawzlink="?"&left(wjm,2)&"wztj"&lr&"zfl"&zfl&".html"
case "fyxs":luzhubawzlink="?"&left(wjm,2)&"wztjfyxszfl"&zfl&".html"
case "yyly":luzhubawzlink="?"&left(wjm,2)&"wztj"&lr&"zfl"&zfl&".html"   
case "zjds":luzhubawzlink="?"&left(wjm,2)&"wztj"&lr&"zfl"&zfl&".html"
case "htgn":luzhubawzlink="?"&left(wjm,2)&"wztj"&lr&"zfl"&zfl&".html"
case "syqk":luzhubawzlink="?"&left(wjm,2)&"wztj"&lr&"zfl"&zfl&".html"
case "zhpj":luzhubawzlink="?"&left(wjm,2)&"wztj"&lr&"zfl"&zfl&".html"
Case Else:luzhubawzlink="?"&left(wjm,2)&"flbh"&replace(flids(lr),",","o")&"zfl"&zfl&".html"
end select
else
if wzxs=1 then
select case lrxs
case "qbwz":luzhubawzlink=""&zflwz2&"/ae82b15e98190272.html"
case "fytj":luzhubawzlink=""&zflwz2&"/45afc0dc98501456.html"
case "fyrm":luzhubawzlink=""&zflwz2&"/478398a83c9565b0.html"
case "sszt":luzhubawzlink=""&zflwz2&"/"&md5(Trim(lr),16)&".html"
case "fyxs":luzhubawzlink=""&zflwz2&"/e35f851f38c34945.html"
case "yyly":luzhubawzlink=""&zflwz2&"/"&md5(Trim(lr),16)&".html"
case "zjds":luzhubawzlink=""&zflwz2&"/"&md5(Trim(lr),16)&".html"
case "htgn":luzhubawzlink=""&zflwz2&"/"&md5(Trim(lr),16)&".html"
case "syqk":luzhubawzlink=""&zflwz2&"/"&md5(Trim(lr),16)&".html"
case "zhpj":luzhubawzlink=""&zflwz2&"/"&md5(Trim(lr),16)&".html"
Case Else:luzhubawzlink=""&zflwz2&"/"&md5(lr,16)&".html"
end select
else
if wzxs=4 then
select case lrxs
case "qbwz":luzhubawzlink="../ae82b15e98190272.html"
case "fytj":luzhubawzlink="../45afc0dc98501456.html"
case "fyrm":luzhubawzlink="../478398a83c9565b0.html"
case "sszt":luzhubawzlink="../"&md5(Trim(lr),16)&".html"
case "fyxs":luzhubawzlink="../e35f851f38c34945.html"
case "yyly":luzhubawzlink="../"&md5(Trim(lr),16)&".html"
case "zjds":luzhubawzlink="../"&md5(Trim(lr),16)&".html"
case "htgn":luzhubawzlink="../"&md5(Trim(lr),16)&".html"
case "syqk":luzhubawzlink="../"&md5(Trim(lr),16)&".html"
case "zhpj":luzhubawzlink="../"&md5(Trim(lr),16)&".html"
Case Else:luzhubawzlink="../"&md5(lr,16)&".html"
end select
else
select case lrxs
case "qbwz":luzhubawzlink="ae82b15e98190272.html"
case "fytj":luzhubawzlink="45afc0dc98501456.html"
case "fyrm":luzhubawzlink="478398a83c9565b0.html"
case "sszt":luzhubawzlink=""&md5(Trim(lr),16)&".html"
case "fyxs":luzhubawzlink="e35f851f38c34945.html"
case "yyly":luzhubawzlink=""&md5(Trim(lr),16)&".html"
case "zjds":luzhubawzlink=""&md5(Trim(lr),16)&".html"
case "htgn":luzhubawzlink=""&md5(Trim(lr),16)&".html"
case "syqk":luzhubawzlink=""&md5(Trim(lr),16)&".html"
case "zhpj":luzhubawzlink=""&md5(Trim(lr),16)&".html"
Case Else:luzhubawzlink=""&md5(lr,16)&".html"
end select
end if
end if
end if
end function
function wzlm(htmlsf,zfl,bjys,ys,wzxs)
Set rszfl=Server.CreateObject("ADODB.RecordSet") 
sql="select * from zfl where d_id="&zfl&" "
rszfl.Open sql,conn,1,1
zfllx=rszfl("zfllx")
zflwz=rszfl("zflmzxy")
dim wzlmtemp
if zfllx=1 then
wjm="wzlist.asp"
wz="wz"
end if
if zfllx=2 then
wjm="rjlist.asp"
wz="rj"
end if
if zfllx=3 then
wjm="tplist.asp"
wz="tp"
end if
if zfllx=4 then
wjm="dhlist.asp"
wz="dh"
end if
if zfllx=5 then
wjm="splist.asp"
wz="sp"
end if
if htmlsf=1 then
wzlmtemp=wzlmtemp&"<div style='BACKGROUND-COLOR:#"&bjys&";width:100%;line-height:29px;float: left; font-weight: bold;text-align:center;'><a href='?luzhubazfl"&zfl&".html' style='color:#"&ys&"' title='"&tjflzs("",""&wz&"",1)&"'>"&rszfl("zflmz")&"</a>||||"
else
if wzxs=1 then
wzlmtemp=wzlmtemp&"<div style='BACKGROUND-COLOR:#"&bjys&";width:100%;line-height:29px;float: left; font-weight: bold;text-align:center;'><a href='"&zflwz&"index.html' style='color:#"&ys&"' title='"&tjflzs("",""&wz&"",1)&"'>"&rszfl("zflmz")&"</a>||||"
else
if wzxs=4 then
wzlmtemp=wzlmtemp&"<div style='BACKGROUND-COLOR:#"&bjys&";width:100%;line-height:29px;float: left;font-weight: bold;text-align:center;'><a href='../index.html' style='color:#"&ys&"' title='"&tjflzs("",""&wz&"",1)&"'>"&rszfl("zflmz")&"</a>||||"
else
wzlmtemp=wzlmtemp&"<div style='BACKGROUND-COLOR:#"&bjys&";width:100%;line-height:29px;float: left; font-weight: bold;text-align:center;'><a href='index.html' style='color:#"&ys&"' title='"&tjflzs("",""&wz&"",1)&"'>"&rszfl("zflmz")&"</a>||||"
rszfl.close
end if
end if
end if
sql="SELECT  * FROM fl where zfl="&zfl&" and flkg=0 "   
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
if htmlsf=1 then
wzlmtemp=wzlmtemp&"<a href='?"&wz&"flbh"&replace(rs2("flbh"),",","o")&"zfl"&zfl&".html' title='"&tjflzs(""&rs2("flbh")&"",""&wz&"",2)&"' style='color:#"&ys&"' > |"&rs2("flmz")&"</a>||||"
else
if wzxs=1 then
wzlmtemp=wzlmtemp&"<a href='"&zflwz&"/"&md5(Trim(rs2("d_id")),16)&".html' title='"&tjflzs(""&rs2("flbh")&"",""&wz&"",2)&"' style='color:#"&ys&"' > |"&rs2("flmz")&"</a>||||"
else
if wzxs=4 then
wzlmtemp=wzlmtemp&"<a href='../"&md5(Trim(rs2("d_id")),16)&".html' title='"&tjflzs(""&rs2("flbh")&"",""&wz&"",2)&"' style='color:#"&ys&"' > |"&rs2("flmz")&"</a>||||"
else
wzlmtemp=wzlmtemp&"<a href='"&md5(Trim(rs2("d_id")),16)&".html' title='"&tjflzs(""&rs2("flbh")&"",""&wz&"",2)&"' style='color:#"&ys&"' > |"&rs2("flmz")&"</a>||||"
end if
end if
end if 
rs2.movenext
loop
rs2.close
wzlmtemp=wzlmtemp&"<a href='map/js"&wZ&"3.xml' title='今天RSS' style='color:#"&ys&"'  target=_blank> | RSS</a>||||"
wzlmtemp=wzlmtemp&"</div>||||"
wzlm=lrgsh(wzlmtemp)
end function
function wzwz(htmlsf,zfl,xxlr,wztj,bjys,ys,bkys,zfllx,wzxs)
if wzxs=2 or wzxs=1 or wzxs=3 then
zflwz="./"
end if
if wzxs=4 then
zflwz="../"
end if
sql="select * from wzxx "
set rswzxx=server.createobject("adodb.recordset")
rswzxx.open sql,conn,1,3
sql="select * from zfl where d_id="&zfl&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if zfllx=1 then
wjm="wzlist.asp"
wjzw="文章"
wz="wz"
fl="wzfl"
end if
if zfllx=2 then
wjm="rjlist.asp"
wjzw="软件"
wz="rj"
fl="ssfl"
if InStr(""&wztj&"","yyly")>1 then
qtlb="yyly"
qtlbmz="领域"
end if
if InStr(""&wztj&"","zjds")>1 then
qtlb="zjds"
qtlbmz="主色"
end if
if InStr(""&wztj&"","htgn")>1 then
qtlb="htgn"
qtlbmz="功能"
end if
if InStr(""&wztj&"","syqk")>1 then
qtlb="syqk"