<!-- #Include File="../Include/Skin.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Index_Url="help"
tit_fir="帮助中心"

Select Case Lcase(Action)
Case "register"
	tit="注册说明"
Case "put"
	tit="发布信息"
Case "mail"
	tit="站内短信"
Case "bbs"
	tit="论坛帮助"
Case "level"
	tit="论坛等级"
Case "ubb"
	tit="UBB语法"
Case "link"
	tit="联系我们"
Case "payment"
	tit="付款说明"
Case else
	tit="网站介绍"
End Select

Call DoWebHead(0,0)
Select Case Lcase(Action)
Case "register"
	Help_Register()
Case "put"
	Help_Put()
Case "mail"
	Help_Mail()
Case "bbs"
	Help_Bbs()
Case "level"
	Help_level()
Case "ubb"
	Help_UBB()
Case "link"
	Help_Link()
Case "payment"
	Help_Payment()
Case else
	Help_Main()
End Select
'----------------------------中间 结束----------------------------
Call DoWebEnd()

Sub Help_Main()
    Cls.ReadPage "help_main"
	Cls.HtmlRcod "tit",tit
	Cls.HtmlRcod "m_help2",img_skin("m_help2")
	Cls.OutPage
End Sub

Sub Help_Link()
    Cls.ReadPage "Help_Link"
	Cls.HtmlRcod "tit",tit
	Cls.HtmlRcod "m_help2",img_skin("m_help2")
	Cls.OutPage
End Sub

Sub Help_Payment()
    Cls.ReadPage "Help_Payment"
	Cls.HtmlRcod "tit",tit
	Cls.HtmlRcod "m_help2",img_skin("m_help2")
	Cls.OutPage
End Sub

Sub Help_Register()
    Cls.ReadPage "Help_Register"
	Cls.HtmlRcod "tit",tit
	Cls.HtmlRcod "m_help2",img_skin("m_help2")
	Cls.OutPage
End Sub

Sub Help_Put()
    Cls.ReadPage "Help_Put"
	Cls.HtmlRcod "tit",tit
	Cls.HtmlRcod "m_help2",img_skin("m_help2")
	Cls.OutPage
End Sub

Sub Help_Mail()
    Cls.ReadPage "help_mail"
	Cls.HtmlRcod "tit",tit
	Cls.HtmlRcod "m_help2",img_skin("m_help2")
	Cls.OutPage
End Sub

Sub Help_Bbs()
    Cls.ReadPage "help_bbs"
	Dim UserPut,UserLevelName,tmp1
	UserPut = Split(Cls.Web_UserLevel(0),",")
	UserLevelName = Split(Cls.Web_UserLevel(1),",")
	For i = 0 To Ubound(UserPut)-1
		tmp1=tmp1&"<tr align=center height=25><td>"&UserLevelName(i)&"</td><td><img src='"&Cls.Web_SkinDir&"star/star_"&i&".gif' border=0 align=absMiddle></td><td align=left>需要发帖量为："&UserPut(i)&"&nbsp;帖</td></tr>"
	Next
	Erase UserPut
	Erase UserLevelName
	Cls.HtmlRcod "tit",tit
	Cls.HtmlRcod "m_help2",img_skin("m_help2")
	Cls.HtmlRcod "w_int",3
	Cls.HtmlRcod "r_int",1
	Cls.HtmlRcod "c_int",3
	Cls.HtmlRcod "b_int",3
	Cls.HtmlRcod "ug_dim",tmp1
	Cls.HtmlRcod "web_frm_word",Cls.ReadSkin("web_frm_word")
	Cls.OutPage
End Sub

Sub Help_UBB()
    Cls.ReadPage "help_ubb"
	Cls.HtmlRcod "tit",tit
	Cls.HtmlRcod "m_help2",img_skin("m_help2")
	Cls.OutPage
End Sub

Sub Help_level()
    Cls.ReadPage "help_level"
	Cls.HtmlRcod "tit",tit
	Cls.HtmlRcod "m_help2",img_skin("m_help2")
	Cls.OutPage
End Sub

%>
