reportadddo.asp

客户管理系统使用ASP.NET和Access

<!--#include file="conn.asp"-->
<!--#include file="islogin.asp"-->
<%
function makefilename(fname)
  fname = replace(fname,"-","")
  fname = replace(fname," ","") 
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  makefilename=fname
end function 
%>
  <% addtimeTT=makefilename(date())
     nr=request.form("nr")
     Member=session("Member")
     MemberID=session("MemberID")
     addtime=now
	 
	 set rs=server.createobject("adodb.recordset")
	 sql="select * from Report where MemberID="&session("MemberID")&" and addtimeTT='"&addtimeTT&"'  "
     rs.open sql,conn,1,3
if rs.eof or rs.bof then
	 rs.addnew
    rs("MemberID")=MemberID
    rs("Member")=Member
    rs("nr")=nr
    rs("addtime")=addtime
    rs("n")=0
    rs("addtimeTT")=addtimeTT
    rs.update
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
     response.Write("<script>alert('你的日报表已经成功保存！');</script>")
     response.Redirect("Report.asp")
else
    rs("nr")=nr
	rs("MemberID")=MemberID
    rs("Member")=Member
    rs.update
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    response.Write("<script>alert('你的日报表已经成功保存！');</script>")
    response.Redirect("Report.asp")
end if 
 %>