高手看过来,我不明白
源程序如下:
<%@ language=vbscript%>
<%
Dim conn,strconn
strconn="DBQ="+server.mappath("pubs.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn = server.createobject("adodb.connection")
conn.open strconn
Dim Mid
Dim SPRs,SPSql
SPSql="select top 1 * from sp order by -id"
set SPRs=server.createobject("ADODB.Recordset")
SPRs.open SPSql,conn,1,1
Mid=SPRs("id")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0" marginwidth="0" leftmargin="39">
<table name="xx" width="95%" height="20" border="0" align="center" cellspacing="0" cellpadding="3" >
<tr>
<td colspan="2">
<%if cint(SPRs("MeetingNews"))<>0 then
dim Mrs,Msql
set Mrs=server.createobject("ADODB.Recrodset") //错误就在这一行
Msql="select * from spNews where Meetingid="&Mid
Mrs.open Msql,conn,1,1%>
<table name="xx" width="95%" height="20" border="0" align="center" cellspacing="0" cellpadding="3" >
<%do while (not Mrs.eof or err)%>
<tr>
<td width="3%" height="2"><img src="images/point.gif" width="15" height="13"></td>
<td width="97%" height="2"><a href="'viewspNews.asp?id="&<%=Mrs("id")%>&"'"><%=Mrs("NewsTitle")%></a></td>
<%Mrs.movenext
loop%>
</table>
<%Mrs.close
set Mrs=nothing
end if%>
</td>
</tr>
</table>
<%conn.close
set conn=nothing%>
</body>
</html>
错误提示:服务器对象, ASP 0177 (0x800401F3)
无效的 ProgID。 若要获取关于此消息的更多的信息,请访问 Microsoft 联机支持站点: http://www.microsoft.com/contentredirect.asp
*********/tmp.asp,第 26行
求教,谢先。