list.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<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">
<% 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: #00CCFF;
		font-weight: bold;
		font-size: 12px;
	}
		a:active{
		text-decoration: none;
		font-size: 12px;
	}
-->
</style><table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> 
  <tr> 
    <td width="500" valign="top" class="lh15"> 
<%
     
	searchPlace=Replace_Text(request("searchPlace"))
	keywords=Replace_Text(request("keywords"))
	set rs=server.createobject("adodb.recordset") 
	sql="select * from Yixiang_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"> 
        <tr> 
          <td width="43%" height=40><font color=000000 face="黑体" style="font-size:20px"> 
            <%
sqlsort="select * from Yixiang_help_sort where sortid="&rs("sortid")&""
set rssort=server.CreateObject("adodb.recordset")
rssort.open sqlsort,conn,1,1
if not rssort.eof then
response.write""&rssort("sort")&""
end if
%> 
            </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></td>
        </tr> 
      </table> 
      <!--子专题下新闻--> 
      <table width="500" 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 Yixiang_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
%> 
            </font></td> 
        </tr> 
      </table> 
      <div class="smalltoppad"></div> 
      <%
	  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%>      <div class="smalltoppad"></div></td> 
  </tr> 
</table>