<!--#include file="../conn.asp"-->
<!--#include file="../admin.asp"-->

<%

function zone_Page(PageCount,Page,Str_Url,intRecordCount,Sort)
if page>1 then Response.Write "<a href="""&Str_Url&"&amp;"&Sort&"=1"">第一页</a>|"

if page-pagecount<0 then Response.Write "<a href="""&Str_Url&"&amp;"&Sort&"="&(page+1)&""">下页</a>"
	if page>1 then Response.Write "|<a href="""&Str_Url&"&amp;"&Sort&"="&(page-1)&""">上页</a>"
Response.Write "(" &Page& "/" &PageCount& "/" &intRecordCount& ")<br />"
If saytk>1 Then
Response.Write "<form method=""post"" action="""&Str_Url&""">"&_
			    	"<input type=""text"" name="""&Sort&""" emptyok=""true"" value=""" &Page + 1& """ maxlength=""3"" size=""3"" />页" &_
				    "<input type=""submit"" value=""GO"" class=""submit""/></form><br/><br />" 
Else
Response.Write "<input type=""text"" name="""&Sort&""" emptyok=""true"" value=""" &Page + 1& """ size=""3"" format=""*N"" />页" &_
				    "<a href="""&Str_Url&"&amp;"&Sort&"=$("&Sort&")"">跳页</a><br />"
End If
end Function

'取用户名
'==================================
Function unames(usersid)
if usersid="" or isnumeric(usersid)=False then usersid=0
set rsusername=server.CreateObject("ADODB.RecordSet")
rsusername.Open "select name from Users where ID="&usersid,conn,1,1
usersnamee=rsusername("name")
rsusername.close
Set rsusername=nothing
If usersid=0 Then
response.write"无此会员!"
else
response.write""&usersnamee&""
End if
end Function

function zonepost(vname)
if saytk<>1 then
Response.Write "<form action="""& vname &""" method=""post"">"
end if
end Function

function zonelast()
%><!--#include file="fanhui.asp"--><%
end function
%>


