PDA

View Full Version : Code cho các bạn Admin MUOnline



YeuVo_ThuongCon
11-11-08, 05:25 PM
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
16-11-08, 05:57 PM
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
16-11-08, 06:27 PM
khá là hay ! ai chuyển code này qua php được thì tốt quá !

pinponls
15-08-10, 02:17 PM
Bác nào có cả bộ MU ss5 full+web không cho em xin cái. Đang cần gấp !

7ig3r
25-08-10, 08:40 PM
Mu SS5 và web làm sẵn à. Hay sao