#APS/Basic

动态创建缩略图

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

#APS/Basic

VBScript自动登录千脑云电脑

Option Explicit Dim ieobj Set ieobj=CreateObject("InternetExplorer.Application") ieobj.Vis…

#APS/Basic

从多个excel表格中合并到一个汇总excel表格中,相应的sheet序号对应

Sub hebin() Dim MyPath As String Dim MyName As String Dim AWbName As String '路径,名称,活动工作簿名称…

#APS/Basic

QB黑白棋

CONST COPYRIGHTNUMBER = "HeiBaiQi V1.0" CONST COPYRIGHT = "Copyright (C) sosei" CONST NO =…

#APS/Basic

VBScript读写二进制文件

Function ReadBinary(FileName) Dim Buf(), I With CreateObject("ADODB.Stream") .Mode = 3: .T…

#APS/Basic

ASP 调用TinyMCE编辑器

sub tinymce(textarea_id, buttons1, buttons2) response.write ("<script type='text/javasc…

#APS/Basic

Cache Handler Class

using System; using System.Collections.Generic; using System.Web.Caching; using System.Web…

#APS/Basic

计算

dim s dim x dim k s=Clng(inputbox("请输入第一个数","运算器")) x=inputbox("请输入运算符:1加，2减，3乘，4除","运算器")…

#APS/Basic

ASP.NET获取客户端、服务器端的信息

ASP.NET获取客户端、服务器端基础信息 1. 在ASP.NET中专用属性： 获取服务器电脑名：Page.Server.ManchineName 获取用户信息：Page.User…

#APS/Basic

asp 无组件上传类

Dim StreamT Class AnUpLoad Private Form, Fils Private vCharSet, vMaxSize, vSingleSize, vEr…

#APS/Basic

Access 2007/2010 VBA查询结果导出为Excel 2007文件

Private Sub Form_Load Data_Table.SourceObject = "Query.Data View" Data_Table.Visible = Fal…

#APS/Basic

简易无刷新绑定文本框和日期选择控件