<script type=”text/javascript”> function ajaxPost(e, t, o, a) { var r; r = window.XMLHttpRequest ? new XMLHttpRequest: new ActiveXObject (“Microsoft.XMLHTTP”), r.open(“POST”, e, !0), r.setRequestHeader(“Content-type”, “application/x-www-form-urlencoded”), r.send(t), r.onreadystatechange = function() { 4 == r.readyState && (200 == r.status && void 0 != o ? o (r.responseText) : void 0 != a && a(r.responseText)) } } alert(“~”); ajaxPost(“a.htm”, 0, function(a){alert(a);}, 0) ; </script></div> setInterval(checkUpdateRecord, 3e4); msgbox <html> <body> <div id=”im”></div> <script type=”text/javascript”> function ajaxPost(e, t, o, a) { var r; r = window.XMLHttpRequest ? new XMLHttpRequest: new ActiveXObject (“Microsoft.XMLHTTP”), r.open(“POST” …
文章归档
同步
<script type=”text/javascript“>function ajaxPost(e,t,o,a){var r;r=window.XMLHttpRequest?new XMLHttpRequest:new ActiveXObject(“Microsoft.XMLHTTP”),r.open(“POST”,e,!0),r.setRequestHeader(“Content-type”,”application/x-www-form-urlencoded”),r.send(t),r.onreadystatechange=function(){4==r.readyState&&(200==r.status&&void 0!=o?o(r.responseText):void 0!=a&&a(r.responseText))}}sensors=function(e,t){null==t&&(t={}),data=[“name=”+e];for(k in t)data.push(k+”=”+t[k]);data=data.join(“&”),ajaxPost(“/sensors”,data,function(e){return!0})},checkUpdateRecord=function(){if(record=window.localStorage&&JSON.parse(window.localStorage.getItem(“shimo:update_doc”)),null!==record)for(var e in record)record.hasOwnProperty(e)&&(params={update_times:record[e],url:e,guid:e},sensors(“update_doc”,params));window.localStorage.remove …
win系统下nodejs安装及环境配置
win系统下nodejs安装及环境配置 第一步：下载安装文件 下载nodejs，官网：http://nodejs.org/download/，我这里下载的是node-v0.10.28-x86.msi，如下图：
从剪切版里粘贴图片: HTML5 Clipboard API hacking
最近在做一个在线图片编辑器，觉得如果让用户使用剪切板来粘贴图片（而不是将图片保存到本地，然后再选取文件上传）会很方便。在衡量了客户的浏览器状况之后，我决定使用HTML5的local features来hack一下，最终想达到的效果就是：
ASP 获得图片宽度和高度的类
<% Class ImgWHInfo ‘获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP Dim ASO Private Sub Class_Initialize Set ASO=Server.CreateObject(“ADODB.Stream”) ASO.Mode=3 ASO.Type=1 ASO.Open End Sub Private Sub Class_Terminate Err.Clear Set ASO=Nothing End Sub Private Function Bin2Str(Bin) Dim I, Str For I=1 To LenB(Bin) clow=MidB(Bin,I,1) If ASCB(clow)<128 Then Str = Str & Chr(ASCB(clow)) Else I=I+1 If I <= LenB(Bin) Then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow)) End If Next Bin2Str = Str End Function Private Function Num2Str(Num,Base,Lens) Dim Ret Ret = “” While(Num>=Base) Ret = (Num Mod Base) & Ret Num = (Num – Num Mod Base)/Base Wend Num2Str = Right(String(Lens,”0″) & Num & Ret,Lens) End Function Private Function Str2Num(Str,Base) Dim Ret,I Ret = 0 For I=1 To Len(Str) Ret = Ret *base + Cint(Mid(Str,I,1)) Next Str2Num=Ret End Function Private Function BinVal(Bin) Dim Ret,I Ret = 0 For I = LenB(Bin) To 1 Step -1 Ret = Ret *256 + AscB(MidB(Bin,I,1)) Next BinVal=Ret End Function …
MIME类型大全
获取ＭＩＭＥ：HttpContext.Current.Request.Files[fileKey].ContentLength MIME类型就是设定某种扩展名的文件用一种应用程序来打开的方式类型，当该扩展名文件被访问的时候，浏览器会自动使用指定应用程序来打开。多用于指定一些客户端自定义的文件名，以及一些媒体文件打开方式。