永发信息网

请问如何给FLASH类网站管理系统添加特效

答案:2  悬赏:60  手机版
解决时间 2021-07-31 03:22

我想将下面的特效代码成功导入到我FLSAH类管理系统中、、

希望高手指点下、、实在找不到、、

程序源码下载地址如下

http://down.chinaz.com/soft/25733.htm

需添加的特效源码如下

=============================================

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网页特效观止|JsCode.CN|---网页上漂浮的花瓣</title>
<SCRIPT language=JavaScript>
<!-- Original: Altan (snow@altan.hr) -->
<!-- Web Site: http://www.altan.hr/snow -->
<!-- Smaller flakes, subtle snowfall variables, code beautifcation and makeSnow function by NoSLZZP -->

var no = 6; // snow number
var speed = 12; // smaller number moves the snow faster
var snowflake = " http://www.jscode.cn/Uploadfile/2006819224938886.GIF";

var ns4up = (document.layers) ? 1 : 0; // browser sniffer
var ie4up = (document.all) ? 1 : 0;
var dx, xp, yp; // coordinate and position variables
var am, stx, sty; // amplitude and step variables
var i, doc_width = 400, doc_height = 500;
if (ns4up) {
doc_width = self.innerWidth;
doc_height = self.innerHeight;
} else if (ie4up) {
doc_width = 500;
doc_height = 500;
}
dx = new Array();
xp = new Array();
yp = new Array();
am = new Array();
stx = new Array();
sty = new Array();
for (i = 0; i < no; ++ i) {
dx[i] = 0; // set coordinate variables
xp[i] = Math.random()*(doc_width-50); // set position variables
yp[i] = Math.random()*doc_height;
am[i] = Math.random()*20; // set amplitude variables
stx[i] = 0.02 + Math.random()/10; // set step variables
sty[i] = 0.7 + Math.random(); // set step variables
if (ns4up) { // set layers
if (i == 0) {
document.write("<layer name=\"dot"+ i +"\" left=\"15\" ");
document.write("top=\"15\" visibility=\"show\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></layer>");
} else {
document.write("<layer name=\"dot"+ i +"\" left=\"15\" ");
document.write("top=\"15\" visibility=\"show\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></layer>");
}
} else if (ie4up) {
if (i == 0) {
document.write("<div id=\"dot"+ i +"\" POSITION: ");
document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: ");
document.write("visible; TOP: 15px; LEFT: 15px;\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></div>");
} else {
document.write("<div id=\"dot"+ i +"\" POSITION: ");
document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: ");
document.write("visible; TOP: 15px; LEFT: 15px;\"><img src=\"");
document.write(snowflake + "\" border=\"0\"></div>");
}
}
}
function snowNS() { // Netscape main animation function
for (i = 0; i < no; ++ i) { // iterate for every dot
yp[i] += sty[i];
if (yp[i] > doc_height-50) {
xp[i] = Math.random()*(doc_width-am[i]-30);
yp[i] = 0;
stx[i] = 0.02 + Math.random()/10;
sty[i] = 0.7 + Math.random();
doc_width = self.innerWidth;
doc_height = self.innerHeight;
}
dx[i] += stx[i];
document.layers["dot"+i].top = yp[i];
document.layers["dot"+i].left = xp[i] + am[i]*Math.sin(dx[i]);
}
setTimeout("snowNS()", speed);
}

function snowIE() { // IE main animation function
for (i = 0; i < no; ++ i) { // iterate for every dot
yp[i] += sty[i];
if (yp[i] > doc_height-50) {
xp[i] = Math.random()*(doc_width-am[i]-30);
yp[i] = 0;
stx[i] = 0.02 + Math.random()/10;
sty[i] = 0.7 + Math.random();
doc_width = document.body.clientWidth;
doc_height = document.body.clientHeight;
}
dx[i] += stx[i];
document.all["dot"+i].style.pixelTop = yp[i];
document.all["dot"+i].style.pixelLeft = xp[i] + am[i]*Math.sin(dx[i]);
}
setTimeout("snowIE()", speed);
}

if (ns4up) {
snowNS();
} else if (ie4up) {
snowIE();
}
</SCRIPT>

</head>

<body>

</body>
</html>

