func_card.asp

企业办公简单管理系统,可以发布信息以及论坛

<!-- #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("theName"))="" then
		msg=msg & saveserial & "、请输入名片姓名!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("Mobile"))="" then
		msg=msg & saveserial & "、请输入手机号码!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("Email"))="" then
		msg=msg & saveserial & "、请输入邮件地址!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("Offtel"))="" then
		msg=msg & saveserial & "、请输入办公电话!<br>"
		saveserial=saveserial+1
	end if

	
	if trim(request("content"))="" 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_card"
		rs.open sql,connobj,3,3
		rs.addnew
		
		rs("wfid")=maxid
		rs("userid")=session("userid")
		rs("deptid")=session("deptid")
		rs("stationid")=session("stationid")
		
		rs("theName")=trim(request("theName"))
		rs("StationID")=trim(request("StationID"))
		rs("Mobile")=trim(request("Mobile"))
		rs("Email")=trim(request("Email"))
		rs("Offtel")=trim(request("Offtel"))
		
		rs("content")=trim(request("content"))
		rs("memo")=trim(request("memo"))
		
		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="">
    <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 align="center" class=tablebody1><b>姓名</b></td>
      <td align="center" class=tablebody1><input name="theName" type="text" value="<%=request("thename")%>" size="15"></td>
	  <td align="center" class=tablebody1><b>职务</b></td>
      <td align="center" class=tablebody1><select name="stationid"><%
	  
	  sql="select stationname,id from cci_station"
	  rs.open sql,connobj,1,1
	  do while not rs.eof
	  	if rs("id")=session("stationid") then
			response.Write "<option value=" & rs("id") & " selected>" & rs("stationname") & "</option>"
		else	
	  		response.Write "<option value=" & rs("id") & ">" & rs("stationname") & "</option>"
	  	end if
		rs.movenext
	  loop 
	  rs.close
	  
	  %></select></td>
	  <td width="80" align="center" class=tablebody1><b>办公电话</b></td>
      <td align="center" class=tablebody1><input name="Offtel" type="text" size="15" value="<%=request("Offtel")%>">
	  
	  </td>
    </tr>
		 <tr>
      <td align="center" class=tablebody1><b>手机</b></td>
      <td align="center" class=tablebody1><input name="Mobile" type="text" value="<%=request("mobile")%>" size="15"></td>
	  <td align="center" class=tablebody1><b>E-mail</b></td>
      <td align="center" class=tablebody1><input name="Email" type="text" size="15" value="<%=request("Email")%>"></td>
	  <td align="center" class=tablebody1>&nbsp;</td>
      <td align="center" class=tablebody1>&nbsp;</td>
    </tr>
    <tr >
      <td class=tablebody1 align="center">名片内容</td>
      <td colspan="5" class=tablebody1 align="left"><textarea name="content" cols="75" rows="8"><%=request("content")%></textarea></td>
    </tr>
    <tr >
      <td class=tablebody1 align="center">备注</td>
      <td colspan="5" class=tablebody1 align="left"><textarea name="Memo" cols="75" rows="8"><%=request("Memo")%></textarea></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=14"
		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>