|
|
 |
| 小狐仙奇迹私服 官方官址 www.025mu.com |
|
|
 |
<%
dim rs1,sql1,title
set rs1=server.CreateObject("adodb.recordset")
sql1="select top 10 * from news order by newsid desc"
rs1.Open sql1,connnews,1,1
do while not rs1.eof
if rs1("titl_cut") = 1 and len(rs1("title"))>27 then
title=left(rs1("title"),27)&"..."
else
title=rs1("title")
end if
%>
|
|
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
|
|
|
|
|
|
 |
|
