62,243
社区成员




Public Function AjaxPage(currentpage As Integer, pagesize As Integer, sortfield As String, sortorder As String, model As Model.Article, procname As String) As DataSet
Try
Dim param As SqlParameter()
param = {
New SqlParameter("@currentpage", SqlDbType.SmallInt),
New SqlParameter("@pagesize", SqlDbType.SmallInt),
New SqlParameter("@sortfield", SqlDbType.VarChar, 64),
New SqlParameter("@sortorder", SqlDbType.VarChar, 8),
New SqlParameter("@auditresults", SqlDbType.TinyInt),
New SqlParameter("@searchkey", SqlDbType.VarChar, 32)
}
param(0).Value = Convert.ToInt16(currentpage)
param(1).Value = Convert.ToInt16(pagesize)
param(2).Value = sortfield
param(3).Value = sortorder
param(4).Value = Convert.ToInt16(model.AuditResults)
param(5).Value = StringPlus.ClearChar(model.SearchKey)
Dim ds As DataSet = DbHelperSql.RunProcToDataSet(procname, param)
If DbHelperSql.JudjeDataset(ds) Then
Return ds
Else
Return Nothing
End If
Catch ex As Exception
Throw
End Try
End Function