2<%
3'分页sql语句生成代码
4Function GetPageSql(TblName,FldName,PageSize,PageIndex,OrderType,StrWhere)
5 Dim StrTemp,StrSql,StrOrder
6 '根据排序方式生成相关代码
7 If OrderType = 0 Then
8 StrTemp = "> (Select Max([" & FldName & "])"
9 StrOrder = " Order By [" & FldName & "] Asc"
10 Else
11 StrTemp = "< (Select Min([" & FldName & "])"
12 StrOrder = " Order By [" & FldName & "] Desc"
13 End If
14
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
