addweekrepresult.asp

来自「为我们公司使用的oa系统」· ASP 代码 · 共 52 行

<!--#include file="conn.asp"-->
<% 
dim sqlstr,rs
mymonth=request("monvalue")
myyear=request("yearvalue")
sqlstr="select * from [weekrep]"
set rs=server.createobject("adodb.recordset")
rs.open sqlstr,cnSQL,1,3
if trim(request("content"))="" then
  %>
  	   <script language=Javascript>
      <!--
       alert("内容不能为空，请重新输入！" );      
	   window.history.go(-1);
       -->
      </script>
  <%
response.end()
end if
rs.addnew
rs("userinfKey")=request("userinfkey")
rs("yearvalue")=request("yearvalue")
rs("monvalue")=request("monvalue")
rs("sumorder")=request("sumorder")
rs("sumcontent")=request("content")
rs.update
str="?myyear="&myyear&"&mymonth="&mymonth
if not err then 
   if request("action")="person" then
 %>
  	   <script language=Javascript>
      <!--
       alert("信息添加完毕！" ); 
	   window.location="weekrep.asp<%=str%>";     
	   
       -->
      </script> 
<% 
   else
   %>
       	   <script language=Javascript>
      <!--
       alert("信息添加完毕！" );      
	  window.location="stafweekrep.asp<%=str%>";
       -->
      </script> 
   <%  
   end if
end if 
   set rs=nothing
   set cnSQL=nothing 
%>