rs_access_edit.asp

oa办公系统asp程序

<!--#include file="../title.asp"-->
<%
dim id
dim ref_no,name,size
dim color,quantity,destination
dim unit_p,etd_date,meno,access_id
id=request("id")
ref_no=request("ref_no")
access_id=request("access_id")
name=request("name")
size=request("size")
color=request("color")
quantity=request("quantity")
destination=request("destination")
unit_p=request("unit_p")
etd_date=request("etd_date")
meno=request("meno")
founderr=false
if not isdate(etd_date) then
founderr=true
response.write "Wrong Etd Date"
else
etd_date=formatdatetime(etd_date)
end if
if founderr<>true then
sql="select * from cloth_access_2 where id = "&id&" "
rs.open sql,conn,1,3
rs("access_id")=access_id
rs("etd_date")=etd_date
rs("name")=name
rs("size")=size
rs("color")=color
rs("quantity")=quantity
rs("unit_p")=unit_p
rs("meno")=meno
rs.update
%>
<br>辅料修改完毕!
<meta http-equiv="refresh" content='2; URL="edit_access.asp?ref=<%=ref_no%>"'>
<%end if%>