ASP连接数据库出错帮忙看看
<%
function News(SortPath)
dim sql,NewsName,NewFlag
dim rs as adodb.recordset
conn=server.mappath("db/Energy.mdb")
set rs = server.createobject("adodb.connection")
sql="select top 7 * from News where NewsTitle='"+"国内动态"+"'order by NewsId desc"
rs.open sql,conn,1,1
''response.end()
if rs.eof then
response.write "暂无相关信息"
else
do while not rs.eof
if now()-rs("NewsTime")<=2 then
NewsName=StrLeft(rs("NewsTitle"&Language),42)
NewFlag=" <font style=""font-size:9px;color:red;""><strong>NEW</strong></font>"
else
NewsName=StrLeft(rs("NewsTitle"&Language),46)
NewFlag=""
end if
response.write " "&rs("NewsTime")&" | <a href="">"&NewsName&"</a><br/>"
rs.movenext
loop
end if
rs.close
set rs=nothing
end function
%>
错误提示:
错误类型:
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/chenghe999/首页.asp, line 114, column 7
dim rs as adodb.recordset
------^
...全文
相关推荐
网站问题与解决.docx
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005' [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
ASP连接SQL Server数据库总结.doc
ASP连接SQL Server数据库总结.doc
asp连接access数据库例子
asp连接access数据库例子,本例展示如何在asp页面连接Access数据库。
Flash-ASP-数据库.pdf
Flash-ASP-数据库.pdf
ASP开发中通用的数据库连接配置文件源码
ASP开发中通用的数据库连接配置文件源码,不值三分你喷我。自己开发的。


