<% For i = 1 to rs.PageSize ''''利用for next 循环依次读出当前页的记录 if rs.EOF then Exit For end if response.write("<a href=change.asp?id="& rs("cn_id") &">修改</a>") response.write("文章标题是:"& rs("cn_title")) response.write("<br>文章作者是:"& rs("cn_author")) response.write("<br>文章加入时间是:"& rs("cn_time")) response.write("<br>文章内容是:"& rs("cn_content")) response.write("<hr>") rs.MoveNext Next %>
<%if request.form("submit")="change" then whattitle=request.form("title") whoauthor=request.form("author") whatcontent=request.form("content") id=request.form("id") Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * from cnarticle where cn_id="&id rs.Open sql,conn,3,2 rs("cn_title")=whattitle rs("cn_author")=whoauthor rs("cn_content")=whatcontent rs.update rs.close Set rs = Nothing conn.close set conn=Nothing response.redirect("showit.asp") response.end %> <%end if%>
<% if id<>"" then Set rs = Server.CreateObject ("ADODB.Recordset") sql="select * from cnarticle where cn_id="&id rs.Open sql,conn,1,1 whattitle=rs("cn_title") whoauthor=rs("cn_author") whatcontent=rs("cn_content") end if %> <form action="change.asp" method="post"> Title:<input type="text" name="title" value=<%=whattitle%>><br> Author:<input type="text" name="author" value=<%=whoauthor%>><br> Content:<br> <textarea name="content" rows="8" cols="30"><%=whatcontent%></textarea><br> <input type="submit" value="change" name="submit"> <input type="reset" value="Reset"> <input name="id" type="hidden" value="<%=id%>"> </form>
当然所有的检察,安全防护都还没做,BUG多多,自己也来慢慢解决。
另外一类的修改更新
<%if request.form("submit")="change" then whattitle=request.form("title") whoauthor=request.form("author") whatcontent=request.form("content") id=request.form("id")
sql = "update cnarticle set cn_title=''''"&whattitle&"'''',cn_author=''''"&whoauthor&"'''',cn_content=''''"&whatcontent&"'''' where cn_id="&id conn.Execute(sql) conn.close set conn=Nothing response.redirect("showit.asp") response.end %>