UC知道ASP新录的新闻标题后面加new图片,但是在标题后面变成<img..>什么的，而不是图片
来源：百度知道 编辑：UC知道 时间：2024/06/03 13:11:47
function News(SortPath,Num,title)
dim rs,sql,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select top "&Num&" [id],iif(date()-addtime<5, Newsname+ '<img src=arr.gif width=28 height=11 />', Newsname) as Newsname,ViewFlag,SortID,SortPath,GroupID,Exclusive,NoticeFlag,Source,Content,ClickNumber,AddTime,SeoKeywords,SeoDescription 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")<=3 and rs("SortPath")=8 then
NewsName=StrLeft(rs("NewsName"
dim rs,sql,NewsName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select top "&Num&" [id],iif(date()-addtime<5, Newsname+ '<img src=arr.gif width=28 height=11 />', Newsname) as Newsname,ViewFlag,SortID,SortPath,GroupID,Exclusive,NoticeFlag,Source,Content,ClickNumber,AddTime,SeoKeywords,SeoDescription 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")<=3 and rs("SortPath")=8 then
NewsName=StrLeft(rs("NewsName"
Response.Write " <td width=""80%"" height=""30"" style=""border-bottom:1px dotted #B7905B"" height=""29"" align=""left""> <img src=""../images/pic/dot.gif"" width=""5"" height=""5"" alt=""茶叶公司新闻"" /> "&VbCrLf
换成
Response.Write " <td width=""80%"" height=""30"" style=""border-bottom:1px dotted #B7905B"" height=""29"" align=""left"">%>
<img src=""../images/pic/dot.gif"" width=""5"" height=""5"" alt=""茶叶公司新闻"" /><%
Response.Write "VbCrLf"