📄 f_contractedit1.asp

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



<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubCode.asp"-->
<!--#include file="../include/PubFun.asp"--> 
<% username=Getuser()
ywy=request("xsdb")
'response.write ywy
userclass=TableVisitor("F_Tblcontract1",username)
if ywy<>Session("userID") and (userclass<3)  then
    response.write"<br>"
    response.write"<br>"
    response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=F_contractbrow1.asp>返回</a>"
    response.end
end if

%>


<%

         
'**********************以下为从“操作”超链接中传过的         
ID=Request("ID")         
Set myrs=Server.CreateObject("ADODB.RecordSet")         
sql="select *  from F_Tblcontract1 where ID="&cint(ID)         
myrs.open sql,Pubconn,1,3         
'找出工程师的名字         
  set rs99=Server.CreateObject("ADODB.RecordSet")         
  sql="select *  from A_stuffInfo where StuffNum='"&myrs("Engineer")&"'"         
   rs99.open sql,Pubconn,1,3         
  if not rs99.eof then         
     gcsmc1=rs99("Name")         
  end if          
         
'找出该客户的电话与传真地址,因在表中没有记录         
Set myrst=Server.CreateObject("ADODB.RecordSet")         
sql1="select *  from D_ClientInfo  where ClientNum='"&myrs("Needer")&"'"         
myrst.open sql1,Pubconn,1,3         
         
if not myrst.eof then         
   khmc1=myrst("ClientName")         
   telephone1=myrst("telophone")         
   fax1=myrst("fax")         
   address1=myrst("address")         
end if          
'***************************************************         
gcsxh=request("gcsxh")         
'找出工程师的名字         
if gcsxh<>"" then         
  set rsyg=Server.CreateObject("ADODB.RecordSet")         
  sql="select *  from A_stuffInfo where StuffNum='"&gcsxh&"'"         
  rsyg.open sql,Pubconn,1         
  if not rsyg.eof then         
     gcsmc=rsyg("Name")         
  end if          
  rsyg.close         
  set rsyg=nothing         
end if          
         
khxh=request("khxh")         
'找出对应的客户名称         
if khxh<>"" then         
    set rs1=Server.CreateObject("ADODB.RecordSet")         
    sql="select *  from D_ClientInfo where ClientNum='"&khxh&"'"         
    rs1.open sql,Pubconn,1         
    if not rs1.eof then         
       khmc=rs1("ClientName")         
       telephone=rs1("telophone")         
       fax=rs1("fax")         
       address=rs1("address")         
    end if          
    rs1.close         
    set rs1=nothing         
         
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" >
<script language="javascript">
//输入工程师名序号时响应
   var Pcount;
   var tj;
   tj=0;
   Pcount=0;
   lucy = new Array();
    <%count = 0
     set rsywy1=server.CreateObject("adodb.recordset")
     rsywy1.open "SELECT * FROM A_stuffInfo where stuffNum<>'"&Session("UserID")&"' and delflag<>'1' ",Pubconn,1,3
     if rsywy1.recordcount> 0 then
        do while not rsywy1.eof%>
           lucy[<%=count%>] = new Array("<%= trim(rsywy1("Stuffnum"))%>","<%=trim(rsywy1("name"))%>");
           <%count = count + 1
             rsywy1.movenext
             loop
     end if
     rsywy1.close
     set rsywy1=nothing%>
     Pcount=<%=count%>;
    function cx()
     { 
     //工程师名称响应
         var tag;
         tag=0;
         for (i=0;i<Pcount;i++)
          {  
            if(document.form1.gcsxh.value==lucy[i][0])   
              {      
                document.form1.gcsmc.value=lucy[i][1];
                tag=1;
                break;
              }  
          }   
          if (tag==0)
          {document.form1.gcsmc.value="";}
   
     }     
  </script> 

 
<script language="vbscript"> 
sub gcs() 
 '  msgbox"ok"
   ID=document.form1.ID.value 
   window.open "F_stuffinfo2.asp?ID="+ID,"员工信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"  
end sub  
sub kh() 
   ID=document.form1.ID.value 
   gcsxh=document.form1.gcsxh.value 
   window.open "F_ClientInfo3.asp?ID="+ID+"&gcsxh="+gcsxh,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"  
end sub  
</script> 
 
<script language="vbscript"> 
'以下判断只有为数字型才能输入 
sub wd1_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.wd1.value,"Num",window.event.keyCode)
end sub
sub wd2_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.wd2.value,"Num",window.event.keyCode)
end sub
sub wd3_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.wd3.value,"Num",window.event.keyCode)
end sub
sub zdl_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.zdl.value,"Num",window.event.keyCode)
end sub
sub bfb1_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.bfb1.value,"Num",window.event.keyCode)
end sub

sub zxl_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.zxl.value,"Num",window.event.keyCode)
end sub
12 3 下一页
⌨️ 快捷键说明

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