阅读:172
评论:0
/* Powered By CMSDream Copyright (c) All rights reserved. 通用分页存储过程 */ CREATE proc [dbo].[cmsdream_SP_MultiPage]( @sql varchar(8000)='', @PageSize int=1, @CurrentPage int=1, @RecordCount int=0 output, @PageCount int=1 output )AS if @PageSize < 1 set @PageSize = 1 if @CurrentPage < 1 set @CurrentPage = 1 begin set nocount on declare @p1 int, @rowcount int exec...
阅读:283
评论:0
function querystring(){ this.params = new Object(); this.initialize = function(){ var param=this.paramstring(); if(param.length == 0) return; if(param.substring(0,1)=='?'){ param=param.substring(1); } param = param.replace(/\+/g, ' '); var args = param.split('&'); for (var i=0;i<a...
阅读:881
评论:0
阅读:1155
评论:0
/** Powered By CMSDream Copyright © 2007-2008 All rights reserved. 14:21 2008-5-10 **/ function CMSDreamAjaxLib(){ /**//** 成员变量 */ this.XMLHttpReq = null; //XML对象 this.method = "post"; //执行的方法(post/get) this.url = ""; //异步调用的页面地址 this.responseText = ""; //异步返回的响应字符串 this.responseXML = ""; //异步返回的响应XM...
阅读:105
评论:0
function AttachStyle(styDom, styCss, styId){ var istyle = styDom.createElement('style'); istyle.setAttribute("type", "text/css"); if(styId!=null){if(!document.getElementById(styId)){istyle.setAttribute("id", styId);}} if (istyle.styleSheet){ istyle.styleSheet.cssText=styC...
阅读:177
评论:0
/** Powered By CMSDream Copyright © 2007-2008 All rights reserved. 15:10 2008-6-7 **/ function querystring(paramstring){ this.url=window.location.href; this.params = new Object(); this.initialize = function(){ if(paramstring.length == 0) return; if(paramstring.substring(0,1)=='?'){ paramstring=paramstring.substring(1); } paramstring = p...
阅读:159
评论:0
function strLen(str){ var len=0; for(var i=0;i<str.length;i++){ var intCode=str.charCodeAt(i); if(intCode>=0 && intCode<=128){ len = len + 1; }else{ len = len + 2; } } return len; }
Private Function Length(iTxt) Dim txt: txt = Trim(iTxt) Dim x: x = Len(txt) ...
阅读:204
评论:0
Option Explicit Private Type HOSTENT hName As Long hAliases As Long hAddrType As Integer hLength As Integer hAddrList As Long End Type Private Type WSADATA wversion As Integer wHighVersion As Integer szDescription(0 To 256) As Byte szSystemStatus(0 To 128) As Byte iMaxSockets As Integer iMaxUdpDg As Integer lpszVendorInfo As Long...
阅读:301
评论:0
Private Declare Function GetTickCount& Lib "kernel32" () Dim a As Long Dim b As Long Dim c As Long Dim d As Long Dim e As Long Private Sub Form_Load() ' End Sub Private Sub Timer1_Timer() a = GetTickCount \ 1000 b = GetTickCount \ 1000 \ 60 c = GetTickCount \ 1000 \ 60 \ 60 d = (a - c * 3600) \ 60 e = a - b * 6...
阅读:168
评论:0