function DeleteFile(Filename) '删除文件 if Filename<>"" then Set fso = server.CreateObject("Scr
/* written by Jaron ,2003-6-8 */ /* 原出处:江都资讯网论坛 http://www.jiangdu.net/bbs */ /* 转载请注明出处和保留此版权信息 *
/* written by Jaron ,2003-6-8 */ /* 原出处:江都资讯网论坛 */ /* 转载请注明出处和保留此版权信息 */ /* 欢迎使用SiteManager网站管理系统
注释:————————(1)—————
VB下几个非常有用的函数 '————————(1)———————————— '获得指定ini文件中某个节下面的所有键值 TrueZq,,需要下面的API声明 'Private Declare Func
注释:————————(1)—————
VB下几个非常有用的函数 '————————(1)———————————— '获得指定ini文件中某个节下面的所有键值 TrueZq,,需要下面的API声明 'Private Declare Func
cLeft(string, length) 返回指定数目的从字符串的左边算起的字符,区分单双字节。 如: Dim MyString, LeftString MyString = "文字测试VB
因为比较简单,我就不说什么了。一看就明白的! Function ChkStr(InString) If InString<>"" Then ?InString=Replace(LC
因为比较简单,我就不说什么了。一看就明白的! Function ChkStr(InString) If InString<>"" Then InString=Replace(LCas