<%Yqj梦想源码
Class aspxsky_pageYqj梦想源码
 Private Sub class_initializeYqj梦想源码
 End Sub

Www~~comYqj梦想源码

 Public Function Alert(message,gourl)Yqj梦想源码
    message = replace(message,"'","/'")Yqj梦想源码
    If gourl="-1" thenYqj梦想源码
        Response.Write ("<script language=javascript>alert('" & message & "');history.go(-1)</script>")Yqj梦想源码
    ElseYqj梦想源码
        Response.Write ("<script language=javascript>alert('" & message & "');location='" & gourl &"'</script>")Yqj梦想源码
    End IfYqj梦想源码
    Response.End()Yqj梦想源码
 End Function

 Public Sub showpage(str,page,url)Yqj梦想源码
  if not isnumeric(page) thenYqj梦想源码
    alert "提示:错误的参数!","-1"Yqj梦想源码
  end ifYqj梦想源码
  if page="" or page=0 or isnull(page) or isempty(page) thenYqj梦想源码
    page=1Yqj梦想源码
  elseYqj梦想源码
    page=cint(page)Yqj梦想源码
  end ifYqj梦想源码
  str=split(str,"{nextpage}")Yqj梦想源码
  abspage=pageYqj梦想源码
  pcount=ubound(str)+1Yqj梦想源码
  if page>cint(ubound(str)+1) or page<1 thenYqj梦想源码
alert "提示:错误的参数!","-1"Yqj梦想源码
  elseYqj梦想源码
response.write str(page-1)&"<br><br><center> 共分为"&pcount&"页 "Yqj梦想源码
  end if

  for p=0 to ubound(str)Yqj梦想源码
 response.write "<a href="&url&"p="&p+1&">["&p+1&"]</a> "Yqj梦想源码
  nextYqj梦想源码
  response.write "当前第"&abspage&"/"&pcount&"页</center>"Yqj梦想源码
 End SubYqj梦想源码
End Class 中国站.长.站 Yqj梦想源码

'------------------调用-----------------------Yqj梦想源码
p=request.QueryString("p")Yqj梦想源码
str="第一页:这里是第一页的内容{nextpage}第二页:这里是第二页的内容"Yqj梦想源码
url="shownews.asp?id="&id&"&"Yqj梦想源码
set newpage=new aspxsky_pageYqj梦想源码
newpage.showpage str,p,urlYqj梦想源码
%>Yqj梦想源码