<%
db_path = "#space.asp"
Set conn_Left= Server.CreateObject("ADODB.Connection")
conn_Leftstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
conn_Left.Open conn_Leftstr
%>
<%
Set rs_Left = Server.CreateObject ("ADODB.Recordset")
sql="select * from Group_Info where Session_Id='"&Session("User_Account")&"'"
rs_Left.Open sql,conn_Left,1,1
%>
<%
if page <>1 then
Response.Write "
首页 "
end if
tmppage = page - 1
if tmppage <= 0 then
tmppage = 1
else
Response.Write"
上一页"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write "
下一页 "
end if
if Cstr(page) <> Cstr(rs.PageCount) and Cstr(rs.PageCount) <> 0 then
Response.Write "
尾页"
end if
Response.Write " "&rs.RecordCount&" 条记录 "
if Cstr(rs.PageCount) <> 0 then
Response.Write "" & page & " / "&rs.PageCount&"页"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
rs_Left.close
Set rs_Left = Nothing
conn_Left.close
set conn_Left=Nothing
%>
