很漂亮的一个网络公司的源码

				
				
				
				
				
				
				
				新创科技
				
				
					function deleted(pid)
					{
						var winleft,wintop
						winleft=(window.screen.width-200)/2
						
						wintop = (window.screen.height-100)/2
				
						if (confirm('\n真的要删除此信息吗？'))
						{
							location.href="Userdel.asp?id="+pid;
				
						}
				   }
				
				
				
				
				  
				    用户名
					性  别
					联系电话
					加入时间
					状态
					操作
				
									Dim NowPage
					NowPage=Request.QueryString("Page")
					If IsNumeric(NowPage) Then
						NowPage=Clng(NowPage)
					Else
						NowPage=1
					End if
					UserShowManage NowPage,20
				%>