📄 g_execshedit.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页








<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"--> 
<% username=Getuser()%>
<%

'*******************************
'
'Author:Ruphi Update Time:2001-09-20
'功能说明：执行中审核输入处理
'
'* *****************************

%>
<%
'从另一个表单传来的值
Sid=request("sid")   '业务员代号
wid=request("wid")       '周次
                                                      
set rssh=server.createobject("ADODB.RecordSet")
sql="select * from G_TblcpRemark  where ExecShr='"&Session("UserID")&"' and StuffNum='"&sid&"' and  CloseWeek='"&wid&"'"
rssh.open sql,Pubconn,1,3 
if rssh.eof then    '表示该当前登录人还没有审核
   sftg="N"
   shpy=""
else
   sftg=rssh("ExecYN")
   shpy=rssh("ExecRemark")
end  if 
rssh.close
set rssh=nothing

txtremark=request("txtremark")
tgf=request("tgf")
'response.write txtshr&"+"
'response.write txtremark&"+"
'response.write tgf&"<br>"

if request("bc")="保存" then
 
   '以下对子表的操作
   set rssh=server.createobject("ADODB.RecordSet")
   sql="select * from G_TblcpRemark where  StuffNum='"&sid&"' and  CloseWeek='"&wid&"'" 
   rssh.open sql,Pubconn,1,3 
  
      rssh("ExecShr")=Session("UserID")
      rssh("ExecYN")=tgf
      rssh("ExecRemark")=txtRemark
      rssh.update
  
   
   rssh.close
   set rssh=nothing
   
  '修改计划活动表中是否审核字段
 
  set rsp=server.createobject("ADODB.RecordSet")
  mysql="Select * from G_TblClosePlan  where StuffNum='"&sid&"' and CloseWeek='"&wid&"' and ExecSh<>'Y'"
  rsp.open mysql,pubconn,1,3
  if not rsp.eof then
     for m=1 to rsp.RecordCount
        if tgf="Y"  then
           rsp("AuditingYN")="Y"
        else
           rsp("AuditingYN")="YN"
        end if 
        rsp.update
        rsp.movenext
     next
  end if 



      
   response.write "<br><br><center>审核完成，<a href=javascript:history.go(-1)>返回</a></center>"      
   response.end
end if     '保存完毕      %>    
                                                                                   
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
                                                                                                                  
<body bgcolor="#FFFFFF" >                                                   

　
                                                                                                                  
 <table border="0" cellpadding="0" cellspacing="0" width="100%">                                                           
  <tr>                                                           
    <td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">                                                            
      </font><font size="2">跟进计划的执行审核</font></b><hr width="40%" size="1" align="left">
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -