6，显示数据库表记录，并做指向HTML页的链接：showit.asp

代码运行框：
<!--#include file="conn.asp" -->
<!--#include file="lib.asp" -->
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from c_news order by c_id desc"
rs.Open sql,conn,1,1
%>

<%
if rs.EOF and rs.BOF then
   response.write ("暂时还没有文章，<a href=add.html>添加</a>")
else
   Do Until rs.EOF
%>
        <table width="758" border="0" align="center" cellpadding="3" cellspacing="1"

bgcolor="#000000">
            <tr>
            <td width="159" align="right" bordercolor="#CCCCCC" bgcolor="#CCCCCC"><%=rs

("c_time")%></td>
            <td width="591" bordercolor="#f3f3f3" bgcolor="#f3f3f3"><a href=<%=rs

("c_filepath")%> target="a_blank"><%=rs("c_title")%></a></td>
          </tr>
          <tr>
            <td valign="top" align="right" bordercolor="#ececec" bgcolor="#ececec">[<a

href=del.asp?c_id=<%=rs("c_id")%>>Dell</a>][<a href=change.asp?c_id=<%=rs("c_id")%>>Edit</a>]

[<a href="add.html">Add</a>]</td>
            <td valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><%=htmlencode(rs

("c_content"))%></td>
          </tr>
        </table><br>
<%
      rs.MoveNext
   Loop
end if
%>

<%
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
%>

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

7，修改数据内容页chang.asp

修改数据内容，同时也需要修改更新对应的HTML页面。修改其实就是重新生成文件，且文件名和之前一样，

类似文件的覆盖。

代码运行框：
<!--#include file="conn.asp" -->
<!--#include file="lib.asp" -->

<%id=request.querystring("c_id")%>

<%
if request.form("submit")="change" then
c_title=request.form("c_title")
c_content=request.form("c_content")
c_id=request.form("c_id")
c_filepath=request.form("c_filepath")

Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from c_news where c_id="&c_id
rs.Open sql,conn,3,2
rs("c_title")=c_title
rs("c_content")=c_content
rs("c_time")=now()
rs.update
rs.close
Set rs = Nothing
%>

<%'打开模板代码，并将其中特殊代码转变

上一页  [1] [2] [3] [4] 下一页