⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 fulfil.asp

📁 这是我做的一个OA雏形
💻 ASP
字号:

<!--#include file="html.asp"-->
<!--#include file="data.asp"-->
<%
	set rs=server.createobject("adodb.recordset")
	sql="select * from soft where id="&request("id")
	rs.open sql,conn,3,3
if request("edit")="" then
%>
<html><head><title>转为完成项目</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="oa.css" rel=stylesheet>
</head>
<BODY>
<Script Language="javaScript">
    function  validate()
    {
      
       if  (document.myform.zhipai.value=="")
        {
            alert("指派人不能为空");
            document.myform.zhipai.focus();
            return false ;
        } 
if  (document.myform.softname.value=="")
        {
            alert("项目名称不能为空");
            document.myform.softname.focus();
            return false ;
        }
if  (document.myform.wctime.value=="")
        {
            alert("完成日期不能为空");
            document.myform.wctime.focus();
            return false ;
        }
        if  (document.myform.size.value=="")
        {
            alert("负责人不能为空");
            document.myform.size.focus();
            return false ;
        }
        if  (document.myform.content.value=="")
        {
            alert("内容说明不能为空");
            document.myform.content.focus();
            return false ;
        }
        
     
}
</Script>

<form method="POST" action="fulfil_save.asp" name=myform  onSubmit='return validate()'>
  <div align="center"><INPUT TYPE="hidden" name="id" value="<%=rs("id")%>">
        <TABLE border=1 bordercolorlight='000000' bordercolordark=#ffffff cellspacing=0 cellpadding=0 
        width="400" align=center>
<TR> 
            <TD height=20 width=60>&nbsp;指派人</TD>
            <TD height=20> 
              <INPUT  name="zhipairen" 
            size=20 class="txt" value="<%=rs("zhipai")%>" >ID
              <INPUT  name="userid" 
            size=3 class="txt" value="<%=rs("userid")%>" ></TD>
          </TR>	  
<TR> 
            <TD height=20 width=60>&nbsp;项目名称</TD>
            <TD height=20> 
              <INPUT name="softname" 
            size=20 class="txt" value="<%=rs("name")%>">
            </TD>
          </TR>
<TR> 
            <TD height=20 width=60>&nbsp;开始日期</TD>
            <TD height=20> 
              <INPUT name="kstime" 
            size=20 class="txt" value="<%=rs("time")%>">格式如:2003-07-07
            </TD>
          </TR>
	  <TR>
<TR> 
            <TD height=20 width=60>&nbsp;截止日期</TD>
            <TD height=20> 
              <INPUT name="wctime" 
            size=20 class="txt" value="<%=rs("time2")%>">格式如:2003-07-07
            </TD>
          </TR>

	  <TR> 
            <TD height=20 width=60>&nbsp;负责人员</TD>
            <TD height=20> 
              <INPUT name="size" 
            size=20 class="txt" value="<%=rs("size")%>">
            </TD>
          </TR>
     
	  <TR> 
            <TD height=20 width=60> 
              <div align="center">内  容<BR><BR>说  明</div>
            </TD>
            <TD height=20> 
              <TEXTAREA cols=41 name="content" rows=6 class="txt" style="overflow:auto"><%=replace(replace(rs("content"),"<br>",chr(13)),"&nbsp;"," ")%></TEXTAREA>
            </TD>
          </TR>
	<TR> 
            <TD height=20 width=60> 
              <div align="center">&nbsp;是否重要</div>
            </TD>
            <TD height=20>&nbsp; 是<INPUT TYPE="radio" NAME="best"  value="true"<%if rs("best")=true then response.write " checked" end if%>> 否<INPUT TYPE="radio" name="best" value="0" <%if rs("best")=0 then response.write " checked" end if%>>
            </TD>
          </TR>  
<TR> 
            <TD height=20 width=60> 
              <div align="center">&nbsp;是否独享</div>
            </TD>
            <TD height=20>&nbsp; 是<INPUT TYPE="radio" NAME="dx"  value="0"<%if rs("dx")=0 then response.write " checked" end if%>> 否<INPUT TYPE="radio" name="dx" value="true" <%if rs("dx")=true then response.write " checked" end if%>>
            </TD>
          </TR>  
<TR> 
      <tr>
        <TD height=20 width=60>&nbsp; 确认转换</TD>
        <td height="16"><input type="submit" value="   确   认   " class="txt" name="edit"> </td>
      </tr></table>
    
  </div></form></body></html>


<%else 
		 
	rs("name") =htmlencode2(request("softname"))
	rs("content") = htmlencode2(request("content"))
	rs("url") =request("url")
	rs("size")=request("size")
	rs("best")=request("best")
              rs("time2")=request("wctime")
 rs("time")=request("kstime")
	rs.update
%>

<LINK href="oa.css" rel=stylesheet>
<script language=javascript>
opener.location=opener.location
</script>
<BODY>
        <TABLE border=1 bordercolorlight='000000' bordercolordark=#ffffff cellspacing=0 cellpadding=0 align=center>
	  <TR> 
            <TD>项目已经成功转换……<BR>
<P><P>&nbsp;&nbsp;<A HREF="javascript:window.close()">关闭窗口</A></TD>
            
      </TR>
	  
      </table>
<%
end if
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
%>





⌨️ 快捷键说明

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