📄 exhibition.asp
字号:
<%@ codepage ="936" %><!--#include file="head.asp"--><!--#include file="../inc/check_input.asp"--><!--#include file="sortcount.asp"--><script language="javascript">function show_store(mylink){window.open(mylink,'store','top=150,left=200,width=300,height=140,scrollbars=yes')}</script><script language="javascript">function show_sader(mylink){window.open(mylink,'','top=50,left=120,width=520,height=450,scrollbars=yes')}</script><script language="javascript">function show(mylink){window.open(mylink,'','top=50,left=100,width=575,height=240,scrollbars=yes')}</script><%const MaxPerPage=5dim totalPut dim CurrentPagedim TotalPagesdim iif not isempty(request("page")) thencurrentPage=cint(request("page"))elsecurrentPage=1end ifdim gsrsdim gssqldim gsid,qymcif not isEmpty(request("gsid")) thengsid=request("gsid")elsegsid=1end ifgsid=CheckInput(gsid,"i","1")dim sqldim rsdim rssortdim sortsqldim sort,sortnamedim rstjdim rstj1dim gssql1dim rsjh1dim jhsql1dim rsjhdim jhsqlgssql="select * from qyml where id="+cstr(gsid)+""Set gsrs= Server.CreateObject("ADODB.Recordset") gsrs.open gssql,conn,1,1 if not isEmpty(request("sortid")) thensortid=request("sortid")elsesortid=0end ifsortid=CheckInput(sortid,"i","1")set rssort=server.createobject("adodb.recordset") sortsql="select * from xxfl where sortid="&cstr(sortid) rssort.open sortsql,conn,1,1sortname=rssort("sort")rssort.closeif not isEmpty(request("typeid")) thentypeid=request("typeid")elsetypeid=0end ifset rssort=server.createobject("adodb.recordset") sortsql="select * from xxfl where sortid="&cstr(sortid) rssort.open sortsql,conn,1,1 set rsjh1= Server.CreateObject("ADODB.Recordset") jhsql1="select info_id,showname from info order by Info_id desc" rsjh1.open jhsql1,conn,1,1set rsjh= Server.CreateObject("ADODB.Recordset") jhsql="select info_id,showname from info where sortid="+cstr(sortid)+" order by Info_id desc" rsjh.open jhsql,conn,1,1set rstj1= Server.CreateObject("ADODB.Recordset") gssql1="select id,qymc,web from qyml where tjbz=1 order by id" rstj1.open gssql1,conn,1,1set rstj= Server.CreateObject("ADODB.Recordset") gssql="select id,qymc,web from qyml where sortid="+cstr(sortid)+" and tjbz=1 order by id" rstj.open gssql,conn,1,1qymc=gsrs("qymc") gsrs.closesql="select * from spzs where gsid="+cstr(gsid)+" order by ID desc"set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write"<SCRIPT language=JavaScript>alert('对不起，没有您要查询的信息！');"response.write"javascript:history.go(-1)</SCRIPT>" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"exhibition.asp"content else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContent showpage totalput,MaxPerPage,"exhibition.asp"content else currentPage=1 showContent showpage totalput,MaxPerPage,"exhibition.asp"content end if end if end if sub showContent %> <head><STYLE type=text/css>TD {COLOR: #000; FONT-FAMILY: 宋体; FONT-SIZE: 12px}.GR {COLOR: #666}</STYLE><HTML><META content=zh-cn http-equiv=Content-Language><LINK href="images/main.css" rel=stylesheet type=text/css><META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD><BODY bgColor=#ffffff text=#000000 topMargin=0 marginheight="0"><CENTER><TABLE border=0 cellPadding=0 cellSpacing=0 width=750 style="border-collapse: collapse" bordercolor="#111111" height="7"><TBODY><tr><TD height=6> 您的位置：<a href="../default.asp">首页</a>>><a href="default.asp">产品展示</a>>><font color="#FF0000">我的产品展厅</font></TD></tr></TBODY></TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 width=750 style="border-collapse: collapse" bordercolor="#111111" height="225"><TBODY><TR><TD vAlign=top height="225"><table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" cellspacing="0"><tr><td width="100%" height="9"><div align="center"><center><table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" bordercolorlight="#EDF2F8" bordercolordark="#EDF2F8"><tr><FORM action="search.asp" method=POST name=searchtitle><TD bgColor=#edf2f8 height=28><DIV align=center><TABLE border=0 cellPadding=0 cellSpacing=0 width="536"><TBODY><TR><TD height=32 width="100%"><p align="center"><font class="f12" color="#ff6600"><span style="font-size: 10.5pt; "><b><%=qymc%>产品展厅</b></span></font></TD></TR></TBODY></TABLE></DIV></TD></FORM></tr></table></center></div></td></tr><tr><td width="100%" height="14" bgcolor="#F2F2F2"><B><FONT color=#336699>【注 释：】</FONT></B><img border="0" src="images/icon12.gif"> 高级会员 <img border="0" src="images/brand.gif" width="16" height="16"> 普通会员</td></tr><tr><TD height=1 background="images/bg_b.gif" bgcolor="#FFFFFF" width="565"></TD></tr><tr><TD height=8 width="565"></TD></tr></table><div align="center"><center><TABLE border=0 cellSpacing=1 width="100%" style="border-collapse: collapse" bordercolor="#111111"><TBODY><%do while not rs.eof%> <TR><TD rowSpan=2 width=95 bgcolor="#FBFDFF"><p align="center"><a href="Show_product.asp?id=<%=rs("id")%>"><IMG border=0 src="../picture/<%=rs("picture")%>" width="88" height="86" alt="<%=rs("cpmc")%>" style="border: 1px solid #000000"></a></TD><TD height=20 width=239 bgcolor="#EEF4FF"><B><a href="Show_product.asp?id=<%=rs("id")%>"><%=rs("cpmc")%></a></B> <%if rs("hybz")="*" then %><img border="0" src="images/icon12.gif"><%else%><img border="0" src="images/brand.gif" width="16" height="16"><%end if%> </TD><TD width=127 bgcolor="#EEF4FF"><DIV align=right>发布时间：<%=rs("idate")%></DIV></TD><TD width=63 bgcolor="#EEF4FF"><p align="center"><a href="javascript:show("../shop/Check.asp?cpbh=<%=rs("cpbh")%>")"><img border="0" src="images/che1.gif" alt="加入购物车"></a> </TD></TR><TR><TD colSpan=3 width="435" bgcolor="#FBFDFF"><table border="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" cellspacing="1" cellpadding="2"><tr><td width="15%"><font color="#000080">生产产地：</font></td><td width="85%"><%=rs("cpcd")%></td></tr><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 nif 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>"response.write "【<a href="&filename&"?page=1&gsid="&gsid&">最前页</a>】" response.write "【<a href="&filename&"?page="&CurrentPage-1&"&gsid="&gsid&">上一页</a>】" end if if n-currentpage<1 then response.write "【下一页】【最后页】" else response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&gsid="&gsid&">" response.write "【下一页</a>】【 <a href="&filename&"?page="&n&"&gsid="&gsid&">最后页</a>】" end if response.write "</td>"response.write "</tr>"response.write "</form>"end function%><%sub content%></TABLE></center><!--点击次数加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></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 num1dim 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>9 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><% elsedo 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>9 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 %></TABLE></TD></TR></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 adim 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>9 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/search.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>9 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><%end sub%> <tr><TD bgColor=#83a2ff height=1></TD></tr><TR></tr></table></TD></TR></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber19"><tr><td width="100%" background="images/bt2.gif"> </td></tr></table></center></div><!--#include file="../inc/end.asp"--> <html></html><html></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -