?? 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 + -