<!-- #INCLUDE VIRTUAL="/lib/sys.asp" -->
<!-- #INCLUDE VIRTUAL="/lib/db2.asp" -->
<!-- #INCLUDE VIRTUAL="/lib/var.asp" -->
<!-- #INCLUDE VIRTUAL="/lib/date.asp" -->
<!-- #INCLUDE VIRTUAL="/lib/table.asp" -->
<!-- #INCLUDE VIRTUAL="/skin.asp" -->
<%
SUB DetectLogin
	IF Application("Site.Web.Active") = 0 THEN	Response.Redirect "/noService.asp"
END SUB

SUB StartDoc(s)
	OpenDoc s
	GXXOpen
	GXX "--- Menu ---", ""
	GXX "Home", "/"
	GXX "Register", "memberSignup.asp"
	'GXX "Password%%忘记密码%%암호%%パスワード", "forgotPasswordForm.asp"
	GXX "Login", "memberLogin.asp"
	'GXX "Promotion", "promotion.asp"
	'GXX "Products", "products.asp"
	'GXX "Updates", "calendar.asp"
	'GXX "Chats", "mChats.asp"
	'GXX "Contact", "contactus.asp"
	'GXX "Sign Up", "memberSignup.asp"
	'GXX "Login", "memberLogin.asp"
	'GXX "Password", "forgotpasswordForm.asp"
	'GXX "- - - - - -", ""
	'GXX "English", "/setlang.asp?l=1"
	'GXX "中文", "/setlang.asp?l=2"
	'GXX "한국어", "/setlang.asp?l=3"
	'GXX "日語", "/setlang.asp?l=4"
	GXXClose s
	'Print "<tr><td class=dxct bgcolor=white><table cellpadding=10 cellspacing=0 height=95% border=0><tr><td class=DXCT>"
	'PrintTitle s
	'Print "<img src='/image/invisible.gif' width=600 height=1 border=0><br>"
END SUB

SUB PLX(name, brief, url)
	Print "<li><a href='" & url & "'>" & LZ(name) & "</a><br>" & LZ(brief) & "<br><br>"
END SUB
FUNCTION SPX(px)
	SPX = " BETWEEN " & px & "01 AND " & px & "31 "
END FUNCTION

FUNCTION XA(n)
	IF n = 0 THEN
		XA = "-"
	ELSE
		XA = FORMATNUMBER(n)
	END IF
END FUNCTION
FUNCTION XN(n)
	IF n = 0 THEN
		XN = "-"
	ELSE
		XN = FORMATNUMBER(n, 0)
	END IF
END FUNCTION
FUNCTION XP(n)
	IF n = 0 THEN
		XP = "-"
	ELSE
		XP = FORMATNUMBER(n, 3)
	END IF
END FUNCTION

SUB WriteLog(x)
	DIM r, a
	a = Sys_GetVal(Session("Admin.ID"))
	IF a = 0 THEN	a = 1
	SET r = db.LockRs
	r.Add "ALogs"
	r("AdminID") = a
	r("ADate") = NOW
	r("DX") = YEAR(DATE) * 10000 + MONTH(DATE) * 100 + DAY(DATE)
	r("PX") = YEAR(DATE) * 100 + MONTH(DATE)
	r("Brief") = x
	r.Update
	r.Close
	db.UnlockRs r
END SUB
SUB WriteMMsg(m, s)
END SUB
%>