📄 view_project.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../img/css1.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style1 {
color: #FFFFFF;
font-weight: bold;
}
.style3 {color: #414141; font-weight: bold; }
.style6 {color: #FEFEFE; font-weight: bold; }
-->
</style>
</head>
<%
id=replace(request.QueryString("id"),"'","")
'项目表和客户表关联
sql="select * from oa_cus_project where id="&id
set rs=conn.execute(sql)
if not isnumeric(id) then
response.Write("参数错误")
response.End()
end if
if not rs.eof then
'基本信息
pro_num=trim(rs("pro_num"))
title=trim(rs("title"))
content=trim(rs("content"))
flag=trim(rs("flag"))
'cus_name=trim(rs("cus_name"))
'联系人信息
uname=trim(rs("uname"))
mobile=trim(rs("mobile"))
tel=trim(rs("tel"))
fax=trim(rs("fax"))
email=trim(rs("email"))
'单位信息
uid=trim(rs("uid"))
cusid=trim(rs("cusid"))
id=trim(rs("id"))
end if
'------------ 业务员姓名-----------------------------
ysql="select truename from oa_admin where id="&uid
set yrs=conn.execute(ysql)
if not yrs.eof then
truename=yrs(0)
else
truename="无该员工"
end if
yrs.close
set yrs=nothing
'------------ 客户名称-----------------------------
ysql="select cus_name from oa_crm_cus where id="&cusid
set yrs=conn.execute(ysql)
if not yrs.eof then
cus_name=yrs(0)
else
cus_name="该客户信息已经被删除"
end if
yrs.close
set yrs=nothing
'-----------合同信息----------------------
hsql="select * from oa_cus_ht where projectid="&id
set hrs=conn.execute(hsql)
if not hrs.eof then
ht_num=hrs("pro_num")' 合同编号
pro_title=hrs("pro_title")' 合同标题
pro_money=hrs("pro_money")' 合同金额
pro_tk=hrs("pro_tk")' 主要条款
pro_sale=hrs("pro_sale")' 售后条款
pro_time1=hrs("pro_time1")' 生效日
pro_time2=hrs("pro_time2")' 有效期至
pro_time3=hrs("pro_time3")' 免费维护期至
pro_company=hrs("pro_company")' 工程实施机构
pro_qname=hrs("pro_qname")' 签约人
pro_time=hrs("pro_time")' 签约时间
end if
hrs.close
set hrs=nothing
%>
<body>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2" class="tabel1">
<tr align="center">
<td height="25" bgcolor="#CC0000"><span class="style1">项目信息查看</span></td>
</tr>
<tr bgcolor="#F9F9F9">
<td height="25" align="center"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="47%" height="20" align="left" bgcolor="#E0E0E0"><b>项目信息</b></td>
<td width="53%" height="20" align="left" bgcolor="#E0E0E0"> <strong> 合同信息</strong> </td>
</tr>
<tr>
<td align="left" valign="top"><TABLE width="100%" BORDER=0 CELLPADDING=0 CELLSPACING=5>
<TR>
<TD WIDTH=72 height="20">项目编号</TD>
<TD WIDTH=300 height="20"><%=pro_num%></TD>
</TR>
<TR>
<TD height="20"> 项目名称 </TD>
<TD WIDTH=300 height="20"><%=title%></TD>
</TR>
<TR>
<TD height="20">客户名称</TD>
<TD height="20"><font color="#cc0000"><%=cus_name%></font></TD>
</TR>
<TR>
<TD height="20"> 需求描述 </TD>
<TD height="20"><%=content%></TD>
</TR>
<TR>
<TD height="20"> 是否签订合同 </TD>
<TD height="20"><%=flag%></TD>
</TR>
<TR>
<TD height="20">业务人员</TD>
<TD height="20"><%=truename%></TD>
</TR>
</TABLE></td>
<td rowspan="3" align="left" valign="top"><TABLE width="99%" BORDER=0 align="center" CELLPADDING=0 CELLSPACING=5>
<TR>
<TD WIDTH=72> 合同编号 </TD>
<TD WIDTH=300 height="20"><%=ht_num%></TD>
</TR>
<TR>
<TD> 合同金额 </TD>
<TD WIDTH=300 height="20"><%=pro_money%></TD>
</TR>
<TR>
<TD> 生效日 </TD>
<TD height="20"><%=pro_time1%></TD>
</TR>
<TR>
<TD> 有效期至 </TD>
<TD height="20"><%=pro_time2%></TD>
</TR>
<TR>
<TD> 免费维护期至 </TD>
<TD height="20"><%=pro_time3%></TD>
</TR>
<TR>
<TD> 工程实施机构 </TD>
<TD height="20"><%=pro_company%></TD>
</TR>
<TR>
<TD> 签约人 </TD>
<TD height="20"><%=pro_qname %></TD>
</TR>
<TR>
<TD> 签约时间 </TD>
<TD height="20"><%=pro_time%></TD>
</TR>
<TR>
<TD> 主要条款 </TD>
<TD height="20"><%=pro_tk%></TD>
</TR>
<TR>
<TD> 售后条款 </TD>
<TD height="20"><%=pro_sale%></TD>
</TR>
</TABLE></td>
</tr>
<tr>
<td height="20" align="left" bgcolor="#E0E0E0"> <strong>项目联系人信息</strong> </td>
</tr>
<tr>
<td align="left" valign="top"><TABLE width="100%" BORDER=0 CELLPADDING=0 CELLSPACING=5>
<TR>
<TD WIDTH=72>联系人姓名</TD>
<TD WIDTH=300 height="20"><%=uname%></TD>
</TR>
<TR>
<TD>手机</TD>
<TD height="20"><%=mobile%></TD>
</TR>
<TR>
<TD>电话</TD>
<TD height="20"><%=tel%></TD>
</TR>
<TR>
<TD>传真</TD>
<TD height="20"><%=fax%></TD>
</TR>
<TR>
<TD>E-Mail</TD>
<TD height="20"><%=email%></TD>
</TR>
</TABLE></td>
</tr>
<tr>
<td height="10" colspan="2" align="left"></td>
</tr>
<tr>
<td height="25" colspan="2" align="left"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#B2B2B2">
<tr bgcolor="#F9F9F9">
<td height="25" colspan="3"> <strong><span class="style3"> <img src="../img/item_point.gif" width="4" height="7"> </span>最近客户跟单信息</strong></td>
</tr>
<tr align="center" bgcolor="#CC0000">
<td width="17%" height="25"><span class="style6"> 跟单日期/时间 </span></td>
<td width="19%"><span class="style6"> 跟单人 </span></td>
<td width="64%"><span class="style6"> 跟单内容 </span></td>
</tr>
<%
psql="select top 10 id,gdtime,uname,content,gname from oa_cus_form where projectid="&id&" order by id desc"
set prs=server.CreateObject("adodb.recordset")
prs.open psql,conn,1,3
for i=1 to prs.recordcount
bgColor="#efefef"
if i mod 2=0 then bgColor="#ffffff"
%>
<tr align="center" bgcolor="<%=bgColor%>">
<td height="25"><%=prs(1)%></td>
<td><%=prs(2)%></td>
<td><%=prs(3)%></td>
</tr>
<%
prs.movenext
next
prs.close
set prs=nothing
%>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -