function getPageSize(){ var xScroll, yScroll; if (window.innerHeight && window.scrollMaxY) { xScroll = document.body.scrollWidth; yScroll = window.innerHeight + window.scrollMaxY; } else if (document.body.scrollHeight document.body.offsetHeight){ // all but Expl...[ 查看全文 ]
一、 <% Response.Buffer = True % <% ' Setup the variables necessary to accomplish the task Dim TimerStart, TimerEnd, TimerNow, TimerWait ' How many seconds do you want them to wait... TimerWait = 5 ' Setup and start the timers TimerNow = Timer TimerStart = TimerNow TimerEnd = TimerStart + TimerWait ' Keep it in a loop for the desired length of time Do While (Tim...[ 查看全文 ]
function request(paras){ //获取 url 的参数值,不区分大小写,如无此参数,返回空字符串. var url = location.href; var paraString = url.substring(url.indexOf("?")+1,url.length).split("&"); var paraObj = {} for (i=0; j=paraString[i]; i++){ paraObj[j.substring(0,j.indexOf("=")).toLowerCase()] =&n...[ 查看全文 ]
<% Class ImgWHInfo '获取图片宽度和高度的类,支持JPG,GIF,PNG,BMP Dim ASO Private Sub Class_Initialize Set ASO=Server.CreateObject("ADODB.Stream") ASO.Mode=3 ASO.Type=1 &...[ 查看全文 ]
下面的代码的功能是,全选word文档的当前页,注意,是当前页,即插入条所在的页,而不是全文。 Dim CurrentPageStart As Long, CurrentPageEnd As Long, myRange As Range Dim Currentpage As Integer, Pages As Integer On Error Resume Next Currentpage = Selection.Information(wdActiveEndPageNumber) Pages = Selection.Information(wdNumberOfPagesInDocument) CurrentPageStart = Selection.Go...[ 查看全文 ]