www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/index_sucai_mb.asp
<!--#include file="top.asp"-->
<%
if MDBpath="" then
MDBpath=""
end if
newshu=8 '每个分类显示最新软件数
toplen=25
chalen=24
set rs=server.CreateObject("ADODB.RecordSet")
%>
<!--#include file="mdb_path_down.asp"-->
<%thisfile="index"
'首页素材调用
i=0
set conn_user=server.createobject("ADODB.CONNECTION")
connstr_user="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("data/"&MDBname&".asp")
conn_user.open connstr_user
sql="select top 13 * from down where tid=228 and show=1 and cxn like '%模板%' order by date desc"
rs.open sql,conn_user,1,1
if rs.eof then
top="还没有摸班！"
else
do while not rs.eof
softid=trim(rs("id"))
if instr(rs("cxn"),"<font")>0 then
toplen1=toplen+20
titley=CutStr(rs("cxn"),toplen1)&"</font>"
else
titley=CutStr(rs("cxn"),toplen+20)
end if
model=model&"<a title="""&rs("cxn")&""" target=""_blank"" href=""../d/"&softid&".Html""><img src=""images/strelica2.gif"" width=""6px"" height=""5px"" /> "&titley&"</a>"
i=i+1
if i>=13 then exit do
rs.movenext
loop
end if
rs.close
'----------下为素材下载-----
i=0
sql_sucai="select top 13 * from down where tid=228 and (cxn not like '模板') order by date desc"
rs.open sql_sucai,conn_user,1,1
if rs.eof then
top="还没有素材！"
else
do while not rs.eof
softid=trim(rs("id"))
titley=CutStr(rs("cxn"),toplen+20)
sucai=sucai&"<a title="""&rs("cxn")&""" target=""_blank"" href=""../d/"&softid&".Html""><img src=""images/strelica2.gif"" width=""6px"" height=""5px"" /> "&titley&"</a>"
i=i+1
if i>=13 then exit do
rs.movenext
loop
end if
rs.close
'----------下为推荐图片下载-----
i=0
sql_sucai="select top 3 * from down where tid=228 and show=1 and pic <>'' and hot>3 order by hits desc"
rs.open sql_sucai,conn_user,1,1
if rs.eof then
top="还没有素材！"
else
do while not rs.eof
softid=trim(rs("id"))
titley=CutStr(rs("cxn"),toplen+20)
pic=rs("pic")
top_pic=top_pic&"<a title="""&rs("cxn")&""" target=""_blank"" href=""../d/"&softid&".Html""><img src="""&pic&""" width=""100px"" height=""70px"" /></a>"
i=i+1
if i>=3 then exit do
rs.movenext
loop
end if
rs.close
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-CN" lang="zh-CN">
<head>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312" />
<meta name="Author" content="Author" />
<meta name="Robots" content="index,follow" />
<meta name="Description" content="Description" />
<meta name="Keywords" content="key, words" />
<link rel="stylesheet" type="text/css" href="images/style.css" />
<title>共享世纪 > 共享素材、建站素材、网站素材、背景素材、FLASH素材</title>
</head>
<body>
<div id="bg">
<div id="sadrzaj">
<div id="zaglavlje">
<div id="title"> <a href="#">共享世纪</a> > <span class="blue">素材模板</span> </div>
<form action="/down_search.asp" />
检索资源:
<input name="k" type="text" size="40" />
<input type="submit" value="Go" name="search" class="button" />
</div>
<div id="left">
<ul>
<li><a href="../">全站首页</a></li>
<li><a href="../js/">极品特效</a></li>
<li><a href="../d/">源码下载</a></li>
<li><a href="../info/">站长查询</a></li>
<li><a href="../forum/">世纪论坛</a></li>
<li><a href="../gb/">留言给我</a></li>
</ul>
<div class="lijevo">
<h5>推荐下载 TOP 3</h5>
<p><%=top_pic%></p>
<div id="infobox">共享世纪·素材站</div>
</div>
</div>
<div id="pic">
<h2>关于我们：</h2>
<p>关键字：免费、素材、模板、网页特效、共享素材、建站素材、网站素材、背景素材、FLASH素材、绿色素材</p>
</div>
<div class="desna_rubrika">
<h5>精品素材</h5>
<p><%=sucai%></p>
</div>
<div class="desna_rubrika">
<h5>优秀模版</h5>
<p><%=model%></p>
</div>
<div id="footer"> Copyright © 2007 <font face=Verdana, Arial, Helvetica, sans-serif><b>2KY<font color=#CC0000>.CN</font></b> > Designed
by Luka Cvrk
| Validate > <a href="http://validator.w3.org/check?uri=referer">XHTML 1.0
Strict!</a> | <a href="http://jigsaw.w3.org/css-validator/check/referer">CSS</a>
<script language="javascript" type="text/javascript" src="http://js.users.51.la/1126595.js"></script>
</div>
</div>
</div>
</div>
</body>
</html>
<%
function CutStr(str,strlen)
dim I,l,t,c
l=len(str)
t=0
for I=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen Then
If I<>l Then cutStr=left(str,i)&"."
exit for
else
cutStr=str
end if
next
end function
%>