网页中音乐播放控制只适用于IE
<OBJECT classid="clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6" width="0" height="0" id="player">
<param name="AutoStart" value="false"/>
<param name="URL" value="http://www.xxxx.com/ver4.0/images/jyqxz.mp3"/>
</OBJECT>
<script>
function Play()
{
document.all.player.controls.play();
}
function Stop()
{
document.all.player.controls.stop();
}
</script>
<input type=button value="播放" onclick="Play()">
<input type=button value="停止" onclick="Stop()">vbs以post方式上传图片的源码
调用方法如下，详细代码见内页
Dim UploadData Set UploadData = New XMLUpload UploadData.Charset = "utf-8" UploadData.AddForm "content", "Hello world" '文本域的名称和内容 UploadData.AddFile "file", "test.jpg", "image/jpg", "test.jpg" WScript.Echo UploadData.Upload("http://example.com/takeupload.php") Set UploadData = Nothing
asp检查文件编码是不是utf8
asp检查文件编码是不是utf8，vbs检查文件编码，比网上流行的要准确。支持没有BOM头的文件，大多数utf8也没有这个
Function read(path) '将Byte()数组转成String字符串 Dim ado, a(), i, n Set ado = CreateObject("ADODB.Stream") ado.Type = 1 : ado.Open ado.LoadFromFile path n = ado.Size - 1 ReDim a(n) For i = 0 To n a(i) = ChrW(AscB(ado.Read(1))) Next read = Join(a, "") End Function Function is_valid_utf8(ByRef input) 'ByRef以提高效率 Dim s, re Set re = New Regexp s = "[\xC0-\xDF]([^\x80-\xBF]|$)" s = s & "|[\xE0-\xEF].{0,1}([^\x80-\xBF]|$)" s = s & "|[\xF0-\xF7].{0,2}([^\x80-\xBF]|$)" s = s & "|[\xF8-\xFB].{0,3}([^\x80-\xBF]|$)" s = s & "|[\xFC-\xFD].{0,4}([^\x80-\xBF]|$)" s = s & "|[\xFE-\xFE].{0,5}([^\x80-\xBF]|$)" s = s & "|[\x00-\x7F][\x80-\xBF]" s = s & "|[\xC0-\xDF].[\x80-\xBF]" s = s & "|[\xE0-\xEF]..[\x80-\xBF]" s = s & "|[\xF0-\xF7]...[\x80-\xBF]" s = s & "|[\xF8-\xFB]....[\x80-\xBF]" s = s & "|[\xFC-\xFD].....[\x80-\xBF]" s = s & "|[\xFE-\xFE]......[\x80-\xBF]" s = s & "|^[\x80-\xBF]" re.Pattern = s is_valid_utf8 = (Not re.Test(input)) End Function
sha256加密算法文件
web打印免费插件,打印不弹框,asp打印机控件
datediff取时间段
time1 = "2011-12-1" '开始时间 time2 = "2011-12-14" '结束时间 datediff(d,time1,iTime)>=0 and datediff(d,iTime,time2)>=0
asp utf-8版md5
提供一个ASP的MD5函数，难得的是支持utf-8编码，这样的好处很多，特别是中文md5效验失败时。
/wp-content/uploads/md5_new.txt
中文域名转码函数PUNYCODE
使用方法 a=encode&p=域名.com 如果是decode那就是解码了
<? header("content-type:text/html;charset=gbk"); require_once('idna_convert.class.php'); $IDN = new idna_convert(); $act=$_REQUEST['a']; $p=$_REQUEST['p']; $IDN = new idna_convert(); if (strstr($p,"xn--")) $act='decode'; if ($act=='encode'){ $ps=iconv("gbk","utf-8",$p); $out=$IDN->encode($ps); }else{ if (strstr(strtolower($p),"xn--")){ $out_tmp=$IDN->decode($p); $out=iconv("utf-8","gbk",$out_tmp); }else{ $out=$p; } } echo $out; ?>