asp如何实现聊天对象的链接？

需要在两个文件中实现：
首先，在talker.asp（在线名单）中做如下处理：

<％
p1=trim(application("visitorname"))      
' 循环读取每个聊友的昵称
    dim aa  
    for k=1 to len(p1)
      p2=mid(p1,k,1)
      if p2="," then
        aa=p3
      ％>
<FONTsize=-1><％=application("visitor_sex")％></FONT><a  target="rlbottom" href="send.asp?select1=<％=aa％>" >
' target用来执行提交的目标
      <br>
      <％=p3％>
      </a>
      <％p3=""
      else
        p3=p3&p2
      end if
％>
<％next％>

再在send.asp（发言）中进行判断，一般来说，send.asp是个框架文件：

对象:

<select name="d1" size="1">
<％if trim(Request.QueryString("select1"))<>"" then ％>
<option value=<％=Request.QueryString ("select1")％> selected>
<％=Request.QueryString ("select1")％>
</option>
<option value="all">全部</option><％=application("listname")％>  
<％
     else％>
     <option value="all" selected>全部</option><％=application("listname")％>  
<％end if％>
</select>

现在，我们就实现了聊天对象的点选功能。其实，这一功能还可与聊天室里的其它框架文件配合使用。