<%
fypath="sq"
set connt=server.createobject("adodb.connection")
connt.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(fypath&"\data\db_bbs.asp")
set rst=server.createobject("adodb.recordset")
rst.open "select top 15 * from t_bbs where dele<>'是' and indict<>'是' and instr(',"&application("sys_bpass")&",',','+cstr(bid)+',')<=0 order by id desc",connt,3,1
tti=0
while not rst.eof
tti=tti+1
%>
<%
if tti>=6 then
rst.movelast
end if
rst.movenext
wend
rst.close
connt.close
set rst=nothing
set connt=nothing
function getboardname(bid)
getboardname="未知版面"
tempd=split(application("sys_boardname"),";")
for tempi=0 to ubound(tempd)
if bid&","=left(tempd(tempi),len(bid)+1) then
getboardname=right(tempd(tempi),len(tempd(tempi))-len(bid)-1)
tempi=99999
end if
next
end function
%>
1、社区、论坛正在建造中。
2、留言板
3、业余卫星通信
4、免费打130手机
5、
6、
