<%
db=server.MapPath ("/sddyw/sddzgy#fjq#2010.asa")
ConnStr ="driver={Microsoft Access Driver (*.mdb)};dbq=" & db
Set Conn=Server.CreateObject("ADODb.Connection")
Conn.Open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
strMaxLen = 30
sql="select * from PE_Article where ChannelID=1010 and title like '%万景仙沟%' order by Updatetime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=2
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.AbsolutePage=epage
int myi=1
while not rs.eof and myi"&title&""
myi=myi+1
rs.movenext
wend
%>