最佳答案
在config_other.asp
的最后添加一个
sub main_flash_pic(nnhead,dsql,nt,n_num,c_num,w,h)
dim sk_bar,sk_class,temp1,temp2,nid,cid,sid,name,uname,tim,pic,spic,nhead:nhead=nnhead:sk_bar=11:sk_class="end"
temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2><tr align=center valign=top>"
sql="select top "&n_num&" * from flash where hidden=1 and types='"&nt&"'"&dsql
select case nt
case "flash"
sql=sql&" order by id desc"
if nhead="" then nhead="最新Flash"
end select
set rs=conn.execute(sql)
do while not rs.eof
name=rs("name"):nid=rs("id"):cid=rs("c_id"):sid=rs("s_id"):uname=rs("username"):tim=rs("tim")
pic=rs("pic"):spic=rs("spic")
temp1=temp1&vbcrlf&"<td width='"&int(100\n_num)&"%'>"
if nt="flash" then
temp2="<table border=0 cellspacing=0 cellpadding=2 width='100%' class=tf><tr><td align=center><a href='flash.asp?types=view&action=flash&c_id="&cid&"&s_id="&sid&"&id="&nid&"'"&atb&"><img src='"&url_true(web_var(web_upload,1),spic)&"' border=0 width='"&w&"' height='"&h&"' &code_html(name,1,0)&" <br>发 布 人:"&rs("username")&"<br>整理时间:"&time_type(tim,33)&"'></a></td></tr>" & _
vbcrlf&"<tr><td align=center class=bw><a href='flash.asp?types=view&action=flash&c_id="&cid&"&s_id="&sid&"&id="&nid&"'"&atb&" class=red_3><b>"&code_html(name,1,c_num)&"</b></a></td></tr></table>"
temp1=temp1&vbcrlf&format_k(temp2,1,5,w+10,h+30)&"</td>"
else
temp2="<table border=0 cellspacing=0 cellpadding=2 width='100%' class=tf><tr><td align=center><a href='gallery.asp?types=view&action=paste&c_id="&cid&"&s_id="&sid&"&id="&nid&"'"&atb&"><img src='"&web_var(web_upload,1)&pic&"' border=0 width='"&w&"' height='"&h&"' &code_html(name,1,0)&" <br>发 布 人:"&rs("username")&"<br>整理时间:"&time_type(tim,33)&"'></a></td></tr>" & _
vbcrlf&"<tr><td align=center class=bw><a href='gallery.asp?types=view&action=paste&c_id="&cid&"&s_id="&sid&"&id="&nid&"'"&atb&" class=red_3><b>"&code_html(name,1,c_num)&"</b></a></td></tr></table>"
temp1=temp1&vbcrlf&format_k(temp2,1,5,w+7,h+30)&"</td>"
end if
rs.movenext
loop
temp1=temp1&"</tr></table>"
response.write kong&table1%>
<tr<%response.write table2%>><td class=end> <%response.write img_small(us)%> <b>闪客精品</b></td></tr>
<tr<%response.write table3%>><td align=center>
<table border=0 width='98%' cellspacing=0 cellpadding=0>
<tr><td align=center><% response.write temp1%></td></tr>
</table>
</td></tr>
</table>
<%
end sub
全部回答
http://www.rohm.hk/
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
哪个银行的什么信用卡好?
手机传照片怎么弄啊!我都弄了几天都没有弄出
劲舞团的卡P现在还有吗? 怎么卡 求高人赐教!
杜洛克这种为什么难长大?
汝州市平顶山中铁物流集团汝州分公司这个地址
学好日语的关键是什么?
人为什么到每个年龄段都会感到彷惶?
DNF.所有强到10的巨剑中,哪把攻击最高,举例
流浪的滋味是什么?
请问女孩为何会害羞
春天温暖的诗句,描写春天午后温暖的句子
以美学角度分析画得很美和很美地画之间的联系
用关联词造句
卖车方违约怎样赔款
怎么样打扮才能想日本女生一样可爱?
推荐资讯
请已婚或恋爱多年的帅哥美女帮忙!!
DNF哪个职业PK最拽
昆明哪里有卖婷美的化妆品?
我是1986年1月20日生的,阴历,帮我算下爱情
院士是干什么的
汝州市平顶山基督教堂怎么去啊,谁知道地址啊
TP-Link的路由器支持UPnP吗?
魏都区许昌交通银行24小时自助银行这个地址在
客车火车的终起时间和终点站
拍拍的图片问题
临颍县漯河七里小太阳幼儿园这个地址在什么地
谷城县襄樊百果园果蔬超市(谷城旗舰店)地址在
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?