📄 index.asp
字号:
</div></td>
<td width="19%" style='BORDER-bottom: #999999 1px dotted'><div align="left">[<%=rs_news("AddDate")%>]</div></td>
</tr>
<%rs_news.movenext
i=i+1
loop
rs_news.close %>
<tr>
<td height="8"></td>
<td colspan="2"></td>
</tr>
</table>
</span> <span id="tb_B102" style="display:none;">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="7%" height="8"></td>
<td colspan="2"></td>
</tr>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top " & New_count & " * from 0791idc_news where BigClassName='业内资讯' order by AddDate desc"
rs_news.open sqltext4,conn,1,1
%>
<%i=0
do while not rs_news.eof%>
<tr align="center">
<td><img src="Img/arrow_6.gif" width="11" height="11"> </td>
<td width="74%" style='BORDER-bottom: #999999 1px dotted'> <div align="left">
<p style='line-height:180%'>
<% If ISHTML = 1 Then
AutoLink = ""&NewName&""&Separated&""&rs_news("ID")&"."&HTMLName&""
Else
AutoLink = "shownews.asp?ID="&rs_news("ID")&""
End If
Response.Write "<a href="""&AutoLink&""" target='_blank'>"&rs_news("TITLE")&"</a>"&VbCrLf
%>
<br>
</div></td>
<td width="19%" style='BORDER-bottom: #999999 1px dotted'><div align="left">[<%=rs_news("AddDate")%>]</div></td>
</tr>
<%rs_news.movenext
i=i+1
loop
rs_news.close %>
<tr>
<td height="8"></td>
<td colspan="2"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="29" valign="bottom">
<table class="title_right" width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="41" height="26" align="center"><strong><img src="Images/arrow_down.gif" width="16" height="15" /></strong></td>
<td valign="top"><strong class="menu" >推 荐 产 品</strong><img src="Images/i_typeline.gif" width="1" height="18" /><img src="Images/i_typeline.gif" width="1" height="18" /></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & Product_count & " * from 0791idc_Product where Passed="&TrueType&" And Elite="&TrueType&" order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>
<tr align="center">
<%
If rs_Product.eof and rs_Product.bof then
response.write "<td><p align='center'><font color='#ff0000'>还没任何产品</font></p></td>"
else
row_count=1
Do While Not rs_Product.EOF%>
<td><table border="0" cellpadding="0" cellspacing="8" >
<tr>
<td width="38%" height="30"><table width="100%" border="0" cellspacing="0" cellpadding="0" >
<tr>
<td align="center"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" style="border: 1px solid #cccccc">
<tr>
<td align="center">
<% If ISHTML = 1 Then
AutoLink = ""&ProName&""&Separated&""&rs_Product("ID")&"."&HTMLName&""
Else
AutoLink = "ProductShow.asp?ID="&rs_Product("ID")&""
End If
response.write "<a href="""&AutoLink&""">"
%>
<img src=<%=rs_Product("DefaultPicUrl")%> width="153" height="153" border=0 onload="javascript:DrawImage(this);"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="22" align="center" bgcolor="#EBEBEB"><% If ISHTML = 1 Then
AutoLink = ""&ProName&""&Separated&""&rs_Product("ID")&"."&HTMLName&""
Else
AutoLink = "ProductShow.asp?ID="&rs_Product("ID")&""
End If
response.write "<a href="""&AutoLink&""">"%>
<%=rs_Product("Title")%></a></td>
</tr>
</table></td>
</tr>
</table></td>
<% if row_count mod 3 =0 then%>
</tr>
<tr>
<%end if%>
<%
rs_Product.MoveNext
row_count=row_count+1
Loop
end if
rs_Product.close
%>
</tr>
</table>
</td>
<td valign="top" >
<table class="title_right" width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="12%" height="31" align="center"><img src="Images/arrow_down.gif" width="16" height="15"></td>
<td width="78%" ><strong>新品展示
>></strong></td>
<td width="10%" align="center"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="93"><div align="center">
<!--#Include file="flashad.asp"-->
</div></td>
</tr>
</table>
<table class="title_right" width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="12%" height="31" align="center"><img src="Images/arrow_down.gif" width="16" height="15"></td>
<td width="78%" ><strong>网站公告 >></a></strong></td>
<td width="10%" align="center"> </td>
</tr>
</table>
<%
sqlAnnounce="select top 1 * from 0791idc_affiche"
sqlAnnounce=sqlAnnounce & " order by ID Desc"
Set rsAnnounce= Server.CreateObject("ADODB.Recordset")
rsAnnounce.open sqlAnnounce,conn,1,1
%>
<MARQUEE width="100%" height="100" onMouseOver=this.stop() onMouseOut=this.start() scrollamount=2 Direction=up behavior=Scroll >
<table width="98%" height="100" border="0" align="center" cellPadding="0" cellSpacing="0" >
<tr>
<td> <%
if rsAnnounce.bof and rsAnnounce.eof then
response.write "<p> 没有通告或找不到指定的通告</p>"
else
AnnounceNum=rsAnnounce.recordcount
do while not rsAnnounce.eof
response.Write "<p align='center'>" & rsAnnounce("title") & "</p><p align='left'>" & ubbcode(dvHTMLEncode(rsAnnounce("Content"))) & "</p><p align='right'>" & " <br>" & FormatDateTime(rsAnnounce("Time"),1) & "</p>"
rsAnnounce.movenext
loop
end if
%> </td>
</tr>
</table>
</MARQUEE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="25" height="34" class="title_right"><div align="center"><img src="Images/arrow_down.gif" width="16" height="15"></div></td>
<td width="88%" class="title_right"> <strong>在线调查 >></strong></td>
</tr>
<tr>
<td height="5" colspan="2"></td>
</tr>
<tr>
<td height="10" colspan="2"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td > <div align="center">
<% call ShowVote() %>
</div></td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
</table></TD>
</TR>
</TABLE>
<script for='southidc' event='FSCommand()' language='JavaScript'>
AdLayer1.style.visibility='hidden';
AdLayer2.style.visibility='hidden';
</script>
<% call ShowAD(2) %>
<% call ShowAD(3) %>
<!-- #include file="Inc/Foot.asp" -->
<% If OnlineQQ="Yes" Then %>
<script language="javascript" type="text/javascript" src="qq/southidc.js"></script>
<% End If %>
<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 + -