谁能优化具体贴子显示中对5.0版本ie的现实界面作的处理？？？

蝈蝈俊 2002-04-25 10:03:43

函数在：
http://www.csdn.net/expert/xsl/2.xsl

其中有段对5.0换行，字符长度作限制的javascript函数

起始调用是：
function checkie()

5.0下效率特别差，你有没有啥优化的方法？？

函数如下：

function Scan(element)
{
var coll=element.all;

for(var i=0;i<coll.length;i++)
{
//alert(coll.item(i).name);
TestElement(coll.item(i));
}
}
function TestElement(item)
{
try
{
var className=item.className.toLowerCase();
if(className == "neadupdate")
{
Handle(item);
}

if(className == "withbreaks")
{
change(item);
}
}
catch(x)
{
return;
}

}

function change(element)
{
var infostr = element.all.item(0).innerHTML;

while (infostr.indexOf("\r\n") >= 0)
{
infostr = infostr.replace("\r\n","<br>");
}
while (infostr.indexOf(" ") >= 0)
{
infostr = infostr.replace(" "," ");
}
while (infostr.indexOf("\t") >= 0)
{
infostr = infostr.replace("\t"," ");
}

//alert(infostr);
infostr = "<table width='580'><tr><td>"+infostr+"</td></tr></table>";
//alert(infostr);
element.innerHTML = infostr;
}

function Handle(element)
{
element.style.tableLayout = "auto";
//alert(element.innerHTML);
}

function checkie()
{
//Scan(document);

//如果浏览器版本小于5.5
if (GetIEVersion())
{
if (GetIEVersion() < 5.5)
{
Scan(document);
return;
}
}
else
{
Scan(document);
return ;
}

}

...全文

24 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

xinxin1982 2002-05-02

打赏
举报

怎么这里的人都好多好多的星星阿
我也想要............~~~~~~~~~~~~~~~~

qiushuiwuhen 2002-04-29

打赏
举报

再看下面的效果，是否满意，呵呵
http://www.csdn.net/Expert/topicview.asp?id=651925

btw，能不能将以下代码搁到后面去
每次都停在ok100.allyes.com好久才能打开。

<IFRAME MARGINHEIGHT="0" MARGINWIDTH="0" FRAMEBORDER="0" WIDTH="468" HEIGHT="60" SCROLLING="NO" SRC="http://ok100.allyes.com/main/adfshow?user=CP_Banner|CG_Homepage|C_CSDN_Top&db=ok100&border=0&local=yes"><SCRIPT LANGUAGE="JavaScript1.1" SRC="http://ok100.allyes.com/main/adfshow?user=CP_Banner|CG_Homepage|C_CSDN_Top&db=ok100&local=yes&js=on"></SCRIPT><NOSCRIPT><A HREF="http://ok100.allyes.com/main/adfclick?user=CP_Banner|CG_Homepage|C_CSDN_Top&db=ok100"><IMG SRC="http://ok100.allyes.com/main/adfshow?user=CP_Banner|CG_Homepage|C_CSDN_Top&db=ok100" WIDTH="468" HEIGHT="60" BORDER="0"></A></NOSCRIPT></IFRAME>

qiushuiwuhen 2002-04-27

打赏
举报

http://www.csdn.net/expert/Topicview.asp?id=651925

http://www.blueidea.com/bbs/archivecontent.asp?id=434909

phoenixlj 2002-04-27

打赏
举报

测试qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq

Lostinet 2002-04-27

打赏
举报

：）

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

sunbeamy 2002-04-26

打赏
举报

怎么会替换所有？？
infostr.replace(/[\r\n]/g,"<br>")
只是替换这里的infostr嘛~~~

linhaibo 2002-04-26

打赏
举报

就是替换空格和回车吧...
用 VBScript 就很容易啦...
保存的时候
text = replace(text,chr(13),"<br>")
显示的时候
function Deal(exp1)
dim exp2
exp2 = replace(exp2,chr(13),"<br>")
exp2 = replace(exp1,"<","<")
exp2 = replace(exp2,">",">")
exp2 = replace(exp2," "," ")
exp2 = replace(exp2,"<br>","<br>")
deal = exp2
end function

蝈蝈俊 2002-04-26