ASP读取数据库时怎么能让他不读取图片?
我的读取是这样写的。怎么去掉那个?<%exec="select*fromcn_otherlistwherej_id=1"setrs=server.CreateObject...
我的读取是这样写的。怎么去掉那个?
<%
exec="select * from cn_otherlist where j_id=1"
set rs=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
if rs.eof and rs.bof then
response.Write("暂时没有文章!")
else
do while not rs.eof
%>
<%= left(rs("content"),600) %> >> <a href="about.html" target="_self">更多</a>
<%
rs.movenext
loop
end if
%> 展开
<%
exec="select * from cn_otherlist where j_id=1"
set rs=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
if rs.eof and rs.bof then
response.Write("暂时没有文章!")
else
do while not rs.eof
%>
<%= left(rs("content"),600) %> >> <a href="about.html" target="_self">更多</a>
<%
rs.movenext
loop
end if
%> 展开
3个回答
2010-12-03
展开全部
先将内容读取到ASP变量
Dim Content,Content1,Content2
Content=Rs("content") '读取数据到变量
Content1=LoseHtml(Content) '过滤掉了HTML代码
If Len(Content1)>100 Then
Content2=Left(Content1,100) '取前100个字符
Else
Content2=Content1
End If
'去HTML的函数
function LoseHtml(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = " <\/*[^ <> ]*> "
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr, " ")
LoseHtml = ClsTempLoseStr
end function
Dim Content,Content1,Content2
Content=Rs("content") '读取数据到变量
Content1=LoseHtml(Content) '过滤掉了HTML代码
If Len(Content1)>100 Then
Content2=Left(Content1,100) '取前100个字符
Else
Content2=Content1
End If
'去HTML的函数
function LoseHtml(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = " <\/*[^ <> ]*> "
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr, " ")
LoseHtml = ClsTempLoseStr
end function
展开全部
我也在寻求这答案
现在的解决办法,是在向数据库提交时,就先将HTML语言标记出来,在预览时过滤这些标记
你上面语句不安全
left(rs("content"),600)如果没有600长度时会出错,你需要判断一下,用len(rs("content"))>600来判断
现在的解决办法,是在向数据库提交时,就先将HTML语言标记出来,在预览时过滤这些标记
你上面语句不安全
left(rs("content"),600)如果没有600长度时会出错,你需要判断一下,用len(rs("content"))>600来判断
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
看错了。。晕
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询