1.TEST.ASP
----------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<script>
function createAjax() {
var _xmlhttp;
try {
_xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
catch (e) {
try {
_xmlhttp=new XMLHttpRequest();
}
catch (e) {
_xmlhttp=false;
}
}
return _xmlhttp;
}
function getpageHtml(str,strnum,page)//str字符串,strnum每页字符数目，page 当前页码
{
var xmlhttp=createAjax();
if (xmlhttp) {
xmlhttp.open("get","testpage.asp?p1="+str+"&p2="+strnum+"&p3="+page+"&n="+Math.random(),true);
xmlhttp.onreadystatechange=function() {
if (xmlhttp.readyState==4 && xmlhttp.status==200) {
document.getElementById("page").innerHTML=unescape(xmlhttp.responseText);
}
else {document.getElementById("page").innerHTML=" Loading ...... ";}
}
xmlhttp.send(null);
}
}
</script>
</head>
strTXT="1.尊敬的客户：您好!感谢您对网络时代一直以来的支持和关注，为了更好的为您提供更优质的服务，您在使用网络时代的服务中遇到问题时，请配合我们依照以下服务流程，选择适合您的方式，尽快解决您的问题。感谢您的支持！2.尊敬的客户：您好!感谢您对网络时代一直以来的支持和关注，为了更好的为您提供更优质的服务，您在使用网络时代的服务中遇到问题时，请配合我们依照以下服务流程，选择适合您的方式，尽快解决您的问题。感谢您的支持！3.尊敬的客户：您好!感谢您对网络时代一直以来的支持和关注，为了更好的为您提供更优质的服务，您在使用网络时代的服务中遇到问题时，请配合我们依照以下服务流程，选择适合您的方式，尽快解决您的问题。感谢您的支持！4.尊敬的客户：您好!感谢您对网络时代一直以来的支持和关注，为了更好的为您提供更优质的服务，您在使用网络时代的服务中遇到问题时，请配合我们依照以下服务流程，选择适合您的方式，尽快解决您的问题。感谢您的支持！5.尊敬的客户：您好!感谢您对网络时代一直以来的支持和关注，为了更好的为您提供更优质的服务，您在使用网络时代的服务中遇到问题时，请配合我们依照以下服务流程，选择适合您的方式，尽快解决您的问题。感谢您的支持！6.尊敬的客户：您好!感谢您对网络时代一直以来的支持和关注，为了好的为您提供更优质的服务，您在使用网络时代的服务中遇到问题时，请配合我们依照以下服务流程，选择适合您的方式，尽快解决您的问题。感谢您的支持！"
<body onload="getpageHtml('<%=strTXT%>',103,1);">
<div id="page"> </div>
</body>
</html>
----------------------------------------------------
testpage.asp
-----------------------------------------------------
<%
dim str,strnum,page
str=unescape(Request.QueryString("p1"))
strnum=unescape(Request.QueryString("p2"))
page=unescape(Request.QueryString("p3"))
'str 字符串
'strnum 每页字符数
'page 页码
htmlcontent=""
pagelink=""
strLen=len(str)'计算字符数目
sumPage=strLen/strnum
if sumPage<>int(sumpage) then
sumPage=int(sumPage)+1
end if
htmlcontent=mid(str,(page-1)*strnum+1,strnum)
for i=1 to sumPage
pagelink=pagelink&"<a href='javascript:void(getpageHtml(""&str&"","&strnum&","&i&"))' > "&i&"</a> "
next
response.write escape(htmlcontent&"<br>"&pagelink&"<br>")
%>