2020-02-16 标签:asp,中文,文件夹,常用,处理,函数,文件,后缀,创建,实现,代码,如下,获得,function,filetxt,byval,t,dim

实现代码如下：'===================================== '获得文件后缀 '===================================== Function Get_Filetxt(ByVal t0) Dim t1 IF Len(t0)":Err.Cle

2020-02-16 标签:vbs,实现,zip,压缩,unzip,解压缩,函数,代码,如下,d,test,iso,msgbox,ok,sub,byval,mysourcedir,myzipfile,set

压缩代码: 实现代码如下： Zip "D:\test.iso", "D:\test.zip" Zip "D:\test", "D:\test.zip" Msgbox "OK" Sub Zip(ByVal mySourceDir, ByVal myZipFile) Set fso = CreateOb

2020-02-16 标签:asp,终极,防范,sql,注入,漏洞,下面,给出,函数,足够,抵挡,读懂,代码,你就,融会贯通,注意,要对,所有的,request

下面给出4个函数，足够你抵挡一切SQL注入漏洞！读懂代码，你就能融会贯通。 注意要对所有的request对象进行过滤：包括 request.cookie, request.ServerVariables 等等容易被忽视的对象： 实现代码如下： function killn(byval s1) '过滤

2020-02-16 标签:实现,utf,转换,gb,2312,国标码,asp,代码,如下,个人,风格,注释,变量,第一个,小写字母,表表,类型

实现代码如下： '个人代码风格注释（变量名中第一个小写字母表表示变量类型） 'i:为Integer型; 's:为String; Function U2UTF8(Byval a_iNum) Dim sResult,sUTF8 Dim iTemp,iHexNum,i iHexNum = Trim(a_i

2020-02-16 标签:移除,html,标签,正则,表达式,实现,代码,如下,模块,removehtml,功能,输入,返回,字符串,function,byval,strhtml,dim

实现代码如下： ' 模块名: RemoveHTML ' 功 能 : 移除HTML标签 ' 输入值: HTML代码 ' 返回值: 字符串 Function RemoveHTML(ByVal strHTML) Dim objRegExp, Match, Matches set objRegExp = N

2020-02-16 标签:asp,fso,操作,实现,代码,如下,系统,版本,文件,文本,创建,日期,2005,10,31,class,cls

实现代码如下： 0 ThenInit_Object = FalseErr.ClearExit FunctionElseInit_Object = TrueEnd IfEnd IfEnd FunctionPublic Sub DeleteFile(ByVal Str)On Error Resume N

2020-02-16 标签:asp,n,et,存储,过程,调用,但无,返回,实现,代码,如下,private,function,sqlproc,byval,procname,string,boolean

1．调用存储过程，但无返回值 实现代码如下：Private Function SqlProc1(ByVal ProcName As String) As Boolean '定义数据链接部分省略, myConn为链接对象 ProcName为存储过程名 Dim myCommand As New SqlC

2020-02-16 标签:vb,n,et,查询,获取,数据库,数据,信息,实现,代码,如下,操作,执行,public,sub,getconn,byval,sqlstr,string,tablename

实现代码如下：'数据操作执行 Public Sub getConn(ByVal SqlStr As String, ByVal TableName As String) Try objCommand.CommandText = SqlStr objDataSet.Clear() objDataAda

2020-02-16 标签:asp,n,et,删除,更新,数据库,方法,实现,代码,如下,数据,public,sub,updatetable,byval,strsql,string,objcommand,commandtext,try

实现代码如下：'数据更新 Public Sub updateTable(ByVal StrSql As String) objCommand.CommandText = StrSql Try conSql.Open() Trans = conSql.BeginTransaction objComma

2020-02-16 标签:excel,vba,高亮,显示,当前,代码,实现,如下,private,sub,worksheet,byval,target,range,names,add,xm,end

代码: 实现代码如下： Private Sub Worksheet_SelectionChange(ByVal Target As Range) ThisWorkbook.Names.Add "XM", Target End Sub这几行代码的作用是，当选择新的单元格时，将这个单元格(或者区域)定义