Share toàn bộ Kho web ( Mu Bá Vương)

[onetheside123]

ai làm hướng dẫn cài Web MU Thang Long được không? mình thấy cái Skin đẹp quá

cơm mà mà ko biết ăn thì cũng thành bạn à
các web là dành cho pro thôi
bạn chưa biết cả cách cài thì tốt nhất xài các web có hướng dẫn ngoài kia
không người làm ra web người ta bùn đấy
đã nấu cơm rồi mà bắt ng ta bón cho nữa thì .....

[gackiem4]

mình không biết thì hỏi ai giúp được thì thank mấy Web kia mình cài rồi lỗi không àh cài thử cái web nbb thì chẳng biết pass code là gì giờ thấy cái này thì không có hướng dẫn
bạn biết thì hướng dẫn cho mình đi

[gackiem4]

a/e nào hướng dẫn mình cài Web MU Thăng Long được không

[gackiem4]

ai có Query mấy Web trên Share cho mình với

[Mr.Quy]

với file Sec_Connect.asp của web MuThangLong hôm nọ mình share
thử cái củ ở dưới này vào xem đc ko nhóe
Còn data thì xem có phải là nằm ở trong folder MuThangLong\trangchu\Images\ohlala.jpge <=== ohlala.jpge ấy
còn không thì có cái data riêng của nó chạy chung với MuOnline này
mediafire.com/?1mhjyyzwyan
------------
Ai biết làm GG hay anti hack cho main chỉ em với nick ko.bietchat
dạo này khoái Mu rồi

<div style="text-align:center">
<%
'### Datetime
Function DateTimeNum(ByVal strElement)
    Dim strDateElement
    Select Case strElement
        Case "Nam"
            strDateElement = CInt(Year(Now()))
        Case "Thang"
            strDateElement = CInt(Month(Now()))
        Case "Ngay"
            strDateElement = CInt(Day(Now()))
        Case "Gio"
            strDateElement = CInt(Hour(Now()))
        Case "Phut"
            strDateElement = CInt(Minute(Now()))
        Case "Giay"
            strDateElement = CInt(Second(Now()))
    End Select    
    If strDateElement < 10 then strDateElement = "0" & strDateElement    
    DateTimeNum = strDateElement
End Function
'###Ham chong an phim F5 lien tuc
private function GC_ChapTime(intSecond)
    Dim valTimeNow, valChapTime
    valChapTime = Session("ChapTime")
    IF valChapTime = "" THEN
        valChapTime = 0
        Session("ChapTime") = 0
    END IF
    a = time
    valTimeNow = Minute(Time)*60 + Second(Time)
    IF valChapTime+intSecond > valTimeNow THEN
        Session("ChapTime") = valTimeNow
        Response.Write("<fieldset><legend>Chống Dos</legend>Tốc độ click chuột của bạn nhanh hơn vận tốc ánh sáng,<br />hay bạn đang muốn thử một phép lạ?</fieldset>")
        Response.End()
    ELSE
        Session("ChapTime") = valTimeNow
    END IF
