百独托管7500 紫田网络超高转化播放器收cps[推荐]速盾CDN 免实名免备防屏蔽阿里云 爆款特卖9.9元封顶提升alexa、IP流量7Q5团队
【腾讯云】中小企福利专场【腾讯云】多款产品1折起高防 随时退换 好耶数据小飞国外网赚带你月入万元炎黄网络4H4G10M 99每月
香港带宽CN2/美国站群优惠中客数据中心 服务器租用联盟系统移动广告平台 中易企业专场腾讯云服务器2.5折九九数据 工信部正规资质
腾讯云新用户大礼包代金券高价收cpa注册量高价展示【腾讯云】2核2G/9.93起租服务器找45互联 随时退换阿里云 短信服务 验证秒达

[落伍原创] 个人站长制做网页常用代码征集帖 [复制链接]
查看:3249780 | 回复:113

头像被屏蔽

0

主题

352

帖子

354

积分

落伍者(一心一意)

GuessGuestGhost

Rank: 1

贡献
995
鲜花
0
注册时间
2005-1-13
发表于 2005-10-15 18:59:20 | 来自 中国湖南郴州
收缩SQL日志
下面这段sql代码是改自Microsoft的, 你运行一下生成的stored proc

注意把里面注释的数据库名改成你自己的库名


  1. if exists (select * from sysobjects where id = object_id(N'[dbo].[Truncate_Log_File]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

  2. drop procedure [dbo].[Truncate_Log_File]

  3. GO

  4. SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON

  5. GO

  6. CREATE PROCEDURE [Truncate_Log_File] AS

  7. SET NOCOUNT ON

  8. DECLARE @LogicalFileName sysname,

  9. @MaxMinutes INT,

  10. @NewSize INT

  11. SELECT @LogicalFileName = 'XXXX_LOG', -- 这里的XXXX_LOG替换成泥自己数据库的log名

  12. @MaxMinutes = 10,

  13. @NewSize = 10

  14. DECLARE @OriginalSize int

  15. SELECT @OriginalSize = size

  16. FROM sysfiles

  17. WHERE name = @LogicalFileName

  18. DECLARE @Counter INT,

  19. @StartTime DATETIME,

  20. @TruncLog VARCHAR(255)

  21. WHILE @OriginalSize*8/1024>@Newsize

  22. BEGIN

  23. CREATE TABLE DummyTrans

  24. (DummyColumn char (8000) not null)

  25. SELECT @StartTime = GETDATE(),

  26. @TruncLog = 'BACKUP LOG ['+ db_name() + '] WITH TRUNCATE_ONLY'

  27. DBCC SHRINKFILE (@LogicalFileName, @NewSize)

  28. EXEC (@TruncLog)

  29. WHILE @MaxMinutes > DATEDIFF (mi, @StartTime, GETDATE())

  30. AND @OriginalSize = (SELECT size FROM sysfiles WHERE name = @LogicalFileName)

  31. AND (@OriginalSize * 8 /1024) > @NewSize

  32. BEGIN

  33. SELECT @Counter = 0

  34. WHILE ((@Counter < @OriginalSize / 16) AND (@Counter < 5000))

  35. BEGIN

  36. INSERT DummyTrans valueS ('Fill Log')

  37. DELETE DummyTrans

  38. SELECT @Counter = @Counter + 1

  39. END

  40. EXEC (@TruncLog)

  41. END

  42. SELECT @OriginalSize=size

  43. FROM sysfiles

  44. WHERE name = @LogicalFileName

  45. DROP TABLE DummyTrans

  46. END

  47. SET NOCOUNT OFF

  48. GO

  49. SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON

  50. GO
复制代码
签名被屏蔽
头像被屏蔽

0

主题

352

帖子

354

积分

落伍者(一心一意)

GuessGuestGhost

Rank: 1

贡献
995
鲜花
0
注册时间
2005-1-13
发表于 2005-10-15 19:02:14 | 来自 中国湖南郴州
值得收藏的一些ASP代码

1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键
<table border oncontextmenu=return(false)><td>no</table> 可用于Table

2. <body onselectstart="return false"> 取消选取、防止复制

3. onpaste="return false" 不准粘贴

4. oncopy="return false;" oncut="return false;" 防止复制

5. <link rel="Shortcut Icon" href="favicon.ico"> IE地址栏前换成自己的图标

6. <link rel="Bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标

7. <input style="ime-mode:disabled"> 关闭输入法

8. 永远都会带着框架
<script language="javascript"><!--
if (window == top)top.location.href = "frames.htm"; //frames.htm为框架网页
// --></script>

9. 防止被人frame
<SCRIPT LANGUAGE=javascript><!--
if (top.location != self.location)top.location=self.location;
// --></SCRIPT>

10. <noscript><iframe src=*.html></iframe></noscript> 网页将不能被另存为

11. <input type=button value=查看网页源代码
onclick="window.location = view-source:+ http://www.csdn.net/">

12. 怎样通过asp的手段来检查来访者是否用了代理
<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
response.write "<font color=#FF0000>您通过了代理服务器,"& _
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
%>

13. 取得控件的绝对位置//javascript
<script language="javascript">
function getIE(e){
var t=e.offsetTop;
var l=e.offsetLeft;
while(e=e.offsetParent){
t+=e.offsetTop;
l+=e.offsetLeft;
}
alert("top="+t+"\nleft="+l);
}
</script>//VBScript
<script language="VBScript"><!--
function getIE()
dim t,l,a,b
set a=document.all.img1
t=document.all.img1.offsetTop
l=document.all.img1.offsetLeft
while a.tagName<>"BODY"
set a = a.offsetParent
t=t+a.offsetTop
l=l+a.offsetLeft
wend
msgbox "top="&t&chr(13)&"left="&l,64,"得到控件的位置"
end function
--></script>

14. 光标是停在文本框文字的最后
<script language="javascript">
function cc()
{
var e = event.srcElement;
var r =e.createTextRange();
r.moveStart(character,e.value.length);
r.collapse(true);
r.select();
}
</script>
<input type=text name=text1 value="123" onfocus="cc()">

15. 判断上一页的来源
asp:
request.servervariables("HTTP_REFERER")javascript:
document.referrer

16. 最小化、最大化、关闭窗口
<object id=hh1 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Minimize"></object>
<object id=hh2 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
<param name="Command" value="Maximize"></object>
<OBJECT id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<PARAM NAME="Command" value="Close"></OBJECT><input type=button value=最小化 onclick=hh1.Click()>
<input type=button value=最大化 onclick=hh2.Click()>
<input type=button value=关闭 onclick=hh3.Click()>
本例适用于IE

17.
<%
定义数据库连接的一些常量
Const adOpenForwardOnly = 0 游标只向前浏览记录,不支持分页、Recordset、BookMark
Const adOpenKeyset = 1 键集游标,其他用户对记录说做的修改将反映到记录集中,但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
Const adOpenDynamic = 2 动态游标功能最强,但耗资源也最多。用户对记录说做的修改,增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
Const adOpenStatic = 3 静态游标,只是数据的一个快照,用户对记录说做的修改,增加或删除记录都不会反映到记录集中。支持向前或向后移动Const adLockReadOnly = 1 锁定类型,默认的,只读,不能作任何修改
Const adLockPessimistic = 2 当编辑时立即锁定记录,最安全的方式
Const adLockOptimistic = 3 只有在调用Update方法时才锁定记录集,而在此前的其他操作仍可对当前记录进行更改、插入和删除等
Const adLockBatchOptimistic = 4 当编辑时记录不会被锁定,而更改、插入和删除是在批处理方式下完成的Const adCmdText = &H0001
Const adCmdTable = &H0002
%>

18. 网页不会被缓存
HTM网页
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">
或者<META HTTP-EQUIV="expires" CONTENT="0">
ASP网页
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
PHP网页
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
header("Cache-Control: no-cache, must-revalidate");
header("Pragma: no-cache");

19. 检查一段字符串是否全由数字组成
<script language="javascript"><!--
function checkNum(str){return str.match(/\D/)==null}
alert(checkNum("1232142141"))
alert(checkNum("123214214a1"))
// --></script>

20. 获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight

21. 怎么判断是否是字符
if (/[^\x00-\xff]/g.test(s)) alert("含有汉字");
else alert("全是字符");

22.TEXTAREA自适应文字行数的多少
<textarea rows=1 name=s1 cols=27 onpropertychange="this.style.posHeight=this.scrollHeight">
</textarea>

23. 日期减去天数等于第二个日期
<script language=javascript>
function cc(dd,dadd)
{
//可以加上错误处理
var a = new Date(dd)
a = a.valueOf()
a = a - dadd * 24 * 60 * 60 * 1000
a = new Date(a)
alert(a.getFullYear() + "年" + (a.getMonth() + 1) + "月" + a.getDate() + "日")
}
cc("12/23/2002",2)
</script>

24. 选择了哪一个Radio
<HTML><script language="vbscript">
function checkme()
for each ob in radio1
if ob.checked then window.alert ob.value
next
end function
</script><BODY>
<INPUT name="radio1" type="radio" value="style" checked>Style
<INPUT name="radio1" type="radio" value="barcode">Barcode
<INPUT type="button" value="check" onclick="checkme()">
</BODY></HTML>

25.获得本页url的request.servervariables("")集合
Response.Write "<TABLE border=1><!-- Table Header --><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"
for each ob in Request.ServerVariables
Response.Write "<TR><TD>"&ob&"</TD><TD>"&Request.ServerVariables(ob)&"</TD></TR>"
next
Response.Write "</TABLE>"

26.
本机ip<%=request.servervariables("remote_addr")%>
服务器名<%=Request.ServerVariables("SERVER_NAME")%>
服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%>
服务器端口<%=Request.ServerVariables("SERVER_PORT")%>
服务器时间<%=now%>
IIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
脚本超时时间<%=Server.ScriptTimeout%>
本文件路径<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
服务器解译引擎<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服务器操作系统<%=Request.ServerVariables("OS")%>

27.ENTER键可以让光标移到下一个输入框
<input onkeydown="if(event.keyCode==13)event.keyCode=9">

28. 检测某个网站的链接速度:
把如下代码加入<body>区域中:
<script language=javascript>
tim=1
setInterval("tim++",100)
b=1var autourl=new Array()
autourl[1]="www.njcatv.net"
autourl[2]="javacool.3322.net"
autourl[3]="www.sina.com.cn"
autourl[4]="www.nuaa.edu.cn"
autourl[5]="www.cctv.com"function butt(){
document.write("<form name=autof>")
for(var i=1;i<autourl.length;i++)
document.write("<input type=text name=txt"+i+" size=10 value=测试中……> =》<input type=text name=url"+i+" size=40> =》<input type=button value=GO onclick=window.open(this.form.url"+i+".value)><br/>")
document.write("<input type=submit value=刷新></form>")
}
butt()
function auto(url){
document.forms[0]["url"+b].value=url
if(tim>200)
{document.forms[0]["txt"+b].value="链接超时"}
else
{document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}
b++
}
function run(){for(var i=1;i<autourl.length;i++)document.write("<img src=http://"+autourl+"/"+Math.random()+" width=1 height=1 onerror=auto(http://";+autourl+")>")}
run()</script>

29. 各种样式的光标
auto :标准光标
default :标准箭头
hand :手形光标
wait :等待光标
text :I形光标
vertical-text :水平I形光标
no-drop :不可拖动光标
not-allowed :无效光标
help :?帮助光标
all-scroll :三角方向标
move :移动标
crosshair :十字标
e-resize
n-resize
nw-resize
w-resize
s-resize
se-resize
sw-resize

[ 本帖最后由 sugod 于 2005-10-15 19:04 编辑 ]
签名被屏蔽
头像被屏蔽

0

主题

352

帖子

354

积分

落伍者(一心一意)

GuessGuestGhost

Rank: 1

贡献
995
鲜花
0
注册时间
2005-1-13
发表于 2005-10-15 19:03:26 | 来自 中国湖南郴州
完美分页

  1. <%
  2. Dim SqlStr,Page_Value,Page_Value_Max,Permsg,itemStr,Rs,Count,item
  3. SqlStr = ""
  4. if IsNumeric(Request("Page_Value")) or Request("Page_Value") = "" then
  5.         if IsNumeric(Request("Page_Value_Max")) or Request("Page_Value_Max") = "" then
  6.                 Page_Value=Request("Page_Value")
  7.                 Page_Value_Max=Request("Page_Value_Max")
  8.                 PerMsg = 20
  9.                 if Page_Value = "" then
  10.                         Page_Value = 1
  11.                 Else
  12.                         Page_Value = Cint(Page_Value)
  13.                 end if
  14.                 If Page_Value<1 Or Page_Value="" then
  15.                         Page_Value=1
  16.                 End If
  17.                 if Page_Value_Max = "" then
  18.                         Page_Value_Max = 1
  19.                 Else
  20.                         Page_Value_Max = Cint(Page_Value_Max)
  21.                 end if
  22.                 if Page_Value <= Page_Value_Max then
  23.                         Set Rs=Server.createobject("Adodb.Recordset")
  24.                         Rs.Open SqlStr,Conn,1,1
  25.                         if Not Rs.Bof And Not Rs.Eof then
  26.                                 Rs.Pagesize=Permsg
  27.                                 Count=Page_Value*Rs.PageSize
  28.                                 Rs.AbsolutePosition=Count-Rs.PageSize+1
  29.                                 Page_Value_Max = Rs.PageCount
  30.                                 Do While Not Rs.Eof And Permsg>0
  31. %>
  32. Html
  33. <%
  34. Permsg = Permsg - 1
  35. Rs.Movenext
  36. Loop
  37. itemStr = ""
  38. For Each item in Request.Form
  39.                 if item <> "Page_Value" And item <> "Page_Value_Max" then
  40.                         itemStr = itemStr & "&" & item & "=" & Server.HTMLEncode(Request.Form(item))
  41.                 End if
  42. Next
  43. if itemStr = "" then
  44.         For Each item in Request.QueryString
  45.                 if item <> "Page_Value" And item <> "Page_Value_Max" then
  46.                         itemStr = itemStr & "&" & item & "=" & Server.HTMLEncode(Request.QueryString(item))
  47.                 End if
  48.         Next
  49. End if
  50. %>


  51. <form name="Page_Value_Form" method="POST" action="<%=Request.ServerVariables("URL")%>?Page_Value_Max=<%=Page_Value_Max%><%=itemStr%>">共<b><font color="#FF0000"><%=Rs.RecordCount%></font></b>条 <b><font color="#FF0000"><%=Page_Value%>/<%=Page_Value_Max%></font></b> <a href="javascript:Next_Or_Previous_Value_Page(1)">首页</a> <a href="javascript:Next_Or_Previous_Value_Page(2)">上一页</a> <a href="javascript:Next_Or_Previous_Value_Page(3)">下一页</a> <a href="javascript:Next_Or_Previous_Value_Page(4)">末页</a> <input type="submit" value="转到"> <input type="text" name="Page_Value" size="3">页</form>


  52. <script language="JavaScript">
  53. function Next_Or_Previous_Value_Page(vChar){
  54.         if(vChar == 1)location.href="<%=Request.ServerVariables("URL")%>?Page_Value=1&Page_Value_Max=<%=Page_Value_Max%><%=itemStr%>";
  55.         if(vChar == 2)location.href="<%=Request.ServerVariables("URL")%>?Page_Value=<%if Page_Value - 1 = 0 then Response.Write 1 Else Response.Write Page_Value - 1 end if%>&Page_Value_Max=<%=Page_Value_Max%><%=itemStr%>";
  56.         if(vChar == 3)location.href="<%=Request.ServerVariables("URL")%>?Page_Value=<%if Page_Value + 1 >= Page_Value_Max then Response.Write Page_Value_Max Else Response.Write Page_Value + 1 end if%>&Page_Value_Max=<%=Page_Value_Max%><%=itemStr%>";
  57.         if(vChar == 4)location.href="<%=Request.ServerVariables("URL")%>?Page_Value=<%=Page_Value_Max%>&Page_Value_Max=<%=Page_Value_Max%><%=itemStr%>";
  58.         }
  59. </script>

  60. <%
  61.                         Else
  62.                                 Response.Write "<tr><td><center>无您所需的内容</center></td></tr>"
  63.                         End if
  64.                         Rs.Close
  65.                         Set Rs = Nothing
  66.                 Else
  67.                         Response.Write("<script>alert('输入的值超过最大页,点击确定返回');history.back()</script>")
  68.                 End if
  69.         Else
  70.                 Response.Write("<script>alert('非法请求,点击确定返回');history.back()</script>")
  71.         End if
  72. Else
  73.         Response.Write("<script>alert('非法请求,点击确定返回');history.back()</script>")
  74. End if
  75. %>
复制代码
签名被屏蔽

270

主题

1万

帖子

1万

积分

落伍者(四季发财)

Im286

Rank: 4

贡献
1001
鲜花
8
注册时间
2004-6-30

落伍手机绑定

发表于 2005-10-18 21:30:42 | 来自 中国广东深圳
占个位吧

695

主题

2万

帖子

8117

积分

落伍者(三羊开泰)

做人脸皮一定要厚道

Rank: 3Rank: 3

贡献
3104
鲜花
205
注册时间
2003-8-28

落伍热心人落伍爱心勋章QQ绑定落伍微信绑定落伍者

发表于 2005-10-18 23:20:23 | 来自 中国河北石家庄
精华了

607

主题

1098

帖子

748

积分

落伍者(一心一意)

特邀嘉宾

Rank: 1

贡献
7
鲜花
0
注册时间
2005-2-28

落伍手机绑定

发表于 2005-10-20 16:07:35 | 来自 中国湖北天门
最讨厌占位置的家伙!!对这个问题,鱼要治一治鸟!

------------------------------------------------代码---------------------------------------------------

强制弹出页面+自动最小化广告代码

这个弹窗代码,效果很好,不过有点复杂!请细看!
这里涉及三个页面:
弹窗页:1.htm  放置弹窗代码的页面
中间页:2.htm  中间过度页面
弹出页:3.htm  被弹出的页面

在1.htm放入代码如下:主要是通过对话框强制弹出2.htm,大小为0,0

<script language="javascript">
focusid=setTimeout("focus();window.showModelessDialog('2.htm','','scroll:1;status:1;help:1;toolbar=1;resizable:1;dialogWidth:0px;dialogHeight:0px')",3000)
</script>



<script language="javascript">
<!--
function openWindow2(URL,Name,features) { //v2.0
window.open(URL,Name,features);
}
openWindow2('3.htm','pop','resizable,height=600,width=1024,toolbar,menubar,scrollbars,location,left=0,top=0');
//-->
setTimeout('window.close();', 0);
</script>



Tags: 强制弹出  


---------------------------------------------------------------------------------------------------------
www.hytx87.com
头像被屏蔽

0

主题

793

帖子

897

积分

落伍者(一心一意)

偶弹不来吉他砸吉他

Rank: 1

贡献
177
鲜花
0
注册时间
2004-7-7
发表于 2005-10-28 22:42:24 | 来自 中国福建福州
原帖由 水龙头 于 2005-9-29 22:34 发表
同一空间多绑一个域名
[code]
<%
CheckDomain
Sub CheckDomain()
dim sDomain
sDomain = Request.ServerVariables("HTTP_HOST")
If Instr(sDomain,"a.xxx.com")>0 then Respo ...

这是asp的呀!
来个php的

3

主题

3877

帖子

4105

积分

落伍者(两全齐美)

i3t.net

Rank: 2

贡献
297
鲜花
0
注册时间
2004-3-28

QQ绑定

发表于 2005-10-29 15:02:15 | 来自 中国江苏南京
FLASH全屏,左右侧,闪烁广告及对"错觉"的代码补充.

晕死,发了半天的代码,提交的时候论坛地址都改了,又得重来

刚才 错觉 发的FLASH广告,我跟了贴. QQ上有网友问怎么用

我解释一遍.
163的.
演示:   http://auto.163.net


<!--焦点图开始-->      
<script type="text/javascript">
<!--
var focus_width=250;             ------ flash的宽度
var focus_height=160;            ------ flash的高度

      同样可以加上背景颜色
      var focus_bgcolor=160;           ------ flash的背景颜色   调用方式: bgcolor="'+focus_bgcolor+'"


以下的代码是闪烁的图片地址.注意以 "|" 分开及结尾
var pics = "http://cimg.163.com/auto/2005/10/29/200510291030463e9bb.jpg|[img]http://cimg.163.com/auto/2005/10/28/200510281607140328c.jpg|http://cimg.163.com/auto/2005/10 ... pst_248158_1020.jpg[/img]|";

以下的代码是闪烁的图片相对应的链接地址.注意以 "|" 分开及结尾
var links = "http://auto.163.com/05/1028/14/215K0HP3000816I7.html|http://auto.163.com/special/y/00 ... 1GM3/temp_001.html|";


这个是6.0的FLASH嵌入版本, 更高版本可以参照"
<OBJECT codeBase=http://fpdownload.macromedia.com/get/shockwave/cabs/flash/swflash.cab#version=7,0,19,0 height=170 width=480 classid=clsid: D27CDB6E-AE6D-11cf-96B8-444553540000>


document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ focus_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="http://cimg.163.com/auto/main-1.swf"><param name="quality" value="high"><param name="bgcolor" value="#D6D3D6">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&focus_width='+focus_width+'&focus_height='+focus_height+'">');
document.write('<embed src="http://cimg.163.com/auto/main-1.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&focus_width='+focus_width+'&focus_height='+focus_height+'" menu="false" bgcolor="#D6D3D6" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
document.write('</object>');
//-->
</script>
<!--焦点图结束-->



同样的代码,但是效果比这个好看一点
演示:  http://www.jsvnet.com/


CODE:[Copy to clipboard]<HTML>
<HEAD>
<TITLE></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style type="text/css">
<!--
body {
        background-color: #FFFFFF;
        margin-left: 0px;
        margin-top: 0px;
        margin-right: 0px;
        margin-bottom: 0px;
}
a:link {
        text-decoration: none;
}
a:visited {
        text-decoration: none;
}
a:hover {
        text-decoration: none;
}
a:active {
        text-decoration: none;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</HEAD>
<BODY>
<!-- 动态图开始 -->
<SCRIPT language=JavaScript>
var imgUrl=new Array();
var imgLink=new Array();
var adNum=0;
imgUrl[4] ='http://www.jsvnet.com/jsvnet/bigimg/435_165_bbvod.jpg';imgLink[4]='http://www.bbvod.net/MovieSpecial/FilmMovieSpecial.aspx?site=6&FilmId=213';
imgUrl[2] ='http://www.jsvnet.com/jsvnet/bigimg/435_165_v1.jpg';imgLink[2]='http://v1.js.chinavnet.com/ClipDetails.aspx?TypeId=175&ClipId=56341&PlayOrDown=1';
imgUrl[3] ='http://www.jsvnet.com/jsvnet/bigimg/435_165_zd.jpg';imgLink[3]='http://js.zdedu.com.cn/hd.htm';
imgUrl[1] ='http://www.jsvnet.com/jsvnet/bigimg/435_165_music.gif';imgLink[1]='http://topic.9sky.com/GetTopic.ASP?ZTID=20051021&AllianceName=topic_ENJOII';
imgUrl[5] ='http://www.jsvnet.com/jsvnet/bigimg/435_165_tv.jpg';imgLink[5]='http://tv.js.chinavnet.com/index.htm';
imgUrl[6] ='http://www.jsvnet.com/jsvnet/bigimg/435_165_vod.jpg';imgLink[6]='http://vod.js.chinavnet.com/ClipDetails.aspx?TypeId=87&ClipId=7828&PlayOrDown=1';
var j=0;
for (i=1;i<7;i++) {

                                        if( (imgUrl!="") && (imgLink!="") ) {
                                                j++;
                                        } else {
                                                break;
                                        }
                                }
                                function setTransition(){
                                if (document.all){
                                imgInit.filters.revealTrans.Transition=Math.floor(Math.random()*20);
                                 imgInit.filters.revealTrans.apply();
                                         }
                                }
                                
                                function playTran(){
                                        if (document.all)
                                                imgInit.filters.revealTrans.play();
                                }
                                
                                //var key=0;
                                function nextAd()
                                {
                                        if(adNum<j)adNum++ ;
                                        else adNum=1;
                                         
                                        if (document.all){
                                       
                                        setTransition();
                                        playTran();
                                
                                        }
                                        for (a=1;a<=j;a++)
                                        {
                                        if (a==adNum)
                                                  document.images["num"+a].src="images/gifno-"+a+"_"+a+".gif";
                                        else
                                                
                                                document.images["num"+a].src="images/gifno-"+a+".gif";
                                        }
                                        document.images.imgInit.src=imgUrl[adNum];
                                       
                                        theTimer=setTimeout("nextAd()", 5000);
                                       
                                }

                                
                                
                                function changimg(m)
                                {
                                  if(adNum<m)adNum++ ;
                                        else adNum=1;
                                         
                                   for (a=1;a<=j;a++)
                                        {
                                        if (a==m)
                                                  document.images["num"+a].src="images/gifno-"+a+"_"+a+".gif";
                                        else
                                                
                                                document.images["num"+a].src="images/gifno-"+a+".gif";
                                        }
                                   document.images.imgInit.src=imgUrl[m];
                                 
                                }
                                function goUrl(){
                                        jumpUrl=imgLink[adNum];
                                        jumpTarget='_blank';
                                        if (jumpUrl != ''){
                                                if (jumpTarget != '')
                                                        window.open(jumpUrl,jumpTarget);
                                                else
                                                        location.href=jumpUrl;
                                        }
                                }
                                </SCRIPT>
<!-- 动态图结束 --><table width=445 height="175"  border='0' cellpadding='0' cellspacing='0' style="border: 1 solid #B3B0B7">
  <tr>
<td align="center"><div id="Layer1" style="position:absolute; width:435px; height:20px; z-index:1">
   <table width="435" height="20" border="0" cellpadding="1" cellspacing="2">
   <tr>
     <td valign="bottom">
         <div align="right">
<script language=javascript>
  for (b=1;b<=j;b++)
{
document.write('<img name=num'+b+' // border=0  onClick=changimg('+b+') style=cursor:hand;>');
}  </script></div> </td>
   </tr>
</table></div>
<a href='javascript:goUrl()'>
<img style="FILTER: revealTrans(duration=1,transition=5);color:#000000" src=javascript:nextAd() width=435 height=165 border=0 name=imgInit></a></td>
</tr>
</table>

<table width="446" border="0" cellpadding="1" cellspacing="0" style="border-color:#69abdb; border-style:solid; border-width:1px; font-size:9pt ">
  <tr>
    <td width="42" valign="middle" bgcolor="#C8E2FD"><img src="images050929/text_1.gif" width="41" height="23"></td>
    <td width="398" bgcolor="#C8E2FD"><marquee onmouseover='this.stop()' onmouseout='this.start()' scrollDelay=110>
        
        <a href="http://www.nmufh.cn/show.asp?Id=4117" target="_blank"><font color="1a2986">告别乙肝大小三阳每月只需一针</font></a>&nbsp;


        </marquee>
        </td>
  </tr>
</table>
</BODY>
</HTML>
刚打开网站的时候 全屏FLASH的广告代码.


CODE:[Copy to clipboard]<script language="javascript">
<!--
SYfullscreen=false;
today=new Date();
function testdate()
{
if(today.getHours()>='9' && today.getHours()<='23')
{   
    adInterPath='http://www.jsvnet.com/free/full.swf';
        SYfullscreen=true;                              
}
}
testdate();
if(SYfullscreen==true)
{
    if (document.all) {
    // this is a 4.x browser, no?
    document.write('<SCRI' + 'PT LANGUAGE="javascript1.2"');
    document.writeln(' SRC="time.js"></SCR' + 'IPT>');
    }
}
// -->
</script>
<script language="javascript">
<!--
if(SYfullscreen==true)
{
    if (document.all) {
    // this is a 4.x browser, no?
        document.write('<DIV ID="hiddenLayer" style="display: none; height: 381px;">');
        if (getsGlu) {
                expandableIframe = '<IFRAME id="interstitialframe" width=778 HEIGHT=480 NORESIZE SCROLLING=No FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0></IFRAME>';
                document.write(expandableIframe);
                    }
                }
document.write('</div>');
}
// -->
</script>
两侧FLASH代码.同时关闭


CODE:[Copy to clipboard]<SCRIPT FOR='jsvnet' EVENT='FSCommand()' LANGUAGE='JavaScript'>
jsvnetleft.style.visibility='hidden';
jsvnet_right.style.visibility='hidden';
</script>
<script language="JavaScript" src="jsvnet.js"></script>
JSVNET.JS


CODE:[Copy to clipboard]function winload()
{
jsvnetleft.style.top=20;
jsvnetleft.style.left=5;
jsvnet_right.style.top=20;
jsvnet_right.style.right=5;
}

if(document.body.offsetWidth>800){        
        {
if(document.body.offsetWidth>800){
        {
        document.write("<div id=jsvnetleft style='position: absolute;visibility:visible;z-index:1'><EMBED src='http://www.jsvnet.com/114ad/flash/jsdl.swf' quality=high  WIDTH=100 HEIGHT=300 TYPE='application/x-shockwave-flash' id=jsvnet wmode=opaque></EMBED></div>"
        +"<div id=jsvnet_right style='position: absolute;visibility:visible;z-index:1'><EMBED src='http://www.jsvnet.com/114ad/flash/jsdl2.swf' quality=high  WIDTH=100 HEIGHT=300 TYPE='application/x-shockwave-flash' id=jsvnet wmode=opaque></EMBED></div>");
        }
  winload()
}
        }
  winload()
}
[ 本帖最后由 toutou 于 2005-10-29 14:04 编辑 ]
SAP FICO

34

主题

4370

帖子

6157

积分

落伍者(三羊开泰)

Rank: 3Rank: 3

贡献
1437
鲜花
0
注册时间
2002-7-7
发表于 2005-11-11 13:29:50 | 来自 中国山东德州
我想想还有什么没发的
联系联系
头像被屏蔽

0

主题

213

帖子

107

积分

落伍者(一心一意)

Rank: 1

贡献
0
鲜花
0
注册时间
2005-11-12
发表于 2005-11-28 14:53:11 | 来自 中国广东肇庆

好好好!

我来学习的,什么不懂的,多谢了!
签名被屏蔽
论坛客服/商务合作/投诉举报:2171544 (QQ)
落伍者创建于2001/03/14,本站内容均为会员发表,并不代表落伍立场!
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论!
落伍官方微信:2030286 邮箱:(djfsys@gmail.com|tech@im286.com)
© 2001-2014

浙公网安备 33060302000191号

浙ICP备11034705号 BBS专项电子公告通信管[2010]226号

  落伍法律顾问: ITlaw-庄毅雄

手机版|找回帐号|不能发帖?|Archiver|落伍者

GMT+8, 2024-6-17 09:38 , Processed in 0.135657 second(s), 30 queries , Gzip On.

返回顶部