求救 我想实现查找

[haoshunqing]

<%
set rs=server.createobject("adodb.recordset")
sql="select * from SMT_yp order by SMT_date desc"
rs.open sql,conn,1,1
do while not rs.eof
filename = "u/"&rs("SMT_user")&".html"
Dim fso,isExist
Set fso = CreateObject("Scripting.FileSystemObject")
If (not fso.FileExists(server.MapPath(filename))) Then
Set fso = Nothing
%>
<tr bgcolor=#efefef>
<td height=25 align=center><a href="<%=courl(rs("SMT_user"))%>" target=_blank><%=LeftT(trim(rs("SMT_coname")),28)%></a></td>
<td height=25 align=center><input type="checkbox" name="ID" value="<%=rs("SMT_id")%>" style="border:0"></td>
</tr>
<%end if%>
<% rs.movenext
loop
rs.close
%>
把网页和用户名相同的用户就查找出来