Question

帮忙写一个asp小程序 高手来

用户通过GET方式提交一个数据 如index.asp?txt=XXXXX
查询一个文本文件(如:abc.txt 里面的数据每行一个)中是否有XXXXX这个数据 如果有输出YES没有输出NO 代码要尽量高效 简洁
要用GET方式

Answer 1

<%
dim x,y,b
b=0 'b为是否找到的标志,找到则为1,没找到则为0
x=Request.QueryString("txt") '取出get方式提交过来的信息

set fs=Server.CreateObject("Scripting.FileSystemObject")
f=Server.Mappath("abc.txt") '将abc.txt的相对路径转成物理路径
set a=OpenTextFile(f) '以只读的方式打开abc.txt文件
do while not a.AtEndOfStream '如果指针不是文件的尾就循环
y=a.ReadLine '从文件中读出一行数据
if x=y then '如果与提交来的数据相等就将b赋值1,然后退出循环
b=1
Exit do
end if
loop

if b=1 then '根据b的值输出YE或NO
Response.Write "YES"
else
Response.Write "NO"
end if
%>

Answer 2

a.asp<%
aaa=request("aaa") %>
<form action=b.asp method=post>
<input type=text name=aaa value=<%=aaa %>>
<input type=submit value=提交>
</form>
b.asp<%
aaa=request.form("aaa")
response.write aaa
%>

{request("aaa") % >}