📄 touchman.asp
字号:
<%
%>
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<%
set rs = server.createobject("adodb.recordset")
set rcs = server.createobject("adodb.recordset")
Sqlstr = "select ClientID,ClientName from Client where ClientCreatorID="&User_ID&" order by ClientID"
rcs.open Sqlstr,conn,3,2
if (rcs.bof or rcs.eof) then
response.write "<script language=javascript>"
response.write"alert('尚未有任何客户记录！无法进行联系人操作！');"
response.write"location.href='../menu.asp';"
response.write "</script>"
response.end
end if
TouchManID=request("TouchManID")
if TouchManID = "" Then '未指明访问客户ID
Sqlstr = "select top 1 * from TouchMan where TouchManCreatorID=" & User_ID & " order by TouchManID"
rs.open Sqlstr,conn,3,2
if rs.bof or rs.eof then
response.write "<script language=javascript>"
response.write"alert('尚未有任何记录！系统将自动创建一个新记录');"
response.write"location.href='NewTouchMan.asp';"
response.write "</script>"
response.end
end if
else '指明访问客户ID
Sqlstr = "select * from TouchMan where (TouchManCreatorID=" &User_ID& " and TouchManID ="&TouchManID&") or (TouchManID ="&TouchManID&" and TouchManOpenFlag = 1 )"
rs.open Sqlstr,conn,3,2
if rs.bof or rs.eof then
response.write "<script language=javascript>"
response.write"alert('暂时无记录或该记录未公开！');"
response.write"location.href='../menu.asp';"
response.write "</script>"
response.end
end if
end if
TouchManID=rs ("TouchManID")
TouchManName = rs("TouchManName")
TouchManEmail = rs("TouchManEmail")
TouchManClientID = rs("TouchManClientID")
TouchManSection = rs("TouchManSection")
TouchManDuty = rs("TouchManDuty")
TouchManMPhone = rs("TouchManMPhone")
TouchManOPhone = rs("TouchManOPhone")
TouchManHPhone = rs("TouchManHPhone")
TouchManFax = rs("TouchManFax")
TouchManHobby = rs("TouchManHobby")
TouchManEspDay = rs("TouchManEspDay")
TouchManAddress = rs("TouchManAddress")
TouchManOthers = rs("TouchManOthers")
TouchManCreatorID = rs("TouchManCreatorID")
TouchManCreateDate = rs("TouchManCreateDate")
TouchManOpenFlag = rs("TouchManOpenFlag")
TouchManOperatorID = rs("TouchManRevisorID")
TouchManUpdateDate = rs("TouchManReviseDate")
MainTouchMan = Cint(rs("TouchManMain"))
rs.close
Sqlstr = "select * from [User] where UserID=" & TouchManCreatorID
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
TouchManCreatorName = rs("UserName")
TouchManCreatorSnum = rs("UserSection")
else
TouchManCreatorName = "未知"
TouchManCreatorSnum = 0
end if
rs.close
Sqlstr = "select * from Section where SectionID =" & TouchManCreatorSnum
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
TouchManCreatorSName = rs("SectionName")
else
TouchManCreatorSName = "未知"
end if
rs.close
Sqlstr = "select * from [User] where UserID=" & TouchManOperatorID
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
TouchManOperatorName = rs("UserName")
else
TouchManOperatorName = "未知"
end if
rs.close
rspre=0
rsnext=0
rsfisrt=0
rslast=0
if TouchManCreatorID = User_ID then '浏览自己客户资料
Sqlstr = "select top 1 TouchManID from TouchMan where TouchManID<"&TouchManID&" and TouchManCreatorID="&User_ID&" order by TouchManID desc"
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
rspre=1
TouchManPreID = rs("TouchManID")
end if
rs.close
Sqlstr = "select top 1 TouchManID from TouchMan where TouchManID>"&TouchManID&" and TouchManCreatorID="&User_ID&" order by TouchManID"
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
rsnext=1
TouchManNextID = rs("TouchManID")
end if
rs.close
Sqlstr = "select count(TouchManID) as Rnum from TouchMan where TouchManID<"&TouchManID&" and TouchManCreatorID="&User_ID
rs.open Sqlstr,conn,3,2
Rnum = rs("Rnum")
rs.close
Sqlstr = "select count(TouchManID) as Totalnum , max(TouchManID) as LastID , min(TouchManID) as FirstID from TouchMan where TouchManCreatorID="&User_ID
rs.open Sqlstr,conn,3,2
Totalnum = rs("Totalnum")
FirstID = rs("FirstID")
LastID = rs("LastID")
rs.close
if FirstID<>TouchManID then
rsfirst = 1
end if
if LastID<>TouchManID then
rslast = 1
end if
else
''浏览别人记录程序
Sqlstr = "select top 1 TouchManID from TouchMan where TouchManID<"&TouchManID&" and TouchManCreatorID<>"&User_ID&" and TouchManOpenFlag = 1 order by TouchManID desc"
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
rspre=1
TouchManPreID = rs("TouchManID")
end if
rs.close
Sqlstr = "select top 1 TouchManID from TouchMan where TouchManID>"&TouchManID&" and TouchManCreatorID<>"&User_ID&" and TouchManOpenFlag = 1 order by TouchManID"
rs.open Sqlstr,conn,3,2
if not (rs.bof or rs.eof) then
rsnext=1
TouchManNextID = rs("TouchManID")
end if
rs.close
Sqlstr = "select count(TouchManID) as Rnum from TouchMan where TouchManID<"&TouchManID&" and TouchManOpenFlag = 1 and TouchManCreatorID<>"&User_ID
rs.open Sqlstr,conn,3,2
Rnum = rs("Rnum")
rs.close
Sqlstr = "select count(TouchManID) as Totalnum , max(TouchManID) as LastID , min(TouchManID) as FirstID from TouchMan where TouchManOpenFlag = 1 and TouchManCreatorID<>"&User_ID
rs.open Sqlstr,conn,3,2
Totalnum = rs("Totalnum")
FirstID = rs("FirstID")
LastID = rs("LastID")
rs.close
if FirstID<>TouchManID then
rsfirst = 1
end if
if LastID<>TouchManID then
rslast = 1
end if
end if
set rs=nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>联系人详细信息察看</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>
</HEAD>
<LINK href="../css.css" rel=stylesheet>
<BODY><BR>
<TABLE width="751" border=0 align=center cellPadding=0 cellSpacing=0>
<!--DWLayoutTable-->
<TBODY>
<FORM name=SearchTouchMan action=touchmanlist.asp method=post>
<TR>
<TD width="12" height="24" valign="top" ><Span align=center><img src="../images/DispStation_H.gif" width="11" height="24"></span></TD>
<TD width="137" align="center" valign="middle" bgcolor="#566CDB" >联系人相关信息察看</TD>
<TD colspan="12" align="right" valign="middle" bgcolor="#DDDDDD" >快速查询：
<select name="S_SearchOption" class="text100" id="S_SearchOption" >
<option value="0">联系人名称</option>
<%
'生成下拉列表
SqlAttachNameTab = Array("部门","职位","手机","电话","家庭电话","传真","电子邮件","爱好","特殊日子","地址","详细说明")
for i=1 to 11
%>
<option value="<%=i%>"><%=SqlAttachNameTab(i-1)%></option>
<%
next
%>
</select>
<select name="S_Relation" class="text100" id="S_Relation" >
<option value="包含" selected>包含</option>
<option value="不包含">不包含</option>
</select>
<input name="T_SearchText" type="text" id="T_SearchText" size="20" maxlength="50" >
<input name="SelectClientID" type="hidden" size="20" maxlength="50" value="<%=TouchManClientID%>" >
<input name="Search" type="submit" class="button_all" id="Search" value="查询" ></TD>
</TR>
</form>
<TR>
<TD height="16" colspan="14" valign="top" ><!--DWLayoutEmptyCell--> </TD>
</TR>
<FORM name=savetouchman action=savetouchman.asp method=post>
<TR>
<TD height="30" colspan="6" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>姓名:
<input name="T_TouchManName" type="text" id="T_TouchManName" size="30" maxlength="50" value="<%=TouchManName%>">
<input name="T_TouchManID" type="hidden" value=<%=TouchManID%>>
</FONT></TD>
<TD colspan="8" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT><FONT face=Wingdings ></FONT></FONT><span class="style1">所属客户:
<select name="T_TouchManClient" >
<%
while not (rcs.bof or rcs.eof)
%>
<option value="<%=rcs("ClientID")%>" <%if TouchManClientID = rcs("ClientID") then%>selected<%end if%>><%=rcs("ClientName")%></option>
<%
rcs.movenext
wend
rcs.close
%>
</select>
</span></TD>
</TR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -