📄 fyedit.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='../../default.asp';")
	response.write("</script>")
	response.end
end if
%>

<html>

<head>

<title>费用管理</title>

<meta http-equiv=Content-Type content="text/html; charset=gb2312">

<!--  #Include File=../inc/css.asp -->

<style>
.css0{border:none;filter:chroma(color=#ffffff);}
</style>

<script language=JavaScript>

function oninput()
{
	//组成日期字符串
	document.submitinput.Criqi.value ="";
	document.submitinput.Criqi.value +=document.submitinput.fYear.value + "-" 
	document.submitinput.Criqi.value +=document.submitinput.fMonth.value + "-" 
	document.submitinput.Criqi.value +=document.submitinput.fDay.value + " " 
	
	rphtml('Cfeiyong','Cpeople','Cjianshu','Cbeizhu');
	//显示必须填写的项目
	if (ds(document.submitinput.Cshouzhi.value)=="") 
    {
     	alert("收支不能为空!");
     	document.submitinput.Cshouzhi.focus();
     	return;
    }
	if (ds(document.submitinput.Cfeiyong.value)=="") 
    {
     	alert("费用不能为空!");
     	document.submitinput.Cfeiyong.focus();
    	return;
    }
	if (ds(document.submitinput.Cpeople.value)=="") 
    {
     	alert("经办人不能为空!");
     	document.submitinput.Cpeople.focus();
     	return;
    }
	if (ds(document.submitinput.Cjianshu.value)=="") 
    {
     	alert("简述不能为空!");
     	document.submitinput.Cjianshu.focus();
     	return;
    }
    
		if (document.submitinput.Cfeiyong.value.length>10)
		{
     		alert("费用输入不能超过10位");
     		document.submitinput.Cfeiyong.focus();
     		return false;
    	}
    	
    	if (document.submitinput.Cjianshu.value.length>200)
		{
     		alert("简述输入不能超过100字");
     		document.submitinput.Cjianshu.focus();
     		return false;
    	}
    	
    	if (document.submitinput.Cpeople.value.length>20)
		{
     		alert("经办人姓名输入不能超过10字");
     		document.submitinput.Cpeople.focus();
     		return false;
    	} 
    
		MM_validateForm('Cfeiyong','','RisNum');
		if(document.MM_returnValue)
		{
			document.submitinput.submit();
		};
		return false;           
    
	document.all.submitinput.submit();    

}

</script>

<%   
    on error resume next
	Server.ScriptTimeOut =4
	
	dim Number,opFlag,title,image
	Number=cint(request("Number"))
	opFlag=request("opFlag")

	dim shouzhi,Cshouzhi,fYear,fMonth,fDay
	'shouzhi,Cshouzhi变量传递的是收支字段的值
	'fYear,fMonth,fDay分别表示日期的年月日
		
	Set rs = Server.CreateObject("ADODB.Recordset")

	if opFlag="cmdAddNew" then
		'显示当前日期
		fYear=fromYear
		fMonth=fromMonth
		fDay=fromDay       
	else
    	rs.Open Session("SQL"),Session("conn"),1,3
    	rs.move number
    	'还原收支字段的值
    	shouzhi  = "" & rs("Cshouzhi")
		Cshouzhi = mid(shouzhi,1,6)
		'还原日期
		temptime  = "" & rs("Criqi")
		fYear  = mid(temptime,1,4)
		fMonth = mid(temptime,6,2)
		fDay   = mid(temptime,9,2)
	end if
	
	title="费用管理"
	image="../images/car.gif"
%>

<style>
.css0{border:none;}
</style>

<script language=JavaScript>

function ds(sstr)
{
 	var dstr="";
 
 	for (i=0;i<sstr.length;i++)
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -