% '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年分类考试预录取名单查询" %>
<% = tit %> <% if ado.eof then %>无此考生,请核对输入的姓名与身份证号是否正确。 <% else 'cj = ado("cj") ksh = ado("ksh") If ado("jg") = "预录取" Then %>
<% = tit %> <%end if else %>查询接口正在维护,请稍后访问 <% end if %> |