sql="select 名称 from 看板列表 where id=" & boardid
set rs=conn.execute(sql)
boardname=rs("名称")
cmd.commandtext="未发表文章列表"
ReDim param(0) ' 声明
param(0) = CLng(boardid) ' Cint 不可忽略
Set rs = cmd.Execute( ,param )
set cmd=nothing
%>
< html>
< head>
< title>版务处理< /title>
< meta http-equiv="Content-Type" content="text/html; charset=gb2312">
< /head>
< body bgcolor="#FFFFFF">
< h1 align="center">< %=boardname%>板板务管理< /h1>
< hr>
< %
if rs.eof or rs.bof then response.write "< H2>现在没有文章要处理< /h2>"
response.end
%>
如果没有新文章被网友发布,这给出相应的提示,并用response.end来结束此页的显示。
< table width="90%" border="0" cellspacing="0" cellpadding="0" align="center" >
< tr bgcolor="#FFFFCC">
< td width="40%" height="20">主题< /td>
set rs=conn.execute(sql)
boardname=rs("名称")
cmd.commandtext="未发表文章列表"
ReDim param(0) ' 声明
param(0) = CLng(boardid) ' Cint 不可忽略
Set rs = cmd.Execute( ,param )
set cmd=nothing
%>
< html>
< head>
< title>版务处理< /title>
< meta http-equiv="Content-Type" content="text/html; charset=gb2312">
< /head>
< body bgcolor="#FFFFFF">
< h1 align="center">< %=boardname%>板板务管理< /h1>
< hr>
< %
if rs.eof or rs.bof then response.write "< H2>现在没有文章要处理< /h2>"
response.end
%>
如果没有新文章被网友发布,这给出相应的提示,并用response.end来结束此页的显示。
< table width="90%" border="0" cellspacing="0" cellpadding="0" align="center" >
< tr bgcolor="#FFFFCC">
< td width="40%" height="20">主题< /td>
| 对此文章发表了评论 |
