| 网 站 统 计 |
文章中心：1005 篇文章
德育风采：774 个德育风采
软件下载：22 个软件
图展古今：0 张图片
学校视频：3 部学校视频
围棋之家：29 个文章
注册会员：385位
|
|
| 最 新 调 查 |
|
|
|
|
| 软件下载 |
|
|
|
|
|
| 论坛新贴 |
|
最新留言 |
|
请修改网站首页模板中调用论坛新贴的代码。 | <%@ language=VBScript %><%Set cnn=Server.CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("zxwz/zxwzdbk.mdb")
set rst=server.CreateObject("ADODB.recordset")
rst.open "select * from PE_GuestBook order by GuestDateTime desc",cnn,2,2
rst.movefirst
dim a,x,petit,petit1,peid
a=1
x=0
response.write ""
response.write ""
while x=0
petit=rst("GuestTitle")
peid=rst("TopicID")
petit1=left(petit,15)
if petit<>"" then
response.write ""
response.write "| "
response.write petit1&" | "
response.write " "
end if
rst.movenext
a=a+1
if a>5 or rst.eof then
x=1
end if
wend
response.write " "
%> |
|
|
沪ICP备07034256号