ASP 使用jqGrid实现读写删的代码(json)

　　jqGrid是一个优秀的基于jQuery的DataGrid框架，想必大伙儿也不陌生，网上基于ASP的资料很少，我提供一个，数据格式是json的：

　　、一个针对jqGrid的json类：这段代码似乎是由官网论坛的一些PHP中转化而来，我们存为json.asp，代码贴一下：

复制代码代码如下:

　　response.Charset="utf-8"

　　'---------------------------------------

　　' JSONClass类

　　' 将Select语句的执行结果转换成JSON

　　'------------------------------------------

　　Class JSONClass

　　' 定义类属性，默认为Private

　　Dim SqlString ' 用于设置Select

　　Dim JSON ' 返回的JSON对象的名称

　　Dim DBConnection ' 连接到数据库的Connection对象

　　' 可以外部调用的公共方法

　　Public Function GetJSON ()

　　dim Rs

　　dim returnStr

　　dim i

　　dim oneRecord

　　' 获取数据

　　Set Rs= Server.CreateObject("ADODB.Recordset")

　　Rs.open SqlString,DBConnection,1,1

　　if page<>"" then

　　epage=cint(page)

　　if epage<1 then epage=1

　　if epage>rs.pagecount then epage=rs.pagecount

　　else

　　epage=1

　　end if

　　rs.pagesize = rows

　　rs.absolutepage = epage

　　' 生成JSON字符串

　　if Rs.eof=false and Rs.Bof=false then

　　returnStr="{ total: "& rs.pagecount &", page: "& page &", records: "& rs.recordcount &", rows:["

　　for j=0 to rs.pagesize-1

　　if rs.bof or rs.eof then exit for

　　' -------

　　'oneRecord = "{id:" & chr(34) &Rs.Fields(0).Value&chr(34)&",cell:["& chr(34) &Rs.Fields(0).Value&chr(34)&","

　　oneRecord = "{id:" & chr(34) &Rs.Fields(0).Value&chr(34)&",cell:["& chr(34) &Rs.Fields(0).Value&chr(34)&","

　　for i=1 to Rs.Fields.Count -1

　　'oneRecord=oneRecord & chr(34) &Rs.Fields(i).Name&chr(34)&":"

　　oneRecord=oneRecord & chr(34) &Rs.Fields(i).Value&chr(34) &","

　　'去除记录最后一个字段后的","

　　oneRecord=left(oneRecord,InStrRev(oneRecord,",")-1)

　　oneRecord=oneRecord & "]},"

　　'------------

　　returnStr=returnStr & oneRecord

　　Rs.MoveNext

　　' 去除所有记录数组后的","

　　returnStr=left(returnStr,InStrRev(returnStr,",")-1)

　　returnStr=returnStr & "]}"

　　end if

　　Rs.close

　　set Rs=Nothing

　　GetJSON=returnStr

　　End Function

　　'私用方法，在类中使用

　　Private Function check()

　　End Function

　　End Class

　　2、制作显示数据的asp文件，如：list.asp，代码如下

复制代码代码如下:

　　dim page,rows,sidx,sord

　　page = request.QueryString("page") 'page

　　rows = request.QueryString("rows") 'pagesize

　　sidx = request.QueryString("sidx") 'order by ??

　　sord = request.QueryString("sord")

　　if page="" then page = 1 end if

　　if rows = "" then rows = 10 end if

　　if sidx = "" then sidx = "id" end if

　　if sord = "" then sord ="asc" end if

　　Dim strSearchOn, strField, strFieldData, strSearchOper, strWhere

　　strSearchOn = Request("_search")

　　If (strSearchOn = "true") Then

　　strField = Request("searchField")

　　If (strField = "id" Or strField = "Title" Or strField = "NickName") Then

　　strFieldData = Request("searchString")

　　strSearchOper = Request("searchOper")

　　'construct where

　　strWhere = " Where " & strField

　　Select Case strSearchOper

　　Case "bw" : 'Begin With

　　strFieldData = strFieldData & "%"

　　strWhere = strWhere & " LIKE '" & strFieldData & "'"

　　Case "eq" : 'Equal