admin_edit2.asp

是运行在asp环境下寻梦书库管理系统

<%@LANGUAGE="VBSCRIPT"%>
<!--#INCLUDE FILE="inc/conn.asp" -->
<!--#INCLUDE FILE="top.asp" -->
<!--#include file="chk.asp"-->
<%
action=request("action")
if action<>"save" then

bookid=request("bookid")
kindid=request("kindid")
dim rs
dim sql
set Rs = Server.CreateObject("ADODB.Recordset")
sql ="Select * FROM book where bookid="&request("bookid")
rs.open sql,conn,1,1

kindid=rs("kindid")
bookname=rs("bookname")
adv=rs("adv")
hit=rs("hit")
zuozhe=rs("zuozhe")
tuijian=rs("tuijian")
%>

<br><br><br><br>
<form method="post" action="admin_edit2.asp?action=save">
  <div align="center">
    <center>
  <table width="461" border="1" cellspacing="0" cellpadding="2" height="228" style="border-collapse: collapse" bordercolor="#C6E0C2">
    <tr> 
      <td width="96" height="17" align="left">
      书名:</td>
      <td width="367" height="17"> 
        <input type="text" name="bookname" maxlength="50" size="14" style="border-style: groove; border-width: 1; background-color:#FFFFFF" value="<%=bookname%>">&nbsp; 
        <input type="hidden" name="bookid" maxlength="30" size="8" style="border-style: groove; border-width: 1; background-color:#FFFFFF" value="<%=bookid%>">
</td>
    </tr>
<tr><td>类型</td><td>
<select name="kindid">
          <option value="" selected>选择类型</option>
          <%
sql="select * from kind"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof
%> 
          <option value="<%=rs("kindid")%>"><%=rs("kindname")%></option>
          <%
rs.movenext
wend
rs.Close()
%> 
        </select>
　　推荐度：<select name=tuijian size=1>
<option value=1>★☆☆☆☆</option>
<option value=2>★★☆☆☆</option>
<option value=3>★★★☆☆</option>
<option value=4>★★★★☆</option>
<option value=5>★★★★★</option>
</select>
</tr>
       <tr> 
            <td width=100px valign="top">选项：</td><td>
 <select name=Btype size=1>
<option value=2>原创</option>
<option value=1>首发</option>
<option value=0>转载</option>
</select></td></tr>
    <tr>
      <td nowrap width="96" height="2" align="left">
      作者:</td>
      <td width="367" height="2"> 
        <input type="text" name="zuozhe" size="16" maxlength="50"  style="border-style: groove; border-width: 1;" value="<%=zuozhe%>"></td>
    </tr>
       <tr> 
      <td nowrap width="96" height="92" align="left">
      介绍:</td>
      <td width="367" height="92"> 
        <textarea name="adv" cols="45" rows="6" style="border-style: groove; border-width: 1"><%=adv%></textarea>
      </td>
    </tr>
    <tr>
      <td nowrap width="96"height="34">　</td>
      <td width="367" height="34"> 
        <input type="submit" name="Submit" value="修改">&nbsp;&nbsp;
        <input type="reset" name="Submit2" value="恢复"></td>
    </tr>
  </table>
    </center>
  </div>
</form>
<%else

bookid=request("bookid")
kindid=request("kindid")
tuijian=request("tuijian")
zuozhe=request("zuozhe")
adv=request("adv")
Btype=request("Btype")
bookname=request("bookname")
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from book where bookid="&request("bookid")
rs.open sql,conn,1,3
                
rs("kindid")=kindid
rs("zuozhe")=zuozhe
rs("tuijian")=tuijian
rs("bookname")=bookname
rs("adv")=adv
rs("Btype")=Btype
rs.update
rs.close
conn.execute("update book set edtime=now() where bookid="&bookid&" ")
response.redirect "admin_index.asp?kindid="&kindid&""
%>
<%end if%>