Function GetTable(Table,Where,Order,OrderSort,curpage, pagesize,MiniJson) 'Author : nigou …
Option Explicit Private Sub BrowseCmd_Click() With Application.FileDialog(msoFileDialogFil…
Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lPar…
<% ' yangjunwei.com On Error Resume Next if request.querystring<>"" then call sto…
function ReturnHTMLTable(query) set rs = cn.Execute(query) rs.MoveFirst response.Write "&l…
Sub save_ole_file() Dim wordObj As OLEObject Set wordObj = Worksheets("Sheet1").OLEObjects…
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% fpath="pic/" Set objFSO = Server.Creat…
Dim oleDbConnection1 As OleDb.OleDbConnection Dim strConnect As Sting=”Provider=SQLOLEDB;P…
Imports System.Data.OleDb Public Class Form1 Private _FilePath As String = "" Private _DS …
Dim objFSO,objFile,DataList,strText Const adVarChar = 200 Const MaxCharacters = 255 Const …
在ASP页面中生成图片验证码,需要用到System.Drawing命名空间下的很多类,首先我们需要新建一个CreateImage.aspx页面,在后台代码中定义用于生成验证码图片的…
Option Explicit Private Const OFS_MAXPATHNAME = 128 Private Type OFSTRUCT cBytes As Byte f…
VBA粘贴选定Excel嵌入式图表到当前PowerPoint幻灯片中