ASP编程：ASP高功能分页程序
帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。程序|分页|功能<tablewidth="100%"border="0"cellpadding="0"cellspacing="1"bgcolor="#CCCCCC"><%
SQL="SelectIDFromNewsOrderByIDDesc"
SQLA="SelectTitle,FilePath,FileNameFromNewswhereIDIn"
SQLB="OrderByIDDesc"
rs.OpenSQL,conn,1,1
ThePageCount=1
CurrentPage=1
ToPage=1
IfNotrs.EofThen
##分页处置入手下手
ThePageSize=120
rs.PageSize=ThePageSize
ThePageCount=rs.PageCount
GetToPage=Request.Querystring("ToPage")
IFNotIsNumEric(GetToPage)orInStr(GetToPage,".")Then
rs.AbsolutePage=1
Else
IFCint(GetToPage)<=1Then
ToPage=1
rs.AbsolutePage=1
ElseIFCint(GetToPage)>=ThePageCountThen
ToPage=rs.PageCount
rs.AbsolutePage=ThePageCount
Else
ToPage=GetToPage
rs.AbsolutePage=GetToPage
EndIF
EndIF
##分页处置停止
i=0
PageListNumber=0
PageSQL="("
WhileNotrs.Eofandi<ThePageSize
PageSQL=PageSQL&rs(0)&","
rs.MoveNext
i=i+1
PageListNumber=PageListNumber+1
Wend
rsClose
PageSQL=PageSQL&"0)"
Response.WritePageSQL
Setrs=Conn.ExeCute(SQLA&PageSQL&SQLB)
i=1
t=1
WhileNotrs.Eof
IFtmod2=0Then
BackGroundColor="FFFFFF"
Else
BackGroundColor="F7F7F7"
EndIF
IFi=1Then
Response.Write"<trbgcolor=""#FFFFFF"">"
EndIF
%>
<tdheight="26"width="25%">・<ahref="NewsContent<%Response.Writers(1)&rs(2)%>"target=_blank><%Response.Writers(0)%></a></td>
<%
IFimod4=0Then
t=t+1
Response.Write"</tr>"
EndIF
IF(imod4=0)andiThePageSizeThen
Response.Write"<trbgcolor=""#"&BackGroundColor&""">"
EndIF
IF(imod40)andi=PageListNumberThen
Forx=1to(4-(imod4))
Response.Write"<td></td>"
Next
Response.Write"</tr>"
EndIF
i=i+1
rs.MoveNext
Wend
rs.Close
Setrs=Nothing
Else
EndIF
%>
</table>
<!--## 分页前台显现代码段入手下手##-->
<tablewidth=100%>
<formaction=""method=get>
<tr><tdheight=40valign=middlealign=center>
共<%=ThePageCount%>页|<ahref=?ID=<%=ID%>>首页</a>|
<%IFToPage>1Then%>
<ahref=?ID=<%=ID%>&ToPage=<%=ToPage-1%>>上一页</a>
<%Else%>
上一页
<%EndIF%>
|
<%
CurrentPage=Cint(ToPage)
ifCint(ToPage)<Cint(ThePageCount)then
ToPage=Cint(ToPage)+1
%>
<ahref=?ID=<%=ID%>&ToPage=<%=ToPage%>>下一页</a>
<%Else%>
<fontstyle=color:#999999>下一页</font>
<%EndIF%>
|<ahref=?ID=<%=ID%>&ToPage=<%=ThePageCount%>>末页</a>|第<inputtype=textname="ToPage"value="<%=CurrentPage%>"size=4maxlength=5style="BORDER-RIGHT:silver1pxsolid#aaaaaa;BORDER-TOP:silver1pxsolid;BORDER-LEFT:silver1pxsolid;background-color:ffffff;height:13pt;width:20pt;COLOR:black;border-color:#aaaaaa;border-bottom:silver1pxsolid#aaaaaa;font-size:9pt;">页<inputtype=submitvalue="跳转"style="border-right:#cccccc1pxgroove;font-weight:normal;font-size:9pt;height:14pt;line-height:normal;border-bottom:#cccccc1pxgroove;font-style:normal;background-color:#eeeeee;font-variant:normal"></td></tr>
<!--埋没值传送
<inputtype=hiddenname=""value="">
埋没值传送-->
<inputtype=hiddenname="ID"value="<%=ID%>">
</form>
</table>
<!--## 分页前台显现代码段停止##-->
楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 Session:这个存储跟客户端会话过程的数据，默认20分钟失效 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")
页:
[1]