📄 index.asp

📁 网站代码
💻 ASP
字号:
<!--#include file="head.asp" -->
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR> 
  <TD width="100%"> <TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
 <TR bgColor=#ffffff> 
<TD colSpan=3 height=2></TD>
 </TR>
 <TR> 
<TD width="19" height=22 align=right><img src="Img/02_1.gif" width="12" height="9"></TD>

<TD width="748"><FONT color=#333333>&nbsp;您的位置：&nbsp;</FONT>网站的首页</TD>
<TD width="11">&nbsp;</TD>
 </TR>
</TBODY>
 </TABLE>
 
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
  <TD vAlign=top colSpan=2>
 <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
 border=0>
 <TBODY>
 <TR bgColor=#cccccc> 
<TD colSpan=2 height=1></TD>
 </TR>
 <TR> 
<TD colSpan=2 height=2></TD>
 </TR>
 <TR> 
<TD width=62 bgColor=#eeeeee height=22></TD>
<TD bgColor=#eeeeee>
<% Call Marquee()%>
</TD>
 </TR>
 <TR> 
<TD bgColor=#cccccc colSpan=2 
height=3></TD>
 </TR>
 </TBODY>
  </TABLE></TD></TR>
<TR>
  <TD style="BORDER-RIGHT: #d8d8d8 1px solid;BORDER-left: #d8d8d8 1px solid" vAlign=top width=182 
  bgColor=#f6f6f6>
 <TABLE cellSpacing=0 cellPadding=0 width="72%" border=0>
<TBODY>
<TR> 
<TD background="Img/homedhbg.gif"><IMG 
  src="Img/hydl.gif"></TD>
</TR>
<TR> 
<TD height=40>
<TABLE width=95% height="100" border=0  align=center cellPadding=0 cellSpacing=1 bgColor=#e8e8e8>
<TBODY>
<TR>
<TD height="53" bgColor=#f9f9f9>
<% Call UserLogin() %>
</TD>
</TR>
</TABLE></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD background=Img/homedhbg.gif> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=34><div align="center"><strong>热 门 信 息</strong></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
<TD vAlign=top><TABLE cellSpacing=0 cellPadding=5 width=99% align=center bgColor=#e8e8e8 border=0>
<TBODY>
<TR> 
<TD width="100%" bgColor=#f9f9f9> 
<% Call Ew_ShowInfo(1,10,13,0,0) %>
</TD>
</TR>
</TABLE></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD height="33" background=Img/homedhbg.gif> 
<div align="center"><strong>信 息 搜 索</strong></div></TD>
</TR>
<TR> 
<TD height="52" vAlign=top>
<% Call Ew_ShowSearch() %>
</TD>
</TR>
<TR> 
<TD background=Img/homedhbg.gif> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=34><div align="center"><strong>网 站 调 查</strong></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
<TD vAlign=top><TABLE style="WORD-BREAK: break-all" height="100%" cellPadding=4 width="100%" border=0>
<TBODY>
<TR> 
<TD vAlign=top height=80> <TABLE width=99% height="100%" border=0 align=center cellPadding=0 cellSpacing=1 bgColor=#e8e8e8>
<TBODY>
<TR> 
<TD width="100%" height="52" bgColor=#f9f9f9>
<% Call Ew_FlashVote() %>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=34 background="Img/homedhbg.gif"> <div align="center"><strong>产 品 导 
                                  航</strong></div></TD>
</TR>
</TBODY>
</TABLE> </TD>
</TR>
<TR> 
<TD> <TABLE style="WORD-BREAK: break-all" height="100%" cellPadding=4 width="100%" border=0>
<TBODY>
<TR> 
<TD vAlign=top height=80> <TABLE cellSpacing=1 cellPadding=3 width=99% align=center bgColor=#e8e8e8 border=0>
<TBODY>
<TR> 
<TD width="100%" height="52" bgColor=#f9f9f9> 
<% Call Ew_ShowSort() %>
</TD>
</TR>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
                      </TD>
</TR>
<TR> 
<TD></TD>
</TR>
<TR> 
<TD></TD>
</TR>
</TBODY>
</TABLE>
</TD>
  <TD vAlign=top align=left width=596 style="BORDER-RIGHT: #d8d8d8 1px solid"><TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
 border=0>
 <TBODY>
<TR>
 <TD>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
                            <td valign="top"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="568" height="125">
                                <param name="movie" value="swf/041010product.swf">
                                <param name="quality" value="high">
                                <embed src="swf/041010product.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="568" height="125"></embed></object>
                              <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
  <td width="45%" height="136" valign="top">
