这个网站页面如何批量查询?
这个网站页面如何批量查询?http://zwfw.hubei.
谢谢。
[此贴子已经被作者于2022-7-3 08:44编辑过]
程序代码:CREATE CURSOR zkcj (姓名 c(10), 准考证号 c(12), 报名号 c(16), 语文 n(5,1), 数学 n(5,1), 英语 n(5,1))
xm0 = "朱勇"
zk = "294010015317"
bm = "2242940141240338"
xm = STRCONV(STRCONV(xm0, 9), 15)
xm = TRANSFORM(xm, "@R " + REPLICATE("%##", LEN(xm)/2))
lcUrl = "http://hbzw-gateway-prod.ehbapp.hubei.8060/ba05285d27974fceb00dd06503832f776cc78d8485fb47e282fac2d8ae0e9d43?xm=" + xm + "&zkzh=" + zk + "&bmp=" + bm
lcText = GETURL(lcUrl)
IF EMPTY(lcText)
RETURN ""
ENDIF
lcText = STREXTRACT(lcText, "[{", "}]")
ALINES(laText, lcText, 5, ",", ':"', ':')
INSERT INTO zkcj VALUES (xm0, zk, bm, VAL(latext[44]), VAL(laText[26]), VAL(laText[46]))
BROWSE
FUNCTION GETURL(UrlName)
lcStr = ""
oHTTP = CREATEOBJECT("MSXML2.XMLHTTP")
oHTTP.Open("GET", UrlName, .F.)
oHTTP.Send()
IF oHTTP.Status = 200
lcStr = oHTTP.ResponseText
ENDIF
RELEASE oHTTP
RETURN lcStr
ENDFUNC

程序代码:
//获取数据
function getDataList() {
var d = $.Deferred();
hbzwfwJssdk.notice.showPreloader({
text: "使劲加载中.."
});
var data = {
"xm":$("#xm").val(),
"zkzh": $("#zkzh").val(),
"bmp":$("#bmp").val()
};
$.ajax({
// url:'http://ehb.',
url:encodeURI('http://hbzw-gateway-prod.ehbapp.hubei.'),
type: 'get',
contentType: "application/json",
dataType: "json",
data: data,
success: function(resp) {