📄 luzhuba.asp

📁 露珠网站是一个以文章类、下载类、图片类、动画类、视频类为主的综合网站。我们的目标：麻雀虽小(223kb)
💻 ASP
📖 第 1 页 / 共 5 页
字号:
qtlbmz="情况"
end if
if InStr(""&wztj&"","zhpj")>1 then
qtlb="zhpj"
qtlbmz="评价"
end if
end if
if zfllx=3 then
wjm="tplist.asp"
wjzw="图片"
wz="tp"
fl="ssfl"
end if
if zfllx=4 then
wjm="dhlist.asp"
wjzw="动画"
wz="dh"
fl="ssfl"
end if
if zfllx=5 then
wjm="splist.asp"
wjzw="视频"
wz="sp"
fl="ssfl"
end if
if htmlsf=1 then
'wzwztemp=wzwztemp&"<div style='border: 1px dotted #"&bkys&";BACKGROUND-COLOR:#"&bjys&";float: left;COLOR:#"&ys&";width:99.6%;line-height:25px;float: left;font-size: 12px; '>当前位置:<a href=""?"" style='color:#"&ys&"'>"&rswzxx("wzm")&">></a><a href=""?luzhubazfl"&zfl&".html"" style='color:#"&ys&"'>"&rs("zflmz")&"</a>||||"
wzwztemp=wzwztemp&"<div style='border: 1px dotted #"&bkys&";BACKGROUND-COLOR:#"&bjys&";float: left;COLOR:#"&ys&";width:99.6%;line-height:25px;float: left;font-size: 12px; '>当前位置:<a href=""?"" style='color:#"&ys&"'>"&rswzxx("wzm")&">></a><a href=""?"&wz&"wztjqbwzzfl"&zfl&".html"" style='color:#"&ys&"'>"&rs("zflmz")&"</a>||||"
else
wzwztemp=wzwztemp&"<div style='border: 1px dotted #"&bkys&";BACKGROUND-COLOR:#"&bjys&";float: left;COLOR:#"&ys&";width:99.6%;line-height:25px;float: left;font-size: 12px; '>当前位置:<a href=""../"&zflwz&"index.html"" style='color:#"&ys&"'>"&rswzxx("wzm")&">></a><a href="""&zflwz&"index.html"" style='color:#"&ys&"'>"&rs("zflmz")&"</a>||||"
end if
rswzxx.close
rs.close
if ""&xxlr&""<>"" then
sql="SELECT  * FROM fl where flbh='"&xxlr&"' "   
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
sql="SELECT  * FROM fl where d_id in("&rs2("flzs")&") "   
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
do while not rs3.eof
if htmlsf=1 then
wzwztemp=wzwztemp&"<a href='?"&wz&"flbh"&replace(rs3("flbh"),",","o")&"zfl"&zfl&".html' style='color:#"&ys&"'> >>"&rs3("flmz")&"</a>||||"
else
wzwztemp=wzwztemp&"<a href='"&zflwz&""&md5(Trim(rs3("d_id")),16)&".html' style='color:#"&ys&"'> >>"&rs3("flmz")&"</a>||||"
end if  
rs3.movenext
loop
rs3.close
rs2.close
end if
if ""&wztj&""="qbwz" then
wzwztemp=wzwztemp&">>全部"&wjzw&""
end if
if ""&wztj&""="fytj" then
wzwztemp=wzwztemp&">>全部推荐"&wjzw&""
end if
if ""&wztj&""="fyrm" then
wzwztemp=wzwztemp&">>全部热门"&wjzw&""
end if
if ""&wztj&""="sszt" then
wzwztemp=wzwztemp&">>全部专题"&wjzw&""
end if
if zfllx=2 then
if ""&wztj&""="yyly" then
wzwztemp=wzwztemp&">>全部领域"&wjzw&""
end if
if ""&wztj&""="zjds" then
wzwztemp=wzwztemp&">>全部主色"&wjzw&""       
end if
if ""&wztj&""="htgn" then
wzwztemp=wzwztemp&">>全部功能"&wjzw&""
end if
if ""&wztj&""="syqk" then
wzwztemp=wzwztemp&">>全部情况"&wjzw&""
end if
if ""&wztj&""="zhpj" then
wzwztemp=wzwztemp&">>全部评价"&wjzw&""
end if
end if
if InStr(""&wztj&"","sszt")>1 then
qtlb="sszt"
qtlbmz="专题"
end if
if InStr(""&wztj&"",""&qtlb&"")>1 then
id = Replace(""&wztj&"",""&qtlb&"", "")
if htmlsf=1 then
wzwztemp=wzwztemp&"<a href='?"&wz&"wztj"&qtlb&"zfl"&zfl&".html' style='color:#"&ys&"'> >> 全部"&qtlbmz&""&wjzw&"</a>||||"
else
wzwztemp=wzwztemp&"<a href='"&zflwz&""&md5(Trim(""&qtlb&""),16)&".html' style='color:#"&ys&"'> >> 全部"&qtlbmz&""&wjzw&"</a>||||"
end if 
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where d_id="&id&""
rs.Open sql,conn,1,1
if htmlsf=1 then
wzwztemp=wzwztemp&"<a href='?"&wz&"wztj"&rs("d_id")&""&qtlb&"zfl"&zfl&".html' style='color:#"&ys&"'> >> "&rs("lbmz")&"</a>||||"
else
wzwztemp=wzwztemp&"<a href='"&zflwz&""&md5(Trim(""&rs("d_id")&""&qtlb&""),16)&".html' style='color:#"&ys&"'> >> "&rs("lbmz")&"</a>||||"
end if 
rs.close
end if
if ""&wztj&""="fyxs" then
wzwztemp=wzwztemp&">>全部图片"&wjzw&""
end if
wzwztemp=wzwztemp&"</div>||||"
wzwz=lrgsh(wzwztemp)
end function
function wzfl(htmlsf,zfl,flbh,bjys,ys,gs,zfllx)
dim wzfllbtemp
if zfllx=1 then
wjm="wz"
end if
if zfllx=2 then
wjm="rj"
end if
if zfllx=3 then
wjm="tp"
end if
if zfllx=4 then
wjm="dh"
end if
if zfllx=5 then
wjm="sp"
end if
if flbh="" then
sql="SELECT  * FROM fl where zfl="&zfl&"  Order By flzs"
else
sql="SELECT  * FROM fl where d_id in("&flbh&")  Order By flzs"
end if
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
dd=rs3.recordcount
if dd>19 then
xstj="and fl=0"
end if
rs3.close
if flbh="" then
sql="SELECT  * FROM fl where zfl="&zfl&" "&xstj&" Order By flzs"
else
sql="SELECT  * FROM fl where d_id in("&flbh&") "&xstj&" Order By flzs"
end if
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
js=1
wzfllbtemp=wzfllbtemp&"<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:23px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px;TEXT-INDENT:30px;'>"
do while not rs2.eof
if htmlsf=1 then
wzfllbtemp=wzfllbtemp&"<a href='?"&wjm&"flbh"&replace(rs2("flbh"),",","o")&"zfl"&zfl&".html' style='color:#"&ys&";line-height:23px;text-decoration: 23px;margin-right: 8px;TEXT-INDENT:30px;' title='"&tjflzs(""&rs2("flbh")&"",""&wjm&"",2)&"'>||||"
else
wzfllbtemp=wzfllbtemp&"<a href='"&md5(Trim(rs2("d_id")),16)&".html' style='color:#"&ys&";line-height:23px;text-decoration: 23px;margin-right: 8px;;TEXT-INDENT:30px;' title='"&tjflzs(""&rs2("flbh")&"",""&wjm&"",2)&"'>"
end if
if rs2("flmz")="OA办公" then
flmz="O A 办公" 
else
flmz=rs2("flmz")
end if
if rs2("flkg")=0 then
wzfllbtemp=wzfllbtemp&""&flmz&"</a></ul>||||<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:23px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px;TEXT-INDENT:30px;'>"
js=js-1
else
For l=1 to rs2("flkg")
wzfllbtemp=wzfllbtemp&"&nbsp;&nbsp;"
Next
wzfllbtemp=wzfllbtemp&""&flmz&"</a>"
end if
if js mod gs =0 then
wzfllbtemp=wzfllbtemp&"</ul>||||<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:19px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px'>"
end if
rs2.movenext
js=js+1
loop
wzfllbtemp=wzfllbtemp&"*"
wzfllbtemp=Replace(wzfllbtemp, "<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:19px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px'>*", "")
 if rs2.eof and rs2.bof then
