| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 7180 人关注过本帖
标题:如何批量查询高考成绩?????
取消只看楼主 加入收藏
bcly0808
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2013-3-22
结帖率:50%
收藏
 问题点数:0 回复次数:8 
如何批量查询高考成绩?????
成绩查询登录页面:http://www.
成绩结果显示页面:http://www.

以下是在梅子论坛中看到的老中医老师的上传的代码 为何调试没有成功?

Clear
Close Databases
Set Decimals To 0
poWinHttp = Createobject("WinHttp.WinHttpRequest.5.1")
*!* 来路的绝对地址

sURLR = "http://www.

*!* 防盗链地址
sUrl = "http://www.
poWinHttp.Open("POST", sUrl, .F.)
poWinHttp.SetRequestHeader("Referer", sURLR )  && 页面判断,就是.SetRequestHeader("Referer", "来路的绝对地址")
poWinHttp.SetRequestHeader("content-type", "application/x-www-form-urlencoded", "charset=utf-8")  && 提交 urlencode 编码的表单
*!*    Create Table 高考成绩单 ( 准考证号 C (20), 身份证号 C (20), 姓名 C (20), ;
原始总分 N (8), 考生加分 N (8), 语文成绩 N (8), 数学成绩 N (8), 外语成绩 N (8), ;
综合成绩 N (8), 能力测试 N (8) )
Select 0
Use 高考成绩单 EXCLUSIVE
Zap
Select 0
Use Book11.Dbf
Go Top
Scan For !Empty(Book11.xm)
    Wait Window "正在提取:" + Alltrim(Book11.xm) + " 的信息," + Chr(13) + ;
        "现在是第:" + Alltrim(Str(Recno())) + " 个" Nowait
    m.ksh = Book11.ksh  && 考生号
*    m.sfz = Book11.Sfz  && 身份证后四位数
    m.xm = Book11.xm   && 姓名
    =GetData(m.ksh, m.xm)
Endscan
Wait Window "提取完成。" Timeout 1
Select 高考成绩单
Go Top
Browse Last


Function GetData
    Parameters m.ksh, m.xm
    PostData = [ksh=] + M.ksh + [&] + [xm=] + M.xm
    =poWinHttp.Send(PostData)  && 提交表单
    =Inkey(0.5)
    ? poWinHttp.Status, poWinHttp.StatusText && 判别返回的状态,如果是:200,则:OK
    If poWinHttp.Status = 200
        cStr = poWinHttp.ResponseText
        ?? cstr
        Select 高考成绩单
        Insert Into 高考成绩单 Values ( ;
        m.ksh,m.Xm;
        VAL(Strextract(cStr, '语文:</span><span class="table1">', '</span>')), ;
        VAL(Strextract(cStr, '数学成绩</span><span class="table1">', '</span>')), ;
        VAL(Strextract(cStr, '外语成绩</span><span class="table1">', '</span>')), ;
        VAL(Strextract(cStr, '综合成绩</span><span class="table1">', '</span>')), ;
        VAL(Strextract(cStr, '基本能力测试</span><span class="table1">', '</span>')) ;
        )
        Select Book11
    Else
        ? "错误!"
    Endif
    Return
程序所需附件.rar (1.82 KB)


[此贴子已经被作者于2019-7-9 21:36编辑过]

搜索更多相关主题的帖子: 查询 高考 成绩 Select class 
2019-07-09 20:58
bcly0808
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2013-3-22
收藏
得分:0 
回复 4楼 sdta
数据刚才没有上传成功
2019-07-09 21:37
bcly0808
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2013-3-22
收藏
得分:0 
回复 3楼 红星二锅头
这回所需的数据上传了,刚才没有上传成功
2019-07-09 21:38
bcly0808
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2013-3-22
收藏
得分:0 
回复 7楼 sdta
这是查询到了吗???
2019-07-10 06:58
bcly0808
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2013-3-22
收藏
得分:0 
回复 9楼 dzy123
你这个是有验证码的,好像更不容易
2019-07-10 08:02
bcly0808
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2013-3-22
收藏
得分:0 
回复 11楼 xuminxz
我们这县市级考试院(招生办)都没有,考生都是自己查询自己的
2019-07-10 08:52
bcly0808
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2013-3-22
收藏
得分:0 
回复 14楼 sxy166
看来这是个一很难的问题,应该还是网址是问题
2019-07-10 10:22
bcly0808
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2013-3-22
收藏
得分:0 
回复 16楼 sdta
学习了,继续研究如何批量查询
2019-07-10 13:40
bcly0808
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2013-3-22
收藏
得分:0 
回复 16楼 sdta
我发的老中医老师的哪段代码也找到问题了,是姓名的问题,姓名中文,如何将中文转换成url编码呢

[此贴子已经被作者于2019-7-10 14:11编辑过]

2019-07-10 14:01
快速回复:如何批量查询高考成绩?????
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017848 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved