luzhuba.asp

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

LinkStr = "?"&bm&""&RsFilterObj("d_id")&".html"
else
if wzxs=1 then
LinkStr =""&zflwz&"/"&chan_data(RsFilterObj(""&wzsj&""))&"/"&md5(Trim(RsFilterObj("d_id")),16)&".html"
else
if wzxs=4 then
LinkStr =""&md5(Trim(RsFilterObj("d_id")),16)&".html"
else
LinkStr =""&chan_data(RsFilterObj(""&wzsj&""))&"/"&md5(Trim(RsFilterObj("d_id")),16)&".html"
end if
end if
end if
end if
else
if htmlsf=1 then
ImagesStr =ImagesStr &"|"& RsFilterObj(""&wztp&"")
else
if wzxs=1 then
ImagesStr = ImagesStr &"|"&"../"&RsFilterObj(""&wztp&"")
else
if wzxs=4 then
ImagesStr = ImagesStr &"|"&"../../../"&RsFilterObj(""&wztp&"")
else
ImagesStr = ImagesStr &"|"&"../../"&RsFilterObj(""&wztp&"")
end if
end if
end if
TxtStr = TxtStr & "|" &gotTopic(RsFilterObj(""&wzbt&""),fontnum)
if RsFilterObj("btlj")<>"" then
LinkStr = LinkStr &RsFilterObj("btlj")
else
if htmlsf=1 then
LinkStr = LinkStr & "|" & "?"&bm&""&RsFilterObj("d_id")&".html"
else
if wzxs=1 then
LinkStr = LinkStr & "|" & ""&zflwz&"/"&chan_data(RsFilterObj(""&wzsj&""))&"/"&md5(Trim(RsFilterObj("d_id")),16)&".html"
else
if wzxs=4 then
LinkStr = LinkStr & "|" & ""&md5(Trim(RsFilterObj("d_id")),16)&".html"
else
LinkStr = LinkStr & "|" & ""&chan_data(RsFilterObj(""&wzsj&""))&"/"&md5(Trim(RsFilterObj("d_id")),16)&".html"
end if
end if
end if 
end if 
end if
RsFilterObj.MoveNext
loop
FlashStr="<script type=""text/javascript"">"& Chr(13)
FlashStr=FlashStr&"<!--"& Chr(13)
FlashStr=FlashStr&"var focus_width="&PicWidthStr& Chr(13)   
FlashStr=FlashStr&"var focus_height="&PicHeightStr& Chr(13) 
if wzxssf=1 then
FlashStr=FlashStr&"var text_height="&txtheight& Chr(13) 
else
FlashStr=FlashStr&"var text_height=0 "& Chr(13) 
end if
FlashStr=FlashStr&"var swf_height = focus_height+text_height"& Chr(13)
FlashStr=FlashStr&"var pics='"&ImagesStr&"'"&Chr(13)
FlashStr=FlashStr&"var links='"&LinkStr &"'"&Chr(13)
if wzxssf=1 then
FlashStr=FlashStr&"var texts='"&TxtStr&"'"&Chr(13)
else
FlashStr=FlashStr&"var texts=''"&Chr(13)
end if
FlashStr=FlashStr&"document.write('<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"" width=""'+ focus_width +'"" height=""'+ swf_height +'"">');"&Chr(13)
FlashStr=FlashStr&"document.write('<param name=""allowScriptAccess"" value=""sameDomain""><param name=""movie"" value=""images/pic.swf""><param name=""quality"" value=""high""><param name=""bgcolor"" value=#"&BGcolor&">');"&Chr(13)
FlashStr=FlashStr&"document.write('<param name=""menu"" value=""false""><param name=wmode value=""opaque"">');"&Chr(13)
FlashStr=FlashStr&" document.write('<param name=""FlashVars"" value=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"">');"&Chr(13)
FlashStr=FlashStr&"document.write('<embed src=""images/pic.swf"" wmode=""opaque"" FlashVars=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"" menu=""false"" bgcolor=#"&BGcolor&" quality=""high"" width=""'+ focus_width +'"" height=""'+ swf_height +'"" allowScriptAccess=""sameDomain"" type=""application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" />');"&Chr(13)
FlashStr=FlashStr&"document.write('</object>');"&Chr(13)
FlashStr=FlashStr&"//-->"& Chr(13)
FlashStr=FlashStr&"</script>"
  else
    FlashStr="没有幻灯图片"
  end if
    RsFilterObj.Close
Set RsFilterObj = Nothing
end if
    FlashNews= FlashStr
