rs_access.asp

oa办公系统asp程序

<!--#include file="../title.asp"-->
<%
dim ref_no,name,size
dim color,quantity,destination
dim unit_p,etd_date,meno,access_id
access_id=request("access_id")
ref_no=request("ref_no")
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
response.write etd_date
etd_date=formatdatetime(etd_date)
end if
if founderr<>true then
sql="select * from cloth_access_2"
rs.open sql,conn,1,3
rs.addnew
rs("ref_no")=ref_no
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
end if
%>
<meta http-equiv="refresh" content='5; URL="javascript:history.go(-2)"'><!--#include file="../copyright.asp" -->