不错的ASP整站源代码。在IIS环境下运行都没有问题

								if Request.ServerVariables("Content_Length") > 0 then
				content = Request.Form("textarea1")
				
				PageLength = 1000 '每页字数
				CLength = Len(content)
				PageCount = Int(Clength/PageLength) + 1 '计算页数
				
				dim PageArray
				redim PageArray(PageCount)
				
				Seperator = Array(chr(13),chr(10),"。","！","？","；","，","”","’") '分隔符
				
				PageArray(0) = 0
				Pos = 0
				for j=0 to ubound(Seperator)
				Pos = instr(PageArray(i)+900,content,Seperator(j)) 'PageArray(i)+900 附近位置是100字，1-999可调
				while Pos > 0 and Pos < (i+1)*PageLength and Pos > i*PageLength
				PageArray(i) = Pos
				Pos = instr(Pos+PageLength,content,Seperator(j))
				wend
				
				if PageArray(i) > 0 then 
				Response.Write "0:i| "&PageArray(i)&""&j&":j"&Seperator(j)&""
				j = j + ubound(Seperator) + 1 
				end if
				next
				
				for i=1 to PageCount-1
				PageArray(i) = 0
				Pos = 0
				for j=0 to ubound(Seperator)
				Pos = instr(PageArray(i-1)+950,content,Seperator(j)) 
				while Pos > 0 and Pos < (i+1)*PageLength and Pos > i*PageLength
				PageArray(i) = Pos
				Pos = instr(Pos+PageLength,content,Seperator(j))
				wend
				
				if PageArray(i) > 0 then 
				Response.Write i&":i| "&PageArray(i)&""&j&":j"&Seperator(j)&""
				j = j + ubound(Seperator) + 1 
				end if
				next
				next
				
				output = mid(content,1,PageArray(0))
				output = replace(output,chr(13),"")
				Response.Write "第1段"
				Response.Write output
				
				for i=1 to PageCount-2
				output = mid(content,PageArray(i-1)+1,PageArray(i)-PageArray(i-1))
				output = replace(output,chr(13),"")
				Response.Write "第"&i+1&"段"
				Response.Write output
				next
				
				'最后一段的输出就没写了
				
				else
				%>