TypeCodes

从一段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&amp;borderheight=159&amp;textheight=22&amp;interval_time=6&amp;pics=img/hgdy.jpg|img/wjb.jpg|img/qhdx.jpg|img/hmt.jpg&amp;links=list.asp?classid=4|index.asp|index.asp|index.asp&amp;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")%>"/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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")%>"/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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="留言"/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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 »