平码六码复式连码二:<%=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 %>
意大利国立美院预科班项目     意大利音乐学院预科班项目     图兰朵计划保障班    连码三中三玩法介绍
 
  • 中外学者齐聚拉萨 首届中国西藏拉萨阿里象雄文化国际学术研讨会召开 2018-12-04
  • 网友给赣州市委书记留言获回复 共计10条 2018-12-04
  • 第十届海峡论坛在厦门举行 2018-11-30
  • 2018年端午节假期交通事故起数、死亡人数同比下降 2018-11-30
  • 左手公信,右手公益,两手都硬气 2018-11-28
  • 电商促销不得强迫商家“二选一” 2018-11-28
  • 广西出台回复人民网网友留言暂行规定 2018-11-28
  • 宁夏积极探索基层互联网+医疗 2018-11-27
  • 异类非人思维。如一尼安德特人从2万年前发出的声音。 2018-11-27
  • 澳媒:克隆猴用于医学才刚开始 2018-11-27
  • 盛屯矿业:关于“16盛屯01”公司债券回售的第一次提示性公告 2018-11-27
  • 吃着吃着 你就文艺了! 2018-11-23
  • 【专题】传统文化点亮精彩生活 2018-11-23
  • 发挥好人力人才资源优势 促进产业迈向中高端 努力实现高质量发展 2018-11-22
  • 乌鲁木齐市中级人民法院庭审在线直播 2018-11-22
  • 719| 955| 211| 563| 607| 732| 805| 249| 840| 336|