散分100求一asp聊天室

ruide205 2005-01-25 09:26:20

一经选用，满分赠送！

...全文

135 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

ruide205 2005-01-25

打赏
举报

时间太紧了，只有几天的时间，没办法呀？哪位兄弟用过比较好用的，介绍下了！先谢过了！

epic2005 2005-01-25

打赏
举报

丢过去了一个红蜻蜓聊天室看看行不

yyq136 2005-01-25

打赏
举报

呵呵~自己动手,丰衣足食.

myvicy 2005-01-25

打赏
举报

懒人

fangsky 2005-01-25

打赏
举报

www.mycodes.net,去找找,

iuhxq 2005-01-25

打赏
举报

自己写吧，
可以参考http://blog.csdn.net/iuhxq

ruide205 2005-01-25

打赏
举报

走之前再顶下，明天来结贴！

ruide205 2005-01-25

打赏
举报

ruide205@163.com

ruide205 2005-01-25

打赏
举报

不要栏目，只要能聊天就行，然后记录在线用户的资料，管理员要可以踢用户，其它也没什么要求。老板突然兴致就来了，没办法呀！兄弟们谁用过，或是改过的，代码简明的　发小弟一份，或是给个地址也行，小弟先谢过了！

BillSmiph 2005-01-25

打赏
举报

原始的版本(^-^)

BillSmiph 2005-01-25

打赏
举报

mop聊天室
<%
response.expires=0
if session("chatdel")="" then session("chatdel")=0
if session("blackls")<>"1" then
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" href="css.css">
<meta http-equiv="refresh" content="15 ; url=mmm.asp">
<title>消息</title>
<base target="footnotes">
</head>

<body topmargin="5">

<%if session("mp")*1>1500 and request.querystring("cdel")=1 then
set rs=conn.execute("delete * from chat2 where id="&request.querystring("id"))

session("chatdel")=session("chatdel")+1
if session("chatdel")=5 then
set rs=conn.execute("update userdb set mp=mp-1 where username='"&session("username")&"'")
response.write "<hr>系统提示：您已经删除了五条发言，消费MP一点！<hr>"
session("chatdel")=0
end if
end if

messa=trim(request.form("t1"))
if session("messa")=messa then messa="" else session("messa")=messa

if instr(messa,"#del#")<>0 and (session("admin")<>"") then
messa=replace(replace(messa,"#del#","")," ","")
if session("admin")<>"" then
set rs=conn.execute("delete * from chat2 where sender like '%"&messa&"%'")
else
set rs=conn.execute("delete * from chat2 where sender ='"&messa&"'")
end if

else

if messa<>"" and session("blackls")<>"1" then
messa=replace(replace(replace(messa,"'","''"),":\","：\"),"<IFRAME","〈IFRAME",1,-1,1)

if session("mp")*1<100 then messa=replace(replace(messa,"<","<"),">",">")
if session("mp")*1<1500 then messa=replace(replace(messa,"Java","Vava",1,-1,1) ,"script","srcitp",1,-1,1)

messa=replace(messa,"<%","< %")

set rs=conn.execute("select messa from chat2 where messa='"&messa&"'")
if rs.eof and session("mp")*1>15 and session("blackls")=0 then set rs=conn.execute("insert into chat2 (messa,sender,datee) values ('"&messa&"','"&session("username")&"',#"&now&"#)")
end if

end if

set rs=conn.execute("select top 28 id,sender,messa,datee from chat2 where sender<>'' order by id desc")
if not rs.eof then
do while not rs.eof
messa=rs("messa")
str=""&rs("sender")&""
if session("mp")*1>300 then
str=str&"<a href='mmm.asp?cdel=1&id="&rs("id")&"' style='color: rgb(0,0,0)' target='_self'>"&"("&TimeValue(rs("datee"))&")</a>: "
else
str=str&" ("&TimeValue(rs("datee"))&"): "
end if
str=str&messa&" "
response.write str
rs.movenext
loop

end if

conn.close
%>

 
<a href="mmm.asp" target="_self">Reload</a> <%if session("chatdel")<>4 then
response.write session("chatdel")
else
response.write "系统提示：您已经删除了4条发言，继续删除就会消费1点MP."
end if%>
</body>
</html>
<%end if%>