聊天室的私聊、踢出功能如何实现？

[liuxk]

请大虾们用程序写！谢谢！

[coffee_cn]

用程序写，那不如给你个聊天室代码吧

[孙小雄]

注释：
是的 我有很多

[liuxk]

代码也行

[ChinaOk]

踢出
在发言显示的时候同时给出踢出的js代码。
在js代码中，判断当然发言人是否是要替出的，如果是就进行相应的操作。
如果不是就不执行相应的操作。
这些都是输出js代码到客户端执行。

[popcode]

下载个去看看就知道了

[liuxk]

js是什么？

[liuxk]

用ASP实现网站的“目录树”管理

1.tblCategory

字段名 类型

Root binary 说明树关或开（目录的根）

ID 自动编号 关键字

Sort integer 识别该字段内容的整数（如果root是开状态sort为0）表示显示的目录的顺序

Name text（255）可以包含html中的标识符

HREF text(255) 允许空





2.tblPages

ID 自动编号

Sort integer 关键字

Name text（255）

HREF text（255）





3.default.htm

〈html>

〈head>

〈title>JavaScript Tree Control Template〈/title>

〈/head>

〈frameset cols="210,*">

?〈frame src="tree.asp" name="TOC">

?〈frame src="main.htm" name="basefrm">

〈/frameset>

〈/html>



4.main.htm

〈head>〈title>〈/title>〈/head>

〈body>

〈h2>Start Page〈/h2>

〈/body>

〈/html>



5.tree.asp

Set conn = Server.CreateObject("ADODB.Connection")

Set Rs = Server.CreateObject("ADODB.Recordset")

conn.open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("toc.mdb")




strsql = "SELECT tblCategory.Root, tblCategory.[ID], tblCategory.Sort
AS CatSort, tblPages.sort AS LinkSort, tblCategory.[Name] AS CatName,
tblCategory.HREF AS CatURL, tblPages.[Name] AS LinkName, tblPages.href
AS LinkURL FROM tblCategory LEFT JOIN tblPages ON tblCategory.[ID] = tblPages.[ID]
ORDER BY tblCategory.root ASC, tblCategory.Sort, tblPages.sort"



rs.open strsql, conn, 2, 2



if not rs.eof then rs.movefirst

currentID = "" %>

〈html>

〈head>

〈link rel="stylesheet" href="ftie4style.css">

〈!-- Infrastructure code for the tree -->

〈script src="ftiens4.js">〈/script>

〈!-- Execution of the code that actually builds the specific tree -->


〈script>

USETEXTLINKS = 1

〈%

Do While Not Rs.EOF

If Rs("Root") = True Then %>

foldersTree = gFld("〈%= Rs("CatName") %>", "〈%= Rs("CatURL") %>")


〈% Else %>

aux1 = insFld(foldersTree, gFld("〈%= Rs("CatName") %>", "〈%= Rs("CatURL")
%>"))

〈% currentID = Rs("ID")

savedID = Rs("ID")

Do While currentID = savedID and not rs.eof

if Rs("LinkName") 〈> "" Then %>

insDoc(aux1, gLnk(0, "〈%= Rs("LinkName") %>", "〈%= Rs("LinkURL") %>"))


〈%

end if

Rs.MoveNext

if not rs.eof then currentID = Rs("ID")

Loop

End If

if currentID = "" then rs.movenext

Loop %>

〈/script>

〈script>

initializeDocument()

〈/script>

〈base target="basefrm">

〈title>〈/title>

〈/head>

〈body bgcolor="white">

〈/body>

〈/html>