<% dim mainsql,strurl,rsmain,bstr1,isbest,show_list,classid,strPlayerUrl strurl="photo.asp" isbest=cint(request.QueryString("isbest")) classid=request.QueryString("classid") call sysshow() 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))&" file_path,file_readme,oblog_upfile.userid,user_dir,username,nickname,user_folder,logid from [oblog_user],oblog_upfile where oblog_user.userid=oblog_upfile.userid and isphoto=1 "&sql&" And isPower=0 order by fileid desc" if not IsObject(conn) then link_database Set rsmain=Server.CreateObject("Adodb.RecordSet") 'response.Write(msql) rsmain.Open msql,Conn,1,1 if rsmain.eof and rsmain.bof then show_list="
" show_list=show_list&"当前位置:首页→2008年拓展训练团队相册(共调用" & G_P_AllRecords & " 个相片)" 'bstr=trim(Request.ServerVariables("query_string")) 'if bstr<>"" then bstr="photo.asp?"&replace(replace(bstr,"&isbest=1",""),"isbest=1","")&"&isbest=1" else bstr="photo.asp?isbest=1" show_list=show_list&bstr1&"
" show_list=show_list& GetSysClasses & "

" 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首页→相册(共调用" & G_P_AllRecords & " 个相片)" 'bstr=trim(Request.ServerVariables("query_string")) 'if bstr<>"" then bstr="photo.asp?"&replace(replace(bstr,"&isbest=1",""),"isbest=1","")&"&isbest=1" else bstr="photo.asp?isbest=1" show_list=show_list&bstr1&"" show_list=show_list& GetSysClasses & "
" show_list=show_list&""& vbcrlf 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 'title="简介:"&oblog.filt_html(rsmain(1)) 'userurl="" userurl="" imgsrc=rsmain(0) imgsrc=replace(imgsrc,right(imgsrc,3),"jpg") imgsrc=replace(imgsrc,right(imgsrc,len(imgsrc)-InstrRev(imgsrc,"/")),"pre"&right(imgsrc,len(imgsrc)-InstrRev(imgsrc,"/"))) if not fso.FileExists(Server.MapPath(imgsrc)) then imgsrc=rsmain(0) end if if rsmain(5)<>"" then userurl=userurl&oblog.filt_html(rsmain(5))&"" else userurl=userurl&oblog.filt_html(rsmain(4))&"" end if show_list=show_list&""& vbcrlf i=i+1 if not rsmain.eof then rsmain.movenext end if next show_list=show_list&""& vbcrlf if i>=G_P_PerMax then exit do loop show_list=show_list&"

来自:"&userurl&"
" set fso=nothing end sub '获取系统分类 Function GetSysClasses() Dim rst,sReturn Set rst=conn.Execute("Select * From oblog_logclass Where idtype=1 and parentid=0") If rst.Eof Then sReturn="" Else Do While Not rst.Eof sReturn= sReturn & "" & rst("classname") & "" & VBCRLF rst.Movenext Loop sReturn="相册分类:" & VBCRLF & sReturn & "" End If rst.Close Set rst=Nothing GetSysClasses = sReturn End Function %>