<%
dim conn
dim connstr
dim db
db="/manage/DataBase/#yzjgcnetpat.asa" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
set rs = server.createobject("adodb.recordset")
rs.source = "select leibie,content,addtime from bszl where leibie='keshi'"
rs.open rs.source,conn,1,1
%>
兖州市建设交易信息网--标准定额--造价管理
