-
[论坛] 完美Ajax类,支持事件
2007-01-04 11:29:51
CODE:
<scrīpt Language="Javascrīpt">
<!--
// author:奔腾的心
// qq:7180001
function Ajax(OnError,OnState,OnDownloadEnd)
{
this.ErrorStr = null;
this.OnError = OnError;
this.OnState = OnState;
this.OnDownloadEnd = OnDownloadEnd;
this.method = "GET";
this.URL = null;
this.sync = true;
this.PostData = null
this.RetData = null;
this.HttpObj = this.createXMLHttpRequest();
if(this.HttpObj == null)
{
return;
}
var ōbj = this;
this.HttpObj.onreadystatechange = function()
{
Ajax.handleStateChange(Obj);
}
}
Ajax.prototype.UTFTOGB = function(strBody)
{
var Rec=new ActiveXObject("ADODB.RecordSet");
Rec.Fields.Append("DDD",201,1);
Rec.Open();
Rec.AddNew();
Rec(0).AppendChunk(strBody);
Rec.Update();
var HTML=Rec(0).Value;
Rec.Close();
delete Rec;
return(HTML);
}
Ajax.prototype.createXMLHttpRequest = function()
{
if (window.XMLHttpRequest)
{
//Mozilla 浏览器
return new XMLHttpRequest();
}
else if (window.ActiveXObject)
{
var msxmls = new Array('Msxml2.XMLHTTP.5.0','Msxml2.XMLHTTP.4.0','Msxml2.XMLHTTP.3.0','Msxml2.XMLHTTP','Microsoft.XMLHTTP');
for (var i = 0; i < msxmls.length; i++)
{
try
{
return new ActiveXObject(msxmls[i]);
}catch (e){}
}
}
this.ErrorStr = "你的浏览器不支持XMLHttpRequest对象．"
if(this.OnError)
{
this.OnError(this.ErrorStr);
}
return null;
}
Ajax.prototype.send = function()
{
if (this.HttpObj !== null)
{
this.URL = this.URL + "?t=" + new Date().getTime();
this.HttpObj.open(this.method, this.URL, this.sync);
if(this.method.toLocaleUpperCase() == "GET")
{
this.HttpObj.send(null);
}
else if(this.method.toLocaleUpperCase() == "POST")
{
this.HttpObj.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
this.HttpObj.send(this.PostData);
}
else
{
this.ErrorStr = "错误的[method]命令．"
if(this.OnError)
{
this.OnError(this.ErrorStr);
}
return;
}
if (this.HttpObj.readyState == 4)
{
// 判断对象状态
if (this.HttpObj.status == 200)
{
this.RetData = this.UTFTOGB(this.HttpObj.responseBody);
if(this.OnDownloadEnd)
{
this.OnDownloadEnd(this.RetData);
}
return;
}
else
{
this.ErrorStr = "您所请求的页面有异常．"
if(this.OnError)
{
this.OnError(this.ErrorStr);
}
return;
}
}
}
}
Ajax.handleStateChange = function(Obj)
{
if(Obj.OnState)
{
Obj.OnState(Obj.HttpObj.readyState);
}
if (Obj.HttpObj.readyState == 4)
{
// 判断对象状态
if (Obj.HttpObj.status == 200)
{
Obj.RetData = Obj.UTFTOGB(Obj.HttpObj.responseBody);
if(Obj.OnDownloadEnd)
{
Obj.OnDownloadEnd(Obj.RetData);
}
return;
}
else
{
Obj.ErrorStr = "您所请求的页面有异常．"
if(Obj.OnError)
{
Obj.OnError(Obj.ErrorStr);
}
return;
}
}
}
function EventError(strValue)
{
Error.innerHTML = strValue;
}
function EventState(strValue)
{
var strState = null;
switch (strValue)
{
case 0:
strState = "未初始化...";
break;
case 1:
strState = "开始读取数据...";
break;
case 2:
strState = "读取数据...";
break;
case 3:
strState = "读取数据中...";
break;
case 4:
strState = "读取完成...";
break;
default:
strState = "未初始化...";
break;
}
State.innerHTML = strState;
}
function EventDownloadEnd(strValue)
{
DownloadEnd.innerHTML = strValue;
}
var A1 = new Ajax(EventError,EventState,EventDownloadEnd);
A1.method = "GET";
A1.URL = "http://bbs.51js.com"
A1.sync = true;
A1.send();
//-->
</scrīpt>
<div id="Error"></div>
<div id="State"></div>
<div id="DownloadEnd"></div> -
[论坛] 发一个日期输入控件
2007-01-04 11:28:21
因字数限制所以只有上传
1.rar
(2007-01-03 14:22:01, Size: 6.33 kB, Downloads: 28) -
[论坛] 无组件汉字图片生成类
2006-11-20 13:08:51
-
[论坛] 我不帅!我撒谎!
2006-11-20 13:08:09
我出生在一个普通家庭,父母健康,有爷爷奶奶,还有几个姑姑叔叔.
据说,我出生时,天空的北方,出现祥云一片,渐渐由远至近,飘到我家房顶后,幻化成一个字:帅
爸爸见到我后,声嘶力竭的哭了一个半月,他打死也不相信我是他的染色体遗传下来的孩子,几次携菜刀冲到我母亲床前,挥舞着说要把我斩成肉泥,母亲以死相护,我才得以存活.
爷爷的青光眼十几年了,一米开外分不清是人是狗,可是当我出现在他眼前的时候,老人家老泪纵横,自谫双目,从此不见天日,说是不想再见到人,以免后患无穷.
后来,母亲为了证明自己的清白,拉着父亲要去医院作亲子鉴定,医生揭开被子只看了一眼就哭了,抹着鼻涕说回去吧,这不是你儿子,谁的也不是,人类生不出这么帅的孩子.....
一个实习的小护士走过,看见了强保重的我,立刻找了盒红印泥,把我的指纹印了下来,并把盘好的头发一下子散开,对着我喃喃道:长发为君留,此生若不嫁你,长发不减,清灯古佛,自梳闺中.......
母亲赶紧往外走,一路小跑,不小心碰到了隔壁妇产科一个等着生孩子的老太太,老太太拉住母亲,慈祥的说:孩子,急什么阿,有啥想不开的阿?别颠着孩子阿....
母亲别他缠的心烦,一把拉开被子,那老太太一看见我,立刻跟上了神经病得似的,眼泪哗哗的,一屁股蹲倒在地,摇头狂叫:我早生了50年啊!!!!!!!!!!
母亲闪.....
我长到十五岁的时候,还不敢上学,不是没上过,幼儿园的时候上了半天就不敢去了,全园的孩子老师加院长都疯了,我的脸蛋被小女孩亲的肿成了西瓜,阿姨们狂殴小朋友,不为别的,就因为他们和我生在一个年段,军警出动,才算平息了暴乱.
我家门口常年有人钓鱼,而且绝不空手而归,最有意思的是,我们家离海还有一百公里,他们却经常在门前的小臭水沟里钓到金枪鱼,并且在草垛后边发现了海龟蛋,后来经调查,原来是因为我家门口常年不断有无数女人哭泣,而眼泪的成分富含氨基酸和蛋白质,十分适合金枪鱼生存和海龟产卵下蛋,经年累月,那些女人的眼泪汇集成了一小片海滩,到我十五岁的时候,海滩上一片繁荣景象,到我十八岁的时候,这片海滩发展的十分迅速,于是被人称为:夏威夷.
有一次我实在闷得慌,晚上偷偷跑出家门,我本来准备好如果见到雌性的动物就撒腿狂奔,谁知道我出门后,除了一片惊声尖叫,没有追来的,我小心翼翼的回头一看,原来他们全部晕倒在海滩上...
美国国防部正式向海牙国际法庭起诉我,说我破坏第一家庭的家庭幸福,原来总统夫人老辣见到我六岁时候被偷拍的照片后,竟然跟小布什提出离婚,创造了美国国家历史上第一宗在任总统离婚案,海牙国际法庭受理后,给我下达了传票,我接到传票后,表示愿意出庭,因为这种生活实在难以忍受,不过传票没有回到法庭,因为上面我有签名,所以半路上被邮递员.....后来邮递员被判122年有期徒刑.
中央电视台焦点访谈节目组来采访我,抗摄像机的那个玻璃晕倒了三次,负责笔录的那个小姑娘生生把中文写成了意大利文加西班牙文.
播出的时候,因为电视台对我的面部进行了马赛克处理,第二天就被人砸了,标语贴的到处都是,甚至贴到了天安门毛主席的画像上,美国CNN电视台称,这是中国第二次文化大革命现象,小布什趁机访华,在天安门广场发表了演说,题目为;我的一张大字报!演讲是在美国T2特工5000多人的保护下进行,不过顾此失彼,空军一号被袭,砸了个希吧烂.....
联合国拨专款为我建造了一座藏身之处,位于喜马拉雅山的珠穆朗玛峰顶端,消息极度封锁,世界上除了我家人和秘书长安南,谁也不知道我在哪里.
我享受了的清静,真正的清静,蓝天距离我无比接近,上帝简直就是触手可及,我清静了,但也是极度的烦闷,我站在巅峰大声呼喊:我不帅!!!!!!!!!!!!!!!!!!!!!!
突然,天上传来一个安魂幽弥的声音:不,你撒谎......
上帝,您就不能骗骗我.......
我愤怒,极度愤怒!!!质问上帝,你为什么让我这么帅!!!!
上帝那安魂的声音又传来:你说什么?
我全身瘫软,泣声道:我为什么这么帅.......
上帝沉默了......过了一会,上帝才开口:你谦虚......
那一霎那,我想从顶峰跳下去........
忽然山下有一队人马冲上山来,后来才知道,安南被绑架,为首的匪徒的母亲的姥姥曾经在中国清朝时期在慈喜身边当宫女,老爷是刑部尚书,家传宝,就是满清十大酷刑,安南果然是条可歌可泣的汉子,一直用到第九刑,才说出我的藏身之所....
我发狂了!!!
我站在一块石头上,面对万丈悬崖,歇斯底里:你们敢上来!!!我就跳下去!!!!!
人群站住不动了,惊人的寂静....
人群开始骚动,有许多人如同着魔一般,从悬崖边跳了下去,越来越多!最后只剩下几个晕倒的还留在山上,剩下的,全部跳下山崖,我往下一看,他们用身体给我铺成了一张软垫,怕我失足落下....
我孤立无援...我被女派重点保护在以前的美国五角大楼,女人以见我一面为荣,自从上一次珠峰事件以后,科学家发现人类的潜能原来如此强大,因为那次珠峰事件中,有百分之十的人身患绝症,百分之十的残疾人,还有百分之十的弱智.....
许多癌症患者(女)为了见我一面,已经苦苦支撑了十几年,还成了抗癌明星,有的残疾人(女)自从见到我,便甩掉了相伴几十年的拐杖和轮椅,有几个还连破了几次世界百米纪录.
无奈之下,第三次世界大战爆发,男性为了维护自己的尊严,动用了原子弹....
爆炸过后,全世界只有我一个人存活,因为我被保护在防核区,我走出来的时候,大地一片荒芜,处处是战争过后的荒凉和废墟....
突然,我发现地上还有生物!!!!
那是一只蟑螂!!!蟑螂的生命力之强,出乎所有人的意料,我捧起这只蟑螂,老泪纵横,那只蟑螂全身发抖,我放眼望去,原来在我脚下,是一片蟑螂!!!全是母的!!!
而另外的海岸线上,所有的公蟑螂虎视眈眈!!!
谁也不会料到,地球的第四次世界大战,竟然发生在蟑螂之间.....
后记:我死后我千万年,后人类诞生,他们将我的骸骨还原,葬在北极,在我的墓碑上空,终年漂浮着一片云彩,变幻来变幻去,只有一个字:帅..... -
[论坛] 在线音乐播放器
2006-11-20 13:07:03
CODE:
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<b>在线音乐点播</b></td>
</tr>
</table>
<br>
<table align=center style="font:9pt">
<tr>
<td> <object classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" id="MediaPlayer1" width="286" height="225">
<param name="AudioStream" value="-1">
<param name="AutoSize" value="-1">
<!--是否自动调整播放大小-->
<param name="AutoStart" value="-1">
<!--是否自动播放-->
<param name="AnimationAtStart" value="-1">
<param name="AllowScan" value="-1">
<param name="AllowChangeDisplaySize" value="-1">
<param name="AutoRewind" value="0">
<param name="Balance" value="0">
<!--左右声道平衡,最左-9640,最右9640-->
<param name="BaseURL" value>
<param name="BufferingTime" value="15">
<!--缓冲时间-->
<param name="CaptioningID" value>
<param name="ClickToPlay" value="-1">
<param name="CursorType" value="0">
<param name="CurrentPosition" value="0">
<!--当前播放进度 -1 表示不变,0表示开头 单位是秒,比如10表示从第10秒处开始播放,值必须是-1.0或大于等于0-->
<param name="CurrentMarker" value="0">
<param name="DefaultFrame" value>
<param name="DisplayBackColor" value="0">
<param name="DisplayForeColor" value="16777215">
<param name="DisplayMode" value="0">
<param name="DisplaySize" value="0">
<!--视频1-50%, 0-100%, 2-200%,3-全屏 其它的值作0处理,小数则采用四舍五入然后按前的处理-->
<param name="Enabled" value="-1">
<param name="EnableContextMenu" value="-1">
<!-是否用右键弹出菜单控制-->
<param name="EnablePositionControls" value="-1">
<param name="EnableFullScreenControls" value="-1">
<param name="EnableTracker" value="-1">
<!--是否允许拉动播放进度条到任意地方播放-->
<param name="Filename" value="Music/sayoldtime.mp3" valuetype="ref">
<param name="InvokeURLs" value="-1">
<param name="Language" value="-1">
<param name="Mute" value="0">
<!--是否静音-->
<param name="PlayCount" value="10">
<!--重复播放次数,0为始终重复-->
<param name="PreviewMode" value="-1">
<param name="Rate" value="1">
<!--播放速度1.0-2.0倍的速度播放-->
<param name="SAMILang" value>
<param name="SAMIStyle" value>
<param name="SAMIFileName" value>
<!--选择同时播放(伴音)的歌曲-->
<param name="SelectionStart" value="-1">
<param name="SelectionEnd" value="-1">
<param name="SendOpenStateChangeEvents" value="-1">
<param name="SendWarningEvents" value="-1">
<param name="SendErrorEvents" value="-1">
<param name="SendKeyboardEvents" value="0">
<param name="SendMouseClickEvents" value="0">
<param name="SendMouseMoveEvents" value="0">
<param name="SendPlayStateChangeEvents" value="-1">
<param name="ShowCaptioning" value="0">
<!--是否显示字幕,为一块黑色,下面会有一大块黑色,一般不显示-->
<param name="ShowControls" value="-1">
<!--是否显示控制,比如播放,停止,暂停-->
<param name="ShowAudioControls" value="-1">
<!--是否显示音量控制-->
<param name="ShowDisplay" value="0">
<!--显示节目信息,比如版权等-->
<param name="ShowGotoBar" value="0">
<!--一条框,在下面,有往下箭头-->
<param name="ShowPositionControls" value="-1">
<!--是否显示往前往后及列表,如果显示一般也都是灰色不可控制-->
<param name="ShowStatusBar" value="-1">
<!--当前播放信息,显示是否正在播放,及总播放时间和当前播放到的时间-->
<param name="ShowTracker" value="-1">
<!--是否显示当前播放跟踪条,即当前的播放进度条-->
<param name="TransparentAtStart" value="-1">
<param name="VideoBorderWidth" value="0">
<!--显示部的宽部,如果小于视频宽,则最小为视频宽,或者加大到指定值,并自动加大高度.此改变只改变四周的黑框大小,不改变视频大小-->
<param name="VideoBorderColor" value="0">
<!--显示黑色框的颜色, 为RGB值,比如ffff00为黄色-->
<param name="VideoBorder3D" value="0">
<param name="Volume" value="0">
<!--音量大小,负值表示是当前音量的减值,值自动会取绝对值,最大为0,最小为-9640,最大0-->
<param name="WindowlessVideo" value="0">
<!--如果是0可以允许全屏,否则只能在窗口中查看-->
</object> <br>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.filename);">查看当前任务</span><br>
<b>MP3点播</b>
<br><span style="cursor:hand" ōnClick="document.MediaPlayer1.filename='http://202.99.168.198/mp3/gn2/group/nanfang/01/01.mp3';">南方二重唱(细说往事)</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.filename='http://xxzx.wems.net/jxggtd/wems-kj/kjk/yw3/1.MP3';">轩辕剑参外传-天之痕</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.filename='http://202.107.236.189/mal/zz/张真-红红好姑娘.mp3';">张真(红红好姑娘)</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.filename='music/light.avi';">天地传说之宝莲灯版头曲-不熄的灯</span>
<br>
<b>播放速度调整</b>
<scrīpt>
var mediaRate=document.MediaPlayer1.Rate;
var mediaVolume=document.MediaPlayer1.Volume;
var mediaCurrentPosition=document.MediaPlayer1.CurrentPosition;
function setRate(num)
{
mediaRate=num;
document.MediaPlayer1.Rate=num;
}
function addCurrentPosition(num)
{
mediaCurrentPosition=document.MediaPlayer1.CurrentPosition;
mediaCurrentPosition+=num;
if(mediaCurrentPosition<0)mediaCurrentPosition=0;
document.MediaPlayer1.CurrentPosition=mediaCurrentPosition;
}
function addVolume(num)
{
mediaVolume=document.MediaPlayer1.Volume;
if(num>0 && mediaVolume<-1)
{
mediaVolume+=num;
if(mediaVolume>-1)mediaVolume=-1;
document.MediaPlayer1.Volume=mediaVolume;
}
else
{
if(num<0 && mediaVolume>-9999)
{ mediaVolume +=num;
if(mediaVolume <-9999)mediaVolume=-9999;
document.MediaPlayer1.Volume=mediaVolume;
}
}
}
function addRate(num)
{
mediaRate=document.MediaPlayer1.Rate;
if(num>0 && mediaRate<12.0)
{
mediaRate+=num;
//if(mediaRate >2.0)mediaRate=2.0;
document.MediaPlayer1.Rate=mediaRate;
}
else
{
if(num<0 && mediaRate>0.1)
{ mediaRate +=num;
if(mediaRate <0.1)mediaRate=0.1;
document.MediaPlayer1.Rate=mediaRate;
}
}
}
function exchangeValue(obj)
{
if(obj=="0")
{
obj="-1";
}
else
{
obj="0";
}
return obj;
}
</scrīpt>
<!--速度正常1.0
速度慢0.0<value<1.0
速度快1.0<value<2.0
-->
<span style="cursor:hand" ōnClick="setRate(1.2);">较快</span> <span style="cursor:hand" ōnClick="addRate(0.1);">加速</span>
<span style="cursor:hand" ōnClick="addRate(-0.1);">减速</span> <span style="cursor:hand" ōnClick="setRate(0.8);">较慢</span>
<span style="cursor:hand" ōnClick="setRate(1);">正常</span> <span style="cursor:hand" ōnClick="alert(mediaRate);">查看速度</span>
<br>
<b>播放声音调整</b> <span style="cursor:hand" ōnClick="document.MediaPlayer1.Mute=exchangeValue(document.MediaPlayer1.Mute);">静音/取消</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.Mute);">查看</span>
<br>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.Volume=-1">最大</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.Volume=-9999">最小</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.Volume=-180">默认</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.Volume=-259">中大</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.Volume=-399">中等</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.Volume=-999">中小</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.Volume=-1599">小</span>
<span style="cursor:hand" ōnClick="addVolume(100);">加大音量</span> <span style="cursor:hand" ōnClick="addVolume(-100);">减少音量</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.Volume);">查看</span>
<br>
<b>播放界面控制</b><br>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.ShowCaptioning=exchangeValue(document.MediaPlayer1.ShowCaptioning);">显示/隐藏字幕</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.ShowCaptioning);">查看</span>
<br>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.ShowControls=exchangeValue(document.MediaPlayer1.ShowControls);">显示/隐藏播放控制</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.ShowControls);">查看</span>
<br>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.ShowAudioControls=exchangeValue(document.MediaPlayer1.ShowAudioControls);">显示/隐藏音量控制</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.ShowAudioControls);">查看</span>
<br>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.ShowDisplay=exchangeValue(document.MediaPlayer1.ShowDisplay);">显示/隐藏节日信息</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.ShowDisplay);">查看</span>
<br>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.ShowGotoBar=exchangeValue(document.MediaPlayer1.ShowGotoBar);">显示/隐藏GOTOBAR</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.ShowGotoBar);">查看</span>
<br>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.ShowPositionControls=exchangeValue(document.MediaPlayer1.ShowPositionControls);">显示/隐藏位置控制</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.ShowPositionControls);">查看</span>
<br>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.ShowStatusBar=exchangeValue(document.MediaPlayer1.ShowStatusBar);">显示/隐藏播放信息</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.ShowStatusBar);">查看</span>
<br>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.ShowTracker=exchangeValue(document.MediaPlayer1.ShowTracker);">显示/隐藏播放跟踪条</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.ShowTracker);">查看</span>
<br>
<b>声道切换</b> <span style="cursor:hand" ōnClick="document.MediaPlayer1.Balance=-9640;">左声道</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.Balance=9640;">右声道</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.Balance=0;">左右平衡</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.Balance);">查看</span>
<br>
<b>视频窗口大小</b> <span style="cursor:hand" ōnClick="document.MediaPlayer1.DisplaySize=1;">50%</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.DisplaySize=0;">100%</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.DisplaySize=2;">200%</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.DisplaySize=3;">全屏</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.DisplaySize);">查看</span>
<br>
<b>播放进度控制</b> <span style="cursor:hand" ōnClick="document.MediaPlayer1.CurrentPosition=0;">回到开始</span>
<span style="cursor:hand" ōnClick="addCurrentPosition(60);">前进一分钟</span>
<span style="cursor:hand" ōnClick="addCurrentPosition(-60);">后退一分钟</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.CurrentPosition=99999;">到最后</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.CurrentPosition);">查看</span>
<br>
<b>选择伴音</b> <span style="cursor:hand" ōnClick="document.MediaPlayer1.SAMIFileName='http://xxzx.wems.net/jxggtd/wems-kj/kjk/yw3/1.MP3';">天之痕</span>
<span style="cursor:hand" ōnClick="document.MediaPlayer1.SAMIFileName='';">无</span>
<span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.SAMIFileName);">查看</span>
(注意不能马上生效,点击后需要再重新播放歌曲) <span style="cursor:hand" ōnClick="alert(document.MediaPlayer1.maxlength);">查看</span>
<scrīpt language=vbscrīpt>
for each obj in document.MediaPlayer1.all
messagebox(obj)
next
</scrīpt>
</td></tr></table> -
[论坛] 通用Sql防注入检测函数
2006-11-20 13:06:20
CODE:
不改变原字符显示![ 本帖由 ivvn 最后编辑于 2006-1-7 19:42 ]
如select*替换为select*
这样既不损坏数据,也安全!
没有想到的地方请大家指正
<%
Response.Write CheckRequest("str")
' ============================================
' 检测传入变量,防止SQL注入
' ============================================
Function CheckRequest(ByVal strRequest)
Dim ParaValue, aBadUalueb, bBadValue, inBad, strBad
If strRequest = "" Then
CheckRequest = ""
Exit Function
End If
ParaValue = Request(strRequest)
If ParaValue = "" Then
CheckRequest = ""
Exit Function
End If
aBadValue = "net user|net localgroup administrators|xp_cmdshell|/add|exec%20master.dbo.xp_cmdshell|" & Chr(0) & ""
aValueArr = Split(aBadValue, "|")
For a = 0 To UBound(aValueArr)
If InStr(LCase(ParaValue), aValueArr(a)) <> 0 Then
ParaValue = Replace(ParaValue, aValueArr(a), strFToAsc(aValueArr(a)), 1, -1, vbTextCompare)
End If
Next
bBadUalue = "and|exec|insert|select|delete|update|count|chr|mid|master|truncate|char|declare|drop|from|or"
inBad = "(|)|[|]| |*|%20"
bValueArr = Split(bBadUalue, "|")
iBad = Split(inBad, "|")
For b = 0 To UBound(bValueArr)
strBad = bValueArr(b)
For i = 0 To UBound(iBad)
Fstr = strBad & iBad(i)
If InStr(LCase(ParaValue), Fstr) <> 0 Then
ParaValue = Replace(ParaValue, Fstr, strFToAsc(Fstr), 1, -1, vbTextCompare)
End If
Lstr = iBad(i) & strBad
If InStr(LCase(ParaValue), Lstr) <> 0 Then
ParaValue = Replace(ParaValue, Lstr, strFToAsc(Lstr), 1, -1, vbTextCompare)
End If
Next
Next
CheckRequest = ParaValue
End Function
' ============================================
' 首字符转换成Html码
' ============================================
Function strFToAsc(ByVal strValue)
Dim strTemp
strTemp = strValue
If strTemp = "" Then
strFToAsc = ""
Exit Function
End If
strTemp = "&#" & Asc(Left(strTemp, 1)) & ";" & Right(strTemp, Len(strTemp) - 1)
strFToAsc = strTemp
End Function
%> -
[论坛] 计算一个数的价乘!(大数相乘)
2006-11-20 13:05:16
CODE:
<scrīpt language=vbscrīpt>[ 本帖由 ivvn 最后编辑于 2006-1-9 22:18 ]
Function checkn(n)
if n=0 Or n=1 Then
checkn = 1
else
Dim sNum
sNum = 1
For i=0 To n-1
document.write sNum & "*" & (n-i) & "<br>"
sNum = sNum * (n-i)
Next
Checkn = sNum
End If
End Function
document.write checkn(7)
</scrīpt> -
[论坛] 发现Url编码方式写了下来!
2006-11-20 13:04:49
CODE:
<scrīpt language="vbscrīpt">[ 本帖由 ivvn 最后编辑于 2006-3-22 22:46 ]
Function Str2Hex(ByVal strHex)
Dim s1,sHex
For i = 1 To Len(strHex)
s1 = Hex(Asc(Mid(strHex,i,1)))
If Len(s1)=4 Then
s1 = "%" & Left(s1,2) & "%" & Right(s1,2)
Else
s1 = "%" & s1
End If
sHex = sHex & s1
Next
Str2Hex = sHex
End Function
Document.Write Str2Hex("周杰伦 夜曲")
Document.Write "<a Href='http://mp3.baidu.com/m?f=ms&rn=&tn=baidump3&ct=134217728&word=" & Str2Hex("周杰伦 夜曲") & "&lm=-1'>周杰伦 夜曲</a>"
</scrīpt> -
[论坛] onbeforeunload 测试浏览器刷新与关闭
2006-11-20 13:04:15
CODE:
<html>
<head>
<title>无忧脚本代码测试网页</title>
</head>
<body>
<scrīpt language=javascrīpt>
window.onbeforeunload=function()
{
if(event.clientX>document.body.clientWidth)
{
alert('浏览器关闭');
}
else
{
alert('浏览器刷新');
}
}
</scrīpt>
</body>
</html> -
[论坛] 【原创】格式化数组中相同值的元素
2006-11-20 13:03:14
CODE:
<scrīpt language=vbscrīpt>
str = "aaa,bbb,ccc,aaa,aaa,bbb,bbb"
a1 = Split(str,",")
Dim sArr(), n, i, bRepeat
n = 0
' 转入无重复数据
'For Each RemoteFileurl in RemoteFile
For i=0 To UBound(a1)
If n = 0 Then
n = n + 1
Redim sArr(n)
sArr(n) = a1(i)
Else
bRepeat = False
For j = 1 To UBound(sArr)
If UCase(a1(i)) = UCase(sArr(i)) Then
bRepeat = True
Exit For
End If
Next
If bRepeat = False Then
n = n + 1
Redim Preserve sArr(n)
sArr(n) = a1(i)
End If
End If
Next
For ii = 0 To UBound(sArr)
document.write sArr(ii) & "<br />"
Next
</scrīpt> -
[论坛] 一个很不错的时间正则,但有点问题!
2006-11-20 13:02:54
CODE:
<scrīpt language=javascrīpt>为什么第一个不能通过
var RegDate = /^(?=\d)(?:(?!(?:1582(?:\.|-|\/)10(?:\.|-|\/)(?:0?[5-9]|1[0-4]))|(?:1752(?:\.|-|\/)0?9(?:\.|-|\/)(?:0?[3-9]|1[0-3])))(?=(?:(?!000[04]|(?:(?:1[^0-6]|[2468][^048]|[3579][^26])00))(?:(?:\d\d)(?:[02468][048]|[13579][26]))\D0?2\D29)|(?:\d{4}\D(?!(?:0?[2469]|11)\D31)(?!0?2(?:\.|-|\/)(?:29|30))))(\d{4})([-\/.])(0?\d|1[012])\2((?!00)[012]?\d|3[01])(?:$|(?=\x20\d)\x20))?((?:(?:0?[1-9]|1[012])(?::[0-5]\d){0,2}(?:\x20[aApP][mM]))|(?:[01]\d|2[0-3])(?::[0-5]\d){1,2})?$/ //时间验证
alert(RegDate.test("2005-3-3 9:21:25"));
alert(RegDate.test("2005-3-3 09:21:25"));
</scrīpt>
都来帮忙修改一下!
看得头晕
这里的位数在哪控制?
修改的地方请用红色标出来谢谢! -
[论坛] 日期输入控件,改了一下!
2006-11-20 13:01:40
-
[论坛] 按出现率生成随机字符(有点难度)
2006-11-20 13:00:08
代码js/vbs 任意大家帮忙
<scrīpt language=vbscrīpt>
Dim sArr(5) '字符
Dim nArr(5) '出现率
Dim sNum
sNum = 441 '总出现次数
sArr(0) = "A"
sArr(1) = "B"
sArr(2) = "C"
sArr(3) = "D"
sArr(4) = "E"
nArr(0) = 10
nArr(1) = 10
nArr(2) = 30
nArr(3) = 30
nArr(4) = 20
ssNum = (sNum/100) '白分点
For I=0 To UBound(sArr)
yNum = ssNum*nArr(I) '此字符的出现率
document.write()
Next
</scrīpt>
[ 本帖由 ivvn 最后编辑于 2005-12-2 13:33 ] -
[论坛] asphttp1.0.0(Asp)远程数据抓取类
2006-11-20 12:58:36
可以进行Cookie欺骗,user-agent欺骗理论上可以冲破目前网上的大部份防盗连软件!
注意请不要非法使用该程序!(谢谢合作)
该程序仅供学习交流之用
感谢"小谢"的提醒user-agent验证
T.rar
(2005-12-27 11:36:26, Size: 4
