adauhuehkek最近做项目的时候遇到一个需求,需要在录入数据的时候检索已经存在的数据记录,并从中提取相似的数据进行展示并选择,以提高录入效率,简单的说,这个功能有点像在谷歌、百度搜索框里输入一个关键字,然后自动在下边列举出与关键字相似的信息供选择。好啦,现在功能说完了,下边就直入正题,把两种方法都列出来,以供需要的人去选择使用,其实两种方法的区别之处很小,主要是在返回检索结果时调用方法不一样,一种是map(),另一种是each(),这两个方法的区别我就不说了,简单总结就是map()要从建数组,each()直接返回原始数组,基于这一点,在内存开销上显然each()更好一点,当然,这个也不一概而论,看各自需求了。
服务端:
getAddress.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
<!-- #include file="Conn.asp" -->
<!-- #include file="TypeJson.asp" -->
<% dim myrs,sqlstr,singleJson,sqlstr2,q Set myrs=server.CreateObject( "adodb.recordset" )
'q=Replace(Request.QueryString("q"),"' ", "''" )
q=request.Item( "param" )
set singleJson = new MtRecToJson
sqlstr = "select address from callrecord where address like'%" &q& "%'"
sqlstr2= "select id,usr,uid,usrType,corp from usr order by id"
sqlstr3= "select top 1 * from usr where 1=2"
if q<> "" or q<> null then
myrs.Open sqlstr,Conn,1.1
else myrs.Open sqlstr2,Conn,1.1
end if
singleJson.setRecordset(myrs) response.write singleJson.getListJsonDB() if not IsEmpty(myrs) then
if myrs.State>0 then
myrs.close
end if
set myrs = nothing
end if
conn.close set conn = nothing %> |
TypeJson.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
<% 'JSON 接口通用类 Class MtRecToJson private recordset
private json_str
private mask_fields
private Sub Class_Initialize
end sub
' public property let setRecordset(byval rec)
' set recordset = rec
'end property
'设置值 参数为ADODB.recordset对象
public sub setRecordset(rec)
if TypeName(rec)= "Recordset" then
set recordset = rec
end if
end sub
'获得JSON
public Function getOneJsonDB()
dim i
json_str = "{"
if not IsEmpty(recordset) then
For i= 0 To recordset.fields.count- 1
json_str = json_str & "" "" &recordset.fields(i).name& "" ""
json_str = json_str & ":"
json_str = json_str & "" ""
if not recordset.eof then
json_str = json_str & recordset.fields(i).value
end if
json_str = json_str & "" ""
if i<recordset.fields.count- 1 then
json_str = json_str & ","
end if
Next
end if json_str = json_str & "}"
getOneJsonDB = json_str
end function
'获得JSON 格式的list
public Function getListJsonDB()
dim i,k
json_str = json_str & "["
if not IsEmpty(recordset) then
For k= 0 To recordset.recordcount- 1
if k>=recordset.pageSize then Exit for
If recordset.Eof Then Exit For
json_str = json_str & "{"
For i= 0 To recordset.fields.count- 1
json_str = json_str & "" "" &recordset.fields(i).name& "" ""
json_str = json_str & ":"
json_str = json_str & "" ""
if not recordset.eof then
json_str = json_str & recordset.fields(i).value
end if
json_str = json_str & "" ""
if i<recordset.fields.count- 1 then
json_str = json_str & ","
end if
Next
json_str = json_str & "}"
if k<recordset.recordcount- 1 then
json_str = json_str & ","
end if
recordset.MoveNext
next
end if if (Right(json_str, 1 )=Chr( 44 )) then'查看拼接字符串最后是否有异常(偶尔存在逗号,不知道为什么),如果有就主动添加一个结尾字段
json_str = json_str & "" "end" "]"
else
json_str = json_str & "]"
end if
getListJsonDB = json_str
end function end class
%> |
客户端:
show.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
<!DOCTYPE html> <html> <head> <meta charset= "UTF-8" >
<title>Remote JSON</title>
<link href= "css/themes/default/easyui.css" rel= "stylesheet" />
<link href= "css/themes/icon.css" rel= "stylesheet" />
<link href= "css/themes/color.css" rel= "stylesheet" />
<script type= "text/javascript" src= "script/jquery.min.js" ></script>
<script type= "text/javascript" src= "script/jquery.easyui.min.js" ></script>
<script type= "text/javascript" src= "script/easyui-lang-zh_CN.js" ></script>
</head> <body> <h2>Remote JSON</h2>
<p>This sample shows how to use JSON to retrieve data from a remote site.</p>
<div style= "margin:20px 0" ></div>
<div class = "easyui-panel" style= "width:100%;max-width:400px;padding:30px 60px;" >
<div style= "margin-bottom:20px" >
<input id= "s1" name= "s1" class = "easyui-combobox" style= "width:100%;" />
</div>
</div>
<script language= "javascript" >
var myloader = function (param, success, error) {
var q = param.q || '' ;
if (q.length < 2 ) { return false }
$.ajax({
type: 'post' ,
url: 'getAddress.asp' ,
dataType: 'json' ,
//contentType: 'application/x-www-form-urlencoded:charset=UTF-8',
data: { param: q },
success: function (data) {
//alert(data);
// var items = $.map(data, function(value) {
// return {
// address: value
// };
// });
var items = $. each (data, function (value) {
return this ; //遍历数组中的值
});
success(items); //调用loader的success方法,将items添加到下拉框中
},
error: function () {
error.apply( this );
}
});
}
$( function () {
$( '#s1' ).combobox({
loader: myloader,
mode: 'remote' ,
valueField: 'address' ,
textField: 'address' ,
editable: 'true' ,
hasDownArrow: false
});
})
</script>
</body> </html> 本文转自问道博客51CTO博客,原文链接http://blog.51cto.com/450236/1836605如需转载请自行联系原作者
|
crackernet |