⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 modify_today_price.asp

📁 又一套宾馆全站源码
💻 ASP
字号:
<%
	if Session("user_id")="" then
    	response.write "请您先<a href=entry.asp>登录</a>!"
		response.end
  	end if
  	   set rs= server.createobject("ADODB.recordset")
	   rs.open "Select * from t_today_price where today_price_id="& request("id") &" order by today_price_date desc",Application("Connect_String"),3,2
  	if request("B1")="提交" then
	   rs.update
	   rs("today_price_title")=request("title")
	   rs("today_price_price")=request("price")
	   rs("today_price_date")=now()
 	   rs("today_price_comment")=request("today_price_comment")
	   rs.update
       response.redirect "manage_today_price.asp"
	end if
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<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>

<form method="POST" action="modify_today_price.asp?id=<%=request("id")%>">
  <div align="center">
    <center>
    <table border="0" cellpadding="2">
      <tr>
        <td>标题:</td>
        <td><input type="text" name="title" size="44" value=<%=rs("today_price_title")%>></td>
      </tr>
      <tr>
        <td>
  价格:</td>
        <td><input type="text" name="price" size="44" value=<%=rs("today_price_price")%>></td>
      </tr>
      <tr>
        <td>说明:</td>
        <td><textarea rows="14" name="today_price_comment" cols="42"><%=changechr(rs("today_price_comment"))%></textarea></td>
      </tr>
      <tr>
        <td colspan="2">
  <input type="submit" value="提交" name="B1"><input type="reset" value="重写" name="B2"><input type="button" value="返回" onclick="location.href=&quot;manage_today_price.asp&quot;"></td>
      </tr>
    </table>
    </center>
  </div>
</form>

</body>

</html>
<%
function changechr(str)    
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;")    
    changechr=replace(replace(replace(replace(changechr,"[img]","<img src="),"[b]","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")    
    changechr=replace(replace(replace(replace(changechr,"[/img]","></img>"),"[/b]","</b>"),"[/red]","</font>"),"[/big]","</font>")    
end function
%>

⌨️ 快捷键说明

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