senddate.asp

ASP仿QQ程序 web版的

<!--#include file="right.asa" -->
<%
	function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;")  
	end function
	sendnmb=session("nmb")
	fontb=request.Form("fontb")
	fonti=request.Form("fonti")
	fontu=request.Form("fontu")
	recvnmb=request("recvnmb")
	recvname=request.Form("recvname")
	font=trim(request.Form("font"))
	fontcolor=trim(request.Form("fontcolor"))
	fontsize=trim(request.Form("fontsize"))
	message=changechr(request("saytext"))
	msgtype=request.Form("msgtype")
	if msgtype="" then msgtype=0
	if len(message)>150 then
	message=left(message,150)
	end if
	if font<>"" then style="face='"&font&"'"
	if fontcolor<>"" then style=style&" color='"&fontcolor&"'"
	if fontsize<>"" then style=style&"style='font-size:"&fontsize&"px;line-height:"&fontsize+10 &"px'"
	message="<font "&style&">"&message&"</font>"
	if fontb<>"" then message="<b>"&message&"</b>"
	if fonti<>"" then message="<i>"&message&"</i>"
	if fontu<>"" then message="<u>"&message&"</u>"
rs.open "msg",conn,1,3
rs.addnew
rs("sendnmb")=sendnmb
rs("recvnmb")=recvnmb
rs("message")=message
rs("msgtype")=msgtype
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
session(cstr(session("nmb"))&recvnmb)="<div onMouseOver=this.className='onselect' onMouseOut=this.className='' onDblClick='say.saytext.value=say.saytext.value+this.innerText'><font color=#ff0000>["&now()&"]　"&session("name")&"<br>"&message&"</font></div>"&session(cstr(session("nmb"))&recvnmb)
response.Write("<script>window.close();</script>")
%>