asp+access+wml网页编程:asp读取access数据分页输出到手机客户端

2008-3-23 寒川 网页编程

    早就想用手机浏览服务器中ACCESS数据库记录了。今天忙了一天,写了一个页面,贴出来分享一下,起抛砖引玉的作用。
1、数据库设计:
   采用access数据库,名称为data.mdb,表名称为:data,其中表包含三个字段,分别为:ID 数据类型为自动编号、Time 数据类型日期时间,默认值为now()、Test 数据类型为备注。为方便后续操作,预先在数据库中输入几十条记录。
2、数据库连接文件:conn.asp

程序代码
<%
    db="data.mdb"
        Set conn = Server.CreateObject("ADODB.Connection")
    connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath(""&db&"")
    conn.Open connstr
%>

3、分页显示记录文件:index.asp

程序代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%response.buffer=true%><%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><!-- #include file="conn.asp" --><?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="寒窗轩wap+asp+access教程"> 
<p mode='nowrap' >
<%
function encodestr(str)
    str=trim(str)
    if IsNull(str) then exit function
    str=replace(str,"<","&lt;")
    str=replace(str,">","&gt;")
    str=replace(str,"'","""")
    encodestr=replace(str,"  "," ")
end function
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from data order by id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write("目前还没有数据记录")
else
Page=Int(Abs(Request("page")))
IF not IsNumeric(Request("page")) or IsEmpty(Request("page")) Then page=1
rs.pagesize = 5 '每页显示记录数
total = rs.RecordCount
mp = rs.pagesize
rs.absolutepage = page
i=0:k=0
do while not rs.eof and mp>0:k=k+1
%>
<%
if Request("page")="" then %>
<%=i+1%>.ID号码:<%=rs("id")%><br/><%=encodestr(rs("test"))%><br/>
<% else %>
<%=i+1+12*(Request("page")-1)%>.ID号码:<%=rs("id")%><br/><%=encodestr(rs("test"))%><br/>
<%
end if
i=i+1
mp=mp-1
rs.movenext
loop
if page>rs.pagecount then Response.redirect("index.asp?page="&rs.pagecount)
if page>1 then
response.Write("<a href='index.asp?page=1'>首页</a>")
response.Write(" <a href='index.asp?page="&page-1&"'>上页</a>")
end if
if page<rs.pagecount then
response.Write("<a href='index.asp?page="&page+1&"'>下页</a>")
response.Write(" <a href='index.asp?page="&rs.pagecount&"'>尾页</a>")
end if
end if
response.Write("<br/>总共"&total&"记录<br/> ")
rs.close
set rs=nothing
%>
</p>
</card>
</wml>

将上面三个文件放入同一目录,便可以用手机浏览了。
以上文件在附件中,请下载研究。

标签: html 编程 asp wap access wml

评论(0) 浏览(8846)

动易系统的数据库连接出错,请检查Conn.asp文件中的数据库参数设置解决方案。

2008-3-20 寒川 网页编程

最近老是有很多朋友问我
一、路径设计错误,用记事本打开CONN.ASP,
如果是ACCESS数据库,请认真修改好下面的数据库的文件名
db = "\database\\PowerEasy2006.mdb", ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径,如果是安装在网站根目录,直接修改文件名即可。如果是安装在网站某一目录下,则在前面加上此目录,例如,系统安装在“http://www.powereasy.net/PE2006/”目录下(PE2006为安装目录),则这里应该修改为:db="\PE2006\database\PowerEasy2006.mdb"
如果是SQL数据库要注意把SQL2000 的身份验证模式改成混合模式
二、数据库连接地址没错。
用access打开数据库去发现,数据库打开失败,类型错误。
用access打开数据库,点击“工具”-“数据库实用工具”-“压缩和修复数据库”。
三、数据库连接地址没错。
利用某批处理清除系统垃圾文件后提示“数据库连接出错,请检查Conn.asp文件中的数据库参数设置。”晕死了!!!!!
我把清理垃圾的批处理再拿出来认真看,第一行就是:rd /s /q %windir%\temp &md %windir%\temp,晕,删了WINDOWS\TEMP,再建个TEMP。

标签: html 编程 asp 故障

评论(2) 浏览(11394)

如何在HTML文件中嵌入另一文件内容(*.htm , *.txt),非Iframe

2008-1-18 寒川 网页编程

感觉不错的,将txt或html嵌入另一个html中,儿未采用iframe的方式,代码如下:

<object style="border:0px" type="text/x-scriptlet" data="test.htm" width=100% height=30></object>
test.htm为被包括的内容.

标签: html 编程 txt

评论(1) 浏览(11488)

利用http404错误防止网站文件夹被扫描

2007-12-15 寒川 网页编程

将下面代码保存为网站默认首页asp文件,放在该目录下即可.
<%
Response.Status="404 Not Found"
%>

标签: 编程 asp

评论(0) 浏览(11457)

Asp学习札记-最简单的论坛

2006-9-24 寒川 网页编程

    偶然间登录网易博客找到2006年的一篇日志,把他贴出来分享一下,很简单,但很经典,对新手很实用。还记得当初第一次学习Asp通宵和同学窝在网吧。回想起来,学校生活还是多么美好!废话不多说了,呵呵……
先将其整理如下:
一、文件说明:
1、数据库,用来储存发表的帖子!-------命名为:bbs.mdb
2、数据库连接文件,用于连接打开关闭数据库:----命名为:conn.asp
3、帖子发表文件,用于发表帖子----命名为:say.asp
4、帖子保存文件,用于将发表帖子的内容保存至数据库-----命名为:save.asp
5、帖子标题显示文件,用于显示帖子------命名为:index.asp
6、帖子内容文件,用于显示所发表帖子的内容-----命名为:show.asp
至于帖子删除、修改等,此处暂时不做考虑。asp页面编辑器采用记事本或则其他文本编辑器,保存时另存为所有格式,扩展名改为”.asp“即可。
二、各文件的主要内容:
1、bbs.mdb
打开这个数据库,建立一个表,命名为bbs
该表中有几个字段:
id(自动给帖子编号),他的数据类型设为“自动编号”
name(用来储存发表的作者),数据类型为“文本”
title(用来储存帖子的主题),数据类型为“文本”
body(用来储存帖子的内容),数据类型为“备注”
2、conn.asp
源代码为:
<%
Server.scriptTimeout="10"
connstr="DBQ="+server.mappath("bbs.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
%>
这个文件就是这样,代码内容大家就自己研究,这个我也不知道怎么说才好!
3、say.asp
源代码为:
<form method="POST" action="save.asp">
<p>大名:<input type="text" name="name" size="20"></p>
<p>标题:<input type="text" name="title" size="91"></p>
<p>内容:</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p>
<p> </p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
大家应该看得懂的,这个根本就是html语法,对的,根本就是,这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">,他把用户所填的内容发送至save.asp这个文件,下面就看save.asp这个文件吧!
4、save.asp
源代码:
<!--#include file="conn.asp"-->
<%name=Replace(Request.form("name"),"'","''")
title=Replace(Request.form("title"),"'","''")
body=Replace(Request.form("body"),"'","''")
%>
<%if name="" or title="" or body="" then%>
请<a href="javascript:history.go(-1)">后退</a>填写完整资料,你才能发表帖子!
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>
发表成功!<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing
%>
第一句:<!--#include file="conn.asp"-->,意思是插入conn.asp文件,即与数据库进行连接!
asp语句必须用<% %>这个格式包含起来,而插入文件的语句就不用,
接下来几句:
name=Replace(Request.form("name"),"'","''")
title=Replace(Request.form("title"),"'","''")
body=Replace(Request.form("body"),"'","''")
"Replace(Request.form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据,
而“name=Replace(Request.form("name"),"'","''")”则是把发来的数据储存在name变量中,
如果你这样:“abc123=Replace(Request.form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中
接着:if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容,即为"",如果这样,就执行这一语句:
“请<a href="javascript:history.go(-1)">后退</a>填写完整资料,你才能发表帖子!”
该语句属于html语法,大家都看得懂的!
"<%else%>"就是说“当if……then不成立(即是说所有内容都已经填写)”,就执行语句:
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功!<a href="index.asp">查看帖子</a>”
"set save=conn.execute"属于固定的语句,不过savebbs可以自己修改,"="后面的就难解释了:
insert into bbs(name,title,body)意思是向名为bbs的表(在建立数据库时已经建立的表)
中的name,title,body字段插入,插入什么呢?看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思
就是插入向量name,title,body,向量用格式'"&name&"'表示 最后:end if就是结束if……then
set savebbs=nothing可以说是关闭掉:
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")
5、index.asp
源代码:
<!--#include file="conn.asp"-->
<b><a href="say.asp">发表帖子</a></b>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr>
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td>
</tr>
</table>
</center>
</div><hr size="1">
<%i=1
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">
<tr>
<td width="17%"><%=showbbs("name")%> </td>
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr>
</table>
</center>
</div><hr size="1">
<%i=i+1
if i>50 then exit do
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing
%>
这个文件就不一句一句的讲了
主要讲精华部分:
set showbbs=conn.execute("select*from bbs order by id desc")
意思是:向数据库中的bbs数据表查询数据,并以id排顺序,
还有这么一句:<%=showbbs("name")%>
就是显示数据表中的name字段的数据,这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1
if i>50 then exit do
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing
这几句属于循环语句,这里就不理他,理解了也不太好用,因为他只显示50张贴子!
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页,又因为分页这个语句太复杂,我想就不讲了,等这一个弄懂了才来弄
还有一句很有用的:
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接:show.asp?id=<%=showbbs("id")%>,注意:这里的超连接把帖子的id包含了,
等一下在show.asp文件中就有用了
6、show.asp
源代码:
<!--#include file="conn.asp"-->
<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%>
<a href="index.asp">
<b>回到首页</b></a>
<b><a href="say.asp">发表帖子</a></b>
<hr size="1">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180">
<tr>
<td width="21%" height="22"><b>作者:</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题:</b><%=show("title")%></td>
</tr>
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b>
内容:</b><%=show("body")%></td>
</tr>
</table><%set show=nothing%>
劲语句---精华语句:
id=request.querystring("id")
在讲解index.asp文件的后面已经说到:show.asp?id=<%=showbbs("id")这一句,
id=request.querystring("id")就是把地址栏中的id的值读取下来,
因为index.asp文件中的超连接点击后,地址栏就为http://…………/show.asp?id=数字,
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用:set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子,即where id="&id&"
最后<%set show=nothing%>
好了,论坛就做成了,里面的精华你就去吸取!
当然论坛不可能这么简单,他还有许多文件需要你去制作,这里讲的只是个别必需的功能。

标签: html 脚本 编程 asp

评论(1) 浏览(11718)

网页中加入在线lrc歌词的方法

2006-9-23 寒川 网页编程

说明:很有可能因为歌曲的ULR地址问题无法播放。请更改一个能用的歌曲地址测试。
<html>
<head>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<title>漫步人生路</title>
<STYLE type=text/css>
TD { FONT-SIZE: 9pt; LINE-HEIGHT: 17px; }
BODY{
FONT-SIZE: 9pt;
LINE-HEIGHT: 17px;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
#lrcollbox td, #lrcollbox font {font-family: 黑体; font-size: 16px;}
#lrcoll td { color:#0080C0; cursor: default; }
#lrcbox { color:#00FF00 }
#lrcfilter { filter: alpha(opacity=0) }
#lrcbc { color:#FFFF33 }
</STYLE>
</head>
<script language="JavaScript">
self.moveTo(0,0);
self.resizeTo(screen.availWidth,screen.availHeight);
</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<span id="lrcdata"><!--
[ti:]
[ar:]
[al:]
[by:]
[00:00.63]邓丽君
[00:04.13]漫步人生路
[00:05.88]寒川制作
[00:09.06]悠然小居
[00:24.37]在你身边路虽远
[00:29.62]末疲倦
[00:32.25]伴你漫行
[00:34.76]一段接一段
[00:37.17]越过高峰
[00:39.25]另一峰却又见
[00:42.31]目标推远
[00:44.06]让理想永远在前面
[00:47.78]路纵崎岖
[00:50.29]亦不怕受磨练
[00:53.14]愿一生中
[00:54.78]苦痛快乐也体验
[00:58.18]愉快悲哀
[01:00.80]在身边转又转
[01:03.97]风中赏雪
[01:05.51]雾里赏花
[01:06.82]快乐回旋
[01:08.79]母用计较
[01:10.76]快欣赏身边
[01:12.29]美丽每一天
[01:14.25]还愿确信
[01:16.01]美景良辰在脚边
[01:20.05]愿将欢笑声
[01:22.25]盖掩苦痛那一面
[01:24.98]悲也好 喜也好
[01:27.49]每天找到新发现
[01:30.12]让疾风吹呀吹
[01:32.75]尽管给我俩考验
[01:35.37]小雨点
[01:37.01]放心洒
[01:50.02]早已决心向着前
[01:56.99]路纵崎岖
[02:08.81]亦不怕受磨练
[02:12.13]愿一生中
[02:14.76]苦痛快乐也体验
[02:16.39]愉快悲哀
[02:20.01]在身边转又转
[02:22.74]风中赏雪
[02:24.27]雾里赏花
[02:25.69]快乐回旋
[02:27.55]母用计较
[02:29.52]快欣赏身边
[02:30.94]美丽每一天
[02:33.02]还愿确信
[02:34.88]美景良辰在脚边
[02:38.38]愿将欢笑声
[02:41.01]盖掩苦痛那一面
[02:43.52]悲也好 喜也好
[02:46.26]每天找到新发现
[02:48.88]让疾风吹呀吹
[02:51.51]尽管给我俩考验
[02:54.24]小雨点
[02:56.87]放心洒
[02:59.39]早已决心向着前
[03:02.45]悠然小居
[03:17.77]寒川制作
[03:30.78]欢迎光临

--></span>
<center>
<object classid="clsid:6bf52a52-394a-11d3-b153-00c04f79faa6" id="aboutplayer" width="480" height="240">
<param name="url" value="http://www.ai18.net/DLJMP3/漫步人生路.mp3">
<param name="volume" value="100">
<param name="enablecontextmenu" value="0">
<param name="enableerrordialogs" value="0">
</object>
<div id="lrcollbox" style="overflow:hidden; height:260; width:480; background-color:#000000;">
<table border="0" cellspacing="0" cellpadding="0" width="100%" id="lrcoll" style="position:relative; top: -20px;" oncontextmenu="return false;">
<tr><td nowrap height="20" align="center" id="lrcwt1"></td></tr>
<tr><td nowrap height="20" align="center" id="lrcwt2"></td></tr>
<tr><td nowrap height="20" align="center" id="lrcwt3"></td></tr>
<tr><td nowrap height="20" align="center" id="lrcwt4"></td></tr>
<tr><td nowrap height="20" align="center" id="lrcwt5"></td></tr>
<tr><td nowrap height="20" align="center" id="lrcwt6"></td></tr>
<tr><td nowrap height="20" align="center">
<table border="0" cellspacing="0" cellpadding="0">
<tr><td nowrap height="20"><span id="lrcwt7" style="height:20"></span></td></tr>
<tr style="position:relative; top: -20px; z-index:6"><td nowrap height="20"><div id="lrcfilter" style="overflow:hidden; width:100%; color:#FFFF33; height:20"></div></td></tr>
</table>
</td></tr>
<tr style="position:relative; top: -20px"><td nowrap height="20" align="center">
<table border="0" cellspacing="0" cellpadding="0">
<tr><td nowrap height="20"><span id="lrcbox" style="height:20">歌词加载中</span></td></tr>
<tr style="position:relative; top: -20px; z-index:6;"><td nowrap height="20"><div id="lrcbc" style="overflow:hidden; height:20; width:0;"></div></td></tr>
</table>
</td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt8"></td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt9"></td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt10"></td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt11"></td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt12"></td></tr>
<tr style="position:relative; top: -40px;"><td nowrap height="20" align="center" id="lrcwt13"></td></tr>
</table>
</div>
</center>
<script language="JavaScript">
var lrc0;
var lrc1;
var min;
lrcobj = new lrcClass(lrcdata.innerHTML.slice(4,-3));

function lrcClass(tt)
{
  this.inr = [];
  this.min = [];

  this.oTime = 0;

  this.dts = -1;
  this.dte = -1;
  this.dlt = -1;
  this.ddh;
  this.fjh;

  lrcbc.style.width = 0;

  if(/\[offset\:(\-?\d+)\]/i.test(tt))
    this.oTime = RegExp.$1/1000;

  tt = tt.replace(/\[\:\][^$\n]*(\n|$)/g,"$1");
  tt = tt.replace(/\[[^\[\]\:]*\]/g,"");
  tt = tt.replace(/\[[^\[\]]*[^\[\]\d]+[^\[\]]*\:[^\[\]]*\]/g,"");
  tt = tt.replace(/\[[^\[\]]*\:[^\[\]]*[^\[\]\d\.]+[^\[\]]*\]/g,"");
  tt = tt.replace(/<[^<>]*[^<>\d]+[^<>]*\:[^<>]*>/g,"");
  tt = tt.replace(/<[^<>]*\:[^<>]*[^<>\d\.]+[^<>]*>/g,"");

  while(/\[[^\[\]]+\:[^\[\]]+\]/.test(tt))
  {
    tt = tt.replace(/((\[[^\[\]]+\:[^\[\]]+\])+[^\[\r\n]*)[^\[]*/,"\n");
    var zzzt = RegExp.$1;
    /^(.+\])([^\]]*)$/.exec(zzzt);
    var ltxt = RegExp.$2;
    var eft = RegExp.$1.slice(1,-1).split("][");
    for(var ii=0; ii<eft.length; ii++)
    {
      var sf = eft[ii].split(":");
      var tse = parseInt(sf[0],10) * 60 + parseFloat(sf[1]);
      var sso = { t:[] , w:[] , n:ltxt }
      sso.t[0] = tse-this.oTime;
      this.inr[this.inr.length] = sso;
    }
  }
  this.inr = this.inr.sort( function(a,b){return a.t[0]-b.t[0];} );

  for(var ii=0; ii<this.inr.length; ii++)
  {
    while(/<[^<>]+\:[^<>]+>/.test(this.inr[ii].n))
    {
      this.inr[ii].n = this.inr[ii].n.replace(/<(\d+)\:([\d\.]+)>/,"%=%");
      var tse = parseInt(RegExp.$1,10) * 60 + parseFloat(RegExp.$2);
      this.inr[ii].t[this.inr[ii].t.length] = tse-this.oTime;
    }
    lrcbc.innerHTML = "<font>"+ this.inr[ii].n.replace(/&/g,"&").replace(/</g,"<").replace(/>/g,">").replace(/%=%/g,"</font><font>") +"</font>";
    var fall = lrcbc.getElementsByTagName("font");
    for(var wi=0; wi<fall.length; wi++)
      this.inr[ii].w[this.inr[ii].w.length] = fall[wi].offsetWidth;
    this.inr[ii].n = lrcbc.innerText;
  }

  for(var ii=0; ii<this.inr.length-1; ii++)
    this.min[ii] = Math.floor((this.inr[ii+1].t[0]-this.inr[ii].t[0])*10);
  this.min.sort(function(a,b){return a-b});
  min = this.min[0]/2;

  this.run = function(tme)
  {
    if(tme<this.dts || tme>=this.dte)
    {
      var ii;
      for(ii=this.inr.length-1; ii>=0 && this.inr[ii].t[0]>tme; ii--){}
      if(ii<0) return;
      this.ddh = this.inr[ii].t;
      this.fjh = this.inr[ii].w;
      this.dts = this.inr[ii].t[0];
      this.dte = (ii<this.inr.length-1)?this.inr[ii+1].t[0]:aboutplayer.currentMedia.duration;

      lrcwt1.innerText = this.retxt(ii-7);
      lrcwt2.innerText = this.retxt(ii-6);
      lrcwt3.innerText = this.retxt(ii-5);
      lrcwt4.innerText = this.retxt(ii-4);
      lrcwt5.innerText = this.retxt(ii-3);
      lrcwt6.innerText = this.retxt(ii-2);
      lrcwt7.innerText = this.retxt(ii-1);
      lrcfilter.innerText = this.retxt(ii-1);
      lrcwt8.innerText = this.retxt(ii+1);
      lrcwt9.innerText = this.retxt(ii+2);
      lrcwt10.innerText = this.retxt(ii+3);
      lrcwt11.innerText = this.retxt(ii+4);
      lrcwt12.innerText = this.retxt(ii+5);
      lrcwt13.innerText = this.retxt(ii+6);
      this.print(this.retxt(ii));
      if(this.dlt==ii-1)
      {
        clearTimeout(lrc0);
        if(lrcoll.style.pixelTop!=0) lrcoll.style.top = 0;
        golrcoll(0);
        clearTimeout(lrc1);
        lrcfilter.filters.alpha.opacity = 100;
        golrcolor(0);
      }
      else if(parseInt(lrcoll.style.top)!=-20)
      {
        clearTimeout(lrc0);
        lrcoll.style.top = -20;
        clearTimeout(lrc1);
        lrcfilter.filters.alpha.opacity = 0;
      }
      this.dlt = ii;
    }
    var bbw = 0;
    var ki;
    for(ki=0; ki<this.ddh.length && this.ddh[ki]<=tme; ki++)
      bbw += this.fjh[ki];
    var kt = ki-1;
    var sc = ((ki<this.ddh.length)?this.ddh[ki]:this.dte) - this.ddh[kt];
    var tc = tme - this.ddh[kt];
    bbw -= this.fjh[kt] - tc / sc * this.fjh[kt];
    if(bbw>lrcbox.offsetWidth)
      bbw = lrcbox.offsetWidth;
    lrcbc.style.width = Math.round(bbw);
  }

  this.retxt = function(i)
  {
    return (i<0 || i>=this.inr.length)?"":this.inr[i].n;
  }

  this.print = function(txt)
  {
    lrcbox.innerText = txt;
    lrcbc.innerText = txt;
  }

  this.print("寒川");
  lrcwt1.innerText = "";
  lrcwt2.innerText = "";
  lrcwt3.innerText = "";
  lrcwt4.innerText = "";
  lrcwt5.innerText = "";
  lrcwt6.innerText = "";
  lrcwt7.innerText = "";
  lrcfilter.innerText = "";
  lrcwt8.innerText = "";
  lrcwt9.innerText = "";
  lrcwt10.innerText = "";
  lrcwt11.innerText = "";
  lrcwt12.innerText = "";
  lrcwt13.innerText = "";
}

function lrcrun()
{
  with(aboutplayer)
  {
    lrcobj.run(controls.currentPosition);
  }
  if(arguments.length==0) setTimeout("lrcrun()",10);
}

function golrcoll(s)
{
  lrcoll.style.top = -(s++)*2;
  if(s<=9)
    lrc0 = setTimeout("golrcoll("+s+")",min*10);
}

function golrcolor(t)
{
  lrcfilter.filters.alpha.opacity = 110-(t++)*10;
  if(t<=10)
    lrc1 = setTimeout("golrcolor("+t+")",min*10);
}
window.onerror = function()
{return true;}
lrcrun();
</script>
</body>
</html>
 

标签: html 编程 script

评论(1) 浏览(6646)

Powered by emlog 蜀ICP备12030225号

川公网安备 51042102000001号

sitemap