使用ASP与ADO管理博客栏目-CSDN博客

本文链接：https://blog.csdn.net/cpine/article/details/3581656

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conn.asp"-->
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ADO的基本操作</title>
</head>
<body style="font-size:12px">
<form id="form1" name="form1" method="post" action="tempAddItem.asp">
<table width="53%" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:50px;">
    <tr>
      <td> 增加栏目：
<label>
<input type="text" name="txtItem" id="txtItem" />
</label>
<label>
<input type="submit" name="go" id="go" value="增加栏目" />
</label></td>
    </tr>
</table>
</form>
<table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#0099FF">
<tr>
    <td><div align="center">序号</div></td>
    <td height="20"><div align="center">栏目名称</div></td>
    <td><div align="center">创建时间</div></td>
    <td><div align="center">状态</div></td>
    <td><div align="center">修改</div></td>
    <td><div align="center">删除</div></td>
</tr>
<%
set rsItem=server.CreateObject("adodb.recordset")
rsItem.open "select * from blogItem",conn,1,1
counter=1
while not rsItem.eof
%>
<tr>
    <td bgcolor="#FFFFFF"><div align="center"><%=counter%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%=rsItem("itemName")%></div></td>
    <td bgcolor="#FFFFFF"><div align="center"><%=rsItem("createTime")%></div></td>
    <td bgcolor="#FFFFFF"><div align="center">
      <%
   if cint(rsItem("flag"))=1 then
    response.Write("已经开启")
   else
    response.Write("已经关闭")
   end if
%>
    </div></td>
    <td bgcolor="#FFFFFF"><div align="center">
    <a href="tempModi.asp?id=<%=rsItem("itemId")%>">修改</a>
    </div></td>
    <td bgcolor="#FFFFFF"><div align="center">
    <a href="tempDelete.asp?id=<%=rsItem("itemId")%>">删除</a>
    </div></td>
</tr>
<%
countercounter=counter+1
rsItem.movenext
wend
rsItem.close()
set rsItem=nothing
%>
</table>
</body>
</html>

ADO的基本操作(一)