<%
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from announce where marquee<>1 ORDER BY id DESC"
rs.open sql,conn,1,1
if Rs.eof or Rs.bof then
%>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="Img/homedhbg.gif">
  <TR>
 <TD width="12%"  height=34><img src="Img/tp.gif" width="55" height="34"></TD>
 <TD width="88%" >还没有公告...</TD>
  </TR>
</TABLE>
<% else %>
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="Img/homedhbg.gif">
  <tr>
 <td width="9%"><img src="Img/tp.gif" width="55" height="34"></td>
 <td> <%=rs(1)%> </td>
  </tr>
</table>
<table width="100%" height="52" border="0" cellpadding="5" cellspacing="3">
  <tr>
 <td height="46">
<%
str=rs("Content")
Pw_changstr(str)
%></td>
  </tr>
</table>
<% end if %>
  </td>
  <td width="55%" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="Img/homedhbg.gif">
  <tr>
 <td width="9%"><img src="Img/tp.gif" width="55" height="34"></td>
 <td width="91%">本站新闻</td>
  </tr>
</table>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 5 * from news ORDER BY id DESC"
rs.open sql,conn,1,1
if Rs.eof or Rs.bof then
response.write"<div align='center'>还没有添加信息<div>"
end if 
do while not rs.eof
title = rs("title")
%>
<table width="100%" border="0" cellspacing="2" cellpadding="1">
  <tr>
 <td width="8%"><div align="right"><img src="Img/02_1.gif" width="12" height="9"> </div></td>
 <td width="92%"><a href="NewsInfo.asp?id=<%response.write rs(0)%>" title="<%=title%>">
<% 
if len(title)>18 then
response.write Left(title,18)
response.write "..."
else
response.write ""&title&""
end if
%>
 </a> <%=rs("time")%> </td>
  </tr>
  <% 
rs.movenext  
loop
%>
  </table></td>
</tr>
 </table></td>
  </tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
 <TR>
                              <TD> 
                                <TABLE cellSpacing=0 cellPadding=0 width="100%" 
border=0>
  <TBODY>
<TR>
  <TD width="7%" background=Img/homedhbg.gif 
  height=34><img src="Img/tp.gif" width="55" height="34"></TD>
                                      <TD width="93%" 
  background=Img/homedhbg.gif>热门推荐产品</TD>
</TR>
  </TBODY>
</TABLE>
<table width="100%" height="91" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="91">
<% Call Ew_ShowTopPic(4) %>
</td>
</tr>
</table>
<%
 dim sqlsort
 dim RsSort
	sqlsort="select * from Sort where B_id=0 and setting < 4 order by S_order"
	Set RsSort=conn.execute (sqlsort)
	if RsSort.eof and RsSort.bof then
	response.write "<div align=center>还没有任何栏目</div>"
	else
	do while not RsSort.eof
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
  <TD width="6%" background=Img/homedhbg.gif  height=34> <img src="Img/tp.gif" width="55" height="34"></TD>
  <TD width="94%"  background=Img/homedhbg.gif><a href="Sort.asp?SortID=<%=RsSort(0)%>"><%=RsSort(1)%></a></TD>
</TR>
  </TABLE>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
  <td width="35%" height="106" align="center">
<%
set RsPic=server.createobject("adodb.recordset")
sql="select  top 1 * from Info  where Sort1="&RsSort("id")&" and Ispic=1  ORDER BY ADDdate desc,id DESC"
RsPic.open sql,conn,1,1
if RsPic.eof or RsPic.bof then
Call NoPic("本类暂无图文信息")
end if
do while not RsPic.eof 

Call Ew_ShowPic(RsPic("Pic"),RsPic(0),RsPic("Title"),140,110,17)

RsPic.movenext  
loop
RsPic.close
set RsPic=nothing
%>
  </td>
  <td width="65%" valign="top">
<% Call Ew_ShowInfo(5,Sort_Count,20,RsSort("id"),1) %>
</td>
</tr>
  </table>
  <%  
RsSort.movenext  
loop  
end if  
RsSort.close 
set  RsSort=nothing
%>
 </TD>
 </TR>
  </TBODY>
 </TABLE></TD>
</TR>
 </TBODY>
  </TABLE></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="Bottom.asp" -->
<%call closeconn()%>
</BODY></HTML>
⌨️ 快捷键说明

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