最后一个：聊客用来屏蔽不想见到的人admin/hideuser.asp，如想要源码到我的主页下载

最后一个：聊客用来屏蔽不想见到的人admin/hideuser.asp
<%
whoto=request.form("whoto")
user=request.form("user")
screen=request.form("hdish")
chatdata=application("chatdata")
select case screen
case "1"
    sendid=finduser(user)
    reciid=finduser(whoto)
    if sendid<51 and reciid<51 then
    if instr(chatdata(sendid,5),",'"&whoto&"'")<1 then
        chatdata(sendid,5)=chatdata(sendid,5)&",'"&whoto&"'"
        application.lock
        application("chatdata")=chatdata
        application.unlock
        dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,你成功屏蔽"&whoto&"的聊天内容"
    else
        dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,"&whoto&"已在屏蔽名单中"
    end if
    else
    if reciid=51 then dispstr=right("0"&time,8)&",系统,0,"&user&",ff0000,0,"&whoto&"不在此聊天室"
    end if
case "0"
    sendid=finduser(user)
    reciid=finduser(whoto)
    if sendid<51 then
    if whoto="所有人" then
        chatdata(sendid,5)=""
    else
        chatdata(sendid,5)=replace(chatdata(sendid,5),",'"&whoto&"'","")

补充：asp教程,高级应用