ASP實(shí)例代碼：長(zhǎng)文章分頁(yè)代碼設(shè)置方法_ASP教程

教程Tag：暫無(wú)Tag,歡迎添加,賺取U幣!

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

以下為引用的內(nèi)容：

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

for p=0 to ubound(str)
response.write "<a href="&url&"p="&p 1&">["&p 1&"]</a> "
next
response.write "當(dāng)前第"&abspage&"/"&pcount&"頁(yè)</center>"
End Sub
End Class

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

分享：國(guó)內(nèi)ASP應(yīng)用，不容樂觀
新的ASP概念不是指開發(fā)工具ASP(ActiveX Server Pages)，而是指應(yīng)用服務(wù)提供商(Application Service Provider)一種新的IT經(jīng)營(yíng)模式。通俗的話，即企業(yè)不購(gòu)買應(yīng)用軟件，而是采用租賃的形式租用軟件