📄 search.asp
字号:
<tr>
<td width="15%"><font color="#000080">产品价格：</font></td>
<td width="85%"><font color="#FF6600"><%if rs("cpjg")="0" then response.write"价优" else response.write""&rs("cpjg")&"元" end if%></font></td>
</tr>
<tr>
<td width="15%"><font color="#000080">产品简述：</font></td>
<td width="85%">
<%=mid(rs("jysm"),1,45)%>..[<a href="show_product.asp?id=<%=rs("id")%>"><FONT
color=#cc6600>详细资料</FONT></a>]</td>
</tr>
</table>
</TD></TR>
<TR bgColor=#cccccc>
<TD colSpan=4 height=1 background="images/bg_b.gif" bgcolor="#FFFFFF" width="533"></TD></TR>
<TR>
<TD colSpan=4 height=8 width="533"></TD></TR>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
rs.close
set rs=nothing
end sub
%>
</table>
<%function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
if CurrentPage<2 then
response.write "<table border=0 width=97% cellspacing=0 cellpadding=0>"
response.write "<tr height=30>"
response.write "<td align=left>"
response.write "共<font color=ff6600><b>"&n&"</b></font>页 第<font color=ff6600><b>"&CurrentPage&"</b></font>页 共检索到<font color=ff6600><b>"&totalnumber&"</b></font>条信息</TD>"
response.write "<td align=right>"
response.write "【最前页】【上一页】"
else
response.write "<table border=0 width=97% cellspacing=0 cellpadding=0>"
response.write "<tr height=30>"
response.write "<td align=left>"
response.write "共<font color=ff6600><b>"&n&"</b></font>页 第<font color=ff6600><b>"&CurrentPage&"</b></font>页 共检索到<font color=ff6600><b>"&totalnumber&"</b></font>条信息"
response.write "<td align=right>"
if (request("typeid"))<>0 then
response.write "【<a href="&filename&"?page=1&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&">最前页</a>】"
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&">上一页</a>】"
else
response.write "【<a href="&filename&"?page=1&sortid="&sortid&"&txtitle="&keyword&">最前页</a>】"
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&sortid="&sortid&"&txtitle="&keyword&">上一页</a>】"
end if
end if
if n-currentpage<1 then
response.write "【下一页】【最后页】"
else
if (request("typeid"))<>0 then
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&">"
response.write "下一页</a>】【<a href="&filename&"?page="&n&"&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&">最后页</a>】"
else
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&sortid="&sortid&"&txtitle="&keyword&">"
response.write "下一页</a>】【<a href="&filename&"?page="&n&"&sortid="&sortid&"&txtitle="&keyword&">最后页</a>】"
end if
end if
response.write "</td>"
response.write "</tr>"
response.write "</form>"
end function
%><%sub content%>
</TBODY></TABLE>
</center>
</div>
<!--点击次数加1--></TD>
<TD height="225"> </TD>
<TD background="images/Products_index_right_bg01.gif"
vAlign=top width=190 height="225">
<DIV align=right>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=180 height="204">
<TBODY>
<TR>
<TD height="78">
<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7" height="88" cellpadding="0">
<tr>
<td width="100%" valign="top"><a href="add.asp"> <IMG border=0
src="images/Products_index_right01.gif"></a></td>
</tr>
</table>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7" height="88" cellpadding="0">
<tr>
<td width="100%" valign="bottom"><a href="add.asp"> </a><IMG height=34 src="images/TradeChance_hyfl.gif" width=174>
<TABLE background=images/TradeChance_x1.gif border=0 cellPadding=0 cellSpacing=0 width="168">
<TBODY>
<tr>
<TD> <IMG src="../images/index_clarity.gif"></TD>
<TD vAlign=top>
<TABLE bgColor=#e9e9e9 border=0 cellPadding=0 cellSpacing=1 width=168 height="29">
<TBODY>
<%
dim rssort,sortsql
set rssort=server.createobject("adodb.recordset")
sortsql="select * from Class_2 where sortid="+cstr(sortid)+""
rssort.open sortsql,conn,1,1
do while not rssort.eof
Set rscount= Server.CreateObject("ADODB.Recordset")
sqlcount="select typeid from spzs Where typeid="&rssort("typeid")
rscount.open sqlcount,conn,1,1
InputCount=rscount.RecordCount
rscount.close%>
<TR bgColor=#ffffff>
<TD onmouseout="this.style.background='ffffff'" onmouseover="this.style.background='#E8FAFF'" height="1">
<TABLE border=0 cellPadding=3 cellSpacing=1 style="border-collapse: collapse" bordercolor="#111111" height="22">
<TBODY>
<TR>
<TD> </TD>
<TD> <A href="search.asp?sortid=<%=sortid%>&typeid=<%=rssort("typeid")%>" style="text-decoration: none"><%=rssort("Typename")%></a> <font color="#808080">(<%=InputCount%>)</font> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<%rssort.movenext
loop
rssort.close
set rssort=nothing
%>
</TBODY>
</TABLE></TD>
</tr>
<TR>
<TD colSpan=2> <IMG height=4 src="images/TradeChance_x2.gif"
width=174></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
</center>
</div>
</TD></TR>
<TR>
<TD height="1">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
<tr>
<td width="180" valign="top" align="right">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=174 style="border-collapse: collapse">
<TBODY>
<TR>
<TD height=25>
<img border="0" src="images/sj.gif"></TD>
</TR>
<TR>
<TD>
<TABLE border=0 cellPadding=4 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<%
dim num1
dim num
if rsjh.eof and rsjh.bof then
%>
<TR>
<% do while not rsjh1.eof %>
<TD background="images/Products_index1_right_bg01.gif"><font color="#FF8019"> </font>
<a href="javascript:show_sader("../syjh/business_info.asp?info_id=<%=rsjh1("info_id")%>")">
<% if len(rsjh1("showname"))>12 then%><%=left(rsjh1("showname"),11)%>..<% else%><%=rsjh1("showname")%><%end if%></a></TD>
</TR>
<%rsjh1.movenext
num1=num1+1
if num1>12 then Exit Do
loop
rsjh1.close
set rsjh1=nothing
%>
<tr>
<TD align=right background=images/more_bg.gif height=22>
<a target="_blank" href="../Syjh/sjsearch.asp">更多</a>.. </TD>
</tr>
<% else
do while not rsjh.eof %>
<TD background="images/Products_index1_right_bg01.gif"><font color="#FF8019"> </font>
<a href="javascript:show_sader("../syjh/business_info.asp?info_id=<%=rsjh("info_id")%>")">
<% if len(rsjh("showname"))>12 then%><%=left(rsjh("showname"),11)%>..<% else%><%=rsjh("showname")%><%end if%></a></TD>
</TR>
<% rsjh.movenext
num=num+1
if num>12 then Exit Do
loop
rsjh.close
set rsjh=nothing
%>
<tr>
<TD align=right background=images/more_bg.gif height=22>
<a target="_blank" href="../Syjh/search.asp?sortid=<%=sortid%>">更多</a>.. </TD>
</tr>
<% end if %>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</td>
<td width="100%"> </td>
</tr>
</table>
</TD></TR>
<TR>
<TD height=34><img border="0" src="images/tj1.gif"></TD></TR>
<TR>
<TD
background="images/Products_index1_right_bg01.gif" height="22">
<div align="right">
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="86%" id="AutoNumber8" height="22">
<%
dim a
dim b
if rstj.eof and rstj.bof then
%>
<TR>
<%do while not rstj1.eof%>
<tr>
<td width="100%" height="21"><%if rstj1("web")="" or rstj1("web")="http://" then%><a target="_blank" href="../company/index.asp?id=<%=rstj1("id")%>"><% if len(rstj1("qymc"))>12 then%><%=left(rstj1("qymc"),11)%>..<% else%><%=rstj1("qymc")%><%end if%></a><%else%>
<a target="_blank" href="<%=rstj1("web")%>"><% if len(rstj1("qymc"))>12 then%><%=left(rstj1("qymc"),11)%>..<% else%><%=rstj1("qymc")%></a><%end if%><%end if%></td>
</tr>
<% a=a+1
if a>12 then Exit Do
rstj1.movenext
loop
rstj1.close
set rstj1=nothing
%>
<tr>
<TD align=right background=images/more_bg.gif height=22>
<a target="_blank" href="../qyml/qysearch.asp">更多</a>.. </TD>
</tr>
<% else do while not rstj.eof%>
<tr>
<td width="100%" height="21"><%if rstj("web")="" or rstj("web")="http://" then%><a target="_blank" href="../company/index.asp?id=<%=rstj("id")%>"><% if len(rstj("qymc"))>12 then%><%=left(rstj("qymc"),11)%>..<% else%><%=rstj("qymc")%><%end if%></a><%else%>
<a target="_blank" href="<%=rstj("web")%>"><% if len(rstj("qymc"))>12 then%><%=left(rstj("qymc"),11)%>..<% else%><%=rstj("qymc")%></a><%end if%><%end if%></td>
</tr>
<% b=b+1
if b>12 then Exit Do
rstj.movenext
loop
rstj.close
set rstj=nothing
%>
<tr>
<TD align=right background=images/more_bg.gif height=22>
<a target="_blank" href="../qyml/search.asp?sortid=<%=sortid%>">更多</a>.. </TD>
</tr>
<% end if %>
</table>
</div>
</TD>
</TR>
<tr>
<TD bgColor=#83a2ff height=1></TD>
</tr>
<TR>
</td>
</tr>
</table>
</TD></TR>
<TR>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
</center>
</center>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber9">
<tr>
<td width="100%" background="images/bt2.gif"> </td>
</tr>
</table>
</center>
</div>
<%end sub%><!--#include file="../inc/end.asp"--><html></html><html></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -