<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: help.asp
' Version:3.0
' Date: 2005-9-26
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
dim id
response.buffer=true
stats="帮助文档"
id=checkStr(Request("id"))
if id<>"" and not isnumeric(id) then
  	errmsg=errmsg+"<br>"+"<li>参数错误。"
	founderr=true
	else
	id=Clng(id)
end if
call nav()
if founderr then
	call head_var("","")
	call Mslove_error()
else
	call head_var("帮助文档","help.asp")
	if request("action")="view" then
	call H_view()
	else
	call main()
	end if
end if
call activeonline()
call footer()

sub main()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder1">
  <tr> 
    <th height="27" align="center">帮助问题列表</th>
  </tr>
  <%set rs=Conn.Execute("select h_id,h_title,H_layers from Ms_help where H_RootID>=3 order by H_RootID asc,H_id")
do while not rs.eof%>
  <tr> 
    <td height="27" class="tablebody1"> 
      <%
if rs("H_layers")=0 then
Response.Write "┼<b>" & rs("h_title")&"</b>"
else
Response.Write "&nbsp;├<a href=help.asp?action=view&id="&rs(0)&">" & rs("h_title")&"</a>"
end if
%>
    </td>
  </tr>
  <%rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%
end sub

function H_view()%>
<table width="100%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder1">
  <tr> 
    <th height="23">查看帮助文档/协议</th>
  </tr>
  <tr> 
    <td height="11" class="tablebody1"> <%
set rs=Conn.Execute("select h_title,h_content from Ms_help where h_id="&id)
if rs.eof and rs.bof then
	Response.Write "没有找到帮助"
else
	Response.Write "<BR><center><b>"&rs("h_title")&"</b></center><BR><BR><BR>"
	Response.Write "<blockquote>"&rs("h_content")&"</blockquote>"
end if
%> </td>
  </tr>
</table>
<%end function
%>   
</body>
</html> 