ycms_art.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_Art.asp")
Dim tmp,tmptmp
    tmp=YCMS_skin(9)
	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_art"))
	tmp=Replace(tmp,"{$search$}",YCMS_search("1","鎼滅储鏂囩珷"))
	tmp=Replace(tmp,"{$class$}",YCMS_class("YCMS_artclass","YCMS_Art"))
	tmp=Replace(tmp,"{$topclick$}",YCMS_click("YCMS_art","YCMS_ShowArt.asp"))
	tmp=Replace(tmp,"{$topbest$}",YCMS_best("YCMS_art","YCMS_ShowArt.asp"))
	tmp=Replace(tmp,"{$pic$}",YCMS_pic("YCMS_art",4))
tmptmp=Split(tmp,"<!--@@@-->")
YCMS_Print(tmptmp(0))
If Request.QueryString("bigclass")<>"" then
sql="select * from [YCMS_Art] where  bigclassid="&Request.QueryString("bigclass")&" and ispass=1 order by id DESC"
ElseIf Request.QueryString("class")<>"" then
sql="select * from [YCMS_Art] where  classid="&Request.QueryString("class")&" and ispass=1 order by id DESC"
Else
sql="select * from [YCMS_Art] 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),"|")(1))
i=1
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,"$color$",rs("color"))
	list=Replace(list,"$click$",rs("click"))
	list=Replace(list,"$time$",YCMS_time(rs("addtime"),1))
YCMS_Print(list)
i=i+1
if i=rs.pagesize Then exit do 
rs.movenext
Loop
Else
YCMS_Print("<div style='line-height:100px;text-align:center'>鏁版嵁鏇存柊涓