<% startime=timer() names=""&trim(request("name"))&"" sfzhs=""&trim(request("sfzh"))&"" codes=""&trim(request("code"))&"" times=""&trim(request("time"))&"" if names="" or codes="" or times="" or sfzhs="" then %>
<% else datas=""&UpDir&"/"×&".dat" if filekey(times)>0 then call AlertBack("请检查连接字串!") end if if len(codes)<>4 or codes<>Session("GetCode") Then call AlertBack("请输入正确的验证码哦!") End if if len(names)<1 and len(names)>18 Then call AlertBack("请输入"&duan&"!") End if if len(sfzhs)<1 and len(sfzhs)>18 Then call AlertBack("请输入"&huan&"!") End if if IsFile(datas)=True then else call AlertBack("数据暂时没有上传或者不存在哦!") end if Dim Fso22 Dim myFile22 Set Fso22 = Server.CreateObject("Scripting.FileSystemObject") Set myFile22 = Fso22.OpenTextFile(Server.MapPath(datas),1,True) While Not myFile22.AtEndOfStream shuju = myFile22.ReadLine zhide=split(shuju,VbTab) numde=Ubound(zhide) iii=iii+1 if iii=1 then '找到第一列的标题 line1=shuju ' Response.Write ""&vbcrlf For xM2T=0 To numde ' Response.Write "" & zhide(xM2T) & ""&vbcrlf if duan=zhide(xM2T) then dian=xM2T '查找列数 end if if huan=zhide(xM2T) then bian=xM2T '查找列数 end if Next ' Response.Write ""&vbcrlf if len(dian)=0 or len(bian)=0 then call AlertBack("请检查你设置的字段是否存在!") end if else rs33=trim(zhide(dian)) '读取查找列 第一列 rs44=trim(zhide(bian)) if instr(rs33," ")>0 then rs33=replace(rs33," ","") if instr(rs44," ")>0 then rs44=replace(rs44," ","") if rs33=names and rs44=sfzhs then yyy=yyy+1 Response.Write ""&vbcrlf Response.Write ""&vbcrlf For xM2T=0 To numde curValue = trim(zhide(xM2T)) 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 "
查询结果"&yyy&"
" & split(line1,VbTab)(xM2T) & "" & curValue & "
"&vbcrlf end if end if Wend myFile22.Close Set myFile22 = Nothing Set Fso22 = 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 "查询无此会员,请重新查询!
"&vbcrlf end if Response.Write ""&vbcrlf %>
<%end if endtime=timer()%>