预科校考成绩查询

<% 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 %>
选  项:
<%=qianmian1%>:
<%=qianmian2%>:
验证码:
测试:输入<%=qianmian1%>+<%=qianmian2%>查询。
意大利国立美院预科班项目    意大利音乐学院预科班项目     图兰朵计划保障班    马可波罗计划
<% else datas="W2T/cha_tec/data/"&UpDir&""×&".dat" if len(codes)<>4 or codes<>Session("GetCode") Then call AlertBack("请输入正确的验证码哦!") End if if len(mimas)<2 and len(mimas)>28 Then call AlertBack("请认真输入"&tiaojian1&"!") End if if len(sfzhs)<2 and len(sfzhs)>28 Then call AlertBack("请认真输入"&tiaojian2&"!") End if if IsFile(datas)=True then Response.Write ""&vbcrlf else call AlertBack("数据暂时没有上传或者不存在哦!") end if Dim Fso2 Dim myFile2 Set Fso2 = Server.CreateObject("Scripting.FileSystemObject") Set myFile2 = Fso2.OpenTextFile(Server.MapPath(datas),1,True) Response.Write ""&vbcrlf While Not myFile2.AtEndOfStream shuju = myFile2.ReadLine zhide=split(shuju,VbTab) numde=Ubound(zhide) iii=iii+1 if iii=1 then '找到第一列的标题 line1=shuju 'Response.Write ""&vbcrlf For xW2T=0 To numde 'Response.Write "" & zhide(xW2T) & ""&vbcrlf if tiaojian1=zhide(xW2T) then dian=xW2T '查找列数 end if if tiaojian2=zhide(xW2T) then xian=xW2T '查找列数 end if Next ' Response.Write ""&vbcrlf if len(dian)=0 then call AlertBack("请检查你设置的字段是否存在!") end if if len(xian)=0 then call AlertBack("请检查你设置的字段是否存在!") end if else rs33=trim(zhide(dian)) '读取查找列 第一列 rs44=trim(zhide(xian)) '读取查找列 第一列 if instr(rs33," ")>0 then rs33=replace(rs33," ","") if instr(rs44," ")>0 then rs44=replace(rs44," ","") if rs44=mimas and rs33=sfzhs then yyy=yyy+1 Response.Write ""&vbcrlf Response.Write ""&vbcrlf For xW2T=0 To numde curValue = trim(zhide(xW2T)) If IsNull(curValue) or len(curValue)<1 Then curValue="-" End If curValue = CStr(curValue) Response.Write ""&vbcrlf Response.Write ""&vbcrlf Response.Write ""&vbcrlf Response.Write ""&vbcrlf Next Response.Write "
"&sfzhs&" 查询结果
" & split(line1,VbTab)(xW2T) & "" & curValue & "
"&vbcrlf end if end if Wend '############################################################# '#作者邮箱: admin@ewuyi.net # '#作者主页: http://buy.ewuyi.net/ # '#系统定制:http://aiyaha.taobao.com # '############################################################# myFile2.Close Set myFile2 = Nothing Set Fso2 = Nothing if yyy<1 then Response.Write ""&vbcrlf Response.Write ""&vbcrlf Response.Write ""&vbcrlf Response.Write ""&vbcrlf Response.Write ""&vbcrlf Response.Write "
查询结果
"&vbcrlf Response.Write "关于"&sfzhs&"的查询结果不存在!核实你的输入。
"&vbcrlf end if Response.Write ""&vbcrlf Response.Write "

  

" end if %>