wzfllbtemp=wzfllbtemp&"目前尚无任何信息！"
end if
rs2.close
wzfl=lrgsh(wzfllbtemp)
end function 
function wzzt(htmlsf,zfl,bjys,ys,zfllx,wzxs)
dim wzfllbtemp
if zfllx=1 then
wjm="wz"
end if
if zfllx=2 then
wjm="rj"
end if
if zfllx=3 then
wjm="tp"
end if
if zfllx=4 then
wjm="dh"
end if
if zfllx=5 then
wjm="sp"
end if
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where lb=6 and lbqtsz="&zfl&""
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
if htmlsf=1 then
wzfllbtemp=wzfllbtemp&"<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:23px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px;TEXT-INDENT:30px;'><a href='?"&wjm&"wztj"&rs2("d_id")&"ssztzfl"&zfl&".html' style='color:#"&ys&"'>||||"
else
if wzxs=1 then
wzfllbtemp=wzfllbtemp&"<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:23px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px;TEXT-INDENT:30px;'><a href='"&wjm&"/"&md5(Trim(""&rs2("d_id")&"sszt"),16)&".html' style='color:#"&ys&"'>||||"
else
if wzxs=4 then
wzfllbtemp=wzfllbtemp&"<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:23px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px;TEXT-INDENT:30px;'><a href='../"&md5(Trim(""&rs2("d_id")&"sszt"),16)&".html' style='color:#"&ys&"'>||||"
else
wzfllbtemp=wzfllbtemp&"<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:23px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px;TEXT-INDENT:30px;'><a href='"&md5(Trim(""&rs2("d_id")&"sszt"),16)&".html' style='color:#"&ys&"'>||||"
end if
end if
end if
wzfllbtemp=wzfllbtemp&"├"&rs2("lbmz")&""&tjflgs("sszt",rs2("d_id"),""&wjm&"")&"</a></ul>||||"
  rs2.movenext
