<% option explicit %>
<%
dim conn,connstr,database
database=0 '设置使用的数据库类型,1=SQL SERVER,其他为ACCESS
if database=1 then
connstr="driver={SQL Server};server=(local);database=BVNews;uid=sa;pwd=1;"
else
connstr="DBQ="+server.mappath("news/whdxsnews.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
end if
set conn=server.CreateObject("adodb.connection")
conn.open connstr
%>
<%dim rs,sql,typeid,number,theday,curpage,i,rs1,sql1
typeid=1
if typeid="" then
response.write "错误!版面编号不能为空!返回"
response.end
end if
set rs=server.createobject("adodb.recordset") '每页显示的文章数
rs.open "select morenumber from news_parameter where parameterid=1",conn,1,1
if not rs.bof and not rs.eof then
number=rs("morenumber")
else
number=50
end if
rs.close
rs.open "select typename from type where typeid=14" ,conn,1,1
if not rs.bof and not rs.eof then
sql=rs("typename")
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
rs.open "select * from news where typeid=14" & " and audit=1 order by ntime DESC",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
%>
彩店宝彩票提款 - 彩店宝彩票安全吗 - 剑网3
