asp+sql基于WEB新闻发布系统　代码加论文

				
				
				
				
				
				系统用户管理
				
				function newwin(url) {
				  var newwin=window.open(url,"newwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=400,height=380");
				  newwin.focus();
				  return false;
				}
				
				
				
				
				用户列表
				
				
				用户名
				用户姓名
				电子邮箱
				操 作
				
								
				  '定义Recordset对象
				  Set rs=Server.CreateObject("ADODB.Recordset")
				  '设置rs的ActiveConnection属性，绑定到连接
				  Set rs.ActiveConnection = Conn
				  '设置游标类型
				  rs.CursorType = 3
				  '执行SQL语句，读取所有的用户数据，并保存结果到记录集对象rs中
				  rs.Open "Select * from Users Order by UserId"
				  rCount = rs.RecordCount
				  '循环显示所有的用户数据，同时画出表格
				  Do While Not rs.EOF
				%>
				
				
				
				 
				修改 
				
					删除 
				
				
				
								    rs.MoveNext
				  Loop
				  
				  If rCount = 0 Then
					Response.Write "目前还没有用户记录"
				  Else
					Response.Write "当前共有" & Trim(rCount) &"条用户记录"    
				  end if
				%>
				
				
				添加用户信息