我的asp网站想从数据库中读取一片文章然后截取前100个文字，但是文章是带有格式的，简单的用left函数会截取部分代码，导致格式错乱。请高人指点迷津：例如：将<p><font style="color:red">我的问题谁来解决</font></p>变为：我的问题谁来解决请不要用replace函数枚举代码而替换之。
3 回答
慕斯王
TA贡献1864条经验 获得超2个赞
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
sitePath="data.mdb"
dim conn
set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.mappath("/"&sitePath)
set rs=server.CreateObject("adodb.recordset")
sql="select * from Aspcms_News where NewsID=5 "
rs.open sql,conn,1,1
if not rs.eof then
numbers=len(rs("content")) '总字节数
pagenum=900 '每页显示的数量
maxpage=-int(-numbers/pagenum)'总页数
requestpage=clng(request("p"))'接收页码
if requestpage="" or requestpage=0 then'获取默认页码
requestpage=1
end if
if requestpage>maxpage then '当前页的页码大于最大页码时，使当前页码等于最大页码
requestpage=maxpage
end if
if not requestpage=1 then '当前页码不等于1时，向下移动相应的字节数
content=mid(rs("Content"),(requestpage-1)*pagenum+1,900)
else
content=left(rs("Content"),900) '当页码等于1时，截取相应文本
end if
if isempty(requestpage) then
thispage=1
else
thispage=cint(requestpage)
end if
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>对超长文本数据进行分页显示</title>
</head>
<body >
<table width="470" border="0" cellspacing="0">
<tr>
<td height="33"><div align="center"><strong><%=rs("Title")%></strong></div></td>
</tr>
<tr>
<td> <font size="2"><%' =content%><%=Replace(content,chr(13),"<br>")%></font></td>
</tr>
<tr>
<td align="right">
<font size="2">总页数：<%=maxpage%> 当前页：<%=requestpage%> <a href="content_page.asp?p=1">第一页</a> <a href="content_page.asp?p=<%=(requestpage-1)%>">上一页</a> <a href="content_page.asp?p=<%=(requestpage+1)%>">下一页</a> <a href="content_page.asp?p=<%=maxpage%>">最后一页</a></font>
</td>
</tr>
<tr>
<td align="right">
<%for i=1 to maxpage
if thispage=i then
response.write ""&i&" "
else %>
[<a href="content_page.asp?p=<%=i%>"><%=i%></a>]
<% end if %>
<%next%>
</td>
</tr> </table>
<%
else
response.Write("没有内容")
end if
%>
</body></html>
我参考的这个代码，可以正常分页，却有html代码
- 3 回答
- 0 关注
- 574 浏览
添加回答
举报
0/150
提交
取消