菊花聊天室ASP单页代码
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<TITLE>hackhp</TITLE>
<meta name="keywords" content="hk,菊花,爆菊,聊天室,hack聊天室,黑客聊天室,菊花只是一种花">
<meta name="description" content="如有一日龙得水，我让长江水倒流。如有一日虎归山，必将血染半边天！">
<style>
<!--
body {font-family:verdana,arial; font-size:14px; }
td {font-family:verdana,arial; font-size:14px; }
input.text {border:1px solid black; font-size:14px; background:#fcf0fc}
td.little {font-size:12px}
-->
</style>
</HEAD>
<CENTER>
<BODY BGCOLOR="#FFFFFF">
<strong>如有一日龙得水，我让长江水倒流。如有一日虎归山，必将血染半边天！</strong><BR>
<H1>菊花聊天室</H1>
<FORM ACTION="" METHOD = POST>
<p><a href="" onClick="document.getElementById('comment').value+='<img src=这里换成图片的URL地址 />'">插入图片</a></p>
<table width=300>
<tr>
<td width=10></td>
<td><p align="center">
<textarea name="comment" value="" rows=10 cols=80 style="border:1px solid #D8D8D8 ;"></textarea>
<br>
<br>
<input name="submit" type="submit" style="border:1px solid #FFF ;background: #cf9;text-align:center;padding:0.4em 0.4em; width:200 " value="雁过留声 路过留言">
</p>
</td>
</tr>
</table>
</FORM>
<hr>
<%
Comment=Request.Form("comment")
chatdate=MID(Now(),1,8)
'sj=Now
sj=now
chatID = chatdate
TotalCount = chatdate & "comment"
uip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If uip = "" Then uip = Request.ServerVariables("REMOTE_ADDR")
uip=split(uip,".",-1,1)
'ip=uip(0)&"."&uip(1)&"."&uip(2)&".*"
ip=uip(0)&"."&uip(1)&"."&"*"&".*"
If Len(Comment) > 0 Then
Application.Lock()
Application(TotalCount) = Application(TotalCount) -1
Application(chatID) = Application(chatID) & "<BR><font color=red><b>" &ip &"的童鞋 >>"& "Fucked at:" &sj & ": </b></font>" & Comment
Application.UnLock()
End if
%>
<table width=100%>
<tr valign=top>
<td>
<%
Response.Write("")
Response.Write(Application(chatID))
Application.UnLock()
%></td>
</tr>
</table>
</BODY></CENTER>
</Html>
