📄 postmsg.asp
字号:
<!-- #include file="conn.asp" -->
<html><style type="text/css">
<!--
body,td,th {
color: #000000;
}
-->
</style>
<body topmargin="0" leftmargin="0">
<table width="100%" height="61" border="0">
<tr>
<td height="57" colspan="2"><form action="postmsg.asp?ac=addmsg&myself=<%=request.querystring("myself")%>" method="post" name="form1" >
表情:
<select name="select">
<option>微笑着</option>
<option>十分不满的</option>
<option>呲牙咧嘴的</option>
<option>长叹一口气</option>
</select>
对
<select name="rname">
<option>大家</option>
<%
'显示在线的网友昵称
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from online where id ORDER BY id DESC"
rs.open sql,conn,1,1
for i=1 to 50
%>
<option><%=rs("username")%></option>
<%
rs.MoveNext
if rs.EOF Then Exit For
next
%>
</select>
说:
<input name="msg" type="text" size="30">
<input type="submit" value="提交发言">
<input name="username" type="hidden" id="username" value="<%=Request.queryString("myself")%>">
</form> </td>
</tr>
</table>
</body>
</html>
<%
ac=request.QueryString("ac")
if ac="addmsg" then
set rs1=server.createobject("adodb.recordset")
sql="select * from chattext where id is null"
rs1.open sql,conn,1,3
rs1.addnew
rs1("username")=request.Form("username")
rs1("rname")=request.form("rname")
rs1("emotion")=request.form("select")
rs1("msg")=request.form("msg")
rs1("posttime")=time()
rs1.update
set rs1=nothing
'当聊天数据大于15条时删除最久的数据
set rs2=server.CreateObject("adodb.recordset")
sql="select * from chattext where id ORDER BY id"
rs2.open sql,conn,1,1
count=rs2.recordcount
id=rs2("id")
if count>15 then
set rs3=server.CreateObject("adodb.recordset")
sql="delete * from chattext where id="&id
rs3.open sql,conn,1,3
end if
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -