在限制文章字数时。文章中的<br>同时跟着输出了到了前台。
代码如下:
function lxwm()
dim rs,sql,i,NewsName,NewFlag,ContentSi
set rs = server.createobject("adodb.recordset")
sql="SELECt * FROM NwebCn_About where Sequence=6 order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
if StrLen(rs("ContentSi"))<=700 then
ContentSi=rs("ContentSi")
else
ContentSi=StrLeft(rs("ContentSi"),680)
end if
response.write ContentSi &""
end if
rs.close
set rs=nothing
end function
请问高手如何解决?明白的请指点
过滤掉<br>行不?
if StrLen(Replace(rs("ContentSi"),"<br>",""))<=700 then
ContentSi=Replace(rs("ContentSi"),"<br>","")
else
ContentSi=StrLeft(Replace(rs("ContentSi"),"<br>",""),680)
end if
在后面加一个
<br />
在限制文章字数时。文章中的<br>同时跟着输出了到了前台。
代码如下:
function lxwm()
dim rs,sql,i,NewsName,NewFlag,ContentSi
set rs = server.createobject("adodb.recordset")
sql="SELECt * FROM NwebCn_About where Sequence=6 order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
if StrLen(rs("ContentSi"))<=700 then
ContentSi=rs("ContentSi")
else
ContentSi=StrLeft(rs("ContentSi"),680)
end if
response.write ContentSi &"<br />"'这里加一个<br />不知道是不是你要的这个
end if
rs.close
set rs=nothing
end function