📄 search.asp

📁 架設ROSE私服必備之物 ROSE數據庫
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="conn.asp" --><HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>产品搜索1</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Content-Language content=zh-CN>
<META content=all name=robots>
<META content=LJCMS name=Copyright>
<META 
content=
name=description>
<META 
content="" 
name=keywords><LINK id="skin"
href="../images/css.css" 
type=text/css rel=stylesheet>
<SCRIPT language=javascript>
function opencat(cat,img){
	if(cat.style.display=="none"){
	cat.style.display="";
	img.src="img/class2.gif";
	}	else {
	cat.style.display="none"; 
	img.src="img/class1.gif";
	}
}
</Script>
<SCRIPT language=JavaScript 
src="../images/Prototype.js"></SCRIPT>
<script type="text/javascript" src="../images/setCss.js"></script>
<META content="MSHTML 6.00.6000.16441" name=GENERATOR></HEAD>
<BODY><!--  顶部开始  -->
<DIV id=BigTop>
<DIV id=TopLeft></DIV>
<DIV id=TopCenter>
<DIV id=Logo><IMG height=84 
src="../images/Logo.gif" 
width=238 border=0> </DIV>
<DIV id=BigMenu>
<UL class=AllUl>
 <LI class=MenuLi1>换皮肤：<a  href="" onClick="setCss('../images/css.css'); return false; " ><span class="blue">水晶蓝</span></a>&nbsp;&nbsp;&nbsp;<a  href="" onClick="setCss('../images/css1.css'); return false; "><span class="pink">浪漫粉</span></a>&nbsp;&nbsp;&nbsp;</li><SPAN class=S_Spanlink>⊙<A href="<%=EnterpriseMail%>" > 企业邮局 </A>⊙<A onClick="window.external.addFavorite('<%=SiteUrl%>','<%=SiteName%>');return false;" target="mainFrame"  href="#"> 加入收藏 </A>⊙<A onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=SiteUrl%>');" href="#">  设为首页 </A> <a href="Contact.asp"></a> ⊙  <a id="based">繁体中文</a>
    <Script Language=Javascript Src="../Inc/southidcj2f.Js"></Script> ⊙  <a href="../enHtml/index.html">English</a></LI>
	
<form name="Search_form" id="Search_form" class="AllForm" action="search.asp" target="_blank" method="get">
				<li class="MenuLi1"><span class="S_Span"><input type="text" name="KeyWords" id="KeyWords" class="Input" style="width:200px;" /></span><span class="S_SeType"><input type="hidden" name="SeTypeTxt" id="SeTypeTxt" value="" /><input type="button" name="Setype" id="Setype" value="搜索类型" class="S_Typebutton" onClick="Dis_HiddenDiv();" /></span><span class="S_ImgSpan"><img src="../images/ssBount.jpg" width="57" height="20" border="0" align="absbottom" onClick="Fun_Se_Form();" /></span></li>
		</form></LI>

				
				
  <LI class=MenuLi2><div class="menu"><ul>
  <!--#include file="inc/menu.asp" -->


</ul></div></LI>
</UL></DIV></DIV>
<DIV id=TopRight></DIV></DIV><!--  顶部结束  --><!--  主体部分开始  -->
<DIV id=BodyDiv><!--  主体左边部分  -->
<DIV id=BodyLeft><!--  用户登陆  -->
<DIV class=BigLoginDiv>
<DIV class=Login_Type_Div><SPAN class=Lo_Web_User_1 id=Lo_Web_User 
></SPAN></DIV>
<DIV><iframe name="login_frame1" src="../login.asp"  style=" width:100%; height:100px" frameborder="0"></iframe></DIV>

</DIV><!--  用户登陆结束  --><!--  快速通道 -->
<DIV class="DivBorder Fs_Kstd">
<DIV class=Fs_Kstd_Top><SPAN class=Fs_Text>产品分类>></SPAN></DIV>
<DIV class=Fs_Kstd_Bottom>
<UL class=AllUl>
<%call ShowSmallClass_Tree()%>
  
</UL></DIV><DIV class=Fs_Kstd_Bo><SPAN class=Fs_Dot></SPAN><SPAN class=Fs_Textt></SPAN></DIV></DIV><!--  快速通道结束 --><!--  产品中心 -->
<!--  产品中心结束 -->
<!--  代理中心 -->
<!--  代理中心结束 -->
<!--  解决方案 -->
<!--  解决方案结束 -->
<!--  合作联盟 -->
<!--  合作联盟结束 -->
</DIV>
<!-- 主体左边部分结束  --><!-- 主体中间部分 -->
<!-- 产品介绍结束 --><!-- 购买流程 -->
<DIV class="DivBorder OrderDiv1">
<DIV class=News_Top1><SPAN class=News_Dot><IMG height=9 
src="../images/Ddot.jpg" 
width=9 border=0></SPAN><SPAN class=News_Text1>产品搜索</SPAN></DIV>

