一个比较麻烦的ASP语句写法，高手来

Posted 2023-03-15

想做一个仿榕树下的标题注释文字显示文章预览的效果
我目前的程序是这样写的，前面显示标题，后面显示文章预览，代码如下：
-----------------------------
src_Title = Rs("Src_Title")
if src_Title <> "" then
src_Title = Replace(src_Title,"'"," ")
src_Title2=Replace(src_Title,"""","\""")
src_Title = Server.htmlEncode(src_Title)
end if
Response.Write("<a href=""SrcShow.asp?Src_ID="&Rs("Src_ID")&""" class=""postfontindex"" style=""font-weight: bold;"" onMouseOut='window.status="""&Web_Name&"欢迎您！"";' onMouseOver='window.status="""&Web_Name&"：打开"&src_Title2&""";return true;'>"&vbcr)
Response.Write (src_Title &"</a><br />"&vbcr)
Response.Write("<span class='pl'><a href='Profile.asp?UserName="&Rs("UserName")&"' target='_blank'>"&Server.HTMLEncode(Rs("UserName"))&"</a> </span>")
Response.write("<span class='green'>在"& Rs("Src_AddDate") &"发布说</span><br />"&vbcr)
Src_Desc = Rs("Src_Desc")

if Src_Desc <> "" then
Src_Desc = WoDig.DecodeFilter(Src_Desc,"SCRIPT,TABLE,CLASS,XML,NAMESPACE,MARQUEE,OBJECT,STYLE,EMBED,DIV,ONLOAD,ONCLICK,ONDBCLICK,FONT,IMG")
Src_Desc = WoDig.get_StrLen(Src_Desc,Web_ContentTxtNum)

src_Desc = Replace(src_Desc,"""","'")
Src_Desc = WoDig.ChangeURLTarget(Src_Desc,"_blank")
response.write(src_desc)
end if
--------------------------------------------
注意：标题的连接上用了一个状态栏提示效果
现在需要的就是把显示的内容预览直接显示到alt注释里面
我曾经这样写的：
--------错误的尝试-----------------
src_Title = Rs("Src_Title")
if src_Title <> "" then
src_Title = Replace(src_Title,"'"," ")
src_Title2=Replace(src_Title,"""","\""")
src_Title = Server.HTMLEncode(src_Title)
end if

if Src_Desc <> "" then
Src_Desc = WoDig.DecodeFilter(Src_Desc,"SCRIPT,TABLE,CLASS,XML,NAMESPACE,MARQUEE,OBJECT,STYLE,EMBED,DIV,ONLOAD,ONCLICK,ONDBCLICK,FONT,IMG")
Src_Desc = WoDig.get_StrLen(Src_Desc,Web_ContentTxtNum)

src_Desc = Replace(src_Desc,"""","'")
Src_Desc = WoDig.ChangeURLTarget(Src_Desc,"_blank")
end if

Response.Write("<a href=""SrcShow.asp?Src_ID="&Rs("Src_ID")&""" class=""postfontindex"" style=""behavior:url(hint.htc)"" son=""divtip"" alt="&rs("src_Desc")&" style=""font-weight: bold;"" onMouseOut='window.status="""&Web_Name&"欢迎您！"";' onMouseOver='window.status="""&Web_Name&"：打开"&src_Title2&""";return true;'>"&vbcr)
Response.Write (src_Title &"</a><br />"&vbcr)
Response.Write("<span class='pl'><a href='Profile.asp?UserName="&Rs("UserName")&"' target='_blank'>"&Server.HTMLEncode(Rs("UserName"))&"</a> </span>")
Response.write("<span class='green'>在"& Rs("Src_AddDate") &"发布说</span><br />"&vbcr)
Src_Desc = Rs("Src_Desc")
------------------------------
这样的显示是错误的，标题反而显示为内容的一部分了
而提示也显示的内容的第一句。。。。
请高手解答下

是HTML的问题吧~

吧HTML先写出来..在RESPONSE.WRITE

其实我认为你吧HTML单独出来..然后嵌套代码最好..
比如输出个带数据的div..可以不用RESPONSE..而是

<div><%=内容%></div>

这样执行的速度也比全代码快! 参考技术A 就5分。50分还嫌少了。就算帮了你。。也花了一会工夫和时间。。谁会这么无聊来看你这段枯燥的代码。。