changedata.asp

这个是图书管理系统绝对是本人原著！而且多次调试能够用！

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="adofunctions.asp" --> 
<%
  if application("loginok")="yes" then
   response.Redirect "index.asp"
   end if
%>
<%
    dim shuhao,shum,zhuoz,chubs,chubrq,shul,danj,tuslx
    shuhao=trim(request.form("shuhao"))
	strsql="select * from 图书表 where 书号= '" & shuhao &"'"
    Set objrs = GetSQLRecordset(strsql,"bookstore.mdb", "图书表")
	shum=objrs("书名")
	zhuoz=objrs("作者")
	chubs=objrs("出版社")
	chubrq=objrs("出版日期")
	shul=objrs("数量")
	danj=objrs("单价")
	tuslx=objrs("图书类型")
	strsq="delete from 图书表 where 书号= '" & shuhao &"'"
	GetSQLRecordset strsq,"bookstore.mdb", "图书表"
%>
<%
  dim shuming,zhuozhe,chubanshe,nian,yue,ri,shuliang,danjia,leixing,chubanriqi
  shuming=request.Form("shuming")
  zhuozhe=request.Form("zhuozhe")
  chubanshe=request.Form("chubanshe")
  nian=request.Form("nian")
  yue=request.Form("yue")
  ri=request.Form("ri")
  shuliang=request.Form("shuliang")
  danjia=request.Form("danjia")
  leixing=request.form("leixing")
  if shuming="" then
    shuming=shum
  end if
  if zhuozhe="" then
    zhuozhe=zhuoz
  end if
  if chubanshe="" then
    chubanshe=chubs
  end if
  if not isnumeric(shuliang) or shuliang="" then
  	shuliang=shul
  end if
  if not isnumeric(danjia) or danjia="" then
    danjia=danj
  end if
  if leixing="" then
    leixing=tuslx
  end if
  if nian<>"" and not isnumeric(nian) and yue<>"" and not isnumeric(yue) and ri<>"" and not isnumeric(ri) then
     n=year(date())
	 if int(nian)<n and int(yue)<13 and int(ri)<32 then
	  chubanriqi=nian+"-"+yue+"-"+ri
	 else
      chubanriqi=chubrq
	 end if
  else
   chubanriqi=chubrq	   
  end if
%>
<%
   objRS.AddNew Array("书号","书名","作者","出版社","出版日期","数量", "单价", "图书类型"),_
   Array(shuhao,shuming,zhuozhe,chubanshe,chubanriqi,shuliang,danjia,leixing)
   objRS.Update
   response.Redirect "guanliyuan.asp"
   objRS.close
   set objRS=nothing
   objConn.close
   set objConn=nothing
%>