📄 saleedit.asp
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑销售机会信息</title>
<link rel="stylesheet" type="text/css" href="../../style.CSS">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.saleid.value==""){
alert("请输入销售编号！");
form1.saleid.focus;
return false;
}
if (document.form1.pname.value==""){
alert("请输入项目名称！");
form1.pname.focus;
return false;
}
return true;
}
</Script>
</head>
<body leftmargin="1" topmargin="0">
<%
'临时变量,保存从表SaleChance中读取的记录数据,在编辑状态时有用
Dim CustName, Contact, Pname, Ptype, SignDate, SignSum, EmpName, PPercent, Pstatus, Detail, Poster, CreateDate
Dim CustId, CtId, EmpId
Dim SaleId '当前编辑的销售机会编号
Dim Action
'变量初始化
Action = "add"
Pstatus = "启动"
SignDate = Date()
SignSum = 0
CreateDate = Date()
'读取参数sid
SaleId = Request.QueryString("sid")
'读取参数action
Action = Request.QueryString("action")
'编辑记录时,需要从数据库中读取记录信息
If Action = "edit" Then
'设置SELECT语句，读取记录数据
sql = "SELECT cs.CustName As 客户名称, c.CName As 联系人, s.CustId, s.CtId, s.EmpId," _
& " s.ProName As 项目名称, t.TypeName As 项目类型, e.EmpName As 销售人员," _
& " s.SignDate As 签约日期, s.SignSum As 签约金额, s.PPercent As 进展程度," _
& " s.Status As 项目状态, s.Detail As 细节说明, s.Poster As 创建人, s.CreateDate As 创建日期" _
& " FROM SaleChance s, Customer cs, Contact c, Types t,Employees e WHERE s.Id='" & SaleId _
& "' AND s.CustId=cs.CustId AND s.CtId=c.Id AND s.PTypeId=t.TypeId And e.EmpId=s.EmpId"
' response.write sql
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
CustName = rs("客户名称")
Contact = rs("联系人")
Pname = rs("项目名称")
Ptype = rs("项目类型")
SignDate = rs("签约日期")
SignSum = rs("签约金额")
EmpName = rs("销售人员")
PPercent = rs("进展程度")
Pstatus = rs("项目状态")
Detail = rs("细节说明")
Poster = rs("创建人")
CreateDate = rs("创建日期")
CustId = rs("CustId")
CtId = rs("CtId")
EmpId = rs("EmpId")
End If
rs.Close ' 关闭记录集,以备下次使用
End If
%>
<form name="form1" method="POST" action="SaleSave.asp?action=<%=Action%>&sid=<%=SaleId%>" onsubmit="return CheckFlds()">
<input type="hidden" name="txtEmpId" size="20" value="<%=EmpId%>">
<br>
<table align="center" border="1" cellspacing="0" width="99%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" colspan="4" height="29">
<p align="center"><b><font face="幼圆" color="#000080" size="4">销售机会信息</font></b></p>
</td>
</tr>
<tr>
<td width="16%" bgcolor="#CEE7FF">销售编号</td>
<td width="34%"><input type="text" name="saleid" size="20" value="<%=SaleId%>" <%If Action="edit" Then%>Readonly<%End If%>></td>
<td width="16%" bgcolor="#CEE7FF">客户联系人</td>
<td width="34%"><input type="text" name="ctname" size="20" value="<%=CustName%> <%=Contact%>"Readonly>
<input type="hidden" name="custid" value="<%=CustId%>"><input type="hidden" name="ctid" value="<%=CtId%>">
<input type="button" value="选择" onclick="javascript:news=window.open('ctsel.asp','news','left=300,top=200,height=300,width=200,status=no,toolbar=no,menubar=no,scrollbars=no,location=no,resizable=no');news.focus();" name="B4" style="font-family: 宋体; font-size: 9pt"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">项目名称</td>
<td><input type="text" name="pname" size="20" value="<%=Pname%>"></td>
<td bgcolor="#CEE7FF">项目类型</td>
<td><select size="1" name="ptype">
<%
' 读取行业类型信息
sql = "SELECT * FROM Types WHERE flag=7"
Set rs1 = Conn.Execute(sql)
Do While Not rs1.EOF
%>
<option
<% If rs1("TypeId") = Ptype Then %>
selected
<% End If %>
value="<%=rs1("TypeId")%>"><%=rs1("TypeName")%></option>
<% rs1.MoveNext
Loop
rs1.Close
%>
</select> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">预计签约日期</td>
<td>
<input type="text" name="signdate" size="20" value="<%=SignDate%>"> </td>
<td bgcolor="#CEE7FF">预计成交金额</td>
<td>
<input type="text" name="signsum" size="20" value="<%=SignSum%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">销售人员</td>
<td><input type="text" name="empname" size="20" value="<%=EmpName%>" ReadOnly>
<input type="hidden" name="empid" value="<%=EmpId%>">
<input type="button" value="选择" onclick="javascript:news=window.open('empsel.asp','news','left=300,top=200,height=300,width=200,status=no,toolbar=no,menubar=no,scrollbars=no,location=no,resizable=no');news.focus();" name="B3" style="font-family: 宋体; font-size: 9pt"></font>
</td>
<td bgcolor="#CEE7FF">目前进展程度</td>
<td><select size="1" name="percent">
<option <%If PPercent="10%" Then%> selected <% End If %> value="10%">10%</option>
<option <%If PPercent="20%" Then%> selected <% End If %> value="20%">20%</option>
<option <%If PPercent="40%" Then%> selected <% End If %> value="40%">40%</option>
<option <%If PPercent="60%" Then%> selected <% End If %> value="60%">60%</option>
<option <%If PPercent="80%" Then%> selected <% End If %> value="80%">80%</option>
<option <%If PPercent="100%" Then%> selected <% End If %> value="100%">100%</option>
</select></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">项目状态</td>
<td><%=Pstatus%> </td>
<td bgcolor="#CEE7FF">创建日期</td>
<td><%=CreateDate%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">细节说明</td>
<td colspan="3"><textarea rows="3" name="detail" cols="60"><%=Detail%></textarea></td>
</tr>
</table>
<p align=center><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -