高校问答铁血使命第十七集:关于ASP网页
来源：百度文库 编辑：高校问答 时间：2024/04/25 20:41:11
response.write skinmenu&"<div id=""pagend"">"&replace(bbstr(2),"{执行时间}","<font onmousemove=""this.color='#FF0000'"" onmouseout=""this.color=''"">当前风格：["&sname&"]</font> 执行时间："&FormatNumber(timer()-startime,5,-1)&" 秒 <a name=""##""></a><a href=""javascript:scroll(0,0)"">♂</a>")&"</div></div></div></div><div id=""bodyend1""><div id=""bodyend2""><div id=""bodyend""></div></div></div>"&bdmenu&"<script src=""images/skin/"&sid&"/skin.js""></script><script src=""inc/menu.js""></script><script language="JavaScript" src="http://www2.ok3.net/mystat.asp?user=4970&style=6"></script></body></html>"
End sub
'菜单栏
提示我语句未完成,谁帮我修改一下啊?
字符串中没有把所有的" ，替换成"",我改了一下，你试试。
Public Sub pagend()
repcode = skinmenu & "<div id=""pagend"">"
repcode = repcode & "<font onmousemove=""this.color='#FF0000'"" onmouseout=""this.color=''"">当前风格：[" & sname & "]</font>"
repcode = repcode & " 执行时间：" & FormatNumber(Timer() - startime, 5, -1) & " 秒"
repcode = repcode & "<a name=""##""></a><a href=""javascript:scroll(0,0)"">♂</a> " & "</div></div></div></div>"
repcode = repcode & "<div id=""bodyend1""><div id=""bodyend2""><div id=""bodyend""></div></div></div>" & bdmenu & "<script src=""images/skin/" & sid & "/skin.js""></script><script src=""inc/menu.js""></script>"
repcode = repcode & "<script language=""JavaScript"" src=""http://www2.ok3.net/mystat.asp?user=4970&style=6""></script></body></html>"
response.write Replace(bbstr(2), "{执行时间}", repcode)
End sub