index.asp
来自「冠龙科技企业网站管理系统 v8.0」· ASP 代码 · 共 264 行
ASP
264 行
<!--#include file="Inc/syscode.asp" -->
<!--#include file="inc/Skin_CSS.asp"-->
<!--#include file="Inc/Top.asp"-->
<!--#include file="Inc/guanlongUbb.asp"-->
<%
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="770" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bg.gif">
<tr>
<td align="center">
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
<tr>
<td width="192" valign="top" background="images/bg_left.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Images/yhdl.jpg" /></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="10"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <% call ShowUserLogin() %> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Images/titelbar_search.gif" /></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="10"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<% call ShowSearch(1) %>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
<table width="192" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/titelbar_brand.gif" width="191" height="26"></td>
</tr>
<tr>
<td height="7" background="images/yy2.gif"></td>
</tr>
<tr>
<td>
<table width="84%" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="21" background="images/bg-xg.gif">
<img src="images/arrow-5.gif" width="6" height="9"> <a>
<% call ShowSmallClass_Tree() %>
</a> </td>
</tr>
<tr>
<td height="21" align="right" background="images/bg-xg.gif"><a href="products.asp"><img src="images/more5.gif" width="62" height="15" border="0"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Images/zxdc.gif" /></td>
</tr>
<tr>
<td height="10"> </td>
</tr>
<tr>
<td height="10"><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>
<td width="576" valign="top"><table width="576" border="0" cellpadding="0" cellspacing="0" background="images/bg_bar.gif">
<tr>
<td width="384"><a href="about.asp"><img src="images/titelbar_company.gif" width="212" height="26" border="0"></a></td>
<td width="192"><a href="news.asp"><img src="images/titelbar_news.gif" width="89" height="26" border="0"></a></td>
</tr>
</table>
<table width="576" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="384"><table width="100%" height="180" border="0">
<tr>
<td valign="top"><table width="95%" align="center" >
<tr>
<td height="108" valign="top"><table width="330" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="330" height="159" valign="top"><% rs.open "select * from main"
Set rs_home= Server.CreateObject("ADODB.Recordset")
rs_home.open sql,conn,1,1
if rs("about")="" then
Response.write "未有内容"
else%>
<table border="0" align="right">
<tr>
<td><img src="images/sg.jpg" width="110" height="128" /></td>
</tr>
</table>
<%=left(rs("about"),231)%>...
<% end if %>
...
</td>
</tr>
</table>
<table width="98%" border="0" align="center">
<tr>
<td align="right"><a href="about.asp"><img src="images/more5.gif" width="62" height="15" border="0" /></a></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table></td>
<td width="192" valign="top" background="images/bg_right.gif"><table width="98%" border="0" align="center">
<tr>
<td><%
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
%></td>
</tr>
</table>
<table width="98%" border="0" align="center">
<%i=0
do while not rs_news.eof%>
<tr align="center">
<td align="left">
<a href="shownews.asp?id=<%=rs_news("id")%>" target="_blank" class="top_m_txt01"> <%=cutstr(rs_news("title"),13)%></a></td>
</tr>
<%rs_news.movenext
i=i+1
if i=7 then exit do
loop
rs_news.close %>
</table>
<table width="190" border="0">
<tr>
<td><div align="right"><a href="News.asp"><img src="images/more5.gif" width="62" height="15" border="0" /></a></div></td>
</tr>
</table></td>
</tr>
</table>
<table width="576" border="0" cellpadding="0" cellspacing="0" background="images/bg_bar.gif">
<tr>
<td width="384"><a href="hot.asp"><img src="images/titelbar_hotpro.gif" width="264" height="26" border="0"></a></td>
<td width="192"><a href="jobs.asp"></a></td>
</tr>
</table>
<table width="576" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="384" valign="top"><table width="100%" border="0" align="center">
<tr>
<td><!--#include file="NewsProduct.asp"--></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"> </td>
</tr>
<tr>
<td valign="top"><table width="576" border="0" cellpadding="0" cellspacing="0" background="images/bg_bar.gif">
<tr>
<td width="384"><a href="hot.asp"><img src="images/titelbar_hotpro.gif" width="264" height="26" border="0"></a></td>
<td width="192"><a href="jobs.asp"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <%i=1
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & Product_count & " * 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><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999" >
<tr Class=tdbg >
<td width="34%" height="29">
<div align="center">产品名称</font></div></td>
<td width="18%">
<div align="center">规格</div></td>
<td width="9%">
<div align="center">单位</div></td>
<td width="39%">
<div align="center">备注</div></td>
</tr>
<%
do while not rs_Product.eof
%>
<% if i mod 2 =0 then%>
<tr Class=tdbg>
<% else %>
<tr bgcolor="#ffffff">
<% end if %>
<td height="22"><a href="ProductShow.asp?ID=<%=rs_Product("ID")%>" target="_blank"><%=cutstr(rs_Product("Title"),25)%></a></td>
<td > <div align="center"><%=cutstr(rs_Product("Spec"),9)%></div></td>
<td> <div align="center"><%=rs_Product("Unit")%></div></td>
<td> <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>
<tr>
<td> </td>
</tr>
<tr>
<td> <div align="right"><a href="Product.asp">更多产品>>></a></div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
</table>
</td>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?