<!doctype html>
<!--[if lt IE 7]> <html class="ie6 oldie"> <![endif]-->
<!--[if IE 7]>    <html class="ie7 oldie"> <![endif]-->
<!--[if IE 8]>    <html class="ie8 oldie"> <![endif]-->
<!--[if gt IE 8]><!-->
<html class="">
<!--<![endif]-->
<!--#include file="../Inc/QC.Conn.asp" -->
<!--#include file="../Inc/QC.Funtion.asp" -->
<!--#include file="../Inc/QC.PageClass.asp" -->
<%
Set oDbPager = New MyDbPager
oDbPager.Connect(Conn)
if Clng(F("PNum"))="" then
iPageSize=Getconfig("QC_SystemPageNum")
else
iPageSize=Clng(F("PNum"))
end if
oDbPager.PageParam = PageFunc
oDbPager.DbType = Datetype
oDbPager.TableName = "QC_SystemHelp"
oDbPager.Fields = "*"
oDbPager.PKey = "HelpID"
oDbPager.AddCondition "QC_HelpDelStat=0"

oDbPager.AddCondition "QC_HelpModel In (select ModelID from QC_SystemModel where QC_ModelStatus=1)"

if F("QC_HelpTitle")<>"" then oDbPager.AddCondition "QC_HelpTitle Like '%"&F("QC_HelpTitle")&"%'"

if F("MID")<>"" then oDbPager.AddCondition "QC_HelpModel In (Select ModelID from QC_SystemModel where ModelID="&Clng(F("MID"))&" OR INSTR(QC_ModelParentStr,'"&F("MID")&",')>0)"

oDbPager.OrderBy="HelpID asc"

oDbPager.Style = 0
oDbPager.PagerTop = 0
oDbPager.PagerSize = 0
oDbPager.PageSize = iPageSize
oDbPager.Page = RQ(oDbPager.PageParam)
Set Rs = oDbPager.Recordset
iCurrPage = oDbPager.Page
iRecordCount = oDbPager.RecordCount
iPageCount = oDbPager.PageCount
sPageInfo = oDbPager.PageInfo
sPager = oDbPager.Pager
sJumpPage = oDbPager.JumpPage
lines=0
%>
<HEAD>
<title>用户帮助</title>
<link href="help.css" rel="stylesheet" type="text/css" />
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<form method="Get" id="FormSearch" name="FormSearch">
<input type="hidden" name="MID" value="<%=F("MID")%>">
<H3>用户帮助 
<input type="text" size="30" name="QC_HelpTitle" ID="QC_HelpTitle" value="<%=F("QC_HelpTitle")%>"> 
<input name="so" type="submit" value=" 搜索 ">
</H3>
</form>
<%
if Not Rs.eof OR Not Rs.bof then%>
<table class="dataintable">
  <tr>
    <th width="15%">所属栏目</th>
    <th width="60%">帮助主题</th>
    <th width="20%">更新时间</th>
    <th width="8%">查看</th>
  </tr>
<%
Do While Not Rs.EOF

set Rs1=server.CreateObject("adodb.recordset")
Sql1="select * from QC_SystemModel where ModelID="&Rs("QC_HelpModel")&""
Rs1.open Sql1,conn,1,1
%>
<tr>
  <td align="center"><%=Rs1("QC_ModelName")%></td>
<td>
<a href="Redhelp.asp?ID=<%=Rs("HelpID")%>"><%=Rs("QC_HelpTitle")%></a>
</td>
<td align="center"><%=FormatTime(Rs("QC_HelpCreateTime"),1)%></td>
<td align="center"><%=Rs("QC_HelpClick")%></td>
</tr>
<%
Rs1.Close
Set Rs1=nothing

Rs.MoveNext
Loop
%>
</table>
<%
'其他按钮选项开始
Response.write"<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""2"" class=""OperateList"">"
Response.write"<tr>"
Response.write"<td>"
Response.Write"<div class=""sabrosus"">"&sPageInfo&"  每页显示："&iPageSize&"  "&sPager&" 跳转: "&sJumpPage&" 页</div>"
Response.write"</td>"
Response.write"</tr>"
Response.write"</table>"
'其他按钮选项结束

else
Call ReturnDonotinfo()
end if

Call CloseDB()
%>
</body>
</html>