-
API方式读写文本文件
所属栏目：[百科] 日期：2020-12-17 热度：148
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Option ExplicitPrivate Const OFS_MAXPATHNAME = 128Private Type OFSTRUCT cBytes As Byte fFixedDisk As Byte nErrCode As Integer Reserved1 As I[详细]
-
删除魔兽世界缓存文件才经常掉线者使用（安装插件者禁用）
所属栏目：[百科] 日期：2020-12-17 热度：127
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Option ExplicitPrivate Const FO_DELETE = H3Private Const FOF_ALLOWUNDO = H40Private Const FOF_NOCONFIRMATION = H10Private Type SHFILEOPSTRUC[详细]
-
ASP.NET验证码
所属栏目：[百科] 日期：2020-12-17 热度：191
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 在ASP页面中生成图片验证码，需要用到System.Drawing命名空间下的很多类，首先我们需要新建一个CreateImage.aspx页面，在后台代码中定义用于生成验证[详细]
-
文本文件的内容进行排序
所属栏目：[百科] 日期：2020-12-17 热度：121
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Dim objFSO,objFile,DataList,strTextConst adVarChar = 200 Const MaxCharacters = 255 Const ForReading = 1 Const ForWriting = 2 Set DataList =[详细]
-
VB.net读取Excel文件内容
所属栏目：[百科] 日期：2020-12-17 热度：200
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Imports System.Data.OleDbPublic Class Form1 Private _FilePath As String = "" Private _DS As DataSet Private Const _Connectstring = "Provider[详细]
-
VB.NET 几种连接数据库的方式汇总
所属栏目：[百科] 日期：2020-12-17 热度：138
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Dim oleDbConnection1 As OleDb.OleDbConnection Dim strConnect As Sting=”Provider=SQLOLEDB;Persist Security Info=False; Data Source=服务器名;[详细]
-
从文件夹读取图片并按时间排序，然后分页显示
所属栏目：[百科] 日期：2020-12-17 热度：187
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 %@LANGUAGE="VBSCRIPT" CODEPAGE="936"%%fpath="pic/"Set objFSO = Server.CreateObject("Scripting.FileSystemObject")set objfolder=objFSO.getfold[详细]
-
保存Excel中嵌入的Word文档为磁盘文件
所属栏目：[百科] 日期：2020-12-17 热度：199
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Sub save_ole_file()Dim wordObj As OLEObjectSet wordObj = Worksheets("Sheet1").OLEObjects(1)wordObj.ActivateWith wordObj.Object.Application.W[详细]
-
简单的函数来返回记录集结果到HTML表格
所属栏目：[百科] 日期：2020-12-17 热度：112
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 function ReturnHTMLTable(query)set rs = cn.Execute(query)rs.MoveFirst response.Write "table class=""data"" cols=""" rs.Fields.Count """"resp[详细]
-
asp版 过滤用户输入的数据，实现防注
所属栏目：[百科] 日期：2020-12-17 热度：132
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 % ' yangjunwei.comOn Error Resume Nextif request.querystring"" then call stophacker(request.querystring,"'|(and|or)b.+?(||=|in|like)|/*.+?[详细]
-
VB全局鼠标HOOK实现右键无效
所属栏目：[百科] 日期：2020-12-17 热度：50
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Public Function LowLevelKeyboardProc(ByVal nCode As Long,ByVal wParam As Long,ByVal lParam As Long) As Long Dim fEatKeystroke As Boolean If[详细]
-
Access 2007/2010 VBA选择并上传Excel 2007格式文件
所属栏目：[百科] 日期：2020-12-17 热度：188
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Option ExplicitPrivate Sub BrowseCmd_Click() With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Filters.Clear .[详细]
-
asp读取数据库输出json
所属栏目：[百科] 日期：2020-12-17 热度：143
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Function GetTable(Table,Where,Order,OrderSort,curpage,pagesize,MiniJson)'Author : nigou'使用方法 : Response.Write GetTable(Table表名,Where条[详细]
-
遍历目录解压所有zip文件到系统临时目录
所属栏目：[百科] 日期：2020-12-17 热度：173
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Option ExplicitPrivate Const BIF_STATUSTEXT = H4Private Const BIF_RETURNONLYFSDIRS = 1Private Const BIF_DONTGOBELOWDOMAIN = 2Private Const M[详细]
-
转换文本按一定字数折叠
所属栏目：[百科] 日期：2020-12-17 热度：135
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Private Function wrapword(str As String,CharsInOneLine As Integer,fixedLines As Integer) As StringDim c As Integer,i As Integerc = (Len(str)[详细]
-
Excel VBA实现保护解锁所有的工作表
所属栏目：[百科] 日期：2020-12-17 热度：110
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Public Function ProtectAllSheets()Dim sheet As WorksheetFor Each sheet In ActiveWorkbook.Worksheetssheet.EnableSelection = xlUnlockedCellssh[详细]
-
在VB里嵌入汇编
所属栏目：[百科] 日期：2020-12-17 热度：147
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 1965 ClientLeft = 60 ClientTop = 345 ClientWidth = 3105 LinkTopic = "Form1"[详细]
-
ASP网站短信接口
所属栏目：[百科] 日期：2020-12-17 热度：171
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 %@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%%Function Post(url,data)dim Https set Https=server.createobject("MSXML2.XMLHTTP")Https.open "POST",ur[详细]
-
更改环境变量
所属栏目：[百科] 日期：2020-12-17 热度：72
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Dim WshShellSet WshShell = Wscript.CreateObject("WScript.Shell") WshShell.Environment("user").Item("path")="c:ruby"Set WshShell=Nothing 以[详细]
-
VBA保存文件对话框
所属栏目：[百科] 日期：2020-12-17 热度：82
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Dim fileSaveNamefileSaveName = Application.GetSaveAsFilename( _ fileFilter:="Text Files (*.txt),*.txt")If fileSaveName False Then MsgBox "Sa[详细]
-
.net短信接口调用示例（106短信通道）
所属栏目：[百科] 日期：2020-12-17 热度：196
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 using System;using System.Data;using System.Configuration;using System.Collections;using System.IO;using System.Net;using System.Text;using[详细]
-
从多个表格中提取出有用数据做成新的表格
所属栏目：[百科] 日期：2020-12-17 热度：120
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Sub tt()Dim kcmc As String '课程名称Dim n As Integern = 0 '成绩行数Dim rs As Integerrs = 57 '班级人数Dim i As IntegerDim j As Integer '成绩[详细]
-
ASP.NET 做验证码
所属栏目：[百科] 日期：2020-12-17 热度：173
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 显示验证码的界面：前台：td class="style4" 验证码：/td td class="style2" asp:TextBox ID="TextBox3" runat="server" Height="21px"/asp:TextBox a[详细]
-
按行读取文本文件
所属栏目：[百科] 日期：2020-12-17 热度：144
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 '(general declaration)Dim nFileNum As Integer,sText As String,sNextLine As String,lLineCount As Long'==================================Priva[详细]
-
Tooltip in DataGrid
所属栏目：[百科] 日期：2020-12-17 热度：136
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 private void DataGrid1_ItemDataBound(object sender,System.Web.UI.WebControls.DataGridItemEventArgs e){ e.Item.Cells[0].ToolTip = "Column0";[详细]
