<%
   set conn=server.CreateObject("ADODB.Connection")
   str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("media.mdb")
   conn.open str
   dim filename
   id=request("id")
   set rs=server.CreateObject("ADODB.Recordset")
   sql="select * from media"
   rs.open sql,conn,1,1
   do while not rs.eof
    response.Write(rs("filename"))''''''这里可以正常输出
    response.Write(" ")
    if rs("id")=id then
     filename=rs("filename")
    end if
    response.Write(rs("id")&id)''''''这里也可以正常输出
    'filename=rs("filename")''''''这里可以正常赋值
    rs.movenext
   loop
response.write(filename)''''没东西输出，这是为什么？？？？
   %>

response.write(filename)
应该在循环里面吧

response.write(id)  '''''''''''输出结果是5
response.write(rs("id"))   '''''''''''输出结果也是5
''''''''''''''上面是前提
if id=rs("id") then
     response.write("ok")
else response.write("fail")
end if
''''''''''''''''''最后输出“fail”，为什么？？

知道了为什么了！！
id=Cint(request("id"))
这样就行