错误类型:Microsoft JET Database Engine (0x80040E14)FROM 子句语法错误。/myweb/const.asp, 第 25 行 整了一整天了,帮我找找错在哪里啊谢谢大家了
<!--#include file="const.asp"-->
<%
dim sql
dim rs
dim tflag
dim opmessage
dim pagesize
dim pgnm
dim page
dim count
count=0
pagesize=9
sql="select [管理员.tname],[公告表.tid] from 管理员,公告表"
sql=sql & "where 管理员.id=[公告表.tid]"
sql=sql & "order by [公告表.id] desc"
%>
<html>
<head><meta http-equiv="content-language" content="zh-cn">
<title>已发信息列表</title>
<link rel="stylesheet" type="text/css" href="link.css">
<script language="javascript" type="text/javascript">
<!--
function MM_jumpMenu(targ,selobj,restore){//v3.0
eval(targ+".location='"+selobj.options[selobj.selectedindex].value+"'");
if(restore) selobj.selectedindex=0;}//-->
</script></head><body>
<div align="center">
<table border="1" width="700" id="table2" cellspacing="0" cellpadding="0" style="border-collapse:collapse" height="32">
<tr>
<td align="center">当前操作:公告列表</td>
</tr>
</table>
<br>
<%
set rs=executequery(sql)
if(rs.eof) then
response.write("暂时没有任何公告!")
else
rs.pagesize=pagesize
pgnm=rs.pagecount
if(isempty(page) or cint(page)<1 or cint(page)>pgnm) then
page=1
end if
rs.absolutepage=page
%>
<table border="1" width="700" id="table1" cellspacing="0" cellpadding="0" style="border-collapse:collapse" height="78" bordercolor="#cccccc">
<tr>
<td width="84" height="25" align="center">发布人</td>
<td width="300" height="25" align="center">标题</td>
<td width="86" height="25" align="center">发布时间</td>
<td height="25" align="center">操作</td>
</tr>
<%
while(not rs.eof)
if(session("userflag")="管理员" or session("userid")=rs("tid")) then
opmessage="<a href=shownotice.asp?nid=" & rs("id")
opmessage=opmessage & ">查看</a>/"
opmessage=opmessage & "<a href=changenotice.asp?nid=" & rs("id")
opmessage=opmessage & ">修改</a>/"
opmessage=opmessage & "<a href=messagenotice.asp?actiontype=delete&nid=" & rs("id")
opmessage=opmessage & ">删除</a>"
else
opmessage="<a href=shownotice.asp?nid=" & rs("id")
opmessage=opmessage & ">查看</a>"
end if
%>
<tr>
<td width="84" height="25" align="center"><%=rs("tname")%></td>
<td width="300" height="25">
<a href="shownotice.asp?nid=<%=rs("id")%>"><%=rs("ntitle")%></a></td>
<td width="86" height="25" align="center"><%=opmessage%></td></tr>
<%
rs.movenext()
wend
%>
<tr>
<td align="right" height="26" colspan="4"><%if page=1 then%>
<font color="#cccccc">上一页</font><%else%>
<a href="listnotice.asp?page=<%=page-1%>">上一页</a><%end if%> <%if page\pgnm=0 then%><a href="listnotice.asp?page=<%=page+1%>">下一页</a><%else%>
<font color="#cccccc">下一页</font><%end if%>共<font color="#ff0000"><%=rs.recordcount%></font>条信息,每页<font color="#ff0000"><%=pagesize%></font>条,共<font color="#ff0000"><%=pgnm%></font>页,<span lang="zh-cn">当前为第<font color="#ff0000"><%=page%></font>页,</span>跳转到<select name="page" onchange="MM_jumpMenu('this',this,0)"
style="border:1px solid #8293e6; font-size:9pt;width=62px;height=16px;color:#111111;background-color:#ddddff"><option selected value="#">请选择</option>
<%for i=1 to pgnm%>
<option value="listnotice.asp?page=<%=i%>">第<%=i%>页</option>
<%next%></select></td></tr></table>
<%
end if%></div></body></html>