% '分页sql语句生成代码 Function GetPageSql(TblName,FldName,PageSize,PageIndex,OrderType,StrWhere) Dim StrTemp,StrSql,StrOrder '根据排序方式生成相关代码 If OrderType = 0 Then StrTemp = (Select Max([ & FldName & ]) StrOrder = Order By [ & FldName & ] Asc Else StrTemp = (Select Min([ & FldName & ]) StrOrder = Order By [ & FldName & ] Desc End If
'若是第1页则无须复杂的语句 If PageIndex = 1 Then StrTemp = If StrWhere Then Strtmp = Where & StrWhere End If StrSql = Select Top & PageSize & * From [ & TblName & ] & Strtmp & StrOrder Else '若不是第1页,构造sql语句 StrSql = Select Top & PageSize & * From [ & TblName & ] Where [ & FldName & ] & StrTemp & _ From (Select Top & (PageIndex-1) * PageSize & [ & FldName & ] From [ & TblName & ] If StrWhere Then StrSql = StrSql & Where & StrWhere End If StrSql = StrSql & StrOrder & ) As Tbltemp) If StrWhere Then StrSql = StrSql & And & StrWhere End If StrSql = StrSql & Str Order End If GetPageSql = StrSql '返回sql语句 End Function Response.Write(GetPageSql(Message,MessageID,10,1,0,)) %