<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->

<%call head()
Call saycardd("身份待审情况")

ids=Request("ids")

response.write"待审核|<a href=""sfrzbook.asp?saytk="&saytk&"&amp;sid="&sid&""">全部</a>|"
response.write"<a href=""sfrzview.asp?saytk="&saytk&"&amp;sid="&sid&""">已审核</a><br/>"

 set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from Users where rzzt=1"
rs.open rsppl,conn,1,1

If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10						
	Dim Count,page,pagecount,gopage			
	gopage="sfrzbook1.asp?p="&p&"&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;"
	Count=rs.recordcount	
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	For i=1 To PageSize     						
	If rs.eof Then Exit For
   Response.write ""&i+(page-1)*PageSize&"."
   Response.write "<a href=""show.asp?id="&rs("id")&"&amp;url=vippst.asp&amp;saytk="&saytk&"&amp;sid="&sid&""">"&ubb(rs("name"))&"(ID:"&usb(rs("id"))&")</a><br/>"
if rs("rzzt")=0 then
response.write "未进行认证！"
elseif rs("rzzt")=1 then
response.write "认证审核中！"
elseif rs("rzzt")=2 then
Response.write "已通过认证！"
else
response.write "认证不成功！"
end if  
if rs("rzzt")=0 then
response.write "<a href=""sfrzadd.asp?ids="&rs("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">[发送提醒]</a><br/>"
elseif rs("rzzt")=1 then
response.write "<a href=""sfrzadd.asp?ids="&rs("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">[进行审核]</a><br/>"
elseif rs("rzzt")=2 then
Response.write "<a href=""sfrzadd.asp?ids="&rs("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">[取消认证]</a><br/>"
else
response.write "<a href=""sfrzadd.asp?ids="&rs("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">[清空认证]</a><br/>"
end if

	rs.moveNext
 	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">跳转</a><br/>"
Else
   Response.write "抱歉！暂无！<br/>"
end if
rs.close
set rs=nothing
conn.close
set conn=Nothing

Response.write "---------------<br/>"



%>
<!--#include file="fanhui.asp"-->

<%
call headsay()
%>
