请高手看看这段代码 老是说语句未结束啊
sub content0()
sql="select yq_content from yq_service"
set rs=server.createobject("adodb.recordset")
sql.open sql,conn,1,1
if not rs.eof and rs.bof then
StrTemp=split(mb_other,"|||@@@|||")'mb_other这个是模板,
dim Ft_mbstr
Ft_mbstr=StrTemp(4)
Ft_mbstr=split(strTemp(4),"////")
do while not rs.eof
rlist=rs(0)
response.write Ft_mbstr(3)
response write "&rlist&"
response.write Ft_mbstr(4)
rs.movenext
loop
else
response.write Ft_mbstr(3)
response.write"<p align=""center"" class=""disable_font"">暂时没有项目</p>"
response.write Ft_mbstr(4)
end if
end sub
参考答案:response.write"<p align=""center"" class=""disable_font"">暂时没有项目</p>"
是这一行吗?改成这样试一下:
response.write"<p align="& chr(34) & "center"& chr(34) & " class="& chr(34) &"disable_font"& chr(34) &">暂时没有项目</p>"