📄 func_office.asp
字号:
<SCRIPT LANGUAGE="JavaScript">
<!--
function CheckInput()
{
if(!dochange(document.theform.telephone))
return false;
if(!dochange(document.theform.drawer))
return false;
if(!dochange(document.theform.theKey))
return false;
if(!dochange(document.theform.PencilVase))
return false;
if(!dochange(document.theform.gluewater))
return false;
if(!dochange(document.theform.BallPen))
return false;
if(!dochange(document.theform.workcard))
return false;
if(!dochange(document.theform.folder))
return false;
if(!dochange(document.theform.notebook))
return false;
if(!dochange(document.theform.paper))
return false;
if(!dochange(document.theform.cubbyhole))
return false;
if(!dochange(document.theform.stapler))
return false;
return true;
}
function dochange(object)
{
var i,strText,s;
s=object.value;
strText="请输入正确值，必须用阿拉伯数字填写";
for (i = 0; i < s.length; i++)
{
// Check that current character is number.
var c = s.charAt(i);
if (!(((c >= "0") && (c <= "9")) || c == "."))
{
object.focus();
window.alert(strText);
return false;
}
}
return true;
}
//-->
</SCRIPT>
<!-- #include file="func_verify.asp" -->
<%
dim sumcount,saveserial
set rs = Server.CreateObject("ADODB.Recordset")
if request("saveflag")<>"" then
dim msg
saveserial=1
msg=""
if trim(request("memo"))="" then
msg=msg & saveserial & "、请输入申请备注!<br>"
saveserial=saveserial+1
end if
if request("wfid")="" then
msg=msg & saveserial & "、请选择发起工作流!<br>"
saveserial=saveserial+1
end if
if saveserial<=1 then
maxid=getmaxid(request("wfid"))
sql="select * from cci_oa_office"
rs.open sql,connobj,3,3
rs.addnew
rs("wfid")=maxid
rs("userid")=session("userid")
rs("deptid")=session("deptid")
rs("stationid")=session("stationid")
if trim(request("telephone"))<>"" then
rs("telephone")=trim(request("telephone"))
end if
if trim(request("drawer"))<>"" then
rs("drawer")=trim(request("drawer"))
end if
if trim(request("theKey"))<>"" then
rs("theKey")=trim(request("theKey"))
end if
if trim(request("PencilVase"))<>"" then
rs("PencilVase")=trim(request("PencilVase"))
end if
if trim(request("gluewater"))<>"" then
rs("gluewater")=trim(request("gluewater"))
end if
if trim(request("BallPen"))<>"" then
rs("BallPen")=trim(request("BallPen"))
end if
if trim(request("workcard"))<>"" then
rs("workcard")=trim(request("workcard"))
end if
if trim(request("folder"))<>"" then
rs("folder")=trim(request("folder"))
end if
if trim(request("notebook"))<>"" then
rs("notebook")=trim(request("notebook"))
end if
if trim(request("paper"))<>"" then
rs("paper")=trim(request("paper"))
end if
if trim(request("cubbyhole"))<>"" then
rs("cubbyhole")=trim(request("cubbyhole"))
end if
if trim(request("stapler"))<>"" then
rs("stapler")=trim(request("stapler"))
end if
if trim(request("memo"))<>"" then
rs("memo")=trim(request("memo"))
end if
rs("indate")=now
rs.update
rs.close
sql="select * from cci_oa_flowlist where id="& maxid
rs.open sql,connobj,3,3
if not rs.eof then
rs("title")="关于"& session("name") & "的『员工办公用品申请』"
rs.update
end if
rs.close
response.redirect "message.asp?rediurl=defaultA.asp&msgurl=首页&msginfo=员工办公用品申请操作成功！请耐心等待领导审批!"
end if
response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
end if
%>
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
<form name="theform" method="post" action="" onSubmit="return CheckInput()">
<tr >
<th height="25" colspan="6" align="center" class=TopLighNav>员工办公用品申请</th>
</tr>
<tr>
<td width="90" align="center" class=TopLighNav><b>部门</b></td>
<td width="100" align="center" class=TopLighNav><%
sql="select deptname from cci_dept where id=" & session("deptid")
rs.open sql,connobj,1,1
if not rs.eof then
response.Write rs("deptname")
end if
rs.close
%></td>
<td width="80" align="center" class=TopLighNav><b>姓名</b></td>
<td width="80" align="center" class=TopLighNav><%=session("name")%></td>
<td width="80" align="center" class=TopLighNav><b>职务</b></td>
<td align="center" class=TopLighNav><%
sql="select stationname from cci_station where id=" & session("stationid")
rs.open sql,connobj,1,1
if not rs.eof then
response.Write rs("stationname")
end if
rs.close
%></td>
</tr>
<tr>
<td width="90" align="center" class=tablebody1>电话机</td>
<td width="100" align="center" class=tablebody1><input name="telephone" type="text" size="4">
部</td>
<td width="80" align="center" class=tablebody1>三抽柜</td>
<td width="80" align="center" class=tablebody1><input name="drawer" type="text" size="4">
个</td>
<td width="80" align="center" class=tablebody1>钥匙</td>
<td align="center" class=tablebody1><input name="theKey" type="text" size="4">
把</td>
</tr>
<tr>
<td width="90" align="center" class=tablebody1>笔 筒</td>
<td width="100" align="center" class=tablebody1><input name="PencilVase" type="text" size="4">
个</td>
<td width="80" align="center" class=tablebody1>胶 水</td>
<td width="80" align="center" class=tablebody1><input name="gluewater" type="text" size="4">
支 </td>
<td width="80" align="center" class=tablebody1>圆珠笔</td>
<td align="center" class=tablebody1><input name="BallPen" type="text" size="4">
支 </td>
</tr>
<tr>
<td width="90" align="center" class=tablebody1>工卡</td>
<td width="100" align="center" class=tablebody1><input name="workcard" type="text" size="4">
个</td>
<td width="80" align="center" class=tablebody1>文件夹</td>
<td width="80" align="center" class=tablebody1><input name="folder" type="text" size="4">
个</td>
<td width="80" align="center" class=tablebody1>笔记本</td>
<td align="center" class=tablebody1><input name="notebook" type="text" size="4">
本</td>
</tr>
<tr>
<td width="90" align="center" class=tablebody1>便签纸</td>
<td width="100" align="center" class=tablebody1><input name="paper" type="text" size="4">
本</td>
<td width="80" align="center" class=tablebody1>文件架</td>
<td width="80" align="center" class=tablebody1><input name="cubbyhole" type="text" size="4">
个</td>
<td width="80" align="center" class=tablebody1>订书机</td>
<td align="center" class=tablebody1><input name="stapler" type="text" size="4">
台</td>
</tr>
<tr >
<td class=tablebody1 align="center"><b>备注</b></td>
<td colspan="5" class=tablebody1 align="left"><textarea name="memo" cols="75" rows="8" id="reason"></textarea>
<font color="#FF0000">*</font></td>
</tr>
<tr >
<td class=tablebody1 align="center"><b>工作流发起</b></td>
<td colspan="5" class=tablebody1 align="left"><select name="wfid">
<%
sql="select * from cci_oa_wfdefine where taskid=9"
Rs.Open Sql,connObj,1,1
do while not rs.eof
response.Write "<option value=" & rs("id") & ">" & rs("wfname")& "</option>"
rs.movenext
loop
rs.close
%></select>
</td>
</tr>
<tr>
<td colspan="6" align="center" class=tablebody1><input type="submit" name="Submit" value=" 申 请 "></td>
</tr>
<input type=hidden name=saveflag value="1">
</form>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -