qq_send.asp

多人聊天系统。asp开发。想用的可以参考参考。

<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html"> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
<table bgcolor="#CCD8E6" width="100%"><tr><td>
<%message = request.form("message")
ys = request.form("ys")
zl = request.form("zl")
pic = request.form("pic")
exec = "update admin set zt = '0'"
conn.execute exec
if zl = "全部" then	zl = session("qqzl")
if trim(message) <> "" or pic<>"" then 
	if pic <> "" then pic = "<img border=0 src=" + pic + ">"
	trh = "<tr bgcolor=#E3E9F1 height=25 style='table-layout:fixed;word-break:break-all'><td align=left>"

	application.lock 
	xm = "<font color=#663333>" + session("qqnc") + "</font>"
	message = trh + xm + "(" + cstr(time) + "):" + ys + message + pic + "</font><br>"
	application(zl) = message + application(zl)
	application.unlock

	if request.form("zl") <> "全部" then
	application.lock 
	xm = "<font color=#663333>" + session("qqnc") + "</font>"
	message = trh + xm + "(" + cstr(time) + "):" + ys + request.form("message") + pic + "</font>"
	application(session("qqyhm")) = message + application(session("qqyhm"))
	application.unlock 
	end if
end if%>
<%=message%>
<form name="sj" action="qq_send.asp" method="post"> 
对<select name="zl">
<option value="全部">大家</option>
<%set rs=server.createobject("adodb.recordset")
exec="select * from admin order by id desc"
rs.open exec,conn,1,1
do while not rs.eof%>
<option value="<%=rs("yhm")%>" <%if zl = rs("yhm") then response.write "selected"%>><%=rs("nc")%>(<%=rs("yhm")%>)</option>
<%rs.movenext
loop%>
</select>
说:<input name="message" size="30" type="text">
<select name="ys">
<option value="<font color=#000000>">黑</option>
<option value="<font color=#FF0000>"><font color=#FF0000>红</font></option>
<option value="<font color=#ff9900>"><font color=#ff9900>橙</font></option>
<option value="<font color=#FFFF00>"><font color=#FFFF00>黄</font></option>
<option value="<font color=#00FF00>"><font color=#00FF00>绿</font></option>
<option value="<font color=#0000FF>"><font color=#0000FF>蓝</font></option>
<option value="<font color=#FF00FF>"><font color=#FF00FF>紫</font></option>
<option value="<font color=#C0C0C0>"><font color=#C0C0C0>灰</font></option>
<option value="<font color=#FFFFFF>"><font color=#FFFFFF>白</font></option>
</select>
表情
<select name="pic">
<option value="">无</option>
<%set rs=server.createobject("adodb.recordset")
exec="select * from pic order by id desc"
rs.open exec,conn,1,1
do while not rs.eof%>
<option value="<%=rs("dz")%>"><%=rs("zt")%></option>
<%rs.movenext
loop%>
</select>

<input type="submit" value="发 送" name="s2" onClick="javascript:gx(message.value,pic.value);"> 
&nbsp;
<input type="reset" value="清 空" name="r2" onClick="javascript:message.focus();"> 
&nbsp;&nbsp;
<a href=# onClick="javascript:if(message.value!='') message.value = '[img]' + message.value + '[/img]';">图片链接</a>
</form>
</td></tr></table>
<script language="javascript">
document.sj.message.focus();

function gx(dx,bq)
{
if(dx==""&&bq=="")
	return false;

document.sj.s2.disabled;
document.sj.r2.disabled;
}
function gn()
{
	if(document.all("tbwz").style.display=="none")
		{document.all("tbwz").style.display="block";
		document.all("tbtp").style.display="none";}
	else{
		document.all("tbtp").style.display="block";
		document.all("tbwz").style.display="none";}
}
</script>