modytdb.asp

来自「现在的病毒是越来越多了,几乎每上一回电脑都要杀毒,所以杀毒软件是必不可少的」· ASP 代码 · 共 54 行

ASP
54
字号
<!--#INCLUDE FILE="sysinc.asp" -->
<html>
<head>
<LINK href="../style.css" rel=stylesheet>
<title>修改公告信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<% id=trim(request("id"))
   zhuti=trim(Request("a"))
   neirong=trim(Request("b"))

   if zhuti<>"" and neirong<>"" then
      sqlstr = "Select * FROM 议题讨论 where 议题编号="&id
      my_rs.Open sqlstr,my_Conn,1,3
      my_rs("议题主题")=zhuti
      my_rs("提议内容")=neirong
      my_rs.update
      my_rs.close
         '添加日志信息
      set my_rs=nothing
      set my_rs=server.createobject("adodb.recordset")
sqlstr="select * from 系统日志信息"
my_rs.open sqlstr,my_Conn,1,3
my_rs.addnew
my_rs("使用者名称")=session("username")
my_rs("所做事件")="修改议题信息,编号为"&id
my_rs.update
my_rs.close%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td> 
      <div align="center"><br>
        <br>
        <br>
        <br>
        <br>
        修改议题信息成功!! 
        <% else%>
        <%response.write "公告信息不全 请确定!!"
   %>
        <%end if
  response.write "<input type='button' value='关闭窗口' name='B2' class='buttonface' onclick='javascript:self.close()'>"
%>
      </div>
      <div align="center"></div>
    </td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?