注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

一个色导航

一个色导航

 
 
 

日志

 
 

SEO博客:ASP显示数据库后五条数据  

2010-09-17 10:56:56|  分类: 程序人生 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

<%@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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>


<body>
<%
dir=""
db="cai.mdb"

-------连接数据库--------

set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&dir&db&"")
conn.open connstr

-------执行删除--------

action=request("action")
if action="del" then
id=request("id")
conn.execute"delete from Ok3w_Article where id="&id&""
response.Write"<script language=javascript>alert('删除成功');location.href='dzd.asp';</script>"
response.End()
end if
%>

<table width="750" border="0" cellspacing="0" cellpadding="0">
<tr>
    <td height="25" colspan="2">显示最后录入的五条</td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 5 * from Ok3w_Article order by id desc",conn,1,1    ---------倒序显示前5条数据
do while not rs.eof
%>
<tr>
    <td width="583" height="25"><%=rs("title")%></td>
    <td width="167"><a href="dzd.asp?action=del&id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
%>
</table>

<br />
<br />
<form action="dzd.asp" method="post" name="form2" id="form2">
<input name="action" type="hidden" value="lr" />
同时录入
<input name="zhi" type="text" id="zhi" />
&nbsp;
<input type="submit" name="Submit2" value="提交" />
</form>

---------添加数据---------
<%

if action="add" then

Title=request("Title")
ClassID=request("ClassID")
comefrom=request("comefrom")
' response.Write title
' response.End()
Title_F=split(Title,", ")
ClassID_F=split(ClassID,", ")
comefrom_F=split(comefrom,", ")
for c=0 to ubound(Title_F)
   'response.Write Title_F(c)&"<br>"
   conn.execute"insert into Ok3w_Article(ClassID,Title,comefrom) values("&ClassID_F(c)&",'"&Title_F(c)&"','"&comefrom_F(c)&"')"
next
response.Write"<script language=javascript>alert('添加成功');location.href='dzd.asp';</script>"
response.End()

end if
if action="lr" then
zhi=request("zhi")
%>
<br />
<br />
<form id="form1" name="form1" method="post" action="dzd.asp">
<input name="action" type="hidden" value="add" />
<table width="750" border="0" cellspacing="0" cellpadding="0">
<%for i=1 to zhi%>
    <tr>
      <td height="25">类别:
        <select name="ClassID" id="ClassID">
    <%
    set rs=server.CreateObject("adodb.recordset")
    rs.open "select * from Ok3w_Class",conn,1,1
    do while not rs.eof
    %>
          <option value="<%=rs("ID")%>"><%=rs("SortName")%></option>
    <%
    rs.movenext
    loop
    %>
          </select>
      &nbsp;&nbsp;&nbsp;
      标题:
      <input type="text" name="Title" />
      &nbsp; 内容:
      <input name="comefrom" type="text" id="comefrom" /></td>
    </tr>
<%next%>
    <tr>
      <td height="25"><input type="submit" name="Submit" value="提交" /></td>
    </tr>
</table>
</form>

<%end if%>
</body>
</html>

  评论这张
 
阅读(33)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018