<DIV class=Fs_All_Bottom1><%
keyword=trim(request("keywords"))
if keyword<>"" then 
	keyword=replace(replace(replace(replace(keyword,"'","‘"),"<","&lt;"),">","&gt;")," ","&nbsp;")
end if
strField=trim(request("SeTypeTxt"))
%>  <table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="206" valign="top">
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">                              
            <TR> 
              <TD>   <% call SearchResultTotal() %><%
		sqlSearch="select "


	sqlSearch=sqlSearch & " * from Product where Passed=True "

	if keyword<>"" then
		select case strField
			case "Title"
				sqlSearch=sqlSearch & " and Title like '%" & keyword & "%' "
			case "Content"
				sqlSearch=sqlSearch & " and Content like '%" & keyword & "%' "
			case else
				sqlSearch=sqlSearch & " and Title like '%" & keyword & "%' "
		end select
	end if
	sqlSearch=sqlSearch & " order by ID desc"
	Set rsSearch= Server.CreateObject("ADODB.Recordset")
	rsSearch.open sqlSearch,conn,1,1
 	if not rsSearch.eof and rsSearch.bof then 
       		response.write "<p align='center'><br><br>没有或没有找到任何产品</p>" 
   	else 
   		dim i,strTemp
    i=0
	strTemp=""
	do while not rsSearch.eof

	strTemp= strTemp & "<DIV id=featured-sites>"
					
strTemp= strTemp & "<DIV class=bel>"
strTemp= strTemp & "<DIV class=mbcon>"
strTemp= strTemp & "<DIV class=dp1><A href=Product_"&rsSearch("id")&".html target=_blank><IMG height=100 src=../"&rsSearch("DefaultPicUrl")&" width=110  align=left border=0></A></DIV><DIV class=Fs_Kstd_Bo><SPAN class=Fs_Dot></SPAN><SPAN class=Fs_Textt></SPAN></DIV>"
strTemp= strTemp & "<DIV class=dtt1><B><A href=Product_"&rsSearch("id")&".html/ target=_blank>"&rsSearch("title")&"</A></B>"
strTemp= strTemp & "<P>产品编号："&rsSearch("Product_ID")&"</P><P>产品规格："&rsSearch("Spec")&"</P><P>产品类别："&rsSearch("BigClassName")&"</P></DIV>"
strTemp= strTemp & "<DIV class=dtt1><B><A href=Product_"&rsSearch("id")&".html target=_blank><IMG src=../images/shoucang.gif  align=left border=0></A><A href=Product_"&rsSearch("id")&".html target=_blank><IMG src=../images/goumai.gif  align=left border=0></A></B><P>&nbsp;</P>"
strTemp= strTemp & "<P>产品售价："&rsSearch("Price")&"</P><P>产品备注："&rsSearch("Memo")&"</P><P>产品信息："&rsSearch("Memo")&"</P></DIV>"
strTemp= strTemp & "<DIV class=x></DIV><DIV class=cut><IMG height=2 width=1></DIV></DIV></DIV>"
	
		rsSearch.movenext
	
	loop
   	end if 
   	rsSearch.close 
   	set rsSearch=nothing
		response.write strTemp%></TD>
            </tr>
			
                  </table> </td>
              </tr>
			  <TR> 
              <TD 
                  height=1 colspan="3" background=img/naBialym.gif><IMG height=1 src="img/1x1_pix.gif" 
              width=10></TD>
            </TR>
            <TR> 
                <TD 
                  height=25 colspan="3" bgcolor="#D8D8D8"> <div align="right">
                   
                  </div></TD>
            </TR>
            </table>			

<DIV class=Fs_C_Center></DIV>
</DIV></DIV><!-- 购买流程结束 --><!-- 客户案例 -->
<!-- 客户案例结束 -->
</DIV>
<!-- 主体中间部分结束 --><!-- 右边部分开始  -->
<!-- 右边部分结束  -->
</DIV></div>
<!--  主体部分结束  --><!--  版权部分开始  -->
<!--#include file="inc/foot.asp" --><!--  版权部分结束  -->
<SCRIPT language=javascript 
src="../images/js.js" 
type=text/javascript></SCRIPT>
</BODY></HTML>
<%Sub ShowSmallClass_Tree()
%>


<%
dim i
set rsbig = server.CreateObject ("adodb.recordset")
		sql="select * from BigClass"
		rsbig.open sql,conn,1,1
if rsbig.eof and rsbig.bof then
	Response.Write "栏目正在建设中……"
else
	i=1
	do while not rsbig.eof
%>  <LI class=Fs_KstdLi>·<A 
  href="List_<%=rsbig("BigclassID")%>_1.html" 
  target=_blank><%=rsbig("BigClassName")%></A></LI>
	
<%
	rsbig.movenext
12 下一页
💿 文件大小 32475 K
👤 上传用户 zcflion
📂 所属分类 MySQL数据库
🏷️ 相关标签

#ROSE
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -