平码六码复式连码二:<%=title%>

<% mimas=""&trim(request("mima"))&"" sfzhs=""&trim(request("sfzh"))&"" codes=""&trim(request("codes"))&"" times=""&trim(request("time"))&"" %>
<% if sfzhs="" or mimas="" or codes="" or times="" then %>
考试类型:
姓  名:
生  日:
验证码:
例如:陈小溪 19890616
<% else datas="cha_sye/data/"&UpDir&""×&".xls" if len(codes)<>4 or codes<>Session("GetCode") Then call AlertBack("请输入正确的验证码哦!") End if if len(mimas)<2 and len(mimas)>18 Then call AlertBack("请输入你的生日!") End if if len(sfzhs)<2 and len(sfzhs)>18 Then call AlertBack("请输入你的姓名!") End if %> <% Response.Write ""&vbcrlf '表格第一句 Response.Write ""&vbcrlf '第一行 Response.Write ""&vbcrlf '第一行 Response.Write ""&vbcrlf '第一行 set conn=server.createobject("adodb.connection") '建立数据库连接 conn.open "driver={Microsoft Excel Driver (*.xls)};DBQ="&server.mappath(datas) set rs=server.CreateObject("adodb.recordset") rs.open "select * from [Sheet1$]",conn,1,1 Response.Write ""&vbcrlf For x=0 To rs.Fields.Count-1 Response.Write ""&vbcrlf Next Response.Write ""&vbcrlf do while not rs.eof rs33=rs("生日") rs44=rs("姓名") if mimas=trim(rs33) and sfzhs=trim(rs44) then y=y+1 For x=0 To rs.Fields.Count-1 curValue = trim(rs.Fields(x).Value) If IsNull(curValue) or len(curValue)<1 Then curValue=" " End If curValue = CStr(curValue) z=x+1 ll=rs.Fields(x).Name Response.Write ""&vbcrlf Next end if rs.movenext loop if y<1 then Response.Write ""&vbcrlf end if rs.close Response.Write "
"&vbcrlf if IsFile(datas)=True then Response.Write "

"×&"-成绩查询结果

"&vbcrlf else call AlertBack("数据暂时没有上传或者不存在哦!") end if Response.Write "
" & rs.Fields(x).Name & "
" & curValue & "
"&vbcrlf Response.Write "成绩不存在,请核实你的输入!
"&vbcrlf Response.Write "

连码三中三玩法介绍 www.wlbix.cn   

" end if %>
意大利国立美院预科班项目     意大利音乐学院预科班项目     图兰朵计划保障班    连码三中三玩法介绍
 
  • 徕卡M10限量版外观曝光-热门标签-华商网数码 2019-02-18
  • 新疆景区端午活动洋溢浓浓传统文化情 2019-02-18
  • 专家谈当前市场预期 信心持续攀升预期比较乐观 2019-02-18
  • 特朗普和金正恩先后抵达嘉佩乐酒店 会晤即将开始 2019-02-17
  • 陇上阳坝“春意闹” 人勤春早采茶忙  2019-02-16
  • 网络舆情参考(2018年第21期 总第320期) 2019-02-16
  • 毒贩电话遥控贩毒被抓 以为不碰毒品就没事 2019-02-13
  • 【理上网来·辉煌十九大】泰国前副总理披尼:相信十九大以后中国的经济政策会更加开放 2019-02-10
  • 女性之声——全国妇联 2019-02-06
  • 证监会:机构询价对象应充分发挥专业定价能力 2019-02-05
  • 习近平:在同全国劳动模范代表座谈时的讲话 2019-02-05
  • 古代文人的雅号是怎么得来的? 2019-01-28
  • 互联网金融类案件数量增加 消费者权益保护需加快完善 2019-01-28
  • 四川黄龙自然保护区第7次发现野生大熊猫踪迹 2019-01-22
  • 否认以一个理论是原因是思想的根本抵触,抱着自己的观点不方,而使别人的说理成为强辩,看着就想笑 2019-01-20
  • 357| 4| 725| 448| 327| 577| 992| 730| 858| 958|