<%
if request.querystring("cx")="" then
'call db_connect("moneymanager")
Set objRS = Server.CreateObject("ADODB.Recordset")
Const adCmdTableDirect = &H0200
Const adUseClient = 3
objRS.PageSize=5
objRS.CacheSize=5
objRS.CursorLocation = adUseClient
p=cint(request.querystring("page"))
if p=0 then p=1
sql="SELECT * FROM blog ORDER BY b_date DESC"
objRS.Open sql, objConnect, 0, 1, 1
objRS.AbsolutePage=p
for i=1 to objRS.PageSize
if NOT objRS.EOF then
t=lcase(replace(objRS("b_category"), " ", "_", 1, -1, 1))
response.write "
" & vbcr
response.write "
" & objRS("b_category") & " News | " & formatdatetime(objRS("b_date"), 1)
response.write " change size:AAAAA"
response.write "
"
response.write "
" & objRS("b_text") & "
"
response.write "
" & vbcr
objRS.MoveNext
end if
next
if p>1 then
Response.Write "
"
end if
if p
"
end if
response.write "
"
objRS.Close
'db_close
end if
%>
