<!-- #include file="conn.asp" -->
<!-- #include file="cls_main.asp" -->
<!-- #include file="cls_ishion_showPage.asp" -->
<!-- #include file="cls_md5.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员中心</title>
<link href="User_Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="3" topmargin="0">
<table width="800"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td colspan="3"><img src="images/user_top.gif" width="800" height="13"></td>
  </tr>
  <tr>
    <td width="10">&nbsp;</td>
    <td width="190"><img src="images/User_Logo.gif" width="150" height="72"></td>
    <td width="600" align="right"><table  border="0" cellpadding="0" cellspacing="1">
        <tr>
          <td>·<a href="default.html">站点首页</a> ·<a href="downnew/0_1.html">最近更新</a> ·<a href="downtop/1_1.html">下载排行</a> </td>
          <td>·<a href="UserLogin.asp?action=logout">退出登录</a></td>
          <td width="10">&nbsp;</td>
        </tr>
      </table>
        <table  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="52" align="center" background="images/user_bg.gif"><img src="images/user_bg1.gif" width="8" height="52" align="absmiddle">&nbsp;<a href="User_Index.asp">会员中心</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Down_Upload.asp">上传软件</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Down_Resource.asp">添加软件</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Down_Reslist.asp">软件管理</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Cms_Resource.asp">添加文章</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Cms_Reslist.asp">文章管理</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Modfiy.asp">资料修改</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_BuyPoints.asp">帐号充值</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_List.asp">会员列表</a>&nbsp;<img src="images/user_bg2.gif" width="10" height="52" align="absmiddle"></td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="800" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td height="400" valign="top">
<% dim obj
set obj = New User_List
	obj.AspInit()
set obj = nothing %>
	</td>
  </tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="images/user_ti.gif" width="800"></td>
  </tr>
