📄 rjsave.asp

📁 购物系统(本版为正式商业版
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx19<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
action=request("action")
id=request("id")
select case action
case ""
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style4 {
	color: #000000;
	font-weight: bold;
}
-->
</style>
</head>

<body>

  <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
    <tr>
      <td width="1%">&nbsp;</td>
      <td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
          <tr>
            <td width="30%" height="32" style="font-size:14px;color:#ffffff">&nbsp;<span class="style4">修改日记</span></td>
            <td width="70%" align="right">&nbsp;</td>
          </tr>
      </table></td>
    </tr>
  </table>
  <form method="POST" action="rjsave.asp?action=save">
    <%
					id=request("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_rj] where id="&id&" ",conn,1,1
%>
    <table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#9DB2D4">
      <tr bgcolor="#F0F3F8">
        <td><div align="center">分类：</div></td>
                        <td width="84%"><select name="classid" size="1"  class="wenbenkuang" id="select" onChange=chsel()>
                          <option value="xxx">请选择分类……</option>
                          <%
set rs_s=server.createobject("adodb.recordset")
sql="select * From shop_rj_class  order by id"
rs_s.open sql,conn,1,1
while not rs_s.eof
   
%>
                          <option value="<%=rs_s("id")%>" <%if rs("classid")=rs_s("id") then%>selected<%end if%>><%=trim(rs_s("classname"))%></option>
                          <%
    rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
        </select></td>
      </tr><tr bgcolor="#F0F3F8">
        <td width="16%" bgcolor="#F0F3F8"><div align="center">主题：</div></td>
        <td width="84%">
          <input name="rjname" type="text" class="wenbenkuang" id="rjname" value="<%=trim(rs("rjname"))%>" size="44" maxlength="40">
        * </td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td width="16%" bgcolor="#F0F3F8"><div align="center">作者：</div></td>
        <td width="84%">
          <input name="rjuser" type="text" class="wenbenkuang" id="rjuser" value="<%=trim(rs("rjuser"))%>" size="20" maxlength="30">
          <input name=id type=hidden value="<%=trim(rs("id"))%>" >
&nbsp;&nbsp;*&nbsp; </td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td width="16%" valign="top" bgcolor="#F0F3F8"><div align="center">内容：</div></td>
        <td width="84%" valign="middle">
          <textarea name="rjnr" cols="80" rows="20" class="wenbenkuang" id="rjnr"><%=trim(rs("rjnr"))%></textarea>        </td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td></td>
        <td></td>
      </tr>
      <tr bgcolor="#F0F3F8">
        <td width="16%" align="center">&nbsp;</td>
        <td width="84%">
          <input type="submit" value="马上发布" name="B1">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <input type="reset" value="全部重填" name="B2" class="go-wenbenkuang">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
      </tr>
    </table>
  </form>
  <br><%
case "shh"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_rj] where  id="&id&" ",conn,1,3
if rs("shh")=1 then
rs("shh")=0
else
rs("shh")=1
end if
rs.update
rs.close
set rs=nothing
response.Redirect "rj.asp"
case "tj"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_rj] where  id="&id&" ",conn,1,3
if rs("rjtj")=1 then
rs("rjtj")=0
else
rs("rjtj")=1
end if
rs.update
rs.close
set rs=nothing
response.Redirect "rj.asp"
case "itop"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_rj] where  id="&id&" ",conn,1,3
if rs("itop")=1 then
rs("itop")=0
else
rs("itop")=1
end if
rs.update
rs.close
set rs=nothing
response.Redirect "rj.asp"
case "save"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [shop_rj] where  id="&id&" ",conn,1,3
rs("rjname")=trim(request("rjname"))
rs("rjuser")=trim(request("rjuser"))
rs("classid")=trim(request("classid"))
rjnr=trim(request("rjnr"))&"<br>此内容已被管理员修改<br>时间于:"&now()
rs("rjnr")=rjnr
rs.update
rs.close
set rs=nothing
response.Redirect "rj.asp"

case "del"
set rs=server.createobject("adodb.connection")
for each a in request("de")
conn.execute "delete from shop_rj where id="& a
next
conn.close
response.redirect "rj.asp"
end select
%>
<!--#include file="copyright.asp"-->
⌨️ 快捷键说明

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