捌玖网络工作室 » ASP,PHP,CGI,JSP技术 » 脚本实现点击复制本网址

admin 发表于 2008-1-24 23:28

脚本实现点击复制本网址

[code]代码如下:
F7RDc&MszNG <script language=javascript>
BP&bV-Wjr?V // 自动 COPY 代码开始
_Q!P.y
{.OKB function MM_findObj(n, d) { //v4.00W"N5r5T(^X~.S
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {`X!nLKT
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}3qOv4Aa(Im"a
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];~-P.fSK&U C;EB9~ R
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);?Exsv
if(!x && document.getElementById) x=document.getElementById(n); return x;v:? u9g(O:E
}dO"g P'[iY(l;|Q
function JM_cc(ob){
X9I5M'kSx\(_j\ var obj=MM_findObj(ob); if (obj) {
%_0T$Lf`6`5IB-L obj.select();js=obj.createTextRange();js.execCommand("Copy");}Uhgkk"k2y
alert("复制成功！您可以将本页推荐给你QQ或者论坛上的朋友阅读！");
D:xqu7yPS }:xj-na"l7gm L
[UL
f8q`}
// 自动 COPY 代码结束
B5kms/E
sp,T document.write('<br><b><font color=red style=font-size:14px>推荐给你的朋友阅读：</font></b><input name="page_url" value="'+window.location.href+'" size="64"> <input type="button" name="Button" class="button1" style=color:red value="点击这里复制本页地址推荐给你QQ或者论坛上的朋友阅读！" onClick=JM_cc("page_url")>');
(t!{C&G.T x)W(k&e </script>[/code]
6q_7d3b"l:N [color=#ff9900][b]点击复制本网址，发给POPO/QQ/MSN好友共享,放到网页中的效果:[/b][/color]
~7s;f*@Le fR [color=#ff9900][b][attach]413[/attach][/b][/color]

查看完整版本: 脚本实现点击复制本网址