delweekrep.asp

来自「功能齐全的oa网络办公源码asp+acce」· ASP 代码 · 共 20 行

<!--#include file="conn.asp"-->
<% dim mystr,weekrepRs,rscount,mymonth,myyear,str
   mymonth=request("monvalue")
   myyear=request("yearvalue")
   mystr="select * from [weekrep] where weekrepKey="&request("weekrepKey")
   set weekrepRs=server.CreateObject("adodb.recordset")
   weekrepRs.open mystr,cnSQL,1,3   
   rscount=weekrepRs.recordcount
   if rscount>0 then
      weekrepRs.delete
      set weekrepRs=nothing
	  set cnSQL=nothing      
   str="?myyear="&myyear&"&mymonth="&mymonth
  %>
      <script language=Javascript>
      <!--     
	   window.location="stafweekrep.asp<%=str%>";
       -->
      </script> 
<% end if %>