updatecp.asp

大家好

<%@ language="vbscript" %>
<!--#include file="..\adovbs.inc"-->
<% class2=request("class2")
   pp=request("pp")
   picture=trim(request("picture"))
   if picture="" then picture="No"
   yhj=csng(request("jg"))*cint(request("dz"))/100
   DbPath = SERVER.MapPath("..\bookshop.mdb")
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
   sm=replace(request("sm"),"'","''")
   sqltext="Update book set baseclass='"&request("class1")&"',childclass='"&class2 &"',bookname='"&request("cpmc")&"',cd='"&request("cd")&"',size='"&pp&"',publish='"&request("cj")&"',picture='"&picture&"',info='"&sm&"',dw='"&request("dw")&"',price="&ccur(request("jg"))&",yhj="&yhj&",author='"&request("Author")&"',dz="&cint(request("dz"))&",inputtime="&date&" where bookbm='"&request("bookbm")&"'"
   'response.write sqltext
   conn.execute(sqltext)
   response.write "数据修改成功"
   response.write "<br>"
   response.write" <a href='javascript:window.history.go(-1)'>返回</a>"
   conn.close
   set conn=nothing 
%>