caigou_fuadd2.asp

have playing search print and many very good contcent

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim padd,Sql
Dim cai_id,fukuan,feiyong,mone,yinfu
Dim isdataman

isdataman = Manage_Level(adl) 
If isdataman = "采购员" Then

cai_id = Trim(Request.Form("cai_id"))
fukuan = Cint(Request.Form("fukuan"))
feiyong = Trim(Request.Form("feiyong"))
mone = Trim(Request.Form("mone"))
yinfu = Trim(Request.Form("yinfu"))

  If Clng(fukuan) > Clng(yinfu) Then
  Response.Write "<script language=javascript>alert('此次付款不能高于应付金额!');"
  Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
  Else

Conn.Execute("Update [CaiGou] Set YiFu=YiFu+"&fukuan&" Where Cai_ID='"&cai_id&"'")

Set padd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [CaiGouFuKuan] Where (ID is null)"
padd.Open Sql,Conn,1,3
padd.addNew
padd("Cai_ID") = cai_id
padd("FuKuan") = fukuan
padd("FeiYong") = feiyong
padd("Mone") = mone
padd.Update
padd.Close
Set padd=Nothing
Conn.Close
Set Conn=Nothing

Response.Write "<script language=javascript>alert('采购付款单添加成功!');"
Response.Write "window.document.location.href='CaiGou_FuAdd.asp';</script>"
  End if
Else
  Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
  Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
%>