ASP 使用jqGrid實作讀寫刪的程式碼(json)

作者：Eve Cole 更新時間：2025-02-16 21:00:03

因為有了比較成型的CMS，一直沒有捨棄ASP，一直想用.net重寫一下，是後話了。 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 至 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 = 標題 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