📄 f_contractedit1_bak.asp

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



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

<%

         
'**********************以下为从“操作”超链接中传过的         
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="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
sub bfb2_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.bfb2.value,"Num",window.event.keyCode)
end sub

sub rknd_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.rknd.value,"Num",window.event.keyCode)
end sub
sub pfyq_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.pfyq.value,"Num",window.event.keyCode)
end sub

sub clfl_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.clfl.value,"Num",window.event.keyCode)
end sub
sub xtfy_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.xtfy.value,"Num",window.event.keyCode)
end sub
sub gdnum1_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.gdnum1.value,"Num",window.event.keyCode)
end sub
sub gdnum2_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.gdnum2.value,"Num",window.event.keyCode)
end sub
sub zbyear_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.zbyear.value,"Num",window.event.keyCode)
end sub
sub power_onkeypress
		window.event.keyCode=PublicKeyAscii(document.form1.power.value,"Num",window.event.keyCode)
end sub

 
</script> 
  
         
         
<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" width="34" height="15">          
      </font>               
     <font size="2">技术合同              
     </font>              
     </b><hr width="40%" size="1" align="left">
12 3 下一页
⌨️ 快捷键说明

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