<%=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 "

  

" end if %>
意大利国立美院预科班项目     意大利音乐学院预科班项目     图兰朵计划保障班    马可波罗计划