% set conn=Server.CreateObject("adodb.connection") set rsType=Server.CreateObject("adoDB.RecordSet") set rsProduct=Server.CreateObject("adoDB.RecordSet") connect_str="DBQ=" & Server.Mappath(".\gdt65fger.mdb") & ";DefaultDir=" & Server.Mappath(".\") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" Conn.Open connect_str rsType.ActiveConnection=Conn rsType.cursortype=3 rsType.MaxRecords=20 rsProduct.ActiveConnection=Conn rsProduct.cursortype=3 rsProduct.MaxRecords=20 rsType.open "select * from t_type order by type " if not rsType.eof then showtype = rsType("type").value end if if ( request("type")<>"" ) then showType = request("type") end if rsProduct.open "select * from t_product where type =" & showtype %>
| 网站首页. . : : :: :加入收藏夹食用菌供求信息 在线价格 会员注册食用菌企业数据库 留言板 菌种登记关于我们 |
|
||||||||||
|
|
|
|
| 为得到最佳浏览效果,请使用 IE5.0 和 Netscape 6.2 浏览器,1024x768 分辨率 @ 2002 中国食用菌网版权所有。 |
| 有任何问题或建议请来信qysl@mail.lsptt.zj.cn, 或致电0578-6282696沈亮 |