在asp中basic语句中的字符串中包含js语句,这时处理起间隔符这特殊的符号确实是件麻烦事,苦于找不到相应的资料,一时
间头痛万分.现在好了,总算让我想到了解决的办法,原来我这么"后知后觉"啊,呵呵.

struserlist = struserlist & "<a href=\'#\' onclick=" & chr(34) &_
"sendmsg(\'" & usernick & "\');return false;" & chr(34) &_
" class=\'l_line\'><span class=lineinfo>" & usernick & "</span>[/URL]"


呵呵,还没写完,续上:

上面的StrUserList字串被赋值给另一个帧页上的一个表单中隐藏文本单元:
if (top.LineInfo.document.forms.length == 1) {
top.LineInfo.document.forms[0>.userlist.value = "<% =GetAppUserList() %>";
if (top.MainFrame.mylayer != null)
top.MainFrame.ShowLineInfo();
}


在主页帧中显示:

function ShowLineInfo()
{
var userlist;
if (top.LineInfo.document.forms.length == 1)
userlist = top.LineInfo.document.forms[0>.userlist.value
else
userlist = "<span class=\'lineinfo\'>Welcome to WWW.JSJ02.NET!</span>";
userlist = userlist + " <a href=\'<% =path %>/listuser.asp\'>" +
"<span class=\'lineinfo\'>显示列表</span>[/URL]<a href=\'#\' onclick=\'top.RefFrame.location=" +
""<% =path %>/refresh.asp?stat=manu"\'><span class=\'lineinfo\'> 刷新</span>[/URL]";
if (mylayer != null)
{
mylayer.innerHTML = "";
mylayer.filters[0>.Apply();
mylayer.innerHTML = userlist
mylayer.filters[0>.Play();
}
}


mostone ( 2001-7-12 9:50:14 )

呵呵,还没写完,续上:

上面的StrUserList字串被赋值给另一个帧页上的一个表单中隐藏文本单元:
if (top.LineInfo.document.forms.length == 1) {
top.LineInfo.document.forms[0>.userlist.value = "<% =GetAppUserList() %>";
if (top.MainFrame.mylayer != null)
top.MainFrame.ShowLineInfo();
}


在主页帧中显示:

function ShowLineInfo()
{
var userlist;
if (top.LineInfo.document.forms.length == 1)
userlist = top.LineInfo.document.forms[0>.userlist.value
else
userlist = "<span class=\'lineinfo\'>Welcome to WWW.JSJ02.NET!</span>";
userlist = userlist + " <a href=\'<% =path %>/listuser.asp\'>" +
"<span class=\'lineinfo\'>显示列表</span>[/URL]<a href=\'#\' onclick=\'top.RefFrame.location=" +
""<% =path %>/refresh.asp?stat=manu"\'><span class=\'lineinfo\'> 刷新</span>[/URL]";
if (mylayer != null)
{
mylayer.innerHTML = "";
mylayer.filters[0>.Apply();
mylayer.innerHTML = userlist
mylayer.filters[0>.Play();
}
}