</table>
</body>
</html>
<% Class User_List

	Private BatchID, sID, sResName, sToolTip,ishion
	Private Sub Class_Initialize()
		Set ishion = New Cls_Main
	End Sub
	Private Sub Class_Terminate()
		Set ishion = Nothing
	End Sub
	Public Sub AspInit()
	
		BatchID = Request.Form("UserID")
		If Request.QueryString("UserID") <> "" Then
			sID = CLng(Request.QueryString("UserID"))
		Else
			sID = ""
		End If
		If ishion.MemberUserName = "" Then
			ishion.strMsg = "<li>非法操作，您没有登录系统，<a href=""UserLogin.asp"">点击此处进入登录界面</a>。"
			Call ishion.SystemMsg
		Else
			Call Main
		End If
	 
	End Sub
	Private Sub Main()
		Select Case Trim(Request("action"))
		Case "userSearch"
			Call userSearch
		Case Else
			Call Search
		End Select
	End Sub
	Private Sub Search()
		If ishion.ChkPost = False Then
			ishion.strMsg = "非法操作，不要从外部提交数据。"
			Call ishion.SystemMsg
			Exit Sub
		End If
	Call ishion.LoadSetting
		Response.Write "<table width=""98%""  border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
		Response.Write "  <tr>" & vbCrLf
		Response.Write "    <td height=""3""></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		Response.Write "<table width=""100%""  border=""0"" cellspacing=""1"" cellpadding=""3"">" & vbCrLf
		Response.Write "<form name=""form1"" method=""post"" action="""">" & vbCrLf
		Response.Write "<input name=""action"" type=""hidden"" value=""userSearch"">" & vbCrLf
		Response.Write "  <tr>" & vbCrLf
		Response.Write "    <td colspan=""2"" background=""images/menubg.gif"">·高级查询</td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td>注意事项</td>" & vbCrLf
		Response.Write "    <td>在记录很多的情况下搜索条件越多查询越慢，请尽量减少查询条件；最多显示记录数也不宜选择过大</td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td>用户名</td>" & vbCrLf
		Response.Write "    <td><input name=""UserName"" type=""text"" id=""UserName"" size=""35"" maxlength=""25""> <input type=checkbox name=""usernamechk"" value=""yes"" checked>用户名完整匹配</td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td>用户等级</td>" & vbCrLf
		Response.Write "    <td><select name=""UserClass"" id=""UserClass"">" & vbCrLf
		Response.Write "      <option value="""">所有用户</option>  " & vbCrLf
	
		Dim arrClass, i
		arrClass = Split(ishion.Setting(140), ",")
		For i = 0 To UBound(arrClass)
			Response.Write ("<option value=""" & i & """>" & arrClass(i) & "</option> ")
		Next
		Response.Write "  </select></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td>Email包含</td>" & vbCrLf
		Response.Write "    <td><input name=""UserEmail"" type=""text"" id=""UserEmail"" size=""35"" maxlength=""25""></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td>用户IM包含</td>" & vbCrLf
		Response.Write "    <td><input name=""UserIm"" type=""text"" id=""UserIm"" size=""35"" maxlength=""25"">" & vbCrLf
		Response.Write "      包括主页、联系电话、QQ、UC、ICQ、YAHOO、AIM、MSN</td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td>登录IP包含</td>" & vbCrLf
		Response.Write "    <td><input name=""UserLastIP"" type=""text"" id=""UserLastIP"" size=""35"" maxlength=""25""></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td>签名包含</td>" & vbCrLf
		Response.Write "    <td><input name=""UserSign"" type=""text"" id=""UserSign"" size=""35"" maxlength=""25""></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td>详细资料包含</td>" & vbCrLf
		Response.Write "    <td><input name=""UserInfo"" type=""text"" id=""UserInfo"" size=""35"" maxlength=""25""></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr>" & vbCrLf
		Response.Write "    <td colspan=""2"" background=""images/menubg.gif"">·特殊查询 （注意： &lt;多于&gt; 或 &lt;少于&gt; 已默认包含 &lt;等于&gt;；条件留空则不使用此条件 ）</td>" & vbCrLf
		Response.Write "    </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td colspan=""2"">登录次数:<input type=radio value=more name=""loginR"" checked> 多于" & vbCrLf
		Response.Write "    <input type=radio value=less name=""loginR""> 少于" & vbCrLf
		Response.Write "    <input size=5 name=""loginT"" type=text> 次　" & vbCrLf
		Response.Write "    用户点数:<input type=radio value=more name=""PointsR"" checked> 多于" & vbCrLf
		Response.Write "    <input type=radio value=less name=""PointsR""> 少于" & vbCrLf
		Response.Write "    <input size=5 name=""PointsT"" type=text> 点</td>" & vbCrLf
		Response.Write "    </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td colspan=""2"">注册天数:<input type=radio value=more name=""regR"" checked> 多于" & vbCrLf
		Response.Write "    <input type=radio value=less name=""regR""> 少于" & vbCrLf
		Response.Write "    <input size=5 name=""regT"" type=text> 天　" & vbCrLf
		Response.Write "    帐号期限:<input name=""vipR"" type=radio value=more checked> " & vbCrLf
		Response.Write "    多于" & vbCrLf
		Response.Write "    <input type=radio value=less name=""vipR""> 少于" & vbCrLf
		Response.Write "    <input size=5 name=""vipT"" type=text> 天</td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td>&nbsp;</td>" & vbCrLf
		Response.Write "    <td><input type=""submit"" name=""Submit"" value=""    搜 索    ""></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  </form>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		Response.Write "<table width=""98%""  border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrLf
		Response.Write "  <tr>" & vbCrLf
		Response.Write "    <td height=""3""></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
	
	End Sub
	Private Sub userSearch()
	Call ishion.LoadSetting
	Dim Rs, showPageRs, sql, Keyword, i, q, sCatalog, sKeyword, sColumn, currentPage
	sColumn = "UserID,UserName,UserEmail,SubmitDownRes,EmbodyDownRes,DownCredited,SubmitCmsRes,EmbodyCmsRes,CmsCredited,CAPDateTime,UserSex,JoinDate,UserLogins,LastLogin,UserLastIP,UserState,UserClass,VipType,VipStartDate,VipEndDate,Points,ftpstate"
	
	Select Case Request("userSearch")
	Case 1
		sql = ""
	Case 2
		sql = "UserState=0"
	Case 3
		sql = "UserState=2"
	Case 4
		If IsSqlDataBase = 1 Then
			sql = "datediff(hour,LastLogin," & SqlNowString & ")<25"
		Else
			sql = "datediff('h',LastLogin," & SqlNowString & ")<25"
		End If
	Case 5
		If IsSqlDataBase = 1 Then
			sql = "datediff(hour,JoinDate," & SqlNowString & ")<25"
		Else
			sql = "datediff('h',JoinDate," & SqlNowString & ")<25"
		End If
	Case 6
		sql = "VipType=0"
	Case 7
		sql = "VipType=1"
	Case 8
		sql = "VipType=2"
	Case 9
		sql = "VipType<>0 and VipEndDate<" & SqlNowString & ""
	Case 10
		sql = "ftpstate=1"
	Case 11
		sql = "ftpstate=2"
	Case Else
		If Request("UserName") <> "" Then
			If Request("usernamechk") = "yes" Then
				sql = " UserName='" & Request("UserName") & "'"
			Else
				sql = " UserName like '%" & Request("username") & "%'"
			End If
		End If
		If Request("UserClass") <> "" Then
			If sql = "" Then
				sql = "UserClass = " & CLng(Request("UserClass")) & ""
			Else
				sql = sql & " and UserClass = " & CLng(Request("UserClass")) & ""
			End If
		End If
		If Request("UserEmail") <> "" Then
			If sql = "" Then
				sql = "UserEmail like '%" & Request("UserEmail") & "%'"
			Else
				sql = sql & " and UserEmail like '%" & Request("UserEmail") & "%'"
			End If
		End If
		If Request("UserIm") <> "" Then
			If sql = "" Then
				sql = "UserIm like '%" & Request("UserIm") & "%'"
			Else
				sql = sql & " and UserIm like '%" & Request("UserIm") & "%'"
			End If
		End If
		If Request("UserLastIP") <> "" Then
			If sql = "" Then
				sql = "UserLastIP like '%" & Request("UserLastIP") & "%'"
			Else
				sql = sql & " and UserLastIP like '%" & Request("UserLastIP") & "%'"
			End If
		End If
		If Request("UserSign") <> "" Then
			If sql = "" Then
				sql = "UserSign like '%" & Request("UserSign") & "%'"
			Else
				sql = sql & " and UserSign like '%" & Request("UserSign") & "%'"
			End If
		End If
		If Request("UserInfo") <> "" Then
			If sql = "" Then
				sql = "UserInfo like '%" & Request("UserInfo") & "%'"
			Else
				sql = sql & " and UserInfo like '%" & Request("UserInfo") & "%'"
			End If
		End If
	'======特殊搜索=======
		Dim Tsqlstr
		If Request("loginT") <> "" Then
			If Request("loginR") = "more" Then
				Tsqlstr = " UserLogins >= " & Request("loginT") & ""
			Else
				Tsqlstr = " UserLogins <= " & Request("loginT") & ""
			End If
			If sql = "" Then
				sql = Tsqlstr
			Else
				sql = sql & "and" & Tsqlstr
			End If
		End If
		If Request("PointsT") <> "" Then
			If Request("PointsR") = "more" Then
				Tsqlstr = " Points >= " & Request("PointsT") & ""
			Else
				Tsqlstr = " Points <= " & Request("PointsT") & ""
			End If
			If sql = "" Then
				sql = Tsqlstr
			Else
				sql = sql & "and" & Tsqlstr
			End If
		End If
		If Request("regT") <> "" Then
			If Request("regR") = "more" Then
				If IsSqlDataBase = 1 Then
					Tsqlstr = " datediff(d,JoinDate," & SqlNowString & ") >= " & Request("regT") & ""
				Else
					Tsqlstr = " datediff('d',JoinDate," & SqlNowString & ") >= " & Request("regT") & ""
				End If
			Else
				If IsSqlDataBase = 1 Then
					Tsqlstr = " datediff(d,JoinDate," & SqlNowString & ") <= " & Request("regT") & ""
				Else
					Tsqlstr = " datediff('d',JoinDate," & SqlNowString & ") <= " & Request("regT") & ""
				End If
			End If
			If sql = "" Then
			  sql = Tsqlstr
			Else
			  sql = sql & "and" & Tsqlstr
			End If
		End If
		If Request("vipT") <> "" Then
			If Request("vipR") = "more" Then
				If IsSqlDataBase = 1 Then
					Tsqlstr = " datediff(d,VipStartDate,VipEndDate) >= " & Request("vipT") & ""
				Else
					Tsqlstr = " datediff('d',VipStartDate,VipEndDate) >= " & Request("vipT") & ""
				End If
			Else
				If IsSqlDataBase = 1 Then
					Tsqlstr = " datediff(d,VipStartDate,VipEndDate) <= " & Request("vipT") & ""
				Else
					Tsqlstr = " datediff('d',VipStartDate,VipEndDate) <= " & Request("vipT") & ""
				End If
			End If
			If sql = "" Then
				sql = Tsqlstr
			Else
				sql = sql & "and" & Tsqlstr
			End If
		End If
	End Select
	
	
	If Trim(Request.QueryString("Page")) = "" Then
		currentPage = 1
	Else
		currentPage = Trim(Request.QueryString("Page"))
	End If
	
	Set showPageRs = New cls_ishion_showPage '创建对象
	With showPageRs
		If IsSqlDataBase = 1 Then
		.DbType = "MSSQL"
		Else
		.DbType = "AC"
		End If
		.RecType = 0
		.RecSql = 0
		.RecTerm = 1
		.CookieName = "ishion_User"  '如果RecTerm＝2,cookiesname="",否则写cookiesname
		.Order = 1              '排序(0顺序1降序),注意要和下面sql里面主键ID的排序对应
		.PageSize = 35          '每页记录条数
		.currentPage = currentPage
	End With
	showPageRs.sql = sColumn & "$ishion_User$" & sql & "$UserID desc$UserID" '字段,表,条件(不需要where),排序(不需要需要ORDER BY),主键ID
	
	Dim iRecCount, sqlRs
	iRecCount = showPageRs.RecCount() '记录总数
	
	Response.Write "<script language=""JavaScript"">" & vbCrLf
	Response.Write "function doSort() {" & vbCrLf
	Response.Write "    var oE = window.event.srcElement;" & vbCrLf
	Response.Write "    for (var i=0;i<oE.rows[oE.headindex].cells.length;i++) {" & vbCrLf
	Response.Write "        oE.rows[oE.headindex].cells[i].children[1].innerText = """";" & vbCrLf
	Response.Write "    }" & vbCrLf
	Response.Write "    oE.rows[oE.headindex].cells[window.event.sortIndex].children[1].innerText = window.event.sortOrder ? ""↑"" : ""↓"";" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "function sort() {" & vbCrLf
	Response.Write "    document.getElementById(""databox"").sort(2,false,""float"");" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "</script>" & vbCrLf
	
	'Response.Write (showPageRs.showPage("?Page={$pages}" & q))
	
	Response.Write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
	Response.Write "<form name=""myform"" method=""post"" action=""admin_user.asp"">" & vbCrLf
	Response.Write "  <tr>" & vbCrLf
	Response.Write "    <td><table width=""100%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"">" & vbCrLf
	Response.Write "        <tr>" & vbCrLf
	Response.Write "          <td align=""center"" background=""images/menubg.gif"">ID</td>" & vbCrLf
	Response.Write "          <td background=""images/menubg.gif"">用户名</td>" & vbCrLf
	Response.Write "          <td align=""center"" background=""images/menubg.gif"">注册日期</td>" & vbCrLf
	Response.Write "          <td align=""center"" background=""images/menubg.gif"">登录次数</td>" & vbCrLf
	Response.Write "          <td align=""center"" background=""images/menubg.gif"">最后登录</td>" & vbCrLf
	Response.Write "          <td align=""center"" background=""images/menubg.gif"">用户状态</td>" & vbCrLf
	Response.Write "          <td align=""center"" background=""images/menubg.gif"">用户级别</td>" & vbCrLf
	Response.Write "          <td align=""center"" background=""images/menubg.gif"">VIP点数</td>" & vbCrLf
	Response.Write "          <td align=""center"" background=""images/menubg.gif"">VIP用户</td>" & vbCrLf
	Response.Write "          <td align=""center"" background=""images/menubg.gif"">VIP有效期</td>" & vbCrLf
	Response.Write "          <td align=""center"" background=""images/menubg.gif"">FTP帐号</td>" & vbCrLf
	Response.Write "          </tr>" & vbCrLf
	Response.Write "<SCRIPT language = ""JavaScript"">" & vbCrLf
	Response.Write "//parent.frame.cols=""0,*"";" & vbCrLf
	Response.Write "function SelectAll() {" & vbCrLf
	Response.Write "    for (var i=0;i<document.myform.UserID.length;i++) {" & vbCrLf
	Response.Write "        var e=document.myform.UserID[i];" & vbCrLf
	Response.Write "        e.checked=!e.checked;" & vbCrLf
	Response.Write "    }" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "<!--" & vbCrLf
	Response.Write "function CheckAll(form)  {" & vbCrLf
	Response.Write "  for (var i=0;i<form.elements.length;i++)    {" & vbCrLf
	Response.Write "    var e = form.elements[i];" & vbCrLf
	Response.Write "    if (e.name != 'chkall')       e.checked = form.chkall.checked; " & vbCrLf
	Response.Write "   }" & vbCrLf
	Response.Write "  }" & vbCrLf
	Response.Write "//-->" & vbCrLf
	Response.Write "</script>" & vbCrLf
	
	If iRecCount = 0 Then
		Response.Write "<tr bgcolor=""#FCFCFC""> <td colspan=""11"">Sorry！没有找到任何记录。</td></tr>"
	Else
		Set sqlRs = showPageRs.ResultSet()  '返回ResultSet
		Rs = sqlRs.GetRows(Int(ishion.Setting(83)))
		For i = 0 To UBound(Rs, 2)
		Response.Write "        <tr "
		If i Mod 2 Then
				Response.Write (" class=""tdbg2""")
			Else
				Response.Write (" class=""tdbg3""")
			End If
			Response.Write " onmouseover=""this.style.backgroundColor='#CEE7FF';this.style.color='red'"" onmouseout=""this.style.backgroundColor='';this.style.color=''""> " & vbCrLf
			Response.Write "          <td align=""center"">" & Rs(0, i) & "</td>" & vbCrLf
			Response.Write "          <td>" & Rs(1, i) & "</td>" & vbCrLf
			Response.Write "          <td align=""center"">" & ishion.FormatMyDate(Rs(11, i), "{Y}/{m}/{d}") & "</td>" & vbCrLf
			Response.Write "          <td align=""center"">" & Rs(12, i) & "</td>" & vbCrLf
			Response.Write "          <td align=""center"">" & Rs(13, i) & "</td>" & vbCrLf
			Response.Write "          <td align=""center"">"
			If Rs(15, i) = 0 Then
				Response.Write ("<font color=red>锁定</font>")
			ElseIf Rs(15, i) = 1 Then
				Response.Write ("正常")
			Else
				Response.Write ("<font color=blue>等待审核</font>")
			End If
			Response.Write "</td>" & vbCrLf
			Response.Write "          <td align=""center"">" & Split(ishion.Setting(140), ",")(Rs(16, i)) & "</td>" & vbCrLf
			Response.Write "          <td align=""center"">" & Rs(20, i) & "</td>" & vbCrLf
			Response.Write "          <td align=""center"">" & vbCrLf
	
			If Rs(17, i) = 0 Then
				Response.Write ("非VIP")
			ElseIf Rs(17, i) = 1 Then
				Response.Write ("点数用户")
			ElseIf Rs(17, i) = 2 Then
				Response.Write ("包月用户")
			Else
				Response.Write ("未定义")
			End If
			Response.Write "</td>" & vbCrLf
			Response.Write "          <td align=""center"">" & ishion.FormatMyDate(Rs(18, i), "{Y}-{m}-{d}") & "→" & ishion.FormatMyDate(Rs(19, i), "{Y}-{m}-{d}") & "</td>" & vbCrLf
			Response.Write "          <td align=""center"">"
			If Rs(21, i) = 0 Then
				Response.Write ("<font color=blue>未开启</font>")
			ElseIf Rs(21, i) = 1 Then
				Response.Write ("启用")
			ElseIf Rs(21, i) = 2 Then
				Response.Write ("<font color=red>禁用</font>")
			Else
				Response.Write ("未知")
			End If
			Response.Write "</td>" & vbCrLf
			Response.Write "          </tr>" & vbCrLf
			Next
		sqlRs.Close
		Set sqlRs = Nothing
	End If
	Response.Write "</table></td>" & vbCrLf
	Response.Write "  </tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "</table> " & vbCrLf
	
	Response.Write (showPageRs.showPage("?Page={$pages}" & q))
		Rs = Null
		showPageRs = Null
		Set showPageRs = Nothing
	End Sub
	Private Function checkResAdmin(sName)
		checkResAdmin = True
	End Function

End Class %>

