editsave2.asp

来自「系统功能说明： 1 本书库系统专为以文字为主的站点设计」· ASP 代码 · 共 26 行

<%@ Language=VBScript %>
<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="top.asp" -->
<%
bookid=request("bookid")
kindid=request("kindid")
tuijian=request("tuijian")
zuozhe=request("zuozhe")
hit=request("hit")
adv=request("adv")
bookname=request("bookname")
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from book where bookid="&request("bookid")
rs.open sql,conn,1,3
                
rs("hit")=hit
rs("kindid")=kindid
rs("zuozhe")=zuozhe
rs("tuijian")=tuijian
rs("bookname")=bookname
rs("adv")=adv
rs.update
rs.close
Response.Write "<br><br><br><br>编辑成功！"

%>