Jmail看来玩不转了。只能用笨办法，给每个需要用到发信的文件单独添加发信代码。
但是在提取收件人信箱上，我不会。请高手指教。
比如这个文件，larchives 表里面有email字段。
当有人向他提出交友申请时，Jmail的这一句JMail.AddRecipient (rs_lar("email")) 会取得信箱。
但我下面这样写的有错误。估计是在记录集上的错误。
麻烦高手帮我一下……感激不尽！

<%
dim conn,DBPath
dim rs_apply,rs_lar
dim user_id,netname,sql

'叛断Session变量是否超时
if isempty(session("u_id")) then
response.redirect "timeout.asp"
end if

'-----------------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("mdb/date.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'-----------------------------------------------------------------
if session("u_id")=1 then
    response.redirect "notreg.asp"
    response.end
end if

user_id=request("user_id")
netname=request("netname")

set rs_apply=server.createobject("adodb.recordset")
sql="select * from apply where (for_id=" & session("u_id") & " and user_id=" & user_id & ") or (user_id=" & session("u_id") &

" and for_id=" & user_id & ")"
rs_apply.open sql,conn,3,2
if not(rs_apply.eof and rs_apply.bof) then
    response.redirect "info.asp?msg=你已经向对方发出交友请求或者对方已经向你发出交友请求了"
    response.end
end if
rs_apply.close
set rs_apply=nothing

set rs_lar =server.createobject("adodb.recordset")
sql="select * from larchives where user_id=" & cstr(session("u_id"))
rs_lar.open sql,conn,3,2
if rs_lar.eof and rs_lar.bof then
    response.redirect "notreg.asp"
    response.end
end if

set rs_apply=server.createobject("adodb.recordset")
rs_apply.open "apply",conn,3,2
rs_apply.addnew
rs_apply("for_id")=user_id
rs_apply("user_id")=session("u_id")
rs_apply("user_name")=rs_lar("name")
rs_apply("user_netname")=rs_lar("netname")
rs_apply("user_sex")=rs_lar("sex")
rs_apply("user_age")=rs_lar("age")
rs_apply("user_home")=rs_lar("home")
rs_apply("apply_date")=date
rs_apply.update
rs_apply.close
rs_lar.close
set rs_lar=server.createobject("adodb.recordset")
sql="select renqi from larchives where user_id =" & user_id
rs_lar.open sql,conn,3,2
rs_lar("renqi")=rs_lar("renqi")+1
rs_lar.update
rs_lar.close
set rs_lar=nothing

Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
.......
.......
JMail.AddRecipient (rs_lar("email")) ' 加入一个收件人【变量email：收件人地址】
......
......

JMail.Close
Set JMail=nothing

conn.close
set conn=nothing
response.redirect "read.asp?user_id=" & user_id
%>