ASP實例代碼:長文章分頁代碼設置方法_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:插入ASP代碼讓網(wǎng)站數(shù)據(jù)庫成為ASP木馬
      很多時候我們可以通過在注冊表單或者用戶信息修改表單中,插入簡短的ASP代碼,使網(wǎng)站ASP數(shù)據(jù)庫變成為一個ASP木馬,然后進一步入侵控制服務器。 不過在上傳代碼過程中,許多網(wǎng)頁程序都不允許包

      以下為引用的內容:

      <%
      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 "提示:錯誤的參數(shù)!","-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 "提示:錯誤的參數(shù)!","-1"
      else
      response.write str(page-1)&"<br><br><center> 共分為"&pcount&"頁 "
      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

      '------------------調用-----------------------
      p=request.QueryString("p")
      str="第一頁:這里是第一頁的內容{nextpage}第二頁:這里是第二頁的內容"
      url="shownews.asp?id="&id&"&"
      set newpage=new aspxsky_page
      newpage.showpage str,p,url
      %>


      分享:國內ASP應用,不容樂觀
      新的ASP概念不是指開發(fā)工具ASP(ActiveX Server Pages),而是指應用服務提供商(Application Service Provider)一種新的IT經營模式。通俗的話,即企業(yè)不購買應用軟件,而是采用租賃的形式租用軟件

      來源:模板無憂//所屬分類:ASP教程/更新時間:2008-08-22
      相關ASP教程