有村千佳在线视频av:Microsoft VBScript 编译器错误 错误 '800a0409'
来源:百度文库 编辑:高校问答 时间:2024/05/13 17:08:35
Microsoft VBScript 编译器错误 错误 '800a0409'
未结束的字符串常量
/Inc/syscode_soft.asp,行 802
response.Write "<tr><td width='15' align='center'><b>' & i & '</b></td><td><%if rs('movie')='rm' then response.write '<a href=# onClick=windowOpen('playrm.asp?UrlID=1&SoftID=' & rs('softid') & '')>' & gotTopic(rsTop('SoftName') & '' & rsTop('SoftVersion'),TitleLen) & '</a>' end if
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^
未结束的字符串常量
/Inc/syscode_soft.asp,行 802
response.Write "<tr><td width='15' align='center'><b>' & i & '</b></td><td><%if rs('movie')='rm' then response.write '<a href=# onClick=windowOpen('playrm.asp?UrlID=1&SoftID=' & rs('softid') & '')>' & gotTopic(rsTop('SoftName') & '' & rsTop('SoftVersion'),TitleLen) & '</a>' end if
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^
...错的不只一处啊:
建议改写为:
<%
Dim Str
Str= "<tr><td width='15' align='center'><b>'" & i & "'</b></td><td>"
if rs("movie")="rm" then
Str = Str & "<a href=# onClick=""windowOpen('playrm.asp?UrlID=1&SoftID=" & rs('softid') & "');"">" & gotTopic(rsTop("SoftName")&" "&rsTop("SoftVersion"),TitleLen) & "</a>"
end if
Str = Str & "</td></tr>"
'...其他语句
response.write Str
这样,不容易因代码太长而写错,也容易读一些,对于执行速度也有一定的好处.