-
[2006-08-15] 过滤html
'函数名：GlHtml
'作 用：过滤html 元素
'参 数：str ---- 要过滤字符
'返回值：没有html 的字符
'**************************************************
Public Function GlHtml(ByVal str)
If IsNull(str...
-
[2006-08-15] 读取两种路径
'函数名：Readsyspath
'作 用：读取路径
'参 数：lx ---- 0:服务器IP加路径 1:服务物理路径
'返回值：路径字串
'**************************************************
Public Function Readsyspath(ByV...
-
[2006-08-15] 测试某个文件存在否
'函数名：CheckFile
'作 用：测试某个文件存在否
'参 数：ckFilename ---- 被测试的文件名（包括路径）
'返回值：文件存在返回True,否则False
'**************************************************
Publ...
-
[2006-08-15] 删除某个文件
'函数名：DelFile
'作 用：删除某个文件
'参 数：dFilename ---- 被删除的文件名（包括路径）
'返回值：文件删除返回True,否则False
'**************************************************
Public Functi...
-
[2006-08-15] 判断目录是否存在
'函数名：CheckDir
'作 用：判断目录是否存在
'参 数：ckDirname ---- 目录名（包括路径）
'返回值：目录存在返回True,否则False
'**************************************************
Public Function ...
-
[2006-08-15] 创建目录
'函数名：CreateDir
'作 用：创建目录
'参 数：crDirname ---- 目录名（包括路径）
'返回值：目录创建成功返回True,否则False
'**************************************************
Public Function Cre...
-
[2006-08-15] 删除目录
'函数名：DelDir
'作 用：删除目录
'参 数：DlDirname ---- 目录名（包括路径）
'返回值：目录删除成功返回True,否则False
'**************************************************
Public Function DelDir...
-
[2006-08-15] 指定目录的文件列表
'函数名：ListFiles
'作 用：指定目录的文件列表
'参 数：Dirname ---- 目录名（包括路径）
'返回值：文件列表字符串，之间用“|”相隔
'**************************************************
Public Fun...
-
[2006-08-15] 指定目录的目录列表
'函数名：ListDirs
'作 用：指定目录的目录列表
'参 数：Dirname ---- 目录名（包括路径）
'返回值：目录列表字符串，之间用“|”相隔
'**************************************************
Public Func...
-
[2006-08-15] 创建文本文件
'函数名：WritTextFile
'作 用：创建文本文件
'参 数：Fname ---- 文本文件名称（包括路径）
'参 数：WritString ---- 写入的内容
'返回值：创建成功返回True，否则False
'**********************...
-
[2006-08-15] 读取文本文件
'函数名：ReadTextFile
'作 用：读取文本文件
'参 数：Fname ---- 文本文件名称（包括路径）
'返回值：返回读取的文本内容
'**************************************************
Public Function ReadTe...
-
[2006-08-15] 检测ID是否为数字类型
'函数名：JCID
'作 用：检测ID是否为数字类型
'参 数：ParaValue ---- 被检测的ID值
'返回值：返回ID值，如果不为数字类型返回0
'**************************************************
Public Function JC...
-
[2006-08-15] 正则表达式测试
'函数名：CheckExp
'作 用：正则表达式测试
'参 数：patrn ---- 正则表达式
'参 数：strng ---- 要测试的字符串
'返回值：测试如果成立返回 True 否则 False
'例 CheckExp("(\
-
[2006-08-15] 获得执行程序的名称
'函数名：GT_the_proname
'作 用：获得执行程序的名称
'参 数：
'返回值：返回执行程序的名称
'**************************************************
Public Function GT_the_proname()
Dim fu_name,temp,...
-
[2006-08-15] 读取用户IP地址信息
'函数名：Readusip
'作 用：读取用户IP地址信息
'参 数：
'返回值：返回用户IP地址
'**************************************************
Public Function Readusip()
Dim strIPAddr
If Request.ServerVa...
-
[2006-08-15] 无组件上传文件到指定目录并改文件名称
'函数名：UpFsRn
'作 用：无组件上传文件到指定目录并更改文件名称
'参 数：RetSize--- 上传限止大小（单位是M）
'参 数：Fdir ---- 目标路径
'参 数：Objwj ---- 目标文件名称
'返回值：如果成功 True...
-
[2006-08-15] 过滤HTML脚本
'函数名：FilterJS
'作 用：过滤HTML脚本
'参 数：strHTML ---- 被检测的HTML字串
'返回值：返回过滤后的HTML
'**************************************************
Function FilterJS(ByVal strHTML)
Di...
-
[2006-08-15] 创建MsAccess数据库
'函数名：CrDb_MsAccess
'作 用：创建MsAccess数据库
'参 数：DbPath ---- 目标目录信息
'参 数：DbFileName ---- 目标库文件名称
'参 数：DbUpwd ---- 目标库打开密码
'返回值：建立成功返回 T...
-
[2006-08-15] 创建MsSQLServer数据库
'函数名：CrDb_MsSQLServer
'作 用：创建MsSQLServer数据库
'参 数：DbIp ---- 数据库所在IP或主机名称
'参 数：DbSamc ---- 数据库超管用户名称
'参 数：DbSapwd---- 数据库超管用户口令
'参 数：Db...
-
[2006-08-15] 通过JMAIL发信
'函数名：MSMail
'作 用：通过JMAIL发信
'参 数：subject ---- 邮件的标题
'参 数：mailaddress ---- 邮件服务器地址
'参 数：senderName ---- 发件人名称
'参 数：email ---- 收件人E-...
