📄 f_contractshbrow1.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubCode.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=Getuser()%>
<%
'**********************以下为从“操作”超链接中传过的
flag=request("flag") '返回到详细信息浏览页面标志
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
'***************************************************
%>
<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" width="34" height="15">
</font>
<font size="2">技术合同审核
</font>
</b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="POST" action="F_contractEditInfo1.asp" name="form1" >
<table border="0" width="649" cellspacing="0" height="30" bgcolor="#F7F4E5">
<tr> <% set rsdb=Server.Createobject("ADODB.RecordSet")
sql="select * from A_stuffInfo where stuffnum='"&myrs("saledelegate")&"'"
rsdb.open sql,pubconn,1
%>
<td width="645" height="23" align="right" colspan="4">
<p align="left">
合同号 <input type="text" name="hth" size="14" value="<%=myrs("contractnum")%>" readonly style="background-color: #edefef" >
销售代表<input type="text" name="xsdb" size="9" value="<%=rsdb("Name")%>" readonly style="background-color: #edefef"
工程师序号 <input type="text" name="gcsxh" size="7" value="<%=myrs("Engineer")%>" readonly style="background-color: #edefef" >
工程师姓名<input type="text" name="gcsmc" size="9" value="<%=gcsmc1%>" readonly style="background-color: #edefef" >
</td>
</tr>
<tr>
<td width="80" height="23" align="right">
<p align="right">
<font size="2">需方序号
</font>
</p>
</td>
<td width="184" height="23">
<input type="text" name="khxh" size="13" value="<%=myrs("Needer")%>" readonly style="background-color: #edefef" >
<td width="84" height="23" align="right">
<font size="2">需方名称
</font>
</td>
<td width="285" height="23" >
<input type="text" name="khmc" size="32" value="<%=khmc1%>" readonly style="background-color: #edefef">
</td>
</tr>
<tr>
<td width="80" height="17" align="right">
<font size="2">联系人
</font>
</td>
<td width="184" height="17">
<font size="2">
<input type="text" value="<%=myrs("LinkMan")%>" size="13" readonly style="background-color: #edefef">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -