这段asp分页代码中，怎么能让当前页的页码不可点击

Question

<%
Class aspxsky_page
Private Sub class_initialize
End Sub

Public Function Alert(message,gourl)
message = replace(message,"’","\’")
If gourl="-1" then
Response.Write ("<script language=javascript>alert(’" & message & "’);history.go(-1)</script>")
Else
Response.Write ("<script language=javascript>alert(’" & message & "’);location=’" & gourl &"’</script>")
End If
Response.End()
End Function

Public Sub showpage(str,page,url)
if not isnumeric(page) then
alert "提示:错误的参数!","-1"
end if
if page="" or page=0 or isnull(page) or isempty(page) then
page=1
else
page=cint(page)
end if
str=split(str,"{nextpage}")
abspage=page
pcount=ubound(str)+1
if page>cint(ubound(str)+1) or page<1 then
alert "提示:错误的参数!","-1"
else
response.write str(page-1)&"<center>"
end if

for p=0 to ubound(str)
response.write "<a href="&url&"p="&p+1&">"&p+1&"</a>"
next
response.write " 第"&abspage&"/"&pcount&"页</center>"
End Sub
End Class
%>
代码效果正常，就是象1 2 3 4 5这样的形式，但每个数都有连接，比如当前是第3页，我希望3这个数没连接，第4页时4这个数没有连接，怎么改？

Answer 1

没听说有这个功能，呵呵
如果要实现这个功能的话，可以提个思路给你
response.write "<div id=cc(i)><a href="&url&"p="&p+1&">"&p+1&"</a></div>"

然后，在CSS里加判断，如果
if request("ID")=i
then
div i hidden.
end if
原现就是这样了。

Answer 2

判断当前页是否是本数字 是的话不加链接啊

Answer 3

for p=0 to ubound(str)
if p+1<>page then
response.write "<a href="&url&"p="&p+1&">"&p+1&"</a>"
else
response.write p+1
end if
next