📄 e_reinedit.asp

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






<!--#include file="../include/Pubconn.asp"-->

<!--#include file="../include/PubFun.asp"--> 
<%
 username=Getuser()
userclass=TableVisitor("E_Clientcomplain",username)
if userclass<2 then
   response.write "<center>抱歉，您没有此项操作权限！<a href=E_reinbrow.asp>返回</a>"
   response.end
end if

%>


<%
'***********************************
'Author:Ruphi  Update Time:2001-08-19
'功能说明： 客户跟进计划录入界面
'***********************************

 
'读入通过按扭选中的客户的序号和名称
ID=request("ID")
set rsts=Server.CreateObject("ADODB.RecordSet")
sql="select *  from E_Clientcomplain where id="&cint(ID)
rsts.open sql,Pubconn,1
khxh=rsts("clientNum")
khmc=khname(khxh)

ksfs=rsts("Style")
if rsts("ComplainTime")<>"" then
   year1=left(rsts("ComplainTime"),4)                  
   month1=mid(rsts("ComplainTime"),6,2)                  
   date1=right(rsts("ComplainTime"),2)   
end if 

cpbm1=rsts("ProdCode")
if cpbm1<>"" then
    '找出产品的有关的内容
    set rssp1=Server.Createobject("ADODB.recordset")
    sql1="select *  from A_ProductInfo where ProdCode='"&cpbm1&"'"
    rssp1.open sql1,Pubconn,1
    if not rssp1.eof then
       cpmc1=rssp1("ProdName")
       ggxh1=rssp1("Model")+"-"+rssp1("standard")
    end if 
end if
wtlx=rsts("ProblemType")
ksyq=rsts("Request")
jycd=rsts("CrisesLevel")

if rsts("DisposeTime")<>"" then
   year2=left(rsts("DisposeTime"),4)                  
   month2=mid(rsts("DisposeTime"),6,2)                  
   date2=right(rsts("DisposeTime"),2)   
end if 


cpbm=request("cpbm")
if cpbm<>"" then
    '表明将当前表单的值传过去回又传回来
    ksfs=request("ksfs")
    year1=request("year1")
    month1=request("month1")
    date1=request("date1") 

    '找出产品的有关的内容
    set rssp=Server.Createobject("ADODB.recordset")
    sql="select *  from A_ProductInfo where ProdCode='"&cpbm&"'"
    rssp.open sql,Pubconn,1
    if not rssp.eof then
       cpmc=rssp("ProdName")
       ggxh=rssp("Model")+"-"+rssp("standard")
    end if 
end if
%>
<%
'**********************************************
'客诉方式下拉单
 set rsks=Server.CreateObject("ADODB.RecordSet")
        sql="select NumValue from A_ConfigInfo  Where Subject='ksfs'"
        rsks.open sql,Pubconn,1,1
        if not rsks.eof then
          if not isnull(rsks("NumValue")) then
              ksstyle=Split(trim(rsks("NumValue")),",")
          end if 
        end if 
 set rsks=nothing
'***************************************************
'投诉问题类别下拉单
 set rswt=Server.CreateObject("ADODB.RecordSet")
        sql="select NumValue from A_ConfigInfo  Where Subject='wtlb'"
        rswt.open sql,Pubconn,1,1
        if not rswt.eof then
          if not isnull(rswt("NumValue")) then
              wtstyle=Split(trim(rswt("NumValue")),",")
          end if 
        end if 
 set rswt=nothing
'***********************************************
'投诉问题紧要程度下拉单
 set rscd=Server.CreateObject("ADODB.RecordSet")
        sql="select NumValue from A_ConfigInfo  Where Subject='Problemcd'"
        rscd.open sql,Pubconn,1,1
        if not rscd.eof then
          if not isnull(rscd("NumValue")) then
              wtcd=Split(trim(rscd("NumValue")),",")
          end if 
        end if 
 set rscd=nothing
'*****************************
'投诉要求
 set rsyq=Server.CreateObject("ADODB.RecordSet")
        sql="select NumValue from A_ConfigInfo  Where Subject='ksyq'"
        rsyq.open sql,Pubconn,1,1
        if not rsyq.eof then
          if not isnull(rsyq("NumValue")) then
              yqt=Split(trim(rsyq("NumValue")),",")
          end if 
        end if 
 set rsyq=nothing
 
 %>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>客户跟进计划</title>

<link href="../cread.css" rel="stylesheet" type="text/css">
</head>
 
   
  
<script language="javascript">
  //商品名称响事件  
  
   var Pcount;
  
   Pcount=0;
  shang1 = new Array();
  shang2 = new Array();
   <%
     '得出大类的代码与名称  
     count = 0
    
     set rst=server.CreateObject("adodb.recordset")
     mysql="select ProdName,left(prodcode,4) as code2,model,prodcode,standard,unit ,costprice from  A_ProductInfo "
     rst.open mysql,Pubconn,1,3
    
    if rst.recordcount> 0 then
          do while not rst.eof
          %>
          
           shang1[<%=count%>]=new Array("<%= trim(rst("code2"))%>","<%= trim(rst("model"))%>");
           shang2[<%=count%>]=new Array("<%= trim(rst("prodcode"))%>","<%= trim(rst("standard"))%>","<%= trim(rst("unit"))%>","<%= trim(rst("ProdName"))%>","<%= trim(rst("CostPrice"))%>");
           <%count = count + 1
             rst.movenext
             loop
     end if 
     rst.close
     set rst=nothing
      %>
   Pcount=<%=count%>;
    
  function key2()
     {
   
    
        //取商品名称 
                           
          for (l=0;l<Pcount;l++)
          {
12 3 下一页
⌨️ 快捷键说明

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