📄 enter.asp
字号:
<%
' enter.asp
Set cnObj = Server.CreateObject("ADODB.Connection")
dbpath = Server.MapPath("DB.mdb")
cnObj.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
cnObj.Open
sqlcmd = "SELECT DISTINCT 姓名 FROM CHAT"
Set rsObj = cnObj.Execute(sqlcmd)
%>
<html>
<head>
<title>聊天文字方块</title>
</head>
<body background="blutextb.gif">
<form method="post" action="add_mess.asp" target="left">
<table align="center" cellpadding="5" cellspacing="5">
<tr>
<td><font color="blue"><% = Session("name")%></font>的发言：
<input type="text" name="txtMemo" size="60">
</td>
</tr>
<tr>
<td><p>字体颜色：
<select name="selColor">
<option value="red">红色</option>
<option value="fuchsia">紫红色</option>
<option value="black" selected>黑色</option>
<option value="green">绿色</option>
<option value="purple">紫色</option>
<option value="pink">粉红色</option>
<option value="aqua">水蓝色</option>
</select>
只告诉：
<select name="selName">
<option value="Everybody" selected>所有来宾</option>]
<%
Do While Not rsObj.EOF
If rsObj("姓名") <> Session("name") Then %>
<option><%=rsObj("姓名")%></option>
<%
End If
rsObj.MoveNext
Loop
rsobj.Close
cnObj.Close
Set rsObj = Nothing
Set cnObj = Nothing
%>
</select>
心情
<select name="selImg">
<option value="1.jpg" selected>喜</option>
<option value="2.jpg">怒</option>
<option value="3.jpg">哀</option>
<option value="4.jpg">乐</option>
</select>
<input type="submit" value="送出" name="btnSend">
<a href="Enter.asp">更新名单</a>
</td>
</tr>
</table>
</form>
</body>
</html> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -