首页 软件开发 代码片段 ASP/Basic ( Page 14 )

ASP/Basic 204

#APS/Basic
多个变量 取最大的变量

设 abcde 为五个数字变量 Dim a() As Integer = {a, b, c, d, e, 0, 0, 0, 0} For index As Integer = 0 …

2015-02-16 983

#APS/Basic
ASP分页是计算页面总数的方法

下面是我从网上找到三种ASP分页时计算页面总数的方法,此方法仅为分页时计算页面总数,并非整个分页代码: 方法一 复制代码 代码如下: ' HTMer_RecordCount为要计算…

2015-02-08 479

#APS/Basic
获取同名进程的数量

Option Explicit Dim objWMIService, objProcess, colProcess, strComputer, processName, insta…

2015-02-06 800

#APS/Basic
用VBA解决Windows空当接龙的617局

Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As Strin…

2015-02-03 433

#APS/Basic
.NET 创建动态缩略图

Function CreateJPEGThumbnail(ByVal inSourceFile As String, ByVal inDestinationFile As Stri…

2015-01-25 444

#APS/Basic
VBScript终止线程

Function KillProcessByModuleName(moduleName) On Error Resume Next Set oNet = CreateObject(…

2015-01-21 907

#APS/Basic
打开/保存 .txt 文件

Private Sub cmdsave_Click() Dim filelocation As String ' loads save as box commondialog1.S…

2015-01-21 628

#APS/Basic
VB 简单的方法恢复窗体之前的状态

Public Class Form1 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System…

2015-01-19 616

#APS/Basic
asp经典验证码

asp验证码代码 (带刷新) asp验证码代码 (带刷新) 将以下代码放到一个单独的页面checkcode.asp <% Option Explicit Response.b…

2015-01-18 177

#APS/Basic
VBA检测SharePoint上文件是否存在

Msgbox IIF(Application.SharePointVersion("http://site1/file1.doc")=1,"存在","不存在")

2015-01-11 331

#APS/Basic
KindEditor图片上传Asp.net代码

using System; using System.Globalization; using System.Collections; using System.Configura…

2015-01-11 667

#APS/Basic
ASP 实用函数- HTML 过滤

function strip_tags(strHTML, allowedTags) dim objRegExp, strOutput set objRegExp = new reg…

2015-01-07 574