📄 modify_dynamic.asp

📁 又一套宾馆全站源码

💻 ASP

字号:

<%
	option explicit
	if Session("user_id")="" then
    	response.write "请您先<a href=entry.asp>登录</a>！"
		response.end
  	end if
	on error resume next
	dim rs
	set rs = server.Createobject("ADODB.recordset")
	rs.open "Select * from t_dynamic where dynamic_id = "& request("id") &"",Application("Connect_String"),3,2
      if request("B1")="提交" then
         rs.update
         rs("dynamic_title")=request("title")
         rs("dynamic_dynamic")=request("dynamic")
         rs("dynamic_date")=now()
         rs.update
	  	if err then
		   response.write "添加数据时错误："&err.description
		   response.end
	    else
           response.redirect "manage_dynamic.asp"
        end if
      end if
  
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>珠海宾馆－最新动态添加</title>
<link rel=stylesheet type=text/css href=../style.css>
</head>

<body>

<div align="center">
  <center>
   <form method="POST" action="modify_dynamic.asp?id=<%=request("id")%>">
  <div align="center">
    <center>
  <table border="0" cellspacing="1">
    <tr>
      <td align="center">

          标题：
      </td>
      <td align="center">

          <input type="text" name="title" size="61" value=<%=rs("dynamic_title")%>>
      </td>
    </tr>
    <tr>
      <td align="center">

          内容：
      </td>
      <td align="center">

          <p><textarea rows="25" name="dynamic" cols="60"><%=rs("dynamic_dynamic")%></textarea></p>
      </td>
    </tr>
    <tr>
      <td align="center"></td>
      <td align="center"><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"><input type="button" value="返回" onclick="location.href=&quot;manage_dynamic.asp&quot;"></td>
    </tr>
  </table>
    </center>
  </div>
</form>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -