Code cho các bạn Admin MUOnline

[YeuVo_ThuongCon]

Hiện tại mình thấy DSL của Việt nam cứ mỗi lần đến Blood hay devil là lại lag
cho nên mình hướng dẫn các bạn 1 cách tuy cũng giảm được một phần nào cho server của các bạn
Chú ý đây là code asp đó nha :

Đầu tiên các bạn mở file connect của các bạn nên ( ví dụ file connect của tôi có nội dung như sau:

'###Connect ODBC
dim connstr,conn
on error resume next
connstr = "driver={sql server};server=10.0.0.200;uid=sa;pwd=muhehe;databa se=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

Thì các bạn sử lại như sau :

'### Dinh dang ngay thang nam
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
IF DateTimeNum("Phut") = 30 or DateTimeNum("Phut") = 31 or DateTimeNum("Phut") = 32 or DateTimeNum("Phut") = 33 or DateTimeNum("Phut") = 34 or DateTimeNum("Phut") = 35 or DateTimeNum("Phut") = 36 or DateTimeNum("Phut") = 37 or DateTimeNum("Phut") = 38 or DateTimeNum("Phut") = 39 or DateTimeNum("Phut") = 40 or DateTimeNum("Phut") = 41 or DateTimeNum("Phut") = 42 or DateTimeNum("Phut") = 43 or DateTimeNum("Phut") = 44 or DateTimeNum("Phut") = 45 THEN
Response.Write("<fieldset><legend>Thành thật xin lỗi</legend><center><b><i>Hiện tại server đang diên ra các sự kiện của MU<br /> Cho nên các bạn vui long quay lại sau it phút nữa<br />Các bạn hãy tắt web và quay lại sau nhé</b></i></center></fieldset>")
Response.End()
ELSE
'###Connect ODBC
dim connstr,conn
on error resume next
connstr = "driver={sql server};server=10.0.0.200;uid=sa;pwd=muhehe;databa se=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

Vaayj là từ giờ cứ mỗi lần di blood hay devil thì web sẽ off trong 15 phút hết giờ thì nó sẽ tự đông vào được web

[huyhaf]

Cảm ơn anh Hà, cũng hay nhưng có điều bất tiện cho những ai trong lúc đó muốn rs thì sao ? ^^

[mylove0707]

khá là hay ! ai chuyển code này qua php được thì tốt quá !

[pinponls]

Bác nào có cả bộ MU ss5 full+web không cho em xin cái. Đang cần gấp !

[7ig3r]

Mu SS5 và web làm sẵn à. Hay sao