📄 index.asp
字号:
<!--#include file="Inc/syscode.asp" -->
<!--#include file="inc/Skin_CSS.asp"-->
<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%>
<!-- #include file="Head.asp" -->
<table width="779" height="8" border="0" cellpadding="0" cellspacing="0" background="Img/contopbg.gif" align="center">
<tr>
<td><table width="226" height="8" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="209"></td>
<td width="17" background="Img/contopbg2.gif"></td>
</tr>
</table></td>
</tr>
</table>
<table width="779" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td width="196" height="577" valign="top"><table width="196" border="0" cellspacing="0" cellpadding="0">
<tr>
<td ><div align="center"><img src="Img/login.gif" alt="用户登陆" width="196" height="32"></div></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="10"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Img/left1.gif" width="187" height="19"></td>
</tr>
<tr>
<td background="Img/left2.gif"><table width="90%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td align="center">
<% call ShowUserLogin() %></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="Img/left3.gif" width="187" height="20"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table> <table border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td><img src="Img/sotop.gif" width="196" height="41"></td>
</tr>
<tr>
<td align="center" background="Img/sobg.gif"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<% call ShowSearch(1) %>
</td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><img src="Img/sotb.gif" width="196" height="6"></td>
</tr>
</table> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" ><img src="Img/shan.gif" width="196" height="37"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="10"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<% call ShowSmallClass_Tree() %>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="5"><img src="img/space.gif" height="1" width="1"></td>
</tr>
<tr>
<td height="8"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<tr>
<td height="26" align="center" ><img src="Img/link.gif" width="196" height="39"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="10"><table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><%
set rs_links=server.createobject("adodb.recordset")
sqltext4="select top 10 * from links order by id desc"
rs_links.open sqltext4,conn,1,1
i=0
do while not rs_links.eof%>
<a href="<%=rs_links("link")%>" title="<%=rs_links("note")%>"target="_blank"><%=rs_links("name")%></a>
<%rs_links.movenext
i=i+1
if i=10 then exit do
loop
rs_links.close %>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="583" align="center" valign="top">
<table width="560" border="0" cellspacing="3">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" background="Img/gk2.gif">
<tr>
<td width="23%"><img src="Img/gk1.gif" width="129" height="37"></td>
<td width="76%" valign="bottom"><table width="100%" border="0" cellspacing="3" cellpadding="0">
<tr>
<td>
<MARQUEE scrollAmount=1 scrollDelay=4 width=420
align="left" onmouseover="this.stop()" onmouseout="this.start()">
<% call ShowAnnounce(5) %>
</MARQUEE></td>
</tr>
</table>
</td>
<td width="1%" align="right"><img src="Img/gk3.gif" width="9" height="37"><img src="Img/gk2.gif" width="1" height="37"></td>
</tr>
</table></td>
</tr>
</table> <table width="560" border="0" cellpadding="0" cellspacing="2">
<!--DWLayoutTable-->
<tr>
<td width="284" height="16" valign="top"><img src="Img/news1.gif" width="95" height="16"></td>
<td width="270"><img src="Img/news2.gif" width="99" height="15"></td>
</tr>
<tr bgcolor="#EFEFEF">
<td height="3" bgcolor="#EFEFEF"></td>
<td bgcolor="#EFEFEF"></td>
</tr>
</table>
<table width="560" border="0" cellspacing="3">
<tr>
<td width="286"><%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 5 * from news where BigClassName='企业新闻' order by id desc"
rs_news.open sqltext4,conn,1,1
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="7%" height="8"></td>
<td width="93%"></td>
</tr>
<%i=0
do while not rs_news.eof%>
<tr align="center">
<td><img src="Img/arrow_6.gif" width="11" height="11"> </td>
<td>
<div align="left">
<p style='line-height:150%'><a href="shownews.asp?id=<%=rs_news("id")%>" target="_blank"> <%=cutstr(rs_news("title"),22)%></a>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1" background="img/naBialym.gif"></td>
</tr>
</table>
</div></td>
</tr>
<%rs_news.movenext
i=i+1
if i=5 then exit do
loop
rs_news.close %>
<tr>
<td height="6"></td>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="right"><a href="news.asp"><img src="Img/more.gif" width="54" height="18" hspace="8" border="0" usemap="#Map2MapMap"></a>
</div></td>
</tr>
</table></td>
<td><%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 5 * from news where BigClassName='业内资讯' order by id desc"
rs_news.open sqltext4,conn,1,1
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="6%" height="8"></td>
<td width="94%"></td>
</tr>
<%i=0
do while not rs_news.eof%>
<tr align="center">
<td><img src="Img/arrow_6.gif" width="11" height="11"> </td>
<td>
<div align="left">
<p style='line-height:150%'><a href="shownews.asp?id=<%=rs_news("id")%>" target="_blank"> <%=cutstr(rs_news("title"),22)%></a>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1" background="img/naBialym.gif"></td>
</tr>
</table>
</div></td>
</tr>
<%rs_news.movenext
i=i+1
if i=5 then exit do
loop
rs_news.close %>
<tr>
<td height="6"></td>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="right"><a href="yenews.asp"><img src="Img/more.gif" width="54" height="18" hspace="8" border="0"></a></div></td>
</tr>
</table> </td>
</tr>
</table> <table width="560" border="0" cellspacing="3">
<tr>
<td><img src="Img/prot.gif" width="114" height="17"></td>
<td align="right" valign="bottom"><a href="Product.asp"><img src="Img/more2.gif" width="51" height="16" border="0"></a></td>
</tr>
</table> <table width="560" border="0" cellspacing="3">
<tr>
<td height="3" bgcolor="#EBEBEB"></td>
</tr>
</table> <table width="560" border="0" cellspacing="5" cellpadding="0">
<tr>
<td><!--#include file="NewsProducts.asp" --></td>
</tr>
</table> <table width="560" border="0" cellspacing="2">
<tr>
<td width="496"><img src="Img/newpro.gif" width="110" height="18"></td>
<td width="51" align="right" valign="bottom"><a href="Product.asp"><img src="Img/more2.gif" width="51" height="16" border="0"></a></td>
</tr>
</table> <table width="560" border="0" cellspacing="2">
<tr>
<td height="3" bgcolor="#EBEBEB"></td>
</tr>
</table> <table width="560" border="0" cellspacing="2" cellpadding="0">
<!--DWLayoutTable-->
<tr>
<td width="556" height="76" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<!--DWLayoutTable-->
<tr>
<td width="556">
<%i=1
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top 8 * from Product where Passed=True And Elite=True order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td></td>
</tr>
<tr align="center">
<td bgcolor="#F5F5F5"><table width="100%" border="0" cellpadding="1" cellspacing="1" >
<tr bgcolor="#E3E3E3" >
<td width="34%" height="29" background="Images/left_bg.jpg">
<div align="center">产品名称</div></td>
<td width="18%" background="Images/left_bg.jpg">
<div align="center">规格</div></td>
<td width="9%" background="Images/left_bg.jpg">
<div align="center"><FONT color="#0000FF">单位</FONT></div></td>
<td width="39%" background="Images/left_bg.jpg">
<div align="center">备注</div></td>
</tr>
<%
do while not rs_Product.eof
%>
<% if i mod 2 =0 then%>
<tr bgcolor="#FFFFFF">
<% else %>
<tr bgcolor="#ffffff">
<% end if %>
<td height="22" style="padding-left:5PX "><a href="ProductShow.asp?ArticleID=<%=rs_Product("articleid")%>" target="_blank"><%=cutstr(rs_Product("Title"),15)%></a></td>
<td >
<div align="center"><%=cutstr(rs_Product("Spec"),6)%></div></td>
<td>
<div align="center"><font color="#2A1FFF"><%=rs_Product("Unit")%></font></div></td>
<td style="padding-left:5PX ">
<div align="left"><%=cutstr(rs_Product("Memo"),15)%></div></td>
</tr>
<%
i=i+1
rs_Product.movenext
loop
rs_Product.close
%>
</table></td>
</tr>
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<map name="Map">
<area shape="rect" coords="18,14,69,24" href="News.asp">
</map>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -