📄 message.asp
字号:
<%
If not Request.Form("message")="" THEN
StateMan = "man.jpg"
APPLICATION.LOCK
If Request.Form("txtWarn") = "ON" THEN
Application("flgWarn") = "ON"
Application("FlagCount") = Application("sessCount")
StateMan = "urgman.jpg"
End If
Application("chat10") = Application("chat9")
Application("chat9") = Application("chat8")
Application("chat8") = Application("chat7")
Application("chat7") = Application("chat6")
Application("chat6") = Application("chat5")
Application("chat5") = Application("chat4")
Application("chat4") = Application("chat3")
Application("chat3") = Application("chat2")
Application("chat2") = Application("chat1")
Application("LastPost")= time()
ChatSkin = Request.Form("mySkin")
If ChatSkin = "" then
ChatSkin = "norm"
Session("skin") = "norm"
ElseIf ChatSkin = "smash" then
Session("skin") = "smash"
ElseIf ChatSkin = "norm" then
Session("skin") = "norm"
ElseIf ChatSkin = "organ" then
Session("skin") = "organ"
ElseIf ChatSkin = "rock" then
Session("skin") = "rock"
ElseIf ChatSkin = "wood" then
Session("skin") = "wood"
End If
If Request.Form("txtSmile") = "none" THEN
Application("chat1") = "<img src=" & StateMan & " width=13 height=14 alt=You!!>" & "<B>" & Request.Cookies("nick") & ":</B> " & Request.Form("message")
ElseIf Request.Form("txtSmile") = "1" THEN
Application("chat1") = "<img src=" & StateMan & " width=13 height=14 alt=You!!>" & "<B>" & Request.Cookies("nick") & ":</B> " & Request.Form("message") & "<img src=smile.jpg width=13 height=14 alt=Smile>"
ElseIf Request.Form("txtSmile") = "2" THEN
Application("chat1") = "<img src=" & StateMan & " width=13 height=14 alt=You!!>" & "<B>" & Request.Cookies("nick") & ":</B> " & Request.Form("message") & "<img src=frown.jpg width=13 height=14 alt=Smile>"
ElseIf Request.Form("txtSmile") = "3" THEN
Application("chat1") = "<img src=" & StateMan & " width=13 height=14 alt=You!!>" & "<B>" & Request.Cookies("nick") & ":</B> " & Request.Form("message") & "<img src=wow.jpg width=13 height=14 alt=Smile>"
End If
APPLICATION.UNLOCK
END IF
%>
<html>
<head>
<title>Message Page</title>
<style type="text/css">
<!--
.style1 {font-size: 12px}
-->
</style>
</head>
<!-- #include file="bottomskin.inc" -->
<body BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#FF0000" topmargin="0" leftmargin="0" background="<%=imgBottom%>">
<form name="frmMain" METHOD="POST" ACTION="message.asp">
<input type="hidden" name="mySkin" value="<%=ChatSkin%>"><table border="0" cellpadding="2" cellspacing="0" width="600" height="100">
<tr>
<td width="100%"><table border="0" cellpadding="2" cellspacing="0" width="600">
<tr>
<td height="100" style="padding-top: 6px" width="280" valign="top"><div align="left"><p><font face="Arial" color="<%=myCol%>"><strong><span class="style1">发言请按send发送！</span></strong></font><font face="Arial" size="1" color="<%=myCol%>"><strong><br>
<br>
</strong></font>
<input NAME="message" SIZE="45" style="font-family: Arial, Times New Roman; font-size: 8pt"><br>
<td height="100" width="113" valign="top"><font face="Arial"><small><small> </small></small></font><br>
<br>
<input TYPE="image" SRC="<%=mySend%>" BORDER="0" name="I4" WIDTH="47" HEIGHT="22"><a HREF="logoff.asp" TARGET="_top"><img SRC="<%=myExit%>" BORDER="0" WIDTH="47" HEIGHT="22"></a><br>
<br>
</td>
<td height="100" width="26" valign="middle" align="center"><div align="center"><center><p><select name="txtSkin" size="1" style="font-family: arial, Times New Roman; font-size: 8pt">
<option value="norm">Normal</option>
<option value="rock">Stone</option>
<option value="wood">Wooden</option>
<option value="smash">Smash</option>
<option value="organ">Organic</option>
</select><input type="button" value="换肤" name="btnSkin" style="font-family: arial, Times New Roman; font-size: 8pt"></td>
<td height="100" width="50" align="center"><div align="center"><center><p><input type="radio" value="none" name="txtSmile" checked><img src="none.jpg" alt="none.jpg (887 bytes)" WIDTH="13" HEIGHT="14"><br>
<input type="radio" value="1" name="txtSmile"><img src="smile.jpg" alt="Smile!!!" WIDTH="13" HEIGHT="14"><br>
<input type="radio" value="2" name="txtSmile"><img src="frown.jpg" alt="Frown!!!" WIDTH="13" HEIGHT="14"><br>
<input type="radio" value="3" name="txtSmile"><img src="WOW.jpg" alt="WOW!!!" WIDTH="13" HEIGHT="14"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<script language="VBScript">
Sub Window_onLoad
frmMain.message.focus
End Sub
Sub btnSkin_onClick
frmMain.mySkin.value = frmMain.txtSkin.value
End Sub
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -