📄 index.asp
字号:
<!--#include file="Inc/syscode.asp" -->
<!--#include file="head.asp" -->
<!--#include file="Inc/Top.asp"-->
<!--#include file="Inc/Eshopcode.asp"-->
<%Const Start="No"%>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><table width="850" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" valign="top" background="Style/<%=Root%>/cont_left_bg01.gif"><img src="Style/<%=Root%>/cont_left_img01.gif" width="30" height="431"></td>
<td style="padding-top:9px; " width="787" valign="top"><table width="787" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="207" align="left" valign="top" class="top_m_txt01"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Style/<%=Root%>/left_cp_tit.gif" width="200" height="67"></td>
</tr>
<tr>
<td height="142" align="center" valign="top" background="Style/<%=Root%>/left_bg01.gif"><% call ShowSmallClass_Tree() %></td>
</tr>
<tr>
<td><img src="Style/<%=Root%>/left_img01.gif" width="200" height="20"></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="63" valign="bottom"><img src="Style/<%=Root%>/left_tc_tit.gif" width="200" height="51"></td>
</tr>
<tr>
<td height="182" align="center" background="Style/<%=Root%>/left_bg02.gif"><table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><% call ShowVote() %></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="Style/<%=Root%>/left_img02.gif" width="200" height="8"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="188" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="60" align="right" valign="bottom"><a href="about.asp"><img src="Style/<%=Root%>/left_img04.gif" width="175" height="47" border="0"></a></td>
</tr>
<tr>
<td height="51" align="right" valign="bottom"><a href="Culture.asp"><img src="Style/<%=Root%>/left_img05.gif" width="175" height="47" border="0"></a></td>
</tr>
<tr>
<td height="51" align="right" valign="bottom"><a href="Honor.asp"><img src="Style/<%=Root%>/left_img06.gif" width="175" height="47" border="0"></a></td>
</tr>
<tr>
<td height="70" align="left" valign="bottom"><a href="Contact.asp"><img src="Style/<%=Root%>/xsrx_img.gif" width="185" height="51" border="0"></a></td>
</tr>
</table></td>
</tr>
</table></td>
<td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Style/<%=Root%>/cont_img01.gif" width="580" height="17"></td>
</tr>
<tr>
<td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="9" background="Style/<%=Root%>/cont_tbl01_bg01.gif"></td>
<td valign="top"><table width="562" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="562" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><table width="544" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Style/<%=Root%>/cont_tit01.gif" width="474" height="32"></td>
<td><a href="Product.asp"><img src="Style/<%=Root%>/cont_tbl01_img01.gif" width="50" height="32" border="0"></a></td>
<td><img src="Style/<%=Root%>/cont_tbl01_img02.gif" width="20" height="32"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="369" align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="544" border="0" cellspacing="0" cellpadding="0">
<tr>
<% Dim ErrMsgs
Set Rsl=Server.CreateObject("Adodb.Recordset")
Rsl.Open "Select Top 8 * From Product Where Elite=true and Passed=true Order By UpdateTime DESC",conn,1,1
If Rsl.Recordcount=0 Then
Response.Write"暂无推荐产品"
Else
If Rsl.Recordcount>8 Then
x=8
Else
x=Rsl.Recordcount
End If
For i=1 to x
%><td align="right" valign="top"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="bottom"><table width="114" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="114" border="0" cellpadding="0" cellspacing="1" bgcolor="#ADADAD">
<tr>
<td height="112"><a href="ProductShow.asp?ArticleID=<%=Rsl("ArticleID")%>" target="_blank"><img src="<%= Rsl("DefaultPicUrl") %>" width="112" height="112" border="0"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td style="padding-top:7px; " height="23" align="center"><a href="#" class="626262"><%= Rsl("Title") %></a></td>
</tr>
<tr>
<td><table width="114" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50" align="left"><a href="ProductShow.asp?ArticleID=<%=Rsl("ArticleID")%>" target="_blank"><img src="Style/<%=Root%>/liulan.gif" width="40" height="17" border="0"></a></td>
<td width="1" align="center"><img src="Style/<%=Root%>/dian1.gif" width="1" height="40"></td>
<td valign="top"><table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="15" align="right" class="006583"><%= Rsl("Buy_Price") %>元</td>
</tr>
<tr>
<td height="16" align="right" class="FF9000"><%= Rsl("Price") %>元</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="11" align="right"><% If i mod 4<>0 Then
Response.Write"<img src='Style/"&root&"/dian.gif' width='1' height='180'>"
Else
Response.Write""
End If %></td>
</tr>
</table>
</td>
<%
If i mod 4=0 Then
Response.Write"</tr><tr>"
Else
Response.Write""
End If
Rsl.MoveNext
Next
End If
Rsl.Close
Set Rsl=Nothing %>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="top"><table width="544" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="294" align="left" valign="top"><table width="271" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="39" valign="top"><img src="Style/<%=Root%>/gsjs.gif" width="271" height="32"></td>
</tr>
<tr>
<td><table width="271" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Style/<%=Root%>/cont_tbl02_img01.gif" width="271" height="19"></td>
</tr>
<tr>
<td height="148" align="center" valign="top" background="Style/<%=Root%>/cont_tbl02_bg01.gif"><table width="245" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="208" valign="top"><SPAN
class=Glow><%=lingdao%></SPAN></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="Style/<%=Root%>/cont_tbl02_img02.gif" width="271" height="14"></td>
</tr>
</table></td>
</tr>
</table></td>
<td valign="top"><table width="250" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Style/<%=Root%>/znxw_tit.gif" width="250" height="54"></td>
</tr>
<tr>
<td height="202" align="center" valign="top" background="Style/<%=Root%>/znxw_bg.gif" style="padding-top:10px; padding-bottom:10px; ">
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 7 * from news where BigClassName='站内新闻' order by id desc"
rs_news.open sqltext4,conn,1,1
%>
<table width="218" border="0" cellspacing="0" cellpadding="0">
<%i=0
do while not rs_news.eof%>
<tr align="center">
<td width="18" height="25" align="left"><img src="Style/<%=Root%>/cont_new_bullet.gif" width="9" height="7"> </td>
<td width="200" align="left">
<a href="shownews.asp?id=<%=rs_news("id")%>" target="_blank" class="top_m_txt01"> <%=cutstr(rs_news("title"),15)%></a></td>
</tr>
<tr align="center">
<td height="1" colspan="2" align="left"><img src="Style/<%=Root%>/cont_new_line.gif" width="218" height="1"></td>
</tr>
<%rs_news.movenext
i=i+1
if i=7 then exit do
loop
rs_news.close %>
</table></td>
</tr>
<tr>
<td align="right" background="Style/<%=Root%>/znxw_bg.gif"><a href="yenews.asp"><img src="Style/<%=Root%>/more03.gif" width="76" height="9" border="0"></a></td>
</tr>
<tr>
<td><img src="Style/<%=Root%>/znxw_img01.gif" width="250" height="15"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="9" background="Style/<%=Root%>/cont_tbl01_bg01.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="Style/<%=Root%>/cont_img02.gif" width="580" height="17"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="33" valign="top" background="Style/<%=Root%>/cont_right_bg01.gif"><img src="Style/<%=Root%>/cont_right_img01.gif" width="33" height="431"></td>
</tr>
<tr>
<td valign="top"><img src="Style/<%=Root%>/cont_di_img01.gif" width="30" height="29"></td>
<td align="center" valign="middle" background="Style/<%=Root%>/cont_di_bg01.gif" style="padding-top:9px; "><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="40%"><table width="313" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="57"><img src="Style/<%=Root%>/yqlj_img01.gif" width="57" height="15"></td>
<td width="256"><MARQUEE
align="left" width=230 scrollAmount=1 scrollDelay=4 class="top_m_txt01" onmouseover="this.stop()" onmouseout="this.start()">
<% call ShowAnnounce(5) %>
</MARQUEE></td>
</tr>
</table></td>
<td width="60%" align="right" class="top_m_txt01"><script language="JavaScript" type="text/javascript" src="inc/site.asp?online=1&show=all"></script></td>
</tr>
</table></td>
<td valign="top"><img src="Style/<%=Root%>/cont_di_img02.gif" width="33" height="29"></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="Inc/foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -