gusucode.com > ASP+ACCESS音乐网站建设设计(源代码+论文+开题报告+答辩PPT+外 > ASP+ACCESS音乐网站建设设计(源代码+论文+开题报告+答辩PPT+外文翻译)\音乐网站设计\ADMIN\xgNEWS.asp
<!-- #include file="dbconn.inc" --> <!--#include file="../inc/html.inc"--> <% id=request("id") set rs=server.createobject("adodb.recordset") sql="select * from news where id="&id rs.open sql,conn,3,3 %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta http-equiv="Content-Language" content="zh-cn"> <link rel="stylesheet" href="../inc/register.css" type="text/css"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>我爱音乐网—>论坛留言栏目—>管理登录</title> </head> <body topmargin="0" leftmargin="0"> <BR> <div align="center"> <center> <form action=xgnews.asp?id=<%=rs("id")%> method=post> <table border="1" cellpadding="0" cellspacing="0" width="450" height="320" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF"> <tr> <td width="446" height="17" valign="bottom" background="../images/t-bg1.gif"> <p align="center">=== 修改留言 ===</td> </tr> <tr> <td valign="top" bgcolor="#F5F5F5" width="446"> <p align="center"><br> 标 题:<input type="text" name="title" size="37" maxLength=25 value="<%=rs("title")%>"> <p align="center">正 文:<br> <textarea rows="17" name="text" cols="52" ><%=rs("text")%></textarea> <p align="center"><input type="submit" value="修改" style="position: relative; height: 20"><br> <br> </td> </tr> </table> </form> </center> </div> </body> </html> <% title=request("title") text=htmlencode2(request("text")) if title ="" or text="" then response.end end if rs("title")=title rs("text")=text rs("idate")=now() rs.update rs.close set rs=nothing response.write"<SCRIPT language=JavaScript>alert('新闻修改成功!');" response.write"javascript:window.close();</SCRIPT>"%>