
isEn=false
siteName="服务中心 "
webDir="/rwx/"
dbpath="/db/bobo#db.MDB"
constr="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath(dbpath)
set conn=server.CreateObject("adodb.connection")
conn.open constr
sub closeConn()
if isobject(conn) then
conn.close():set conn=nothing
end if
end sub
function GetCompanyInfoByID(ID)
dim sql,returnStr,rs
sql="select content from company where id="&id
set rs=conn.execute(sql)
if not rs.eof then
returnStr=rs("content")
else
returnStr="没有找到该栏目"
end if
rs.close():set rs=nothing
GetCompanyInfoByID=returnStr
end function
%>
代码如上,老是提示
Microsoft VBScript 编译器错误 '800a0409'
未结束的字符串常量
\www\inc\conn.asp, line 3
但是我看看 好像没错呀,请高手帮忙看看指教一下,20分
你是不是用的 ASP本地测试工具软件 来显示ASP页面的呢?另外你的ASP文件是不是用的老纳御utf-8编码呢?如果是,那么问题就明确了:这是因为这个小工具软件不支持utf-8编码格式的网页。解决方法是:把所有页面从utf-8编码转为ascii编码,或者在电脑中安装IIS。总茄氏之,我敢保证,你的这个页面如果运行在真正的服务器上(不侍岩管是本地的还是网络上的)是没问题的。
把 第绝码尺二行
siteName="服务中并高心 "
里的汉字重模竖新写一下,不要全角的空格