📄 fedit.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<%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=../main/css.asp -->


<%   dim fYear,fMonth,fDay,fHour,fMinute,tempstime,title,opFlag,Number,image
	opFlag=request("opFlag")
	if opFlag="" then opFlag="cmdAddNew"
	Number=request("Number")
	if Number="" then Number="0"
	on error resume next
	set rs=Server.CreateObject("ADODB.RecordSet") 
	
        '创建时间信息  
	rs.open "select * from marketd",Session("conn"),1,1	
	while not rs.eof
		tempstime  = date()
		fYear=year(tempstime)
		fMonth=right("0" & month(tempstime),2)
		fDay=right("0" & day(tempstime),2)
		fromYear  = year(tempstime)
		fromMonth = right("0" & month(tempstime),2)
		fromDay   = right("0" & day(tempstime),2)
		fromHour  = right("0" &Hour(tempstime),2)
		fromMinute = right("0" &Minute(tempstime),2)
		rs.movenext
	wend
	rs.close
      '读取数据库时间信息 		
     if opFlag="cmdEdit" then 
		rs.open Session("SQL"),Session("conn"),1,1
		rs.move Number
		temptime=""& rs("Ddate")
		fYear  = mid(temptime,1,4)
		fMonth = mid(temptime,6,2)
		fDay   = mid(temptime,9,2)
		temptime= "" & rs("Pdata")
		fromYear  = mid(temptime,1,4)
		fromMonth = mid(temptime,6,2)
		fromDay   = mid(temptime,9,2)
		fromHour = mid(temptime,12,2)
		fromMinute  = mid(temptime,15,2)   
	end if 
	 
	select case opFlag 
	case "cmdAddNew" 
		title="设计方案信息添加" 
	case "cmdEdit" 
		title="设计方案信息修改" 
	end select 
	image="../images/design.gif"
%>

<style>
.css0{;border:none;}
</style>
<script language="JavaScript">
//提交日期和表单信息
function oninput()
{

    document.submitinput.Ddate.value ="";
    document.submitinput.Ddate.value +=document.submitinput.fYear.value + "-" 
    document.submitinput.Ddate.value +=document.submitinput.fMonth.value + "-" 
    document.submitinput.Ddate.value +=document.submitinput.fDay.value + " " 

    document.submitinput.Pdata.value ="";
    document.submitinput.Pdata.value +=document.submitinput.fromYear.value + "-" 
    document.submitinput.Pdata.value +=document.submitinput.fromMonth.value + "-" 
    document.submitinput.Pdata.value +=document.submitinput.fromDay.value + " " 
    document.submitinput.Pdata.value +=document.submitinput.fromHour.value + ":" 
    document.submitinput.Pdata.value +=document.submitinput.fromMinute.value + ""
   
if(document.submitinput.Dname.value=="")
  {
   alert("对不起，方案名称不能为空！");
   document.submitinput.Dname.focus();
   return false;
  }
if(document.submitinput.Dname.value.length>255)
	{
	alert("对不起，您输入的方案名过长，请重新输入！");
	document.submitinput.Dname.focus();
	return false;

	}
if(document.submitinput.Id.value=="")
  {
   alert("对不起，方案编号不能为空！");
   document.submitinput.Id.focus();
   return false;
  }
if(document.submitinput.Id.value.length>8)
	{
12 3 下一页
⌨️ 快捷键说明

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