loop
 if rs2.eof and rs2.bof then
wzfllbtemp=wzfllbtemp&"目前尚无任何信息！"
end if
rs2.close
wzzt=lrgsh(wzfllbtemp)
end function 
function wzqtlb(htmlsf,zfl,bjys,ys,zfllx,lbsz,wzxs)
dim wzfllbtemp
if zfllx=2 then
wjm="rjlist.asp"
end if
if lbsz=7 then lbzd="yyly" 
if lbsz=8 then lbzd="zjds" 
if lbsz=9 then lbzd="htgn" 
if lbsz=10 then lbzd="syqk" 
if lbsz=11 then lbzd="zhpj" 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where lb="&lbsz&" "
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
if htmlsf=1 then
wzfllbtemp=wzfllbtemp&"<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:23px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px;TEXT-INDENT:30px;'><a href='?"&left(wjm,2)&"wztj"&rs2("d_id")&""&lbzd&"zfl"&zfl&".html' style='color:#"&ys&"'>||||"
else
if wzxs=1 then
wzfllbtemp=wzfllbtemp&"<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:23px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px;TEXT-INDENT:30px;'><a href='"&wjm&"/"&md5(Trim(""&rs2("d_id")&""&lbzd&""),16)&".html' style='color:#"&ys&"'>||||"
else
if wzxs=4 then
wzfllbtemp=wzfllbtemp&"<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:23px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px;TEXT-INDENT:30px;'><a href='../"&md5(Trim(""&rs2("d_id")&""&lbzd&""),16)&".html' style='color:#"&ys&"'>||||"
else
wzfllbtemp=wzfllbtemp&"<ul style='BACKGROUND-COLOR:#"&bjys&";COLOR:#"&ys&";border:1px dotted #cccccc;line-height:23px;BORDER-TOP-WIDTH: 0px; PADDING-RIGHT: 0px; PADDING-LEFT: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 1px; PADDING-BOTTOM: 0px; MARGIN: 0px; PADDING-TOP: 0px; BORDER-RIGHT-WIDTH: 0px;TEXT-INDENT:30px;'><a href='"&md5(Trim(""&rs2("d_id")&""&lbzd&""),16)&".html' style='color:#"&ys&"'>||||"
end if
end if
end if
wzfllbtemp=wzfllbtemp&"├"&rs2("lbmz")&""&tjflgs(""&lbzd&"",rs2("d_id"),"rj")&"</a></ul>||||"
  rs2.movenext
