多人聊天系统。asp开发。想用的可以参考参考。

				
				
				
				
				
								function jc(gn)
				{
				if(gn=="")
					{alert('对不起!不能为空!');
					return false;}
				window.location="qq_ltfl.asp?cz=tj&lb="+gn;}
				
				function xg(gn,id)
				{if(gn=="")
					{alert('对不起!不能为空!');
					return false;}
				window.location="qq_ltfl.asp?cz=xg&lb="+gn+"&id="+id;}
				-->
				
				
				分类管理
				
								lb= request.querystring("lb")
				cz=request.querystring("cz")
				jb=session("qqjb")%>
				
				
								
				if id"" and cz="sc" then
					exec="delete * from zl where id="+id
					conn.execute exec
					conn.close
					response.redirect "qq_ltfl.asp"
				end if
				 
				if lb"" and cz="tj" then
					lb=xrzh(lb)
					exec="insert into  zl (zl) values ('"+lb+"')"
					conn.execute exec
					conn.close
					response.redirect "qq_ltfl.asp"
				end if
				if lb"" and cz="xg" then
					lb=xrzh(lb)
					exec="update zl set zl='"+lb+"' where id="+id
					conn.execute exec
					conn.close
					response.redirect "qq_ltfl.asp"
				end if
				
				exec="select * from zl order by id desc"
				set rs=server.createobject("adodb.recordset")
				rs.open exec,conn,1,1%>
				
				
					编号
					类别名称
					处理
				
								do while not rs.eof%>
				
					
					
					
					修改
					  |  
					删除
					
				
										rs.movenext
				loop%>
				
					
					
					添加
				
				
								conn.close
				set conn=nothing%>