 |
 |
 |
|
<%'--- 供求在首页--->
connstr="DBQ="+server.mappath("info/##std%$.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql1="select top 6 title,bdate,bid,bd from stdbbs where bd=1 order by bid desc"
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql1,conn,1,2
if rs1.eof and rs1.bof then
response.write "对不起，目前还没有任何记录！"
else
end if
%>
|
 |
|
 |
|
|
