UC知道贵求帮忙,网站显示asp分列问题
来源：百度知道 编辑：UC知道 时间：2024/09/24 13:16:27
function News(SortPath)
dim rs,sql,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select top 8 * from Qianbo_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write " <tr>"&VbCrLf
Response.Write " <td align=""center"" height=""28"">暂无相关信息</td>"&VbCrLf
Response.Write " </tr>"&VbCrLf
else
do while not rs.eof
if now()-rs("AddTime")<=2 then
NewsName=StrLeft(rs("NewsName"),42)
NewFlag=" <img src=""image/new.gif"" align=""absmiddle"">"
else
NewsName=StrLeft(rs("NewsName"),46)
NewFlag=""
end If
If ISHTML = 1 Then
Aut
dim rs,sql,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select top 8 * from Qianbo_News where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
rs.open sql,conn,1,1
if rs.eof then
Response.Write " <tr>"&VbCrLf
Response.Write " <td align=""center"" height=""28"">暂无相关信息</td>"&VbCrLf
Response.Write " </tr>"&VbCrLf
else
do while not rs.eof
if now()-rs("AddTime")<=2 then
NewsName=StrLeft(rs("NewsName"),42)
NewFlag=" <img src=""image/new.gif"" align=""absmiddle"">"
else
NewsName=StrLeft(rs("NewsName"),46)
NewFlag=""
end If
If ISHTML = 1 Then
Aut
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>形成数列排序</title>
<style type="text/css">
.xdiv{margin:0 auto;padding:0px;margin-top:10px;overflow:hidden;}
.xdiv ul{margin:0px;padding:0px;float:left;margin-left:10px;list-style:none;overflow:hidden;}
.xdiv li{clear:both;margin-bottom:5px;}
</style>
</head>
<body>
<div class="xdiv">
<ul>
<li>1</li>
<li>2</