网络寻呼机数据库版隐藏文件watch.asp

<%
    username=session("username")
    if username<>"" then

    set conn=server.createobject("adodb.connection")
    provider = "provider=microsoft.jet.oledb.4.0;"
    dbpath = "data source=" & server.mappath( "webuser.mdb" )

    conn.open provider & dbpath
    
    sql="select toname,isread,adddate from talks where toname="& username &"and isread=0 order by adddate"
    set rs=conn.execute(sql)
    if not rs.eof then
    response.write "<script>window.open(showmessage.,,width=580,height=400,scrollbars=yes)</script>"
    end if
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    
    end if

%>