从一段ASP代码分析HTML、CSS、ASP、SQL（一）
在大二的时候参加学校的一个网页设计比赛，做了一个关于党建90周年的网站。这个网站是用CSS+ASP+ACCESS2003写的。虽说access数据库现在基本没人用了，但是这对初学者来说是很好的一个数据库操作平台。尤其是在学习SQL时，用Access比MSSQL和MYSQL要容易上手些，因为Access数据库很直观并且各种操作也很简洁明了。但是微软自己Access已经被MSSQL代替了，而且当前流行的Web技术都集中在了PHP上，而PHP和MYSQL向来是黄金搭档，所以几乎没人用了。随之是ASP升级为ASP.NET，搭配MSSQL数据库。我写这篇博文的目的是给一些WEB的初学者，当然也算是自己的一个心路总结了。下面是首页index.asp代码，我就从这里入手。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="Connection/conn.asp"-->
<head>
<script>window.open('inininin.asp','typecodes','toolbar=no,status=no,scrollbars=yes,left=60,top=50,width=280,height=170')</script>
<meta name="robots" content="all" />
<meta name="Copyright" content="Copyright (c) http://vfhky.sinaapp.com/" />
<meta name="Description" content="typecodes" />
<meta name="Keywords" content="https://typecodes.com/ typecodes" />
<link rel="stylesheet" href="css/index.css" type="text/css"/>
<title>typecodes--首页</title>
<link rel="Shortcut Icon" href="img/logo.ico" />
<link rel="Bookmark" href="img/logo.ico" />
</head>
<body>
<div id="web">
<!--#include file="top.html"-->
<!-- 网站中部 -->
<div id="mid">
<!--#include file="left.html"-->
<!-- 网站中部右边 -->
<div id="right">
<!-- 网站中部右边幻灯片栏 -->
<div id="flash">
<embed height="172" width="230" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" quality="high" menu="false" flashvars="borderwidth=230&borderheight=159&textheight=22&interval_time=6&pics=img/hgdy.jpg|img/wjb.jpg|img/qhdx.jpg|img/hmt.jpg&links=list.asp?classid=4|index.asp|index.asp|index.asp&texts=typecodes|亲切接见大学生们|100周年校庆|typecodes掠影--画眉潭" wmode="opaque" src="flash/news.swf" />
</div>
<!--幻灯片结束-->
<!-- 网站中部右边四个新闻版块 -->
<% dim classid1
sql="select * from newsclass order by classid "
set rs=conn.execute(sql)
do while not rs.eof
%>
<%if rs("classid")=1 or rs("classid")=2 then%>
<div id="content1">
<div align="left"><img src="<%=rs("classimg")%>" alt="<%=rs("classtitle")%>"/> <a href="list.asp?classid=<%=rs("classid")%>" target="_blank"/><a href="list.asp?classid=<%=rs("classid")%>" target="_blank"><img src="img/more.gif" /></a></a><img src="img/fgx.jpg"></div><!--前面的代码显示的是每个新闻版块的导航-->
<ul id="neiron">
<%
classid1=rs("classid")
sql="select top 3 * from news where classid="&classid1&" order by time desc "
set rs1=conn.execute(sql)
do while not rs1.eof
%>
<li><img src="img/page.jpg" /><a href="detail.asp?classid=<%=rs1("classid")%>&newsid=<%=rs1("newsid")%>" target="_blank" /><%
if rs1("image")<>"" then
response.write "<font color='#0000CC' >[图]</font>"
end if
if len(trim(rs1("title")))>17 then
title=trim(rs1("title"))
response.write left(title,17)&"……"
else
title=trim(rs1("title"))
response.write title
end if
%></a>
<font color="#663300" size="2px">[<%=formatdatetime(rs1("time"), 2)%>]</font></li>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
%></ul>
</div>
<%else%>
<div id="content">
<div align="left"><img src="<%=rs("classimg")%>" alt="<%=rs("classtitle")%>"/> <a href="list.asp?classid=<%=rs("classid")%>" target="_blank"/><a href="list.asp?classid=<%=rs("classid")%>" target="_blank"><img src="img/more.gif" /></a></a><img src="img/fgx.jpg"></div><!--前面的代码显示的是每个新闻版块的导航-->
<ul id="neiron">
<%
classid1=rs("classid")
sql="select top 3 * from news where classid="&classid1&" order by time desc "
set rs1=conn.execute(sql)
do while not rs1.eof
%>
<li><img src="img/page.jpg" /><a href="detail.asp?classid=<%=rs1("classid")%>&newsid=<%=rs1("newsid")%>" target="_blank" /><%
if rs1("image")<>"" then
response.write "<font color='#0000CC' >[图]</font>"
end if
if len(trim(rs1("title")))>17 then
title=trim(rs1("title"))
response.write left(title,17)&"……"
else
title=trim(rs1("title"))
response.write title
end if
%></a>
<font color="#663300" size="2px">[<%=formatdatetime(rs1("time"), 2)%>]</font></li>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
%></ul>
</div>
<%
end if
rs.movenext
loop
rs.close
set rs=nothing
%><!--四个新闻版块结束-->
<!-- 网站右边留言版块 -->
<div id="content2">
<div align="left"><img src="img/newsdj.gif" alt="留言"/> <a href="message.asp" target="_blank"><img src="img/more.gif" /></a><img src="img/fgx.jpg"></div>
<ul id="neiron"> <%
sql="select top 3 * from message order by time desc "
set rs=conn.execute(sql)
do while not rs.eof
%>
<li><img src="img/page.jpg" /><a href="message.asp?id=<%=rs("id")%>" target="_blank"><%if len(trim(rs("content")))>20 then
content=trim(rs("content"))
response.write left(content,20)&"…"
else
content=trim(rs("content"))
response.write content
end if%></a><font color="#663300" size="2px">[<%=formatdatetime(rs("time"), 2)%>]
</font></li>
<%
rs.movenext
loop
set rs=nothing
conn.close%>
</ul>
</div>
</div><!--div id="right"结束-->
</div><!--div id="mid"结束-->
<!--#include file="bottom.html"-->
</div><!--div id="web"结束-->
</body>
</html>
接下来是重点分析这里面的一些东东了，点击马上进入《从一段ASP代码分析HTML、CSS、ASP、SQL（二）》。
打赏支持
Comments »