1.怎么网上的数源加载器源码单个asp页面源代码？
2.asp 长文章内容分页
3.asp数字分页 控制页数的问题
怎么网上的单个asp页面源代码？
楼上错了,网际快车是可以下,但下的根本就不是源代码,而是在服务器端执行后发送到客户端的代码.网上有一些工具是可以偷取网站的源码的,楼主可以自己去搜.
在这告诉楼主一个区分下到的文件是不是真正的ASP源码的方法:
看文件中有没有"<%"和"%>"(引号中的部分),如果有则是源码,没有则是已经在服务器端执行过的,是没有用的
asp 长文章内容分页
asp自动按字数分页源代码
<%
sub autopage()
dim Maxpagelen,page,content,PageNumber,ArticleID
dim contentlen
dim BeginPoint,EndPoint
Maxpagelen=
content=ubbcode(rs("content"))
ArticleID=rs("ArticleID")
contentlen=len(content)
page=request.QueryString("page")
if contentlen<=Maxpagelen then
response.Write content
else
if page="" then
page=1
else
page=Cint(page)
end if
if pageNumber*MaxPagelen<contentlen then
PageNumber=PageNumber+1
end if
PageNumber=int(contentlen/Maxpagelen)+1
if page<1 then page=1
if page>PageNumber then page=PageNumber
if page=1 then
BeginPoint=1
else
BeginPoint=MaxPagelen*(page-1)+1
end if
if page=PageNumber then
EndPoint=contentlen
else
EndPoint=MaxPagelen*page
if EndPoint>=ContentLen then
EndPoint=ContentLen
end if
end if
content=Mid(content,BeginPoint,EndPoint-BeginPoint)
response.Write content
response.Write"<br>"
response.Write"<br>"
response.Write"<br>"
end if
for i=1 to PageNumber
response.Write "<a href="/article.asp?ID="" & ArticleID &"&page=" & i & "> "& i &"</a>"
Next
end sub
%>
asp数字分页 控制页数的问题
<%if rs.pagecount> then
k=nowpage-4
For k To k+9
if k=nowpage Then
response.write k
Else
response.write"<a href='3recordset.asp?nowpage="&k&"'>["&k&"]</a>"
End If
Next
else
For k=1 To rs.PageCount
if k=nowpage Then
response.write k
Else
response.write"<a href='3recordset.asp?nowpage="&k&"'>["&k&"]</a>"
End If
Next
end if%>