?? officegoods_purchase_deal.asp
字號:
<%@ Language=VBScript %>
<!--#include file="../dbase.asp"-->
<%
'sql=" SELECT n_ID, v_GoodsName, i_PurchaseAmount, v_Unit, d_PurchaseDate, v_Department, v_UserName
' FROM hxdf_OfficeGoods_Purchase "
dim rs
set rs=server.CreateObject("adodb.recordset")
way=request.QueryString("way")
if way="delete" then'1
if request.QueryString("id")<>"" then'2
sql=" DELETE FROM hxdf_OfficeGoods_Purchase WHERE (n_ID = "&clng(request.QueryString("id"))&") "
conn.execute sql
response.Redirect("OfficeGoods_purchase_input.asp")
response.End()
else'2
response.Redirect("../error/Error.asp?steps=-1&errInfo=<li>沒有指定要刪除的對象</li>")
response.End()
end if'2
elseif way="addnew" or way="modify" then'1
sql=" SELECT n_ID, v_GoodsName, i_PurchaseAmount, v_Unit, d_PurchaseDate, v_Department, "&_
" v_UserName, t_remark, m_price "&_
" FROM hxdf_OfficeGoods_Purchase "
on error resume next
if way="addnew" then'2
rs.Open sql,conn,1,3
rs.AddNew
else' way="modify" then'2
sql=sql&" WHERE (n_ID ="& clng(request.QueryString("id")) &") "
rs.Open sql,conn,1,3
if rs.EOF then'3
response.Redirect("../error/Error.asp?steps=-1&errInfo=<li>沒有指定要刪除的對象</li>")
response.End()
end if'3
end if'2
if request.Form("GoodsName")<>"" then
rs("v_GoodsName")=request.Form("GoodsName")
end if
if request.Form("PurchaseAmount")<>"" then
rs("i_PurchaseAmount")=cint(request.Form("PurchaseAmount"))
end if
if request.Form("unit")<>"" then
rs("v_Unit")=request.Form("unit")
end if
if request.Form("remark")<>"" then
rs("t_remark")=request.Form("remark")
end if
if request.Form("PurchasePrice")<>"" then
rs("m_price")=request.Form("PurchasePrice")
end if
if request.Form("PurchaseDate")<>"" then
rs("d_PurchaseDate")=FormatDateTime(request.Form("PurchaseDate"),2)
else
rs("d_PurchaseDate")=FormatDateTime(now(),2)
end if
if request.Form("Department")<>"" then
rs("v_Department")=request.Form("Department")
else
rs("v_Department")=Session("DepartmentName")
end if
if request.Form("userName")<>"" then
rs("v_UserName")=request.Form("userName")
else
rs("v_UserName")=Session("UserTrueName")
end if
rs.Update
if err.number<>0 then
response.Redirect("../error/Error.asp?steps=-1&errInfo=<li>"&err.Description&"</li>")
response.End()
else
response.Redirect("OfficeGoods_purchase_input.asp")
end if
end if'1
%>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
</head>
<body>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -