|
<%dim connstr,sql,page,totalpage,num,tiao
table=trim(request("table"))
num=20
page=request.form("page")
if page="" then page=request.QueryString("page") end if
if page<>"" then page=clng(page) end if
if page="" then page=1 end if
connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../manage/admin/system/caiji.mdb")
set conn=server.createobject("ADODB.Connection")
conn.Open connstr
If Err Then
Err.Clear
Response.Write Err&"数据连接错误!"
Response.End
End If
sql="select * from "&table&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
标准查询检索系统 |