End Function
function luzhubajm(str)
zf=len(str)
for i=1 to zf/2
luzhu=mid(str,(i*2-1),2)&"$"
jsq=jsq&luzhu
next
luzhubajm=jsq
luzhubajm=replace(luzhubajm,"36$","z")
luzhubajm=replace(luzhubajm,"35$","y")
luzhubajm=replace(luzhubajm,"34$","x")
luzhubajm=replace(luzhubajm,"33$","w")
luzhubajm=replace(luzhubajm,"32$","v")
luzhubajm=replace(luzhubajm,"31$","u")
luzhubajm=replace(luzhubajm,"30$","t")
luzhubajm=replace(luzhubajm,"29$","s")
luzhubajm=replace(luzhubajm,"28$","r")
luzhubajm=replace(luzhubajm,"27$","q")
luzhubajm=replace(luzhubajm,"26$","p")
luzhubajm=replace(luzhubajm,"25$","o")
luzhubajm=replace(luzhubajm,"24$","n")
luzhubajm=replace(luzhubajm,"23$","m")
luzhubajm=replace(luzhubajm,"22$","l")
luzhubajm=replace(luzhubajm,"21$","k")
luzhubajm=replace(luzhubajm,"20$","j")
luzhubajm=replace(luzhubajm,"19$","i")
luzhubajm=replace(luzhubajm,"18$","h")
luzhubajm=replace(luzhubajm,"17$","g")
luzhubajm=replace(luzhubajm,"16$","f")
luzhubajm=replace(luzhubajm,"15$","e")
luzhubajm=replace(luzhubajm,"14$","d")
luzhubajm=replace(luzhubajm,"13$","c")
luzhubajm=replace(luzhubajm,"12$","b")
luzhubajm=replace(luzhubajm,"11$","a")
luzhubajm=replace(luzhubajm,"48$",".")
luzhubajm=replace(luzhubajm,"47$","_")
luzhubajm=replace(luzhubajm,"09$","9")
luzhubajm=replace(luzhubajm,"08$","8")
luzhubajm=replace(luzhubajm,"07$","7")
luzhubajm=replace(luzhubajm,"06$","6")
luzhubajm=replace(luzhubajm,"05$","5")
luzhubajm=replace(luzhubajm,"04$","4")
luzhubajm=replace(luzhubajm,"03$","3")
luzhubajm=replace(luzhubajm,"02$","2")
luzhubajm=replace(luzhubajm,"01$","1")
luzhubajm=replace(luzhubajm,"00$","0")
end function
function luzhubaxs(htmlsf,xss,kss,zfl,qttj,btzd,xslx,zh,btxs,btqtxszt,btqtxsys,sjxs,ulxsbg,ulxsfs,xshd,btkd,imgkd,imggd,imgzx,imgbt,dt,zfllx,wzxs)
btkd=btkd-1
Set rszfl=Server.CreateObject("ADODB.RecordSet") 
sql="select * from zfl where d_id="&zfl&" "
rszfl.Open sql,conn,1,1
zflwz=rszfl("zflmzxy")
rszfl.close
dim wzxstemp
if zfllx=1 then
wz="wz"
wjm="wzshow.asp"
wzsj="wzsj"
btzt="btzt"
btys="btys"
wzbt="wzbt"
wztp="wztp"
wzdt="wzdt"
ssfl="wzfl"
end if
if zfllx=2 then
wz="rj"
wjm="rjshow.asp"
wzsj="rjsj"
btzt="mzzt"
btys="mzys"
wzbt="rjmz"
wztp="rjst"
wzdt="kkjj"
ssfl="ssfl"
end if
if zfllx=3 then
wz="tp"
wjm="tpshow.asp"
wzsj="sj"
btzt="btzt"
btys="btys"
wzbt="bt"
wztp="tp"
wzdt="dt"
ssfl="ssfl"
end if
if zfllx=4 then
wz="dh"
wjm="dhshow.asp"
wzsj="sj"
btzt="btzt"
btys="btys"
wzbt="bt"
wztp="tp"
wzdt="dt"
ssfl="ssfl"
end if
if zfllx=5 then
wz="sp"
wjm="spshow.asp"
wzsj="sj"
btzt="btzt"
btys="btys"
wzbt="bt"
wztp="tp"
wzdt="dt"
ssfl="ssfl"
end if
if qttj<>"" then
flid=CutFixContent(qttj,"%","&",0)
if flid<>"" then
if instr(flid,",")<>0 then
flid2=flid
else
sql="SELECT  * FROM fl where d_id="&flid&""   
set rsfl=server.createobject("adodb.recordset")
rsfl.open sql,conn,1,1
flid2=rsfl("flbh")
rsfl.close
end if
qttj=Replace(qttj,"%"&flid&"&"," in("&flid2&")")
end if
end if
if xslx<>3 then
sql="SELECT top "&cint(xss)+cint(kss)&" * FROM "&wz&" where zfl="&zfl&" "&qttj&"  order by "&btzd&" DESC,d_id DESC"   
else
sql="SELECT top "&cint(xss)+cint(kss)&" * FROM "&wz&" where zfl="&zfl&" "&qttj&"   and "&wzdt&"<>'' order by "&btzd&" DESC,d_id DESC"   
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
rs.move kss
end if
do while not rs.eof
if xslx=1 then
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&"'>"
if sjxs=1 then
wzxstemp=wzxstemp&"<ul style='float: right;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'>"&chan_datays(rs(""&wzsj&""))&"</ul>"
end if
if ulxsfs=2 then
wzxstemp=wzxstemp&"<ul style='line-height:23px;BACKGROUND-COLOR:#"&ulxsbg&";border-bottom:1px dotted #cccccc; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px;  PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px'>"
else
if ulxsfs=3 then
xss=xss-1
if instr((xss/2),".5")=0 then
wzxstemp=wzxstemp&"<ul style='line-height:23px;BACKGROUND-COLOR:#"&left(ulxsbg,6)&"; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px;  PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px'>"
else
wzxstemp=wzxstemp&"<ul style='line-height:23px; BACKGROUND-COLOR:#"&right(ulxsbg,6)&";PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px;  PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px'>"
end if
else
wzxstemp=wzxstemp&"<ul style='line-height:23px;BACKGROUND-COLOR:#"&ulxsbg&"; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px;  PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px'>"
end if
end if
if zfllx=1 then
if xshd=1 then
wzxstemp=wzxstemp&""&qtxx(rs("wzhd"),2)&""
end if
end if
wzxstemp=wzxstemp&"</a>"
if xshd=8 then
sql="SELECT  * FROM fl where d_id="&rs(""&ssfl&"")&""
set rsfl=server.createobject("adodb.recordset")
rsfl.open sql,conn,1,1
if htmlsf=1 then
wzxstemp=wzxstemp&"<a href='?"&wz&"flbh"&rsfl("flbh")&"zfl"&zfl&".html'"  
else
if wzxs=1 then
wzxstemp=wzxstemp&"<a href='"&zflwz&"/"&md5(Trim(rsfl("d_id")),16)&".html'"  
else
if wzxs=4 then
wzxstemp=wzxstemp&"<a href='../"&md5(Trim(rsfl("d_id")),16)&".html'"  
else
wzxstemp=wzxstemp&"<a href='"&md5(Trim(rsfl("d_id")),16)&".html'"  
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&"'>"
if rsfl("flmz")="OA办公" then
flmzxs="O A 办 公"
else
if rsfl("flmz")="OA系统" then
flmzxs="O A 系 统"
else
flmzxs=rsfl("flmz")
end if
end if
wzxstemp=wzxstemp&"["&flmzxs&"]</a>"
rsfl.close
end if
if zfllx=2 then
if xshd=3 or xshd=4 or xshd=5 or xshd=6 or xshd=7 then
if xshd=3 then lbzd="yyly"
if xshd=4 then lbzd="zjds"
if xshd=5 then lbzd="htgn"
if xshd=6 then lbzd="syqk"
if xshd=7 then lbzd="zhpj"
if rs(""&lbzd&"")<>0 then
if rs("btlj")<>"" then
wzxstemp=wzxstemp&"<a href='"&rs("btlj")&"' target='_blank'"
else
if htmlsf=1 then
wzxstemp=wzxstemp&"<a href='?"&wz&"wztj"&rs(""&lbzd&"")&""&lbzd&"zfl"&zfl&".html'"  
else
if wzxs=1 then
wzxstemp=wzxstemp&"<a href='"&zflwz&"/"&md5(Trim(""&rs(""&lbzd&"")&""&lbzd&""),16)&".html'"  
else
if wzxs=4 then
wzxstemp=wzxstemp&"<a href='../"&md5(Trim(""&rs(""&lbzd&"")&""&lbzd&""),16)&".html'"  
else
wzxstemp=wzxstemp&"<a href='"&md5(Trim(""&rs(""&lbzd&"")&""&lbzd&""),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&"'>"
wzxstemp=wzxstemp&"["&qtxx(rs(""&lbzd&""),2)&"]</a>"
else
wzxstemp=wzxstemp&"<a href='#'"  
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&"'>"
wzxstemp=wzxstemp&"[未作评价]</a>"
end if
end if
end if
if xshd=9 then
wzxstemp=wzxstemp&"<a href='"&rs("yswz")&"'"  
wzxstemp=wzxstemp&" style='font-size: "&zh&";"