bar_top_2.asp

用ASP写的二手市场程序

<p align="right">
<%
on error resume next
connstr = "DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
Conn.Open connstr
set rs = server.createobject("adodb.recordset")
sqlbytype="select * from data "
rs.open sqlbytype,conn,1,1
fl_xj=rs.recordcount

   response.write "物品总计:"   
   response.write cstr(fl_xj)+"个"
   response.write ";类别:66种"  

%>
        &nbsp; </p>