loop
 if rs2.eof and rs2.bof then
wzfllbtemp=wzfllbtemp&"目前尚无任何信息！"
end if
rs2.close
wzqtlb=lrgsh(wzfllbtemp)
end function 
function wzxx(lr)
sqlwzxx="SELECT  * FROM wzxx "
set rswzxx=server.createobject("adodb.recordset")
rswzxx.open sqlwzxx,conn,1,1
wzxx=rswzxx(""&lr&"")
rswzxx.close
end function 
function wzlisttitle(htmlsf,wztj,wztjlr,zfllx)
if zfllx=1 then
wjzw="文章"
end if
if zfllx=2 then
wjzw="软件"
if InStr(""&wztj&"","yyly")>1 then
lbzd="yyly"     
lbzdmz="领域"
end if
if InStr(""&wztj&"","zjds")>1 then
lbzd="zjds"
lbzdmz="主色"
end if
if InStr(""&wztj&"","htgn")>1 then
lbzd="htgn"
lbzdmz="功能"
end if
if InStr(""&wztj&"","syqk")>1 then
lbzd="syqk"
lbzdmz="情况"
end if
if InStr(""&wztj&"","zhpj")>1 then
lbzd="zhpj"
lbzdmz="评价"
end if
end if
if zfllx=3 then
wjzw="图片"
end if
if zfllx=4 then
wjzw="动画"
end if
if zfllx=5 then
wjzw="视频"
end if
dim wzlisttitletemp
if ""&wztj&""="qbwz" then
wzlisttitletemp="全部"&wjzw&""
end if
if ""&wztj&""="fytj" then
wzlisttitletemp="全部推荐"&wjzw&""
end if
if ""&wztj&""="fyrm" then
wzlisttitletemp="全部热门"&wjzw&""
end if
if ""&wztj&""="sszt" then
wzlisttitletemp="全部专题"&wjzw&""
end if
if ""&wztj&""="fyxs" then
wzlisttitletemp="全部图片"&wjzw&""
end if
if ""&wztj&""="yyly" then
wzlisttitletemp="全部领域"&wjzw&""
end if
if ""&wztj&""="zjds" then
wzlisttitletemp="全部主色"&wjzw&""
end if
if ""&wztj&""="htgn" then
wzlisttitletemp="全部功能"&wjzw&""
end if
if ""&wztj&""="syqk" then
wzlisttitletemp="全部情况"&wjzw&""
end if
if ""&wztj&""="zhpj" then
wzlisttitletemp="全部评价"&wjzw&""
end if
if InStr(""&wztj&"","sszt")>1 then
lbzd="sszt"
lbzdmz="专题"
end if
if InStr(""&wztj&"",""&lbzd&"")>1 then
id = Replace(""&wztj&"",""&lbzd&"", "")
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select d_id,lb,lbmz,lbqt,lbqtsz from qtxx where d_id="&id&""
rs.Open sql,conn,1,1
wzlisttitletemp=wzlisttitletemp&""&rs("lbmz")&""
rs.close
wzlisttitletemp=wzlisttitletemp&">>>全部"&lbzdmz&""&wjzw&""
end if
if wztjlr<>"" then
sql="SELECT  * FROM fl where flbh='"&wztjlr&"'"   
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
sql="SELECT  * FROM fl where d_id in("&rs2("flzs")&") "   
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
do while not rs3.eof
wzlisttitletemp=wzlisttitletemp&""&rs3("flmz")&""
  rs3.movenext
loop
rs3.close
rs2.close
end if
wzlisttitle=wzlisttitletemp
end function
function luzhubazcgg()
sql="select * from admin where id=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs("zcmjm")<>"" then
dd=luzhubajm(rs("zcmjm"))
else
dd="luzhuba_cn"
💿 文件大小 242 K
👤 上传用户 choatehou4
📂 所属分类其他
🏷️ 相关标签

#223 #网站 #kb
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -