程序人生

asp实现检查目录是否存在与建立目录的函数

'------------------------- '--检查目录是否存在 '---------------------- FunctionCheckDir(byvalFolderPath) dimfso Setfso=Server.CreateObject("Scripting.FileSystemObject") Iffso.FolderExists(Server.MapPath(folderpath))then '存在 Check...

程序人生

ASPWebPack 代码 提供下载

复制代码 代码如下: dimpwd pwd=inputbox("请输入新密码:","更改密码","yulv.net") ifpwd""then pwd=PwdConv(pwd) inputbox"您的新密码编码是:"nbsp;vbcrlfnbsp;"请将新的编码替换到程序中的密码项!","密码编码...

程序人生

asp之自动闭合HTML/ubb标签函数附简单注释

Function closeUBB(strContent) '************************************* '自动闭合UBB '************************************* Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match Set re = New RegExp '申明re对象 re.IgnoreCase = True...

程序人生

asp 过滤尖括号内所有内容的正则代码

当然这应该属于正常过滤手法,而还有一种过滤HTML标签的最终极手法,则是将一对尖括号及尖括号中的所有字符均替换不显示,该方法对于内容中必须描述有关尖括号内容过滤过头了。...