ASP常用函数收藏乱七八糟未整理版(71)

    GenSerialString = GenSerialString & GenPassword(6, "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")
End Function


'===================================================================================
' 函数原型：ChangePage(URLTemplete,PageIndex)
'功能：根据URL模板生成新的页面URL
'参数：URLTempleteURL模板
' PageIndex新的页码
'返 回 值：生成的URL
'涉及的表：无
'===================================================================================

Public Function ChangePage(URLTemplete, PageIndex)
    ChangePage = SetQueryString(URLTemplete, "PAGE", PageIndex)
End Function

'===================================================================================
' 函数原型：BuildPath(sPath)
'功能：根据指定的路径创建目录
'参数：sPathURL模板
'返 回 值：如果成功，返回空字符串，否则返回错误信息和错误位置
'涉及的表：无
'===================================================================================

Public Function BuildPath (sPath)
    Dim iCnt
    Dim Path
    Dim BasePath
    Path = Split(sPath, "/")
    If Left(sPath, 1) = "/" or Left(sPath, 1) = "\" Then
        BasePath = Server.MapPath("/")
    Else
        BasePath = Server.MapPath(".")
    End If
    Dim cPath, oFso
    cPath = BasePath
    BuildPath = ""
    Set oFso = Server.CreateObject("Scripting.FileSystemObject")
    For iCnt = LBound(Path) To UBound(Path)
        If Trim(Path(iCnt))<>"" Then
            cPath = cPath & "\" & Trim(Path(iCnt))
            If Not oFso.FolderExists(cPath) Then
                On Error Resume Next
                oFso.CreateFolder cPath
                If Err.Number<>0 Then
                    BuildPath = Err.Description & "[" & cPath & "]"