<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/main.css" rel="stylesheet" type="text/css">
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/classcount.asp"-->
<%
if request("typeid")<>"" then
 typeid=Replace_Text(request("typeid"))
 end if
%> 
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}

a:link{
		text-decoration: none;
		color: #000000;
		font-size: 12px;
	}
		a:visited{
		text-decoration: none;
		color: #000000;
		font-size: 12px;
	}
		a:hover{
		text-decoration: underline;
		color: #FF6600;
		font-size: 12px;
	}
		a:active{
		text-decoration: none;
		font-size: 12px;
	}
-->
</style><table width="600" border="0" align="center" cellpadding="0" cellspacing="0"> 
  <tr> 
    <td width="600" valign="top" class="lh15"> 
<%
     
	searchPlace=Replace_Text(request("searchPlace"))
	keywords=Replace_Text(request("keywords"))
	set rs=server.createobject("adodb.recordset") 
	sql="select * from Websen_help"
	if keywords<>"" then
	if searchPlace=1 then
	sql=sql&" where showname like '%"&keywords&"%'"
	end if
	if searchPlace=2 then
	sql=sql&" where content like '%"&keywords&"%'"
	end if
	else
	if typeid<>"" then
	sql=sql&" where typeid="&typeid&""
	else
	sql=sql&" where typeid=1"
	end if
	end if
	sql=sql&" order by id desc"
	Set rs= Server.CreateObject("ADODB.Recordset") 
	rs.open sql,conn,1,1
	if not rs.eof then
%> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0"> 
      </table> 
      <!--子专题下新闻-->
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="14"><img src="../../images/help_070131_12.gif" width="14" height="24" /></td>
          <td width="102" align="center" background="../../images/help_070131_14.gif"><font style="font-size:12px; color:#ffffff"><strong>
            <%
sqltype="select * from Websen_help_type where typeid="&rs("typeid")&""
set rstype=server.CreateObject("adodb.recordset")
rstype.open sqltype,conn,1,1
if not rstype.eof then
response.write""&rstype("typename")&""
end if
%>
          </strong></font></td>
          <td width="14"><img src="../../images/help_070131_13.gif" width="14" height="24" /></td>
          <td width="464" background="../../images/help_070131_17.gif">&nbsp;</td>
          <td width="4" valign="bottom"><img src="../../images/help_070131_15.gif" width="4" height="22" /></td>
        </tr>
        <tr>
          <td height="109" colspan="5" valign="top" style=" border-bottom: 1px #FF9966 solid; border-left: 1px #FF9966 solid; border-right: 1px #FF9966 solid; padding: 7px 5px 5px 5px"><%
	  end if
if rs.eof then
response.Write"<br><br><div align='center'><font color=#cccccc>请点击类别的快捷菜单进行查看</font></div><br><br>"
else
%>
            <%
do while not rs.eof
%>
·<a href="<%=HOPE_InstallDir%>help/bin/detail/<%=rs("sortid")%>-<%=rs("typeid")%>-<%=rs("id")%>.html" target="_blank">
<% Set re = New RegExp
re.Pattern ="("&keywords&")"
re.IgnoreCase = True
re.Global=True
result = re.Replace(rs("showname"), "<font color=red>$1</font>")%>
<%=result%></a><br />
<%
rs.movenext
loop
end if%></td>
        </tr>
      </table> 
    </td> 
  </tr> 
</table> 
