|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。分页|数据|数据库<%@Language=VBSCRIPT%>
<%OptionExplicit%>
<%
rem在asp中经由过程getrows完成数据库纪录分页的一段代码
DimiStart,iOffset
iStart=Request("Start")
iOffset=Request("Offset")
ifNotIsNumeric(iStart)orLen(iStart)=0then
iStart=0
else
iStart=CInt(iStart)
endif
ifNotIsNumeric(iOffset)orLen(iOffset)=0then
iOffset=30
else
iOffset=Cint(iOffset)
endif
Response.Write"Viewing"&iOffset&"recordsstartingatrecord"&iStart&"<BR>"
DimobjConn,objRS
SetobjConn=Server.CreateObject("ADODB.Connection")
objConn.Open"DSN=MP3"
dimconnstr
dimdb
db="csnjimageman.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(""&db&"")
objconn.Openconnstr
SetobjRS=Server.CreateObject("ADODB.Recordset")
objRS.Open"SELECT*FROMimageinfo",objConn
DimaResults
aResults=objRS.GetRows
objRS.Close
SetobjRS=Nothing
objConn.Close
SetobjConn=Nothing
DimiRows,iCols,iRowLoop,iColLoop,iStop
iRows=UBound(aResults,2)
iCols=UBound(aResults,1)
IfiRows>(iOffset+iStart)Then
iStop=iOffset+iStart-1
Else
iStop=iRows
EndIf
ForiRowLoop=iStarttoiStop
ForiColLoop=0toiCols
Response.WriteaResults(iColLoop,iRowLoop)&""
Next
Response.Write"<BR>"
Next
Response.Write"<P>"
ifiStart>0then
ShowPrevlink
Response.Write"<AHREF=""GetRows.asp?Start="&iStart-iOffset&_
"&Offset="&iOffset&""">Previous"&iOffset&"</A>"
endif
ifiStop<iRowsthen
ShowNextlink
Response.Write"<AHREF=""GetRows.asp?Start="&iStart+iOffset&_
"&Offset="&iOffset&""">Next"&iOffset&"</A>"
endif
%>
</p>ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失; |
|