求一个asp分页代码．要求在写文章的时候在正文输入[fenye]等字样它就在哪分！

<%
str="11111[fenye]22222[fenye]33333[fenye]4444[fenye]5"
p=cint(request("p"))
strArray=split(str,"[fenye]")
pc=ubound(strArray)+1
if p<=1 or p="" then p=1
response.Write(p)
if p>=pc then p=pc
response.Write(p)
response.Write(strArray(p-1)&"<br>")
for i=1 to pc
response.Write("<a href='?p="&i&"'>"&i&"</a> ")
next
%>