查询系统
前几天做了个大学英语四六级成绩查询系统,一个 phprpc 版本,一个 wap 版本。它们的核心代码都是相同的。下面就是从 etang.cet 获取大学英语四六级成绩的核心代码:
下载: cetquery.php
-
function query($examid, $examtype) {
-
$examid = trim($examid);
-
$examtype = trim($examtype);
-
if (!is_numeric($examid)) {
-
return '准考证号码必须是数字';
-
}
-
if (strlen($examid) != 15) {
-
return '准考证号码不正确';
-
}
-
if ($examtype == '1') {
-
if ((substr($examid, 6, 4) != '0521') &&
-
(substr($examid, 6, 4) != '1052')) {
-
return '准考证号码与考试类型不符';
-
}
-
}
-
if ($examtype == '2') {
-
if ((substr($examid, 6, 4) != '0512') &&
-
(substr($examid, 6, 4) != '0522') &&
-
(substr($examid, 6, 4) != '2052')) {
-
return '准考证号码与考试类型不符';
-
}
-
}
-
$examid1 = substr($examid, 0, 6) . $examtype . '052' . substr($examid, 10, 5);
-
$request = "examtype=$examtype&examid=$examid&image.x=23&image.y=32";
-
$content_len = strlen($request);
-
$handle = @fsockopen('cet.etang.com', 80, $errno, $errstr, 10);
-
$buf = '';
-
$id = base_convert(mt_rand().mt_rand(), 10, 36);
-
if ($handle) {
-
$http_request =
-
"POST /dog/cet HTTP/1.0\r\n" .
-
"Accept: */*\r\n" .
-
"Referer: http://cet.etang.com/cet_girldemand_$id.htm\r\n" .
-
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Alexa Toolbar)\r\n" .
-
"Host: cet.etang.com\r\n" .
-
"Content-Type: application/x-www-form-urlencoded\r\n" .
-
"Content-Length: $content_len\r\n" .
-
"Cache-Control: no-cache\r\n" .
-
"Cookie: zi=A; examid1=$examid; examtype1=$examtype; sex=girl; examid=$examid1; examtype=$examtype\r\n" .
-
"\r\n" .
-
$request;
-
fputs($handle, $http_request, strlen($http_request));
-
while (!feof($handle)) {
-
$buf .= fgets($handle, 128);
-
}
-
fclose($handle);
-
}
-
else {
-
return "查询服务器暂时无法连接";
-
}
-
$buf = explode("\r\n", $buf);
-
$buf = $buf[11];
-
$score = "";
-
if (substr($buf, 0, 18) == 'Set-Cookie: score=') {
-
$score = substr($buf, 18, strpos($buf, ';') - 18);
-
}
-
if (($score != '') and ($score != 'error')) {
-
$score = explode(',', $score);
-
}
-
else {
-
return '你所查询的准考证号码不存在';
-
}
-
return $score;
-
}