list.asp

全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述： 软件名称：全球商务网站系统 当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
.sec_menu {OVERFLOW: hidden}
.font{color:white}
</STYLE>
<link href="css/main.css" rel="stylesheet" type="text/css">
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/classcount.asp"-->
<%
if request("typeid")>"" then
if Chkrequest(request("typeid")) then
typeid=request("typeid")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
end if
%> 
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style><table width="580" border="0" align="center" cellpadding="0" cellspacing="0"> 
  <tr> 
    <td width="580" valign="top" class="lh15"> 
<%
searchPlace=Replace_Text(request("searchPlace"))
keywords=Replace_Text(request("keywords"))
set rs=server.createobject("adodb.recordset") 
sql="select * from 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
%> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0"> 
        <tr> 
          <td width="43%" height=40><font color=000000 face="黑体" style="font-size:20px"> 
            <%
sqlsort="select * from help_sort where sortid="&rs("sortid")&""
set rssort=conn.execute(sqlsort) 
response.write""&rssort("sort")&""
%> 
            </font></td> 
          <td width="57%" align="right" valign="center"> <script>
function checkForm(){
if(document.search.keywords.value=='请输入关键字'||document.search.keywords.value=='') 
{
    alert("关键字为空，请输入关键字！");
    return false;
}
}
  </script> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0"> 
              <form name=search action=""   method="get" onsubmit="return checkForm()"> 
                <input name=do type=hidden value="true"> 
                <input name=comeFrom type=hidden value="function"> 
                <input name=block type=hidden value="all"> 
                <tr> 
                  <td align="right"> <font class=s>提问：</font> 
                    <input name="keywords" type="text" size="20" value="请输入关键字" onClick="if(document.search.keywords.value=='请输入关键字'){document.search.keywords.select();document.search.keywords.focus();}"> 
                    <select name="searchPlace"> 
                      <option value=1 >按标题找</option> 
                      <option value=2 >按内容找</option> 
                    </select> 
                    <input type="submit" name="Submit" value="找答案"> </td> 
                </tr> 
              </form> 
            </table></td> 
        </tr> 
      </table> 
      <!--子专题下新闻--> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0"> 
        <tr> 
          <td class="title"><img src="images/title_go.gif" width="23" height="37" align="absmiddle"><font color="#CC3300"> 
            <%
sqltype="select * from help_type where typeid="&rs("typeid")&""
set rstype=conn.execute(sqltype) 
response.write""&rstype("typename")&""
%> 
            </font></td> 
        </tr> 
      </table> 
      <div class="smalltoppad"></div> 
      <%
if rs.eof then
response.Write"<br><br><div align='center'>暂无数据信息</div><br><br>"
else
do while not rs.eof
%> 
      ·<a href="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%>      <div class="smalltoppad"></div></td> 
  </tr> 
</table>