diary_save_self.asp

北京华信东方网络办公系统

<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<%
	if not isnumeric(request.Form("fee")) then
		response.Redirect("../error/Error.asp?steps=-1&errInfo=<li>金额只为数字</li>")
		response.End()	
	end if
    dim rs
    dim sql
	sql="select * from hxdf_diary_content "&_
		"		WHERE (d_Time = CONVERT(DATETIME, '"& request.Form("DiaryTime") &"', 102)) AND  "&_
		"      (v_UserTrueName = '"& Session("UserTrueName") &"')"
	set rs=server.CreateObject ("adodb.recordset")
	on error resume next
	rs.Open sql,conn,1,3
	if rs.EOF then
	rs.addnew
	end if
	if request.Form("DiaryTime") <> "" then
	rs("d_Time") = request.Form("DiaryTime")
	end if	
	if request.Form("Weather") <> "" then
	rs("v_Weather") = request.Form("Weather")
	end if
	if request.Form("WorkAddress") <> "" then
	rs("v_WorkAddress") = request.Form("WorkAddress")
	end if
	if request.Form("DiaryContent") <> "" then
	rs("t_DiaryContent")=request.Form("DiaryContent")
	end if
	if request.Form("DiaryYear")<>"" then
	rs("i_DiaryYear")=request.Form("DiaryYear")
	end if
	if request.Form("DiaryWeek")<>"" then
	rs("i_DiaryWeek")=request.Form("DiaryWeek")
	end if
	if request.Form("fee")<>"" then
	rs("m_fee")=CCur(request.Form("fee"))
	end if
	rs("v_UserTrueName")=Session("UserTrueName")
	rs("v_DepartmentName")=Session("DepartmentName")
	'rs("v_State")=State
	rs.Update	
	rs.close
	if err.number<>0 then
		response.Redirect("../error/Error.asp?steps=-1&errInfo=<li>日志更新失败</li><li>请纠正输入的数据,或重新登入系统</li>")
		response.End()
	else
	response.Redirect("diary_modify_self.asp?TheDate="& request.Form("DiaryTime"))
	end if

%>