end function
'###Format Input data
private function formatchar(byval str)
    str = replace(str, "'", "", 1, -1, 1)
    str = replace(str,"""", "", 1, -1, 1)
    str = replace(str, "<", "&lt;", 1, -1, 1)
    str = replace(str, ">", "&gt;", 1, -1, 1)
    str = replace(str, "[", "&#091;", 1, -1, 1)
    str = replace(str, "]", "&#093;", 1, -1, 1)
    str = replace(str, "=", "", 1, -1, 1)
    str = replace(str, "select", "sel&#101;ct", 1, -1, 1)
    str = replace(str, "join", "jo&#105;n", 1, -1, 1)
    str = replace(str, "union", "un&#105;on", 1, -1, 1)
    str = replace(str, "where", "wh&#101;re", 1, -1, 1)
    str = replace(str, "insert", "ins&#101;rt", 1, -1, 1)
    str = replace(str, "delete", "del&#101;te", 1, -1, 1)
    str = replace(str, "update", "up&#100;ate", 1, -1, 1)
    str = replace(str, "like", "lik&#101;", 1, -1, 1)
    str = replace(str, "drop", "dro&#112;", 1, -1, 1)
    str = replace(str, "create", "cr&#101;ate", 1, -1, 1)
    str = replace(str, "modify", "mod&#105;fy", 1, -1, 1)
    str = replace(str, "rename", "ren&#097;me", 1, -1, 1)
    str = replace(str, "alter", "alt&#101;r", 1, -1, 1)
    str = replace(str, "cast", "ca&#115;t", 1, -1, 1)
formatchar = str
end function
'###Value Connect
dim connstr,conn
dim strUserName,lgVipUser,valVip,valExp,valCoin
'###Connect ODBC
on error resume next
connstr = "driver={sql server};server=mucnc.hopto.org,6565;uid=sa;pwd=whoisthekingmucnc;database=MuOnline"
set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
IF err.number<>0 THEN
    Set conn = Nothing
        Response.Write("<fieldset><legend>Phát hiện lỗi</legend><center><b><i>Server đang trong quá trình bảo trì<br />Mới các bạn quay lại sau</b></i></center></fieldset>")
    Response.End()
END IF
'###Check Login Session
IF Session("User") <> "" THEN
    strUserName = formatchar(Session("User"))
    lgVipUser = false
    Set adoRec = server.createobject("adodb.recordset")
    '###Get Account Info
    ssql="select * from MEMB_INFO where memb___id = '"& strUserName &"'"
    adoRec.open ssql,conn,1,1
    if not adoRec.eof then
        valVip = adoRec("gc_vip")
        valExp = adoRec("gc_exp")
        valCoin = adoRec("gc_coin")
        adoRec.close
        Set adoRec = Nothing
        Response.Cookies("Coin") = valCoin
        if valVip = 9 then
            if valExp > now() then    'kiem tra thoi han hieu luc cua vip
                lgVipUser = true
                Session("VipUser") = true
            else
                lgVipUser = false
                Session("VipUser") = false
            end if
        else
            lgVipUser = false
            Session("VipUser") = false
        end if
    end if
    adoRec.close
END IF
Set adoRec = nothing
'####Guild
Public Function LogoGuild(Byval strhex, na)
        ketqua = ketqua & ""
        For r = 1 To 64
            ketqua = ketqua & "<img src=Images/Colour/" & Mid(strhex, r, 1) & ".gif id=toadoz"& r &" >"
            If ((r Mod 8) = 0) And (r < 64) Then
                ketqua = ketqua & "<br />"
            ElseIf (r = 64) Then
                ketqua = ketqua & ""
            End If
        Next
        ketqua = ketqua 
        LogoGuild = ketqua &""
    End Function
Public Function LogoGuildTo(Byval strhex, na)
        ketquaTo = ketquaTo & ""
        For r = 1 To 64
            ketquaTo = ketquaTo & "<img src=Images/Colour/" & Mid(strhex, r, 1) & ".gif id=toadoz"& r &" width=15 height=15>"
            If ((r Mod 8) = 0) And (r < 64) Then
                ketquaTo = ketquaTo & "<br />"
            ElseIf (r = 64) Then
                ketquaTo = ketquaTo & ""
            End If
        Next
        ketquaTo = ketquaTo 
        LogoGuildTo = ketquaTo &""
    End Function    
Public Function Hex2Color(Byval strhex)
    if (strhex = "0") then Hex2Color = "#660066"
    if (strhex = "1") then Hex2Color = "#000000"
    if (strhex = "2") then Hex2Color = "#8c8a8d"
    if (strhex = "3") then Hex2Color = "#FFFFFF"
    if (strhex = "4") then Hex2Color = "#fe0000"
    if (strhex = "5") then Hex2Color = "#ff8a00"
    if (strhex = "6") then Hex2Color = "#ffff00"
    if (strhex = "7") then Hex2Color = "#8cff01"
    if (strhex = "8") then Hex2Color = "#00ff00"
    if (strhex = "9") then Hex2Color = "#01ff8d"
    if (strhex = "a" or strhex = "A") then Hex2Color = "#00ffff"
    if (strhex = "b" or strhex = "B") then Hex2Color = "#008aff"
    if (strhex = "c" or strhex = "C") then Hex2Color = "#0000fe"
    if (strhex = "d" or strhex = "D") then Hex2Color = "#8c00ff"
    if (strhex = "e" or strhex = "E") then Hex2Color = "#ff00fe"
    if (strhex = "f" or strhex = "F") then Hex2Color = "#ff008c"
End Function
Public Function Color2Hex(Byval strcolor)
    if (strcolor = "#660066") then
     Color2Hex = "0"
    elseif (strcolor = "#000000") then
     Color2Hex = "1"
    elseif (strcolor = "#8c8a8d") then
     Color2Hex = "2"
    elseif (strcolor = "#ffffff") then
     Color2Hex = "3"
    elseif (strcolor = "#fe0000") then
     Color2Hex = "4"
    elseif (strcolor = "#ff8a00") then
     Color2Hex = "5"
    elseif (strcolor = "#ffff00") then
     Color2Hex = "6"
    elseif (strcolor = "#8cff01") then
     Color2Hex = "7"
    elseif (strcolor = "#00ff00") then
     Color2Hex = "8"
    elseif (strcolor = "#01ff8d") then
     Color2Hex = "9"
    elseif (strcolor = "#00ffff") then
     Color2Hex = "A"
    elseif (strcolor = "#008aff") then
     Color2Hex = "B"
    elseif (strcolor = "#0000fe") then
     Color2Hex = "C"
    elseif (strcolor = "#8c00ff") then
     Color2Hex = "D"
    elseif (strcolor = "#ff00fe") then
     Color2Hex = "E"
    elseif (strcolor = "#ff008c") then
     Color2Hex = "F"
    else
     Color2Hex = "False"
    end if
End Function
%>
</div>