editweekrepresult.asp

为我们公司使用的oa系统

<!--#include file="conn.asp"-->
<% 
dim sqlstr,rs,mymonth,myyear
mymonth=request("monvalue")
myyear=request("yearvalue")
sqlstr="select * from [weekrep] where weekrepKey="&request("weekrepKey")
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("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 
%>