g_execinputinfo.asp

一个很好的在线购物系统

<!--#include file="../include/Pubconn.asp"-->
<%
   Pid=request("Pid")
   Wid=request("Wid")
   zxqk=request("zxqk")
   selwt=request("selwt")
   seldc=request("seldc")
   txtRemark=request("txtRemark")

   '***************************
   '修改跟进计划表中的字段
   '***************************
   set Rsj=server.createobject("ADODB.RecordSet")
   M_sql="Select * from G_TblClosePlan Where ID="&cint(Pid)
   Rsj.open M_sql,pubconn,1,3
   if  not Rsj.eof then
       Rsj("ExecYN")=zxqk
       Rsj("ExecProblem")=selwt
       Rsj("NextMeasure")=seldc
       Rsj("ExecRemark")=txtRemark
       Rsj("Execsh")="N"
       Rsj.Update
   end if 
   %>
<center><font size="2">数据保存完毕！ </font><a href="G_exec.asp?WeekID=<%=wid%>"><font size="2">返回</font></a></center>
<%Response.End                                     
                                  
%>