程序代码：<%@ LANGUAGE="vbscript" codepage="936"%>
<!--#include file="conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>广东外贸LED有限发展公司</title>
<script type="text/javascript" src="js/top.js"></script>
<link href="style/header.css" rel="stylesheet" type="text/css" />
<link href="style/index.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="header">
<h1>LED开发有限公司</h1>
<div id="shouc">
<ul>
<li><a href="javascript:window.external.AddFavorite('http://<%=site("site_url")%>', '<%=site("site_name")%>')">加入收藏</a> </li>
<li><a onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://<%=site("site_url")%>');" href="#">设为首页</a>
</li>
</ul>
</div>
</div>
<div id="nav">
<ul>
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from nav where nav_display = true order by nav_order "
rs.Open sql, conn, 1, 1
Do While Not rs.EOF
%>
<li><a href="<%=rs("nav_url")%>" target="<%=rs("nav_open")%>"><%=rs("nav_name")%></a></li>
<%
rs.movenext
Loop
rs.Close
Set rs = Nothing
%>
</ul>
</div>
<div id="seach">
<p>站内搜索</p>
<form>
<select name="kind">
<option>按照商品名搜索</option>
<option>按照品牌名搜索</option>
</select>
<input name="name" type="text" class="text" />
<input type="submit" value="查询" class="submit" />
<a href="###">[高级查询]</a>
</form>
</div>
<div id="main">
<div id="list">
<h1 id="cpmc">产品名称列表 <img src="images/more.gif" /></h1>
<div id="mc">
<ul>
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select top 8 * from products_category_main order by order_id"
rs.Open sql, conn, 1, 1
If rs.EOF And rs.bof Then
response.Write(" 暂无分类！")
End If
Do While Not rs.EOF
response.Write("<li><a href=""product.asp?main_id=" & rs("main_id") & """ title=""" & rs("main_title") &""">" & rs("main_title") & "</a></li>")
rs.movenext
Loop
rs.Close
Set rs = Nothing
%>
</ul>
</div>
<span><h1 id="tuij">推荐产品列表</h1></span>
<div id="cf">
<ul>
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select top 8 * from products_category_main where display=true order by order_id"
rs.Open sql, conn, 1, 1
If rs.EOF And rs.bof Then
response.Write(" 暂无分类！")
End If
Do While Not rs.EOF
response.Write("<li><a href=""product.asp?main_id=" & rs("main_id") & """ title=""" & rs("main_title") &""">" & rs("main_title") & "</a></li>")
rs.movenext
Loop
rs.Close
Set rs = Nothing
%>
</ul>
</div>
</div>
<div id="adver">
<h1 id="new1">企业新闻</h1>
<div id="mc">
<ul>
<%
Set rs = server.CreateObject("adodb.recordset")
exec = "select top 6 * from news order by id desc "
rs.Open exec, conn, 1, 1
If rs.EOF And rs.bof Then
response.Write("暂无新闻!")
response.End()
End If
Do While Not rs.EOF
response.Write("<li><a href=""news_view.asp?id=" & rs("id") & """>" & Left(rs("title"), 15) & "</a> </li>")
rs.movenext
Loop
%>
</ul>
</div>
</div>
<div id="new">
<h1 id="new2">行业动态</h1>
<div id="mc">
<ul>
<%
Set rs = server.CreateObject("adodb.recordset")
exec = "select top 8 * from news where category=1 order by id desc "
rs.Open exec, conn, 1, 1
If rs.EOF And rs.bof Then
response.Write("暂无新闻!")
response.End()
End If
Do While Not rs.EOF
response.Write("<li><a href=""news_view.asp?id=" & rs("id") & """>" & Left(rs("title"), 15) & "</a> </li>")
rs.movenext
Loop
%>
</ul>
</div>
</div>
<div id="content">
<h1 id="cont">企业简介</h1>
<p>
<span>[ 温州广厦建设开发有限公司 ]</span> 隶属于龙湾区建设局，法定代表人：余文龙；企业类型：有限责任公司；经营范围：房地产开发（凭资质证经营）。建筑材料销售，城市综合开发资质为三级。公司现有职工40余人，其中专业技术人员28人（高级职称7人，中级职称21人），是一支技术力量较强，职工素质较好的房地产开发团队。公司设立董事会、总经理室、总经办、销售部、财务部、总师办、工程部、若干分公司和项目部等，实行董事会领导下的总经理负责制，并已建立了健全的管理制度、灵活的经营机制和良好的商业信誉，企业的整体营运已迈入持续、快速、健康发展的轨道...<a href="#">详细</a>
</p>
</div>
<div id="ad">
<h1 id="show">产品展示</h1>
<div>
<span id="marquee">
<%
Set rs = server.CreateObject("adodb.recordset")
exec = "select * from products where recommendatory=1 "
rs.Open exec, conn, 1, 1
If rs.EOF And rs.bof Then
response.Write("暂无图片!")
response.End()
End If
Do While Not rs.EOF
%>
<dl>
<dd><a href="productveiw.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><img src="<%=rs("thumbnail")%>" /></a></dd>
<dt><%=rs("title")%></dt>
</dl>
<%
rs.movenext
loop
%>
</span>
</div>
</div>
</div>
<div id="footer">
<div id="footer1">
<h1 id="ff">支持在线支付方式：</h1>
<ul>
<li><a href="###">支付宝</a></li>
<li><a href="###">财富通</a></li>
<li><a href="###">建设银行</a></li>
<li><a href="###">工商银行</a></li>
</ul>
</div>
<ul>
<li><a href="###">关于我们</a></li>
<li><a href="###">帮助中心</a></li>
<li><a href="###">网站地图</a></li>
<li><a href="###">诚聘英才</a></li>
<li><a href="###">联系我们</a></li>
<li><a href="###">版权说明</a></li>
</ul></br>
<p class="copy">温州广厦建设开发有限公司 ©版权所有 翻版必究 无痕旗下网站</p>
<p class="jishi">法律规定|免责声明｜技术支持：无痕工作团|QQ:1374560768</p>
</div>
</body>
</html>
在本地测试正常,一上传在服务器上字体就变乱了......不知道什么原因.... <!--#include file="conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>广东外贸LED有限发展公司</title>
<script type="text/javascript" src="js/top.js"></script>
<link href="style/header.css" rel="stylesheet" type="text/css" />
<link href="style/index.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="header">
<h1>LED开发有限公司</h1>
<div id="shouc">
<ul>
<li><a href="javascript:window.external.AddFavorite('http://<%=site("site_url")%>', '<%=site("site_name")%>')">加入收藏</a> </li>
<li><a onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://<%=site("site_url")%>');" href="#">设为首页</a>
</li>
</ul>
</div>
</div>
<div id="nav">
<ul>
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from nav where nav_display = true order by nav_order "
rs.Open sql, conn, 1, 1
Do While Not rs.EOF
%>
<li><a href="<%=rs("nav_url")%>" target="<%=rs("nav_open")%>"><%=rs("nav_name")%></a></li>
<%
rs.movenext
Loop
rs.Close
Set rs = Nothing
%>
</ul>
</div>
<div id="seach">
<p>站内搜索</p>
<form>
<select name="kind">
<option>按照商品名搜索</option>
<option>按照品牌名搜索</option>
</select>
<input name="name" type="text" class="text" />
<input type="submit" value="查询" class="submit" />
<a href="###">[高级查询]</a>
</form>
</div>
<div id="main">
<div id="list">
<h1 id="cpmc">产品名称列表 <img src="images/more.gif" /></h1>
<div id="mc">
<ul>
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select top 8 * from products_category_main order by order_id"
rs.Open sql, conn, 1, 1
If rs.EOF And rs.bof Then
response.Write(" 暂无分类！")
End If
Do While Not rs.EOF
response.Write("<li><a href=""product.asp?main_id=" & rs("main_id") & """ title=""" & rs("main_title") &""">" & rs("main_title") & "</a></li>")
rs.movenext
Loop
rs.Close
Set rs = Nothing
%>
</ul>
</div>
<span><h1 id="tuij">推荐产品列表</h1></span>
<div id="cf">
<ul>
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select top 8 * from products_category_main where display=true order by order_id"
rs.Open sql, conn, 1, 1
If rs.EOF And rs.bof Then
response.Write(" 暂无分类！")
End If
Do While Not rs.EOF
response.Write("<li><a href=""product.asp?main_id=" & rs("main_id") & """ title=""" & rs("main_title") &""">" & rs("main_title") & "</a></li>")
rs.movenext
Loop
rs.Close
Set rs = Nothing
%>
</ul>
</div>
</div>
<div id="adver">
<h1 id="new1">企业新闻</h1>
<div id="mc">
<ul>
<%
Set rs = server.CreateObject("adodb.recordset")
exec = "select top 6 * from news order by id desc "
rs.Open exec, conn, 1, 1
If rs.EOF And rs.bof Then
response.Write("暂无新闻!")
response.End()
End If
Do While Not rs.EOF
response.Write("<li><a href=""news_view.asp?id=" & rs("id") & """>" & Left(rs("title"), 15) & "</a> </li>")
rs.movenext
Loop
%>
</ul>
</div>
</div>
<div id="new">
<h1 id="new2">行业动态</h1>
<div id="mc">
<ul>
<%
Set rs = server.CreateObject("adodb.recordset")
exec = "select top 8 * from news where category=1 order by id desc "
rs.Open exec, conn, 1, 1
If rs.EOF And rs.bof Then
response.Write("暂无新闻!")
response.End()
End If
Do While Not rs.EOF
response.Write("<li><a href=""news_view.asp?id=" & rs("id") & """>" & Left(rs("title"), 15) & "</a> </li>")
rs.movenext
Loop
%>
</ul>
</div>
</div>
<div id="content">
<h1 id="cont">企业简介</h1>
<p>
<span>[ 温州广厦建设开发有限公司 ]</span> 隶属于龙湾区建设局，法定代表人：余文龙；企业类型：有限责任公司；经营范围：房地产开发（凭资质证经营）。建筑材料销售，城市综合开发资质为三级。公司现有职工40余人，其中专业技术人员28人（高级职称7人，中级职称21人），是一支技术力量较强，职工素质较好的房地产开发团队。公司设立董事会、总经理室、总经办、销售部、财务部、总师办、工程部、若干分公司和项目部等，实行董事会领导下的总经理负责制，并已建立了健全的管理制度、灵活的经营机制和良好的商业信誉，企业的整体营运已迈入持续、快速、健康发展的轨道...<a href="#">详细</a>
</p>
</div>
<div id="ad">
<h1 id="show">产品展示</h1>
<div>
<span id="marquee">
<%
Set rs = server.CreateObject("adodb.recordset")
exec = "select * from products where recommendatory=1 "
rs.Open exec, conn, 1, 1
If rs.EOF And rs.bof Then
response.Write("暂无图片!")
response.End()
End If
Do While Not rs.EOF
%>
<dl>
<dd><a href="productveiw.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><img src="<%=rs("thumbnail")%>" /></a></dd>
<dt><%=rs("title")%></dt>
</dl>
<%
rs.movenext
loop
%>
</span>
</div>
</div>
</div>
<div id="footer">
<div id="footer1">
<h1 id="ff">支持在线支付方式：</h1>
<ul>
<li><a href="###">支付宝</a></li>
<li><a href="###">财富通</a></li>
<li><a href="###">建设银行</a></li>
<li><a href="###">工商银行</a></li>
</ul>
</div>
<ul>
<li><a href="###">关于我们</a></li>
<li><a href="###">帮助中心</a></li>
<li><a href="###">网站地图</a></li>
<li><a href="###">诚聘英才</a></li>
<li><a href="###">联系我们</a></li>
<li><a href="###">版权说明</a></li>
</ul></br>
<p class="copy">温州广厦建设开发有限公司 ©版权所有 翻版必究 无痕旗下网站</p>
<p class="jishi">法律规定|免责声明｜技术支持：无痕工作团|QQ:1374560768</p>
</div>
</body>
</html>