<% 'Option Explicit ' http:/zscj/yuluqu_2020.asp '错误处理机制 On Error GoTo 0 '缓冲 Response.Buffer = True 'Response.CodePage=936 '字符集 'Response.Charset = "GB2312" '脚本最长运行时间,单位:秒 Server.ScriptTimeout = 30 'Session 生存时间,单位:分钟 Session.Timeout = 30 Dim DB_CONNECTION_STRING,dbpath_Onstage,dbpath_Backstage dbpath_Onstage ="zscj_2020.mdb" dbpath_Backstage="../zscj_2020.mdb" Const PRICE_SCALE = 2 DB_CONNECTION_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath(dbpath_Onstage) tit = "合肥科技职业学院2020年分类考试预录取名单查询" %> 涔愰118鎵嬫満瀹樼綉 - 涔愰歩lt118缃戦〉鐗 <% if date() < cdate("2020/8/10") then set ado = new adodb ado.Connection DB_CONNECTION_STRING dim id,xm,sfzh,cj1,cj2,cj3 dim action action = safe(request.Form("action"),100) if action = "post" then If(Request.Form("scode")) <> session("GetCode") Then Response.Write("") Response.End() End If xm = safe(request.Form("xm"),200) sfzh = safe(request.Form("sfzh"),200) sql = "select * from yuluqu_2020 where xm='" & xm & "' and sfzh='" & sfzh & "'" ado.query sql %>

<% = tit %>

<% if ado.eof then %>

无此考生,请核对输入的姓名与身份证号是否正确。

<% else 'cj = ado("cj") ksh = ado("ksh") If ado("jg") = "预录取" Then %>

<% = xm %> 同学,恭喜您已被我院预录取,感谢您对学院的关注和认可,请在 6月17日—19日登录安徽省教育招生考试院官网 http://www.ahzsks.cn 确认录取信息。如有疑问请联系学院驻当地招生老师。

对录取专业不满意的同学,入学报到时可以调整专业!合肥科技职业学院欢迎您的加入。


合肥科技职业学院
2020年06月16日
<% Else %>
<% = xm %> 您好,很遗憾,您的分数未能达到我院预录取分数线!感谢您对学院的认可。如有疑问请联系学院驻当地招生老师。

合肥科技职业学院
2020年06月16日
<% end If end if%>
<% else %>

<% = tit %>

身份证号
姓名
验证码 验证码

<%end if else %>

查询接口正在维护,请稍后访问

<% end if %>