ASP连接数据库出错帮忙看看

go18201007 go18201007 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区

<%
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
------^
...全文
评论 5
收藏 已收藏
分享
返回顶部
go18201007
ASP 28,401 成员 356,940 内容