时间:2021-05-22 08:43:12 | 栏目:ASP代码 | 点击:次
<% 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 %> |
<!--#include file="conn.asp" --> <% id=request.querystring("id") %> <%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> |
<%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 %> |