<% dim mainsql,strurl,rsmain,bstr1,isbest,show_list,classid,strPlayerUrl strurl="photo.asp" isbest=cint(Request.QueryString("isbest")) classid=Request.QueryString("classid") call sysshow() G_P_Show = Replace (G_P_Show,"$show_title_list$","最新相册列表--"&oblog.cacheConfig(2) ) if isbest=1 then mainsql=mainsql&" and user_isbest=1" if strurl="photo.asp" then strurl=strurl&"?isbest=1" else strurl=strurl&"&isbest=1" end if bstr1="→推荐相片" end if If IsNumeric(classid) Then classid=CLng(classid) If classid>0 Then mainsql= mainsql & " and sysClassid=" & classid & " " elseif classid=-1 then mainsql= mainsql & " and isBigHead=1 " end if if strurl="photo.asp" then strurl=strurl&"?classid=" & classid end if End If strPlayerUrl= Replace(strurl,"photo.asp","photoplayer.asp") call sub_showuserlist(mainsql,strurl) G_P_Show=Replace(G_P_Show,"$show_list$",show_list) Response.Write G_P_Show&oblog.site_bottom sub sub_showuserlist(sql,strurl) dim topn,msql G_P_PerMax=Int(oblog.CacheConfig(38)) G_P_FileName=strurl if Request("page")<>"" then G_P_This=cint(Request("page")) else G_P_This=1 end if msql="select top "&CLng(oblog.CacheConfig(39))&" photo_path,photo_readme,userid,fileID,photo_Name from oblog_album b where 1=1 "&sql&" AND ( b.ishide = 0 OR b.ishide IS NULL ) order by photoID desc" if not IsObject(conn) then link_database Set rsmain=Server.CreateObject("Adodb.RecordSet") ' OB_DEBUG (msql),1 rsmain.Open msql,Conn,1,1 show_list= vbcrlf & "" & vbcrlf show_list= show_list & " " & vbcrlf show_list= show_list & " " & vbcrlf show_list= show_list & " " & vbcrlf show_list= show_list & " " & vbcrlf show_list= show_list & "

" & vbcrlf show_list=show_list&"当前位置：首页→相册(共调用 $allNum$ 个相片)" & bstr1 & vbcrlf show_list= show_list & "

" & vbcrlf show_list= show_list & GetSysClasses & vbcrlf show_list= show_list & "

" & vbcrlf show_list= show_list & "

---

" & vbcrlf if rsmain.eof and rsmain.bof Then show_list =Replace(show_list,"$allNum$",0) show_list=show_list & "共调用0个相片
" else G_P_AllRecords=rsmain.recordcount 'show_list=show_list & "共调用" & G_P_AllRecords & " 个相片
" if G_P_This<1 then G_P_This=1 end if if (G_P_This-1)*G_P_PerMax>G_P_AllRecords then if (G_P_AllRecords mod G_P_PerMax)=0 then G_P_This= G_P_AllRecords \ G_P_PerMax else G_P_This= G_P_AllRecords \ G_P_PerMax + 1 end if end if if G_P_This=1 then getlist() show_list=show_list&oblog.showpage(false,true,"个相片") else if (G_P_This-1)*G_P_PerMax"& vbcrlf i = 0 do while not rsmain.eof show_list=show_list&""& vbcrlf for n=1 to 4 if rsmain.eof then show_list=show_list&""& vbcrlf Else arrayList(i) = rsmain("userid") 'title="图片说明:"&oblog.filt_html(rsmain(1)) 'userurl="" userurl="" imgsrc=rsmain(0) preImgSrc=Replace(imgsrc,right(imgsrc,3),"jpg") preImgSrc=Replace(preImgSrc,right(preImgSrc,len(preImgSrc)-InstrRev(preImgSrc,"/")),"pre"&right(preImgSrc,len(preImgSrc)-InstrRev(preImgSrc,"/"))) if Not fso.FileExists(Server.MapPath(preImgSrc)) then preImgSrc=imgsrc end If If oblog.CacheConfig(67) = "1" Then imgsrc = "attachment.asp?path="&imgsrc End If ' if rsmain(5)<>"" then ' userurl=userurl&oblog.filt_html(rsmain(5))&"" ' else ' userurl=userurl&oblog.filt_html(rsmain(4))&"" ' end if userurl = userurl &""&rsmain("userid")&"" show_list=show_list&"
来自:"&userurl&""& vbcrlf i=i+1 if not rsmain.eof then rsmain.movenext end If If I >=Int(oblog.CacheConfig(38)) Then Exit For next show_list=show_list&""& vbcrlf if i>=G_P_PerMax then exit do loop show_list=show_list&"" show_list = show_list & oblog.GetNickNameById (arrayList,i,G_P_This) set fso=nothing end sub '获取系统分类 Function GetSysClasses() Dim rst,sReturn Set rst=conn.Execute("select * From oblog_logclass Where idtype=1") If rst.Eof Then sReturn="" Else Do While Not rst.Eof sReturn= sReturn & "" & rst("classname") & "" & VBCRLF rst.Movenext Loop sReturn = "请选择所有分类" & VBCRLF & sReturn sReturn = sReturn&"大头贴" sReturn="

相册分类：" & VBCRLF & sReturn & "

" End If rst.Close Set rst=Nothing GetSysClasses = sReturn End Function %>