<%=title%>

<% '############################################################# '#作者邮箱: admin@ewuyi.net # '#作者主页: http://7384.org/ # '#系统定制:http://item.taobao.com/item.htm?id=13122708644 # '############################################################# names=""&trim(request("name"))&"" codes=""&trim(request("codes"))&"" times=""&trim(request("time"))&"" if names="" or codes="" or times="" then %>
查询选择:
员工姓名:
验 证 码:
请按照要求认真输入各选项哦
<% else datas="cha_sye/data/"&UpDir&""×&"."&geshi&"" '############################################################# '#系统定制:http://item.taobao.com/item.htm?id=13122708644 # '############################################################# if len(codes)<>4 or codes<>Session("GetCode") Then call AlertBack("请输入正确的验证码哦!") End if if len(names)<2 and len(names)>8 Then call AlertBack("请输入2-8汉字员工姓名!") End if Response.Write ""&vbcrlf if IsFile(datas)=True then Response.Write ""&vbcrlf else call AlertBack("数据暂时没有上传或者不存在哦!") end if '############################################################# '#作者邮箱: admin@ewuyi.net # '############################################################# Dim Fso Dim myFile Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set myFile = Fso.OpenTextFile(Server.MapPath(datas),1,True) While Not myFile.AtEndOfStream shuju = myFile.ReadLine zhide=split(shuju,VbTab) numde=Ubound(zhide) iii=iii+1 if iii=1 then '找到第一列的标题 Response.Write ""&vbcrlf For x=0 To numde Response.Write ""&vbcrlf if duan=zhide(x) then dian=x '查找列数 end if Next Response.Write ""&vbcrlf if len(dian)=0 then call AlertBack("请检查你设置的字段是否存在!") end if else rs33=trim(zhide(dian)) '读取查找列 第一列 if instr(rs33," ")>0 then rs33=replace(rs33," ","") if names=rs33 then yyy=yyy+1 Response.Write ""&vbcrlf For x=0 To numde curValue = trim(zhide(x)) If IsNull(curValue) or len(curValue)<1 Then curValue="-" End If curValue = CStr(curValue) Response.Write ""&vbcrlf Next Response.Write ""&vbcrlf end if end if Wend '############################################################# '#作者主页: http://www.7384.org/ # '#系统定制:http://item.taobao.com/item.htm?id=13122708644 # '############################################################# myFile.Close Set myFile = Nothing Set Fso = Nothing if yyy<1 then Response.Write ""&vbcrlf Response.Write ""&vbcrlf Response.Write ""&vbcrlf end if '############################################################# '#作者邮箱: admin@ewuyi.net # '#系统定制:http://item.taobao.com/item.htm?id=13122708644 # '############################################################# Response.Write "
"&names&"员工查询结果
" & zhide(x) & "
" & curValue & "
"&vbcrlf Response.Write "姓名"&names&"不存在!
"&vbcrlf Response.Write "

"&vbcrlf end if %>