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%>