ycms_pic.asp

安全性好,适用于展示和进行资源下载的个人和大型网站使用!

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/YCMS.asp"-->
<!--#include file="inc/skin.asp"-->
<%
title="鍥剧墖灞曠ず"
YCMS_Open()
YCMS_Head()
Call YCMS_Where(title,"YCMS_Pic.asp")
Dim tmp,tmptmp
    tmp=YCMS_skin(11)
	If YCMS_logined() Then
	tmp=Replace(tmp,"{$login$}",YCMS_logins())
	Else
    tmp=Replace(tmp,"{$login$}",skin_login)
	End If
	tmp=Replace(tmp,"{$total$}",YCMS_total("YCMS_Pic"))
	tmp=Replace(tmp,"{$search$}",YCMS_search("1","鎼滅储鍥剧墖"))
	tmp=Replace(tmp,"{$class$}",YCMS_class("YCMS_Picclass","YCMS_Pic"))
	tmp=Replace(tmp,"{$topclick$}",YCMS_click("YCMS_Pic","YCMS_ShowPic.asp"))
	tmp=Replace(tmp,"{$topbest$}",YCMS_best("YCMS_Pic","YCMS_ShowPic.asp"))
	tmp=Replace(tmp,"{$pic$}",YCMS_pic("YCMS_pic",4))
tmptmp=Split(tmp,"<!--@@@-->")
YCMS_Print(tmptmp(0))
If Request.QueryString("bigclass")<>"" then
sql="select * from [YCMS_Pic] where  bigclassid="&Request.QueryString("bigclass")&" and ispass=1 order by id DESC"
ElseIf Request.QueryString("class")<>"" then
sql="select * from [YCMS_Pic] where  classid="&Request.QueryString("class")&" and ispass=1 order by id DESC"
Else
sql="select * from [YCMS_Pic] where ispass=1 order by id DESC"
End if
set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1

if Not(rs.bof and rs.eof) then
rs.pagesize=CInt(Split(webset(7),"|")(2))
i=0
mypage=Request.QueryString("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end If
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof
Dim list
	list=tmptmp(1)
	list=Replace(list,"$id$",rs("id"))
	list=Replace(list,"$title$",rs("title"))
	list=Replace(list,"$click$",rs("click"))
	list=Replace(list,"$pic$",rs("pic"))
	list=Replace(list,"$time$",YCMS_time(rs("addtime"),1))

i=i+1
If i Mod 4=0 Then
    list=list&"</tr><tr>"
End if
YCMS_Print(list)
if i=rs.pagesize Then
exit do 
End if
rs.movenext
Loop
Else
YCMS_Print("<div style='line-height:100px;text-align:center'>鏁版嵁鏇存柊涓