📄 d_linkmanedit.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
username=Getuser()
userclass=TableVisitor("d_linkman",username)
if userclass<2 then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=D_linkManbrow.asp>返回</a>"
response.end
end if
%>
<%
id=request("id")
set rslxr=Server.CreateObject("ADODB.RecordSet")
sql="select * from D_viewLinkMan where id="&cint(id)
rslxr.open sql,Pubconn,1
khxh=rslxr("clientnum")
set mykh=Server.CreateObject("ADODB.RecordSet")
sql="select * from D_ClientInfo where ClientNum='"&khxh&"'"
mykh.open sql,Pubconn,1
if not mykh.eof then
khmc=mykh("ClientName")
end if
if rslxr("BirthDay")<>"" then
year1=left(rslxr("BirthDay"),4)
month1=mid(rslxr("BirthDay"),6,2)
date1=right(rslxr("BirthDay"),2)
end if
if rslxr("MemorializeDay")<>"" then
year2=left(rslxr("MemorializeDay"),4)
month2=mid(rslxr("MemorializeDay"),6,2)
date2=right(rslxr("MemorializeDay"),2)
end if
%>
<%'###########################得到职务#############################
set AdoRs1=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='headtag'"
AdoRS1.Open lcSql,PubConn,1,1
Areavalue=Adors1("NumValue")
if not isNull(Areavalue) then
headtag=Split(AreaValue,",")
end if
Set Adors1=Nothing%>
<%'###########################得到部门#############################
set AdoRs2=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='depar'"
AdoRS2.Open lcSql,PubConn,1,1
HYvalue=Adors2("NumValue")
if not isNull(HYvalue) then
depar=Split(HYValue,",")
end if
Set Adors2=Nothing%>
<%'###########################得到采购关注点#############################
set AdoRs3=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='attention'"
AdoRS3.Open lcSql,PubConn,1,1
infovalue=Adors3("NumValue")
if not isNull(infovalue) then
attention=Split(infoValue,",")
end if
Set Adors3=Nothing%>
<%'###########################得到性格#############################
set AdoRs4=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='charter'"
AdoRS4.Open lcSql,PubConn,1,1
statevalue=Adors4("NumValue")
if not isNull(statevalue) then
charter=Split(stateValue,",")
end if
Set Adors4=Nothing%>
<%'###########################得到影响力#############################
set AdoRs4=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='effect'"
AdoRS4.Open lcSql,PubConn,1,1
statevalue=Adors4("NumValue")
if not isNull(statevalue) then
effect=Split(stateValue,",")
end if
Set Adors4=Nothing%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>客户跟进计划</title>
<link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<script language="vbscript">
'在该表单提交前，检验字段是否为空，否则不许提交
Sub datacheck()
if form1.name.value="" then
MsgBox "联系人不能为空！", 64, "提示："
focusto(2)
Exit Sub
end if
form1.submit
End Sub
Sub focusto(x)
'将游标定位于表单(Form)的某个栏位
document.form1.elements(x).focus()
End Sub
</script>
<body bgcolor="#FFFFFF" >
<form method="POST" action="D_linkManEditInfo.asp" name="form1" >
<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">
</font><font size="2">关键人信息</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<table border="1" width="100%" cellspacing="0" height="9" bgcolor="#F7F4E5">
<tr>
<input type="hidden" name="id" value="<%=id%>">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -