关于字符串的问题，大家帮忙啊！！！高分奉送

Question

<%
a=Replace(Replace(rs("内容"),vbCrLf,""),"""","\""")
%><script language=javascript>
  var str1
  str1="<%=a%>"
</script>

Answer 1

<%
a=Replace(Replace(rs("内容"),vbCrLf,"<br>"),"""","\""")
%><script language=javascript>
  var str1
  str1="<%=a%>"
</script>

Answer 2

Replace可以达到你的要求
循环是什么意思？

Answer 3

ary = "<%=a%>".Split("\n");

Answer 4

我vbs不好，希望能说清楚函数o需要调用drs和nd这两个函数，请保证其存在
drs(summary) 用于显示摘要框
nd() 用于关闭摘要框o(title,summary) 需要有两个参数
title 显示于列表上的标题
summary 显示于摘要框中的摘要<%
'连接数据库并查询出所需内容
'循环取出记录内容
Response.Write "<script>"
while ...
  title = Replace(Replace(rs("标题"),vbCrLf,""),"""","\""")
  summary = Replace(Replace(rs("内容"),vbCrLf,""),"""","\""")
  summary = Mid(summary,1,50) '取出内容的前50个字
  Response.Write "o("""&title&""","""&summary&""")"
Wend
Response.Write "</script>"
%>

Answer 5

<script language=javascript>
  var str1
  str1="<%=a%>"
</script>-------------------------------------------------------
这样写其实存在两个问题：
1、如果a字符串中含有回车换行符，想想看吧，这会破坏脚本的结构的，造成违反javascript的语法问题；
2、如果a字符串中含有“"”号，也会违反javascript的语法。不知为何你要这样做，且顺你做法吧，如果一定要这样的话，请先用escape()函数ASP中对a处理一番，排除前面的两个问题，以后在javascript中要调用str1时再用unescape()将其还原就可以了，不过这样做会使你的网页增肥不少，a会比以前大4倍左右吧。如：
<script language=javascript>
  var str1
  str1="<%=escape(a)%>"  function test(vlu){
    alert(unescape(vlu));
  }
  test(a);
</script>

Answer 6

不好意思，前面的例子应该是这样的：<script language=javascript>
  var str1
  str1="<%=escape(a)%>"  function test(vlu){
    alert(unescape(vlu));
  }
  test(str1);
</script>

Answer 7

按照xuzuning(唠叨)兄的解决了部分问题了：）
但还有错误
http://www.luckybbs.com/list1.asp?boardid=10 请看错误信息
我的源码是：
sub showlist()
response.write  "<ul>"
call showtoplist()
layer=1
do while not rs.eof
          do while layer<> rs("bbs_layer")
             if rs("bbs_layer")> layer then
                outtext=outtext & "<ul>"
                layer=layer+1
             else 
                outtext=outtext &  "</ul>" & chr(13) & chr(10)
                layer=layer-1  
             end if
          loop
          if rs("bbs_isdel")=1 then
          subject ="该帖已被版主置入回收站了"
          faceid=0
          else
          subject =replace(rs("bbs_subject"),"""","&quot;")
summary = Replace(Replace(rs("bbs_Content"),vbCrLf,""),"""","\""")
summary = Mid(summary,1,50) '取出内容的前50个字
          faceid=rs("bbs_faceid")
          end if
'src=rs("bbs_Content")
          response.write outtext%>
<script>o(<%=rs("bbs_id")%>,<%=faceid%>,"<%=replace((subject),"\","\\")%>","<%=summary%>","<%=rs("bbs_username")%>",<%=year(rs("bbs_date"))%>,<%=month(rs("bbs_date"))%>,<%=day(rs("bbs_date"))%>,"<%response.write hour(rs("bbs_date"))&":"&minute(rs("bbs_date"))&":"&second(rs("bbs_date"))%>",<%=rs("bbs_Hits")%>,<%=rs("bytes")%>,<%=rs("bbs_child")%>,<%=lcase(cbool(rs("bbs_date")>date()))%>,<%=lcase(not(rs("bbs_urltitle")=""))%>,<%=lcase(not(rs("bbs_urlpic")=""))%>,<%=rs("bbs_isgood")%>,0);</script>
<%outtext=""
 rs.movenext
 loop
       if layer<>0 then 
          dim i 
          for i=1 to layer
              outtext=outtext & "</ul>"
          next 
       end if
       outtext=outtext & "</ul>"        
       response.write outtext
end sub