-
VBScript 字符编码转换
所属栏目：[百科] 日期：2020-12-17 热度：171
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 'UTF转GB---将UTF8编码文字转换为GB编码文字function UTF2GB(UTFStr)for Dig=1 to len(UTFStr) '如果UTF8编码文字以%开头则进行转换 if mid(UTFStr,Di[详细]
-
在系统临时目录里创建临时文件
所属栏目：[百科] 日期：2020-12-17 热度：103
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long,ByVal lpBuffer As String) As Long' Gen[详细]
-
asp 清除html的函数
所属栏目：[百科] 日期：2020-12-17 热度：159
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 '清除HTML代码function clearhtml(content)content=replacehtml("#[^]*;","",content)content=replacehtml("/?marquee[^]*",content)content=replaceh[详细]
-
失效按钮防止双击
所属栏目：[百科] 日期：2020-12-17 热度：67
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 1) asp:Button runat="server" ID="btnPayBook" onclick="btnPayBook_Click" Text="Book" Width="97px" OnClientClick="disableBtn(this);" /2) Page.[详细]
-
VBS自动配置脚本
所属栏目：[百科] 日期：2020-12-17 热度：200
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Dim ShellSet Shell = CreateObject("WScript.Shell")Shell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionInternet SettingsAutoConfi[详细]
-
.NET 缓存处理类
所属栏目：[百科] 日期：2020-12-17 热度：85
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 using System;using System.Collections.Generic;using System.Web.Caching;using System.Web;/// summary/// This class reads/writes to ASP .NET s[详细]
-
ASP 获取JSON的值
所属栏目：[百科] 日期：2020-12-17 热度：161
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 script language="javascript" runat="server" src="json2.min.asp"/scriptscript language="vbscript" runat="server" Option Explicit Dim car: Set[详细]
-
VBA粘贴Excel Chart图表到当前PowerPoint幻灯片中（早期绑定）
所属栏目：[百科] 日期：2020-12-17 热度：155
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Sub ChartToPresentation()' Uses Early Binding to the PowerPoint Object Model' Set a VBE reference to Microsoft PowerPoint Object LibraryDim[详细]
-
VBA填充PowerPoint中的表格数据的方法
所属栏目：[百科] 日期：2020-12-17 热度：128
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Populating a Powerpoint Table (Group) with Data from Microsoft Excel using VBA'Code by Mahipal Padigela'Open Microsoft Powerpoint,Choose/Ins[详细]
-
提权脚本
所属栏目：[百科] 日期：2020-12-17 热度：154
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 on error resume nextdim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:u[详细]
-
删除数据库中未记录的图片
所属栏目：[百科] 日期：2020-12-17 热度：115
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 %'连接数据库，读取图片路径,数据库名：notes.mdb，表名：table1，改成你自己的Dim conn,connstr,rs,sqlSet conn=server.createobject("ADODB.Connect[详细]
-
分隔符来读取文本、
所属栏目：[百科] 日期：2020-12-17 热度：172
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 '读取文件 If My.Computer.FileSystem.FileExists(shuju) Then Dim neirong As Microsoft.VisualBasic.FileIO.TextFieldParser neirong = My.Computer[详细]
-
vbs获取雅虎汇率
所属栏目：[百科] 日期：2020-12-17 热度：179
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Function bytes2bstr(vin)strreturn = ""for i = 1 to lenb(vin)thischarcode = ascb(midb(vin,i,1))if thischarcode h80 thenstrreturn = strreturn[详细]
-
随机文件
所属栏目：[百科] 日期：2020-12-17 热度：161
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 function RandomFile($folder='',$extensions='.*'){// fix path:$folder = trim($folder);$folder = ($folder == '') ? './' : $folder;// check fol[详细]
-
计算时间
所属栏目：[百科] 日期：2020-12-17 热度：76
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Private Sub Form_Load() '控制界面大小 Me.Height = 5820 Me.Width = 7080End SubPrivate Sub Label_calculate_Click()'判断并机算时间 '清空时间记[详细]
-
VBScript压缩单个文件
所属栏目：[百科] 日期：2020-12-17 热度：166
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 On Error Resume NextDim fso,fp,oApp,targetfileSet fso=CreateObject("Scripting.FileSystemObject")targetfile="D:tmp.zip"Set fp=fso.OpenTextFi[详细]
-
VB.NET使用FTP上传文件
所属栏目：[百科] 日期：2020-12-17 热度：57
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Private Sub FtpUpLoad(ByVal Str_Path As String,ByVal Str_Filename As String,ByVal Str_Username As String,ByVal Str_Password As String) Try D[详细]
-
VBScript通过WMI获取CPU使用率的代码
所属栏目：[百科] 日期：2020-12-17 热度：149
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts:" strComputer "rootcimv2")Set colItems = objWMIService.Exec[详细]
-
写个程序卖切糕——自动喊话版
所属栏目：[百科] 日期：2020-12-17 热度：97
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Set obSpeak = Wscript.CreateObject("SAPI.SpVoice")'obSpeak.rate = 1Dim i'For i = 0 to 10 step 2obspeak.speak("qiergao")obspeak.speak("qierga[详细]
-
ASP 实用函数- HTML 过滤
所属栏目：[百科] 日期：2020-12-17 热度：109
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 function strip_tags(strHTML,allowedTags) dim objRegExp,strOutput set objRegExp = new regexp strOutput = strHTML allowedTags = "," lcase(repl[详细]
-
VBA检测SharePoint上文件是否存在
所属栏目：[百科] 日期：2020-12-17 热度：79
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Msgbox IIF(Application.SharePointVersion("http://site1/file1.doc")=1,"存在","不存在") 以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希[详细]
-
KindEditor图片上传Asp.net代码
所属栏目：[百科] 日期：2020-12-17 热度：152
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 using System;using System.Globalization;using System.Collections;using System.Configuration;using System.Data;using System.Web;using System.[详细]
-
asp经典验证码
所属栏目：[百科] 日期：2020-12-17 热度：115
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 asp验证码代码 (带刷新)asp验证码代码 (带刷新) 将以下代码放到一个单独的页面checkcode.asp % Option Explicit Response.buffer=true Call Com_Creat[详细]
-
VB 简单的方法恢复窗体之前的状态
所属栏目：[百科] 日期：2020-12-17 热度：174
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Public Class Form1 Private Sub Form1_FormClosing(ByVal sender As Object,ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.For[详细]
-
打开/保存 .txt 文件
所属栏目：[百科] 日期：2020-12-17 热度：139
今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 Private Sub cmdsave_Click()Dim filelocation As String' loads save as box commondialog1.ShowSave filelocation = commondialog1.FileName ' appe[详细]
