日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

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

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

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

以下為引用的內容:

<%
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)&"<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教程