文章多行列表
作者:cmscn 日期:2007-01-11
sub root_main(f_title,c_num,f_num)
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0> <%response.write img_skin(web_img_m)%> <%response.write f_title%></td></tr>
<tr class=bg_td><td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<%
sql="select top "&c_num&" id,c_id,topic,counter from root where hidden=1 order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
response.write "<tr>"
for i=1 to 4
if rs.eof then exit for
%>
<td>
<%response.write img_skin(web_img_h)%>
<a href="root/root_view.asp?c_id=<%response.write rs("c_id")%>&s_id=<%response.write sid%>&id=<%response.write rs("id")%>" alt='<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("topic"),1,0),1)%>' target=_blank>
<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("topic"),1,f_num),1)%></a></td>
<%
rs.movenext
next
response.write "</tr>"
loop
rs.close
%>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr><td align=right><a href="/root/root_list.asp?action=more&c_id=31">浏览更多…</a> </td></tr>
</table></td></tr></table>
<%
end sub
%>
调用 call root_main("美术馆",10,12)
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0> <%response.write img_skin(web_img_m)%> <%response.write f_title%></td></tr>
<tr class=bg_td><td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<%
sql="select top "&c_num&" id,c_id,topic,counter from root where hidden=1 order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
response.write "<tr>"
for i=1 to 4
if rs.eof then exit for
%>
<td>
<%response.write img_skin(web_img_h)%>
<a href="root/root_view.asp?c_id=<%response.write rs("c_id")%>&s_id=<%response.write sid%>&id=<%response.write rs("id")%>" alt='<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("topic"),1,0),1)%>' target=_blank>
<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("topic"),1,f_num),1)%></a></td>
<%
rs.movenext
next
response.write "</tr>"
loop
rs.close
%>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr><td align=right><a href="/root/root_list.asp?action=more&c_id=31">浏览更多…</a> </td></tr>
</table></td></tr></table>
<%
end sub
%>
调用 call root_main("美术馆",10,12)
多行列表 黄页
作者:cmscn 日期:2007-01-11
sub pris_main(f_title,ft,c_num,f_num)
dim i,ii:ii=0
select case ft
case "hot"
sql=" order by counter desc,id desc"
case "good"
sql=" and isgood=1 order by id desc"
case else
sql=" order by id desc"
end select
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0> <%response.write img_skin(web_img_m)%> <%response.write f_title%></td></tr>
<tr class=bg_td><td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<%
sql="select top "&c_num&" id,c_id,name,counter from pris where hidden=1"&sql
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
response.write "<tr>"
for i=1 to 2
if rs.eof then exit for
%>
<td>
<%response.write img_skin(web_img_h)%>
<a href="pris_view.asp?c_id=<%response.write rs("c_id")%>&s_id=<%response.write sid%>&id=<%response.write rs("id")%>" alt='<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,0),1)%>' target=_blank>
<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,f_num),1)%></a></td>
<%
ii=ii+1
rs.movenext
next
response.write "</tr>"
loop
rs.close
%>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr><td align=right><a href="pris_list.asp?action=<%response.write ft%>">浏览更多…</a> </td></tr>
</table></td></tr></table>
<%
end sub
调用
call pris_main("最新公司","new",10,12)
dim i,ii:ii=0
select case ft
case "hot"
sql=" order by counter desc,id desc"
case "good"
sql=" and isgood=1 order by id desc"
case else
sql=" order by id desc"
end select
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0> <%response.write img_skin(web_img_m)%> <%response.write f_title%></td></tr>
<tr class=bg_td><td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<%
sql="select top "&c_num&" id,c_id,name,counter from pris where hidden=1"&sql
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
response.write "<tr>"
for i=1 to 2
if rs.eof then exit for
%>
<td>
<%response.write img_skin(web_img_h)%>
<a href="pris_view.asp?c_id=<%response.write rs("c_id")%>&s_id=<%response.write sid%>&id=<%response.write rs("id")%>" alt='<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,0),1)%>' target=_blank>
<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,f_num),1)%></a></td>
<%
ii=ii+1
rs.movenext
next
response.write "</tr>"
loop
rs.close
%>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr><td align=right><a href="pris_list.asp?action=<%response.write ft%>">浏览更多…</a> </td></tr>
</table></td></tr></table>
<%
end sub
调用
call pris_main("最新公司","new",10,12)
错误 "80004005" 操作必须使用一个可更新的查询
作者:cmscn 日期:2007-01-08
后台设置Cookies
作者:cmscn 日期:2007-01-06
关键词管理For CMS 1.2
作者:cmscn 日期:2007-01-06
admin_keyes.asp
admin_keyes_list.asp
使用：
1、在后台管理>>>核心管理>>>菜单管理中，在系统管理或插件管理菜单下添加二级菜单“关键词管理”，连接为admin_keyes.asp
2、在新闻和文章后台添加管理中加入选择关键词功能
找到文件/include/jk_frm.asp
找到sub frm_keyes(kt)，把原来的内容改成：
response.write "<input type=text name=keyes value='"&kt&"' size=20 maxlength=20> 多个请用“,”隔开，如：关键词1,关键词2。 "&"<a href=""javascript:open_win('admin_keyes_list.asp?jk_mod="&index_url&"&info_frm=add_frm&info_word=keyes','infoList',300,360,'no');"">选择关键词</a>"
——你不一定这样改，只要在后面添加一个“选择关键词”的连接就是了。如果你不用多个关键词，只习惯用一个，那就在连接中的&info_word=keyes后面加&ty=1
3、在新闻管理列表和文章管理列表中添加关键词搜索：
要修改的文件：
admin_article.asp
admin_news.asp
a、找到：
<option value='topic'>按标题</option>
下面添加：
<option value='keyes'>按关键词</option>
b、找到：
call format_search("topic","topic,username",2,1)
改为：
call format_search("topic","topic,username,keyes",2,1)
存在问题：
1、关键词列表没有按“,”分开，因为一分开来就有分页计数不准确、关键词重复等问题，其实我也有解决方法，但代码太复杂，加上大多数人的关键词都是独立使用的，所以还是不拿出来了。
2、选择关键词，会在前面多了一个“,”，Goffice的JS不过关，要清除这个东西要一大堆代码，等找到更简单的法子再改吧，如果你习惯使用一个关键词，按照步骤2后面的办法使用。
http://www.joekoe.com/forum/view_53412.html
admin_keyes_list.asp
使用：
1、在后台管理>>>核心管理>>>菜单管理中，在系统管理或插件管理菜单下添加二级菜单“关键词管理”，连接为admin_keyes.asp
2、在新闻和文章后台添加管理中加入选择关键词功能
找到文件/include/jk_frm.asp
找到sub frm_keyes(kt)，把原来的内容改成：
response.write "<input type=text name=keyes value='"&kt&"' size=20 maxlength=20> 多个请用“,”隔开，如：关键词1,关键词2。 "&"<a href=""javascript:open_win('admin_keyes_list.asp?jk_mod="&index_url&"&info_frm=add_frm&info_word=keyes','infoList',300,360,'no');"">选择关键词</a>"
——你不一定这样改，只要在后面添加一个“选择关键词”的连接就是了。如果你不用多个关键词，只习惯用一个，那就在连接中的&info_word=keyes后面加&ty=1
3、在新闻管理列表和文章管理列表中添加关键词搜索：
要修改的文件：
admin_article.asp
admin_news.asp
a、找到：
<option value='topic'>按标题</option>
下面添加：
<option value='keyes'>按关键词</option>
b、找到：
call format_search("topic","topic,username",2,1)
改为：
call format_search("topic","topic,username,keyes",2,1)
存在问题：
1、关键词列表没有按“,”分开，因为一分开来就有分页计数不准确、关键词重复等问题，其实我也有解决方法，但代码太复杂，加上大多数人的关键词都是独立使用的，所以还是不拿出来了。
2、选择关键词，会在前面多了一个“,”，Goffice的JS不过关，要清除这个东西要一大堆代码，等找到更简单的法子再改吧，如果你习惯使用一个关键词，按照步骤2后面的办法使用。
http://www.joekoe.com/forum/view_53412.html
后台增加SMTP邮件发送配置
作者:cmscn 日期:2007-01-05
1.打开include/admin_config_edit.asp
在sub joekoe_chk_common()上添加
sub joekoe_chk_smtp()
if chk() then
web_sm_server=code_config(request.form("web_sm_server"),0)
web_sm_user=code_config(request.form("web_sm_user"),0)
web_sm_pass=code_config(request.form("web_sm_pass"),0)
call joekoe_template_common()
call joekoe_template_common_other()
call joekoe_template_js_config()
call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
exit sub
end if
call form_first()
%>
<form action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<tr><td colspan=3 class=td> 网站SMTP邮件认证信息</td></tr>
<tr>
<td>SMTP邮件服务器：</td>
<td><input type=text name=web_sm_server value='<%response.write web_sm_server%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器</td>
</tr>
<tr>
<td>SMTP验证帐号：</td>
<td><input type=text name=web_sm_user value='<%response.write web_sm_user%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器的SMTP验证帐号</td>
</tr>
<tr>
<td>SMTP认证密码：</td>
<td><input type=password name=web_sm_pass value='<%response.write web_sm_pass%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器的SMTP认证密码</td>
</tr>
<%
call submit_config()
end sub
2.common_other.asp
dim web_sm_server,web_sm_user,web_sm_pass
web_sm_server="smtp.163.com"
web_sm_user="asp126.com"
web_sm_pass="*******"
3.打开admins_config_edit.asp
在相应位置添加 <td><a href='?action=smtp'<%if action="shop" then response.write " class=red"%>>邮件<%response.write tit_fir%></a></td>
case "smtp"
ntit="邮件"
call joekoe_chk_smtp()
4.打开include/jk_template.asp
在 temp1=vbcrlf&"<"&"%"&vbcrlf&"dim后添加
web_sm_server,web_sm_user,web_sm_pass
在vbcrlf&"web_n_girl="""&web_n_girl&"""" & _后加
vbc...
在sub joekoe_chk_common()上添加
sub joekoe_chk_smtp()
if chk() then
web_sm_server=code_config(request.form("web_sm_server"),0)
web_sm_user=code_config(request.form("web_sm_user"),0)
web_sm_pass=code_config(request.form("web_sm_pass"),0)
call joekoe_template_common()
call joekoe_template_common_other()
call joekoe_template_js_config()
call admin_msg("已成功修改了"&ntit&tit_fir&"！","?action="&action,1)
exit sub
end if
call form_first()
%>
<form action='?action=<%response.write action%>' method=post>
<input type=hidden name=chk value='yes'>
<tr><td colspan=3 class=td> 网站SMTP邮件认证信息</td></tr>
<tr>
<td>SMTP邮件服务器：</td>
<td><input type=text name=web_sm_server value='<%response.write web_sm_server%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器</td>
</tr>
<tr>
<td>SMTP验证帐号：</td>
<td><input type=text name=web_sm_user value='<%response.write web_sm_user%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器的SMTP验证帐号</td>
</tr>
<tr>
<td>SMTP认证密码：</td>
<td><input type=password name=web_sm_pass value='<%response.write web_sm_pass%>' size=20 maxlength=100></td>
<td class=gray>发信的邮件服务器的SMTP认证密码</td>
</tr>
<%
call submit_config()
end sub
2.common_other.asp
dim web_sm_server,web_sm_user,web_sm_pass
web_sm_server="smtp.163.com"
web_sm_user="asp126.com"
web_sm_pass="*******"
3.打开admins_config_edit.asp
在相应位置添加 <td><a href='?action=smtp'<%if action="shop" then response.write " class=red"%>>邮件<%response.write tit_fir%></a></td>
case "smtp"
ntit="邮件"
call joekoe_chk_smtp()
4.打开include/jk_template.asp
在 temp1=vbcrlf&"<"&"%"&vbcrlf&"dim后添加
web_sm_server,web_sm_user,web_sm_pass
在vbcrlf&"web_n_girl="""&web_n_girl&"""" & _后加
vbc...
Rss 2.0 添加办法
作者:cmscn 日期:2007-01-05
请先执行 语句
Access 版 alter table admin_menu add column m_rss_record text(250)
alter table admin_menu add column m_on_rss bit
Sql 版 alter table admin_menu add column m_rss_record nvarchar(250)
alter table admin_menu add column m_on_rss bit(1)
方法如下 修改前请看:
让查找的就是从文件第一行开始,依次往下的! 红色为查找的代码,蓝色为添加的代码
用到的文件 admins_menu.asp
一:
以下为代码内容：
dim m_is_menu,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_rss,m_rss_record
二:
以下为代码内容：
m_murl=rs("m_murl")
m_on_rss=rs("m_on_rss")
m_rss_record=rs("m_rss_record")
三:
以下为代码内容：
m_murl=code_admin("m_murl",1,200)
m_on_rss=0
if request.form("m_on_rss")="yes" then m_on_rss=1
m_rss_record=code_admin("m_rss_record",1,250)
四:
以下为代码内容：
if int(m_is_master)=1 then
if m_nsort="" or m_index_url="" or m_data_name="" or m_tit="" or m_tit_fir="" then
call admin_error("<font class=red>栏目管理参数</font>有一项或多项为空！")
exit sub
end if
if m_on_rss=1 and m_rss_record="" then
call admin_error("二级"&tit_fir&"的RSS数据记录不能为空！")
exit sub
end if
五:
以下为代码内容：
sql="update "&data_name&" set m_name='"&m_name&"',m_url='"&m_url&"',m_hidden="&m_hidden&",m_is_master="&m_is_master&",m_is_nsort="&m_is_nsort&",m_is_review="&m_is_review&",m_popedom="&m_popedom&",m_nsort='"&m_nsort&"',m_index_url='"&m_index_url&"',m_data_name='"&m_data_name&"',m_tit='"&m_tit&"',m_tit_fir='"&m_tit_fi...
Access 版 alter table admin_menu add column m_rss_record text(250)
alter table admin_menu add column m_on_rss bit
Sql 版 alter table admin_menu add column m_rss_record nvarchar(250)
alter table admin_menu add column m_on_rss bit(1)
方法如下 修改前请看:
让查找的就是从文件第一行开始,依次往下的! 红色为查找的代码,蓝色为添加的代码
用到的文件 admins_menu.asp
一:
以下为代码内容：
dim m_is_menu,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_rss,m_rss_record
二:
以下为代码内容：
m_murl=rs("m_murl")
m_on_rss=rs("m_on_rss")
m_rss_record=rs("m_rss_record")
三:
以下为代码内容：
m_murl=code_admin("m_murl",1,200)
m_on_rss=0
if request.form("m_on_rss")="yes" then m_on_rss=1
m_rss_record=code_admin("m_rss_record",1,250)
四:
以下为代码内容：
if int(m_is_master)=1 then
if m_nsort="" or m_index_url="" or m_data_name="" or m_tit="" or m_tit_fir="" then
call admin_error("<font class=red>栏目管理参数</font>有一项或多项为空！")
exit sub
end if
if m_on_rss=1 and m_rss_record="" then
call admin_error("二级"&tit_fir&"的RSS数据记录不能为空！")
exit sub
end if
五:
以下为代码内容：
sql="update "&data_name&" set m_name='"&m_name&"',m_url='"&m_url&"',m_hidden="&m_hidden&",m_is_master="&m_is_master&",m_is_nsort="&m_is_nsort&",m_is_review="&m_is_review&",m_popedom="&m_popedom&",m_nsort='"&m_nsort&"',m_index_url='"&m_index_url&"',m_data_name='"&m_data_name&"',m_tit='"&m_tit&"',m_tit_fir='"&m_tit_fi...
论坛帖子字体大小控制
作者:cmscn 日期:2007-01-05
打开forum_view.asp,查找"&v_word&"
改成<span>"&v_word&"</span>
选择一个地方插入控制按钮,图片自己另存吧!
<a href='javascript:;' onmousedown=fontSizer(1,'px')><img border=0 src='"&joekoe_cms.web_dir_skin&"forum/size_big.gif' align=absmiddle alt=大字体></a><a href='javascript:;' onmousedown=fontSizer(-1,'px')><img border=0 src='"&joekoe_cms.web_dir_skin&"forum/size_min.gif' align=absmiddle alt=小字体></a>
最后在forum_view.asp第一个<%上面插入
[/size][/size]
改成<span>"&v_word&"</span>
选择一个地方插入控制按钮,图片自己另存吧!
<a href='javascript:;' onmousedown=fontSizer(1,'px')><img border=0 src='"&joekoe_cms.web_dir_skin&"forum/size_big.gif' align=absmiddle alt=大字体></a><a href='javascript:;' onmousedown=fontSizer(-1,'px')><img border=0 src='"&joekoe_cms.web_dir_skin&"forum/size_min.gif' align=absmiddle alt=小字体></a>
最后在forum_view.asp第一个<%上面插入
复制内容到剪贴板
程序代码
程序代码<script>
var tags = new Array( 'span'); //元素集
var pixelArray = new Array('12','13','14','15','16','17'); //px单位
var emArray = new Array('9','10','11','12','13','14'); //pt单位
var initSize = 0;
function fontSizer(inc,unit) {
if (!document.getElementById)
return;
var size = initSize;
size += inc;
if (size < 0) {
size = 0;
}
if (size > 5) {
size = 5;
}
initSize = size;
getBody = document.getElementsByTagName('body')[0];
for (i = 0 i < tags.length i++ ) {
getallTags = getBody.getElementsByTagName(tags);
for (k = 0 k < getallTags.length k++)
getallTags[k].style.fontSize = (unit=='px') ? pixelArray[size]+unit: emArray[size]+unit;
}
}
</script>
var tags = new Array( 'span'); //元素集
var pixelArray = new Array('12','13','14','15','16','17'); //px单位
var emArray = new Array('9','10','11','12','13','14'); //pt单位
var initSize = 0;
function fontSizer(inc,unit) {
if (!document.getElementById)
return;
var size = initSize;
size += inc;
if (size < 0) {
size = 0;
}
if (size > 5) {
size = 5;
}
initSize = size;
getBody = document.getElementsByTagName('body')[0];
for (i = 0 i < tags.length i++ ) {
getallTags = getBody.getElementsByTagName(tags);
for (k = 0 k < getallTags.length k++)
getallTags[k].style.fontSize = (unit=='px') ? pixelArray[size]+unit: emArray[size]+unit;
}
}
</script>
鼠标指向提示信息
作者:cmscn 日期:2007-01-05
var pltsPop=null;
var pltsoffsetX = 10; // 弹出窗口位于鼠标左侧或者右侧的距离；3-12 合适
var pltsoffsetY = 15; // 弹出窗口位于鼠标下方的距离；3-12 合适
var pltsPopbg="#FF0099"; //背景色
var pltsPopfg="#880000"; //前景色
var pltsTitle="";
document.write('<div id=pltsTipLayer style="display: none;position: absolute; z-index:10001"></div>');
function pltsinits()
{
document.onmouseover = plts;
document.onmousemove = moveToMouseLoc;
}
function plts()
{ var o=event.srcElement;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
pltsPop=o.dypop;
if(pltsPop!=null&&pltsPop!=""&&typeof(pltsPop)!="undefined")
{
pltsTipLayer.style.left=-1000;
pltsTipLayer.style.display='';
var Msg=pltsPop.replace(/
/g,"<br>");
Msg=Msg.replace(/\0x13/g,"<br>");
var re=/\{(.[^\{]*)\}/ig;
if(!re.test(Msg))pltsTitle="BAO.99W.CN 提示信息";
else{
re=/\{(.[^\{]*)\}(.*)/ig;
pltsTitle=Msg.replace(re,"$1")+" ";
re=/\{(.[^\{]*)\}/ig;
Msg=Msg.replace(re,"");
Msg=Msg.replace("<br>","");}
var attr=(document.location.toString().toLowerCase().indexOf("list.asp")>0?"nowrap":"");
var content =
'<table style="FILTER:alpha(opacity=90) shadow(color=#bbbbbb,direction=135);" id=toolTipTalbe border=0><tr><td width="100%"><table class=td cellspacing="0" cellpadding="0" style="width:100%">'+
'<tr id=pltsPoptop ><th height=18 valign=bottom><b><p id=topleft align=left>↖'+pltsTitle+'</p><p id=topright align=right style="display:none">'+pltsTitle+'↗</font></b></th></tr>'+
'<tr><td "+attr+" class=bg_td style="padding-left:14px;padding-right:14px;padding-top: 6px;padding-bottom:6px;line-height:135%">'+Msg+'</td></tr>'+
'<tr id=pltsPopbot style="display:none"><th height=18 valign=bottom><b><p id=botleft align=left>↙'+pltsTitle+'</p><p id=botright align=right style="display:none">'+pltsTitle+'↘</font></b></th></tr>'+
'</table></td></tr></table>';
pltsTipLayer.innerHTML=content;
toolTipTal...
var pltsoffsetX = 10; // 弹出窗口位于鼠标左侧或者右侧的距离；3-12 合适
var pltsoffsetY = 15; // 弹出窗口位于鼠标下方的距离；3-12 合适
var pltsPopbg="#FF0099"; //背景色
var pltsPopfg="#880000"; //前景色
var pltsTitle="";
document.write('<div id=pltsTipLayer style="display: none;position: absolute; z-index:10001"></div>');
function pltsinits()
{
document.onmouseover = plts;
document.onmousemove = moveToMouseLoc;
}
function plts()
{ var o=event.srcElement;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
pltsPop=o.dypop;
if(pltsPop!=null&&pltsPop!=""&&typeof(pltsPop)!="undefined")
{
pltsTipLayer.style.left=-1000;
pltsTipLayer.style.display='';
var Msg=pltsPop.replace(/
/g,"<br>");
Msg=Msg.replace(/\0x13/g,"<br>");
var re=/\{(.[^\{]*)\}/ig;
if(!re.test(Msg))pltsTitle="BAO.99W.CN 提示信息";
else{
re=/\{(.[^\{]*)\}(.*)/ig;
pltsTitle=Msg.replace(re,"$1")+" ";
re=/\{(.[^\{]*)\}/ig;
Msg=Msg.replace(re,"");
Msg=Msg.replace("<br>","");}
var attr=(document.location.toString().toLowerCase().indexOf("list.asp")>0?"nowrap":"");
var content =
'<table style="FILTER:alpha(opacity=90) shadow(color=#bbbbbb,direction=135);" id=toolTipTalbe border=0><tr><td width="100%"><table class=td cellspacing="0" cellpadding="0" style="width:100%">'+
'<tr id=pltsPoptop ><th height=18 valign=bottom><b><p id=topleft align=left>↖'+pltsTitle+'</p><p id=topright align=right style="display:none">'+pltsTitle+'↗</font></b></th></tr>'+
'<tr><td "+attr+" class=bg_td style="padding-left:14px;padding-right:14px;padding-top: 6px;padding-bottom:6px;line-height:135%">'+Msg+'</td></tr>'+
'<tr id=pltsPopbot style="display:none"><th height=18 valign=bottom><b><p id=botleft align=left>↙'+pltsTitle+'</p><p id=botright align=right style="display:none">'+pltsTitle+'↘</font></b></th></tr>'+
'</table></td></tr></table>';
pltsTipLayer.innerHTML=content;
toolTipTal...
