% option explicit %>
<%
dim conn
dim connstr
call conn_init()
sub conn_init()
connstr = "DBQ=" + server.mappath("news/news.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错!"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错!"
Response.End
end if
end if
end sub
sub endConnection()
conn.close
set conn=nothing
end sub
%>
<%
dim THCOLOR, TDCOLORD, TDCOLORL, TBCOLOR, BGCOLOR,HBARCOR
dim homepage
dim FIRSTNO, PERPAGE
FIRSTNO = 5 '首页显示新闻个数
PERPAGE = 5 '每页显示记录数
function htmlencode(str)
htmlencode=replace(replace(str,chr(13)," "),"'","''")
end function
%>
<% dim rs, sql, rs1, sql1
set rs = server.createobject("adodb.recordset")
set rs1 = server.createobject("adodb.recordset")
%>