class_sys.asp

本息统基于中国网站技术人员最熟悉WindowsNT环境和Asp语言

                        End If
                    Next
                End If
                strTemp = strTemp & rsClass("classname")
                strTemp = strTemp & "</option>"
                show_class = show_class & strTemp
                rsClass.movenext
            Loop
        End If
        rsClass.Close
        Set rsClass = Nothing
    End Function
    Public Sub adderrstr(message)
        If errstr = "" Then
            errstr = message
        Else
            errstr = errstr & "_" & message
        End If
    End Sub
    Public Sub showerr()
        If errstr <> "" Then response.redirect "err.asp?message=" & errstr
    End Sub
    Public Sub showusererr()
        If errstr <> "" Then response.redirect "user_prompt.asp?message=" & errstr
    End Sub
    Public Sub SaveCookie(username, password, CookieDate, userurl)
        If cookies_domain <> "" Then
            response.Cookies(cookies_name).domain = cookies_domain
        End If
        response.Cookies(cookies_name)("username") = CodeCookie(username)
        response.Cookies(cookies_name)("password") = CodeCookie(password)
        If userurl = "" Or userurl = "." Then userurl = " "
        response.Cookies(cookies_name)("userurl") = CodeCookie(userurl)
        Select Case CookieDate
            Case 0
                'not save
            Case 1
                response.Cookies(cookies_name).Expires = Date + 1
            Case 2
                response.Cookies(cookies_name).Expires = Date + 31
            Case 3
                response.Cookies(cookies_name).Expires = Date + 365
        End Select
    End Sub
    Public Sub ob_chklogin(username, password, CookieDate)
        Dim rs, sql, userurl
        If Not IsObject(conn) Then link_database
        Set rs = server.CreateObject("adodb.recordset")
        sql = "select * from [oblog_user] where username='" & username & "' and password ='" & password & "'"
        rs.Open sql, conn, 1, 3
        If rs.bof And rs.EOF Then
            rs.Close: Set rs = Nothing
            adderrstr ("用户名或密码错误，请重新输入！"): showerr
            Exit Sub
        Else
            If rs("lockuser") = 1 Then
                rs.Close: Set rs = Nothing
                adderrstr ("对不起！你的ID已被锁定，不能登陆！"): showerr
                Exit Sub
            Else
                rs("LastLoginIP") = oblog.userip
                rs("LastLoginTime") = ServerDate(Now())
                rs("LoginTimes") = rs("LoginTimes") + 1
                If Trim(oblog.setup(4, 0)) <> "" And oblog.setup(12, 0) = 1 Then
                    '启用二级域名
                    userurl = Trim(rs("user_domain")) & "." & Trim(rs("user_domainroot"))
                Else
                    '未启用二级域名则从根目录开始访问，不包含域名
                    'userurl= trim(oblog.setup(3,0)) & trim(rs("user_dir")) & "/" & trim(rs("userid")) & "/index." & f_ext
                    userurl = blogdir & Trim(rs("user_dir")) & "/" & Trim(rs("user_folder")) & "/index." & f_ext
                End If
                rs.Update
                SaveCookie username, password, CookieDate, userurl
                rs.Close: Set rs = Nothing
            End If
        End If
    End Sub
    Public Sub ot_chklogin(username, password, CookieDate)
        Dim sql, rs, rsreg
        If Not IsObject(ot_conn) Then link_database
        sql = "select * from " & ot_usertable & " where " & ot_username & "='" & username & "' and " & ot_password & " ='" & password & "'"
        Set rs = ot_conn.execute(sql)
        If rs.bof And rs.EOF Then
            Set rs = Nothing
            If IsObject(ot_conn) Then ot_conn.Close: Set ot_conn = Nothing
            oblog.adderrstr ("用户名或密码错误，请重新输入！"): oblog.showerr
            Exit Sub
        Else
            Set rsreg = server.CreateObject("adodb.recordset")
            rsreg.Open "select * from [oblog_user] where username='" & username & "'", conn, 1, 3
            If rsreg.EOF Then
                Dim reguserlevel
                If oblog.setup(16, 0) = 1 Then reguserlevel = 6 Else reguserlevel = 7
                Set rsreg = server.CreateObject("adodb.recordset")
                rsreg.Open "select top 1 * from [oblog_user]", conn, 1, 3
                rsreg.addnew
                rsreg("username") = username
                rsreg("password") = "othertable"
                rsreg("user_dir") = oblog.setup(30, 0)
                rsreg("user_level") = reguserlevel
                rsreg("lockuser") = 0
                rsreg("en_blogteam") = 1
                rsreg("adddate") = ServerDate(Now())
                rsreg.Update
				oblog.execute("update oblog_user set user_folder=userid where username='"&username&"'")
                oblog.execute ("update oblog_setup set user_count=user_count+1")
                rsreg.Close
                Set rsreg = Nothing
                oblog.SaveCookie username, password, 0, " "
                oblog.CreateUserDir username, 1
                Set rs = Nothing
                oblog.showok "您是第一次激活blog系统，请完善blog资料!", "user_setting.asp"
                response.End()
            Else
                rsreg("LastLoginIP") = request.ServerVariables("REMOTE_ADDR")
                rsreg("LastLoginTime") = ServerDate(Now())
                rsreg("LoginTimes") = rsreg("LoginTimes") + 1
                rsreg.Update
            End If
            rsreg.Close
            Set rsreg = Nothing
            Set rs = Nothing
            If IsObject(ot_conn) Then ot_conn.Close: Set ot_conn = Nothing
            oblog.SaveCookie username, password, CookieDate, ""
        End If
    End Sub
    Public Function CheckUserLogined()
        Dim Logined, rsLogin, sqlLogin, ssql, strdomain
        Logined = True
        logined_uname = filt_badstr(DecodeCookie(request.Cookies(cookies_name)("UserName")))
        logined_upass = filt_badstr(DecodeCookie(request.Cookies(cookies_name)("Password")))
        If logined_uname = "" Then
            Logined = False
        End If
        If logined_upass = "" Then
            Logined = False
        End If
        ssql = "userid,user_level,user_showlogword_num,user_upfiles_max,user_upfiles_size,user_dir,isubbedit,user_domain,user_domainroot,lockuser,user_folder"
        If Logined = True Then
            If is_ot_user = 1 Then
                link_database
                sqlLogin = "select * from " & ot_usertable & " where " & ot_username & "='" & logined_uname & "' and " & ot_password & "='" & logined_upass & "'"
                Set rsLogin = ot_conn.execute(sqlLogin)
            Else
                sqlLogin = "select " & ssql & " from [oblog_user] where lockuser=0 and Username='" & logined_uname & "' and Password='" & logined_upass & "'"
                Set rsLogin = execute(sqlLogin)
            End If
            If rsLogin.bof And rsLogin.EOF Then
                Logined = False
            Else
                If is_ot_user = 1 Then
                    Set rsLogin = execute("select " & ssql & " from [oblog_user] where username='" & logined_uname & "'")
                End If
                If Not rsLogin.EOF Then
                    If rsLogin(9) = 1 Then
                        Set rsLogin = Nothing
                        oblog.adderrstr ("当前用户已被系统锁定，无法进行操作，请联系管理员！")
                        oblog.showerr
                    End If
                    logined_uid = rsLogin(0)
                    logined_ulevel = rsLogin(1)
                    logined_ushowlogword = rsLogin(2)
                    logined_uupfilemax = rsLogin(3)
                    logined_uupfilesize = rsLogin(4)
                    logined_udir = rsLogin(5)
                    logined_isubb = rsLogin(6)
                    logined_udomain = rsLogin(7) & "." & rsLogin(8)
                    logined_ufolder = rsLogin(10)
                Else
                    Dim reguserlevel
                    If oblog.setup(16, 0) = 1 Then reguserlevel = 6 Else reguserlevel = 7
                    Dim rsreg
                    Set rsreg = server.CreateObject("adodb.recordset")
                    rsreg.Open "select top 1 * from [oblog_user]", conn, 1, 3
                    rsreg.addnew
                    rsreg("username") = logined_uname
                    rsreg("password") = "othertable"
                    rsreg("user_dir") = oblog.setup(30, 0)
                    rsreg("user_level") = reguserlevel
                    rsreg("lockuser") = 0
                    rsreg("en_blogteam") = 1
                    rsreg("adddate") = ServerDate(Now())
                    rsreg.Update
					oblog.execute("update oblog_user set user_folder=userid where username='"&logined_uname&"'")
                    execute ("update oblog_setup set user_count=user_count+1")
                    rsreg.Close
                    Set rsreg = Nothing
                    SaveCookie logined_uname, logined_upass, 0, " "
                    logined_ulevel = reguserlevel
                    oblog.CreateUserDir logined_uname, 1
                    Set rsLogin = Nothing
                    oblog.showok "您是第一次激活blog系统，请完善blog资料!", "user_setting.asp"
                    response.End()
                End If
            End If
            Set rsLogin = Nothing
        End If
        CheckUserLogined = Logined
    End Function
    Public Sub CreateUserDir(ustr, action)
        Dim fso, sql, rs, udir, uid, upath, loginstr, searchstr, bname, ufolder
        sql = "select userid,user_dir,blogname,user_folder from oblog_user where "
        If action = 0 Then sql = sql & "userid=" & CLng(ustr) Else sql = sql & "username='" & filt_badstr(ustr) & "'"
        Set rs = execute(sql)
        If Not rs.EOF Then
            udir = rs(1)
            uid = rs(0)
            bname = rs(2)
            ufolder = rs(3)
            If bname = "" Or IsNull(bname) Then bname = " "
            searchstr = "<form name='search' method='post' action='" & blogdir & "list.asp?userid=" & uid & "' target=""_blank"">"
            searchstr = searchstr & "<select name='selecttype' id='selecttype'>"
            searchstr = searchstr & "<option value='topic' selected>日志标题</option>"
            searchstr = searchstr & "<option value='logtext'>日志内容</option></select><br />"
            searchstr = searchstr & "<input name='keyword' type='text' id='keyword' size='16' maxlength='40'>"
            searchstr = searchstr & " <input type='submit' name='Submit' value='搜索'></form>"
            upath = server.MapPath(udir)
            Set fso = server.CreateObject("scripting.filesystemobject")
            If fso.FolderExists(upath) = False Then fso.CreateFolder (upath)
            upath = server.MapPath(blogdir & udir & "/" & ufolder)
            If fso.FolderExists(upath) = False Then fso.CreateFolder (upath)
            Call oblog.BuildFile(upath & "/index." & f_ext, "暂无日志,请发表日志或者更新首页!")
            Call oblog.BuildFile(upath & "/message." & f_ext, "暂无留言,请更新发布留言板!")
            Call oblog.BuildFile(upath & "/photo." & f_ext, "暂无相册,请添加相片或更新发布相册首页!")
            upath = server.MapPath(blogdir & udir & "/" & ufolder & "/calendar")
            If fso.FolderExists(upath) = False Then fso.CreateFolder (upath)
            If f_ext = "htm" Or f_ext = "html" Then
                Call oblog.BuildFile(upath & "/0.htm", oblog.htm2js_div(" ", "calendar"))
            Else
                Call oblog.BuildFile(upath & "/0.htm", " ")
            End If
            upath = server.MapPath(blogdir & udir & "/" & ufolder & "/inc")
            If fso.FolderExists(upath) = False Then fso.CreateFolder (upath)
            If f_ext = "htm" Or f_ext = "html" Then
                Call oblog.BuildFile(upath & "/show_blogname.htm", oblog.htm2js_div(filt_html(bname), "blogname"))
                Call oblog.BuildFile(upath & "/show_placard.htm", oblog.htm2js_div(" ", "placard"))
                Call oblog.BuildFile(upath & "/show_subject.htm", oblog.htm2js_div(" ", "subject"))
                Call oblog.BuildFile(upath & "/show_newblog.htm", oblog.htm2js_div(" ", "newblog"))
                Call oblog.BuildFile(upath & "/show_comment.htm", oblog.htm2js_div(" ", "comment"))
                Call oblog.BuildFile(upath & "/show_links.htm", oblog.htm2js_div(" ", "links"))
                Call oblog.BuildFile(upath & "/show_info.htm", oblog.htm2js_div(" ", "info"))
                Call oblog.BuildFile(upath & "/show_search.htm", oblog.htm2js_div(searchstr, "search"))
                Call oblog.BuildFile(upath & "/show_newmessage.htm", oblog.htm2js_div("<a href=""" & blogdir & udir & "/" & ufolder & "/message." & f_ext & "#cmt"">::签写留言::</a> ", "newmessage"))
            Else
                Call oblog.BuildFile(upath & "/show_blogname.htm", filt_html(bname))
                Call oblog.BuildFile(upath & "/show_placard.htm", " ")
                Call oblog.BuildFile(upath & "/show_subject.htm", " ")
                Call oblog.BuildFile(upath & "/show_newblog.htm", " ")
                Call oblog.BuildFile(upath & "/show_comment.htm", " ")
                Call oblog.BuildFile(upath & "/show_links.htm", " ")
                Call oblog.BuildFile(upath & "/show_info.htm", " ")
                Call oblog.BuildFile(upath & "/show_search.htm", searchstr)
                Call oblog.BuildFile(upath & "/show_newmessage.htm", "<a href=""" & blogdir & udir & "/" & ufolder & "/message." & f_ext & "#cmt"">::签写留言::</a> ")
            End If
			if logfilepath=1 then
				upath = server.MapPath(blogdir & udir & "/" & ufolder & "/archives")
				If fso.FolderExists(upath) = False Then fso.CreateFolder (upath)
			end if
            Set fso = Nothing
            Set rs = Nothing
        Else
            Set rs = Nothing
            response.Write ("没找到该用户，无法建立目录。")
            Exit Sub