<%
dim conn
dim connstr
dim db
db="./data/main_database.mdb"
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")
sql="select * from info where bcategory=4"
rs.open sql,conn,1,1
if not rs.eof then
content=rs("content")
end if
rs.close
%>
资讯教学|上海华兴进修学校
·园地
