<%
dim accept_u,send_u,ccept_u,topic,word
sub mail(send_u,accept_u,topic,word)
'------------ΧΤ„Σ°lΠΕ
dim rsm
        set rsm=server.createobject("adodb.recordset")
     sql="select * from user_mail"
        rsm.open sql,conn,1,3
        rsm.addnew
  username=trim(request.form("username"))
  password=trim(request.form("password"))
        rsm("send_u")=send_u
        rsm("accept_u")=accept_u
        rsm("topic")=topic
        rsm("word")=word
        rsm("tim")=now()
        rsm("types")=1
        rsm("isread")=0
        rsm.update
        rsm.close
'------------ΧΤ„Σ°lΠΕ
end sub%>