汇集软件下载,免费分享活动线报

菊花聊天室ASP单页代码

金腾网小编 0

菊花聊天室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>

标签:

暂无标签

免责声明:

本站提供的资源,都来自网络,版权争议与本站无关,所有内容及软件的文章仅限用于学习和研究目的。不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负,我们不保证内容的长久可用性,通过使用本站内容随之而来的风险与本站无关,您必须在下载后的24个小时之内,从您的电脑/手机中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。侵删请致信E-mail: 34585055@qq.com

同类推荐
评论列表
签到