‘删除选定的信息

response.redirect “maninfo.asp”

‘返回maninfo.asp页面

rs.close

c1.close%>

2.2.6 modiinfo.asp(修改信息)

<%set rs=server.createobject("adodb.recordset")

rs.open “select * from信息表 where 索取号=’"&trim(request("id"))&”’”%>

<form method="POST" action="modiinfook.asp?id=<%=request(“id”)%>">

‘利用id=<%=request(“id”)%>传递索取号

    索取号：<input type="text" name="suoqu" size="10" value=”<%=trim(rs(“索取号”))%>”><br>

标题：<input type="text" name="name" size="30" value=”<%=trim(rs(“标题”))%>”><br>

内容：<textarea name="content" rows=5 cols=30><%=trim(rs(“内容”))%></textarea><br>

<input type="submit" value=" 修改 " name="B1">&nbsp;&nbsp;&nbsp;<input type="reset" value="重新填写" name="B1">

    </form>

2.2.7 modiinfook.asp(修改信息)

    <!--#include file=”title.asp”-->

    ‘在头部分调用连接数据库的title.asp文件

    <%

    set rs=server.createobject("adodb.recordset")

    rs.open "select * from 信息表 where 索取号=’”&trim(request(“id”))&”’”,c1,1,3

‘建立rs对象打开信息表。

rs("索取号")=trim(theform("suoqu"))

    ‘trim为ASP中的内建函数，表示为去掉文本两边的空格

    rs("标题")=trim(theform("name"))

    rs("内容简介")=theform("content")

    rs("发布时间")=now

    ‘now为ASP中的内建函数，表示获取当前时间

    rs.update

rs.close

c1.close

%>