<%@ language=VBScript %>
<%
on error resume next
Set Rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from admin where id="&userid
Rs1.open sql,conn,3,2
if date <> today_time then
Rs1("today_count") = 0
end if
Rs1("today_time") = date
Rs1.update
Rs1.close
set Rs1 = nothing
sql="select * from gbook where userid="&userid&" order by id desc"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
Rs.pagesize=pagesize
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>
<%
sql = "select * from news where userid="&userid&" order by id desc"
set srs = Server.CreateObject("ADODB.Recordset")
srs.open sql,conn,1,1
do while not srs.eof
news=news&""""&srs("news")&" ["&srs("date")&"]"","""","
srs.movenext
loop
srs.close
set srs = nothing
%>
::淄博齐鲁幼教集团遄台幼儿园::
