下面是源码网站的首页：
程序代码：<!--#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><%=site("site_name")%>-<%=site("site_keywords")%></title>
<meta name="keywords" content="<%=site("site_keywords")%>" />
<meta name="description" content="<%=site("site_description")%>" />
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="header.asp"-->
<div id="content" class="layout">
<!--#include file="left.asp"-->
<div id="center">
<div class="center_title">
<h1><span class="tag">more>></span>公司简介</h1>
</div>
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from custom where custom_name='公司简介'"
rs.Open sql, conn, 1, 1
%>
<div class="center_body"><%=left(rs("custom_content"),349)%></div>
<div class="center_title">
<h1><span class="tag">more>></span>推荐产品</h1>
</div>
<div class="center_body">
<ul class="products">
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select top 6 * from products where recommendatory=1 order by id desc"
rs.Open sql, conn, 1, 1
Do While Not rs.EOF
%>
<li><a href="products_view.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><img src="<%=rs("thumbnail")%>" width="130" height="100" /></a><br />
<a href="products_view.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><%=left(rs("title"),40)%></a></li>
<%
rs.movenext
Loop
%>
</ul>
</div>
</div>
<div id="right">
<div class="left_title">
<h2><span class="tag">Industry knowledge</span>行业知识</h2>
</div>
<div class="right_body">
<div style="width:98%; ">
<ul class="news">
<%
Set rs = server.CreateObject("adodb.recordset")
exec = "select top 5 * 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 class="left_title">
<h2><span class="tag">News Dynamic</span>新闻动态</h2>
</div>
<div class="right_body">
<div style="width:98%; ">
<ul class="news">
<%
Set rs = server.CreateObject("adodb.recordset")
exec = "select top 5 * from news where category=2 order by id desc "
rs.Open exec, conn, 1, 1
If rs.EOF And rs.bof Then
response.Write("暂无新闻!")
response.End()
Else
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
rs.Close
Set rs = Nothing
%>
</ul>
</div>
</div>
</div>
<div class="clear"></div>
</div>
<!--#include file="footer.asp"-->