首页 - 招生院校 > [Asp]高考成绩查询,每次只能查一个,可我的能查200个!

[Asp]高考成绩查询,每次只能查一个,可我的能查200个!

发布于：2022-05-16 20:03:20 作者：admin

　　今天中午将程序整理了一下,重发一下!请各位指教:)

　　<%Server.ScriptTimeOut=400%>

　　<html><HEAD><title>江苏省2000年高考成绩查询系统</TITLE></HEAD><BODY>

　　<H2 >江苏省2000年高考成绩查询系统</H2>

　　<FORM METHOD="POST" ACTION="<%=Request.ServerVariables("script_name")%>">

　　请输入起始准考证号码:

　　<INPUT TYPE="TEXT" NAME="first" value="001540001">以下

　　<INPUT TYPE="submit" name="Records" value="200">

　　<INPUT TYPE="submit" name="Records" value="100">

　　<INPUT TYPE="submit" name="Records" value="50">

　　<INPUT TYPE="submit" name="Records" value="20">

　　<INPUT TYPE="submit" name="Records" value="10">

　　<INPUT TYPE="submit" name="Records" value="1">个

　　<P>

　　</FORM>

　　<table width="80%">

　　<%

　　'从表单获取起始准考证号和一次性查询个数信息

　　startnumber=request.form("first")

　　if len(request.form("first"))<>9 or not isnumeric(request.form("first")) then response.write _

　　"<b>请在上面的框内输入您要查询的首位码(必须为""00""开头的9位数字)!</TABLE></BODY></HTML>" :response.end

　　Records= REQUEST.form("Records")

　　'ASPHTTP组件从这里开始使用!

　　Set ")

　　'开始逐个查询考分

　　for i=1 to records

　　 "

　　 '以下几句是在分析高考查分析站点的用户输入页面时得出的,不同站点当然不一样啦,要自己分析哟:)

　　 ' 属性定义查询单个考分时从用户页面提交的参数表，其中可变部分是准考证号的尾数。

　　

　　 '定义提交方式,仿照用户点击按钮时的POST提交方法,这是也是我编写此ASP程序的根本原因:)

　　 "

　　 '要想获得数据现在变得很简单!只要用GetURL方法,就可将查询结果页面的HTML代码返回给ASP中的变量,听候处理!

　　 strResult =

　　 'response.write strresult

　　 '获得的HTML代码中如果有“英语”一词，则表明这个考生的分数查到啦！那就处理一下，然后输出吧!

　　 IF INSTR(strResult,"准考证号")>0 THEN

　　 '先去掉那可恶的多余的空格!

　　 strresult=cutspace(strresult)

　　 '再把所有字符变成小写

　　 strresult=lcase(strresult)

　　 '返回的页面中有许多广告之类的信息你还想要吗?鬼才想要!取其精华吧:)

　　 b1=findstr(1,strresult,"<tr",27) '我自己写的函数,不由得你不用哟:)

　　 e1=findstr(b1,strresult,"/tr>",1) '先找出“精华”的起始位置，再从这里开始找到“精华”的末了位置。

　　 response.write mid(strresult,b1,e1-b1+4) '然后将“精华”从头至尾输出到用户浏览器上。

　　 'response.write strresult

　　 END IF

　　'接着再回去查下一个学生的成绩吧

　　next

　　set

　　function findstr(start,strall,str2find,times)

　　'此函数用来查找STR2FIND字符在STRALL中从第START个字符开始第TIMES次出现的位置!

　　xy=instr(start,strall,str2find)

　　for i2=1 to times-1

　　xy=instr(xy+1,strall,str2find)

　　next

　　findstr=xy

　　end function

　　function cutspace(strall)

　　'此函数把字串中的所有连续多个空格都替换为一个空格!

　　do while instr(1,strall," ")>0

　　strall=replace(strall," "," ")

　　strall=replace(strall," "," ")

　　loop

　　cutspace=strall

　　end function

　　%>

　　</table>

　　</body></html>

[Asp]高考成绩查询,每次只能查一个,可我的能查200个!

二维码

扫一扫关注我们

版权声明：本文内容由互联网用户自发贡献，本站不拥有所有权，不承担相关法律责任。

本站部分文字及图片均来自于网络，如有侵权请及时联系删除处理，欢迎发送邮件

标签： #高考 #成绩 #查询 #查一个 #Asp

上一篇：【下载】《行政执法类申论真题》（5套）

下一篇：2008年云南省大学生村官考试成绩查询信息

相关文章

网站地图|关于我们|联系我们|广告合作|会员服务|

客户热线：

客服邮箱：

二维码

本站部分文字及图片均来自于网络，如有侵权请及时联系删除处理

Copyright © 2022 招生信息网版权所有