fsend.asp

ASP仿QQ程序 web版的

<!--#include file="right.asa" -->
<%
recvnmb=request.QueryString("rid")
message=request.QueryString("msg")
rs.open "msg",conn,1,3
rs.addnew
rs("sendnmb")=session("nmb")
rs("recvnmb")=recvnmb
rs("message")=message
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.Cookies(cstr(session("nmb")))(recvnmb)="<font color=#ff0000>["&now()&"]　"&session("name")&"<br>"&message&"</font><br>"&request.Cookies(cstr(session("nmb")))(recvnmb)
response.Cookies(cstr(session("nmb"))).Expires=Date+365
response.Write("<script>window.close();</script>")
%>