?? addnewtouchman.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('尚未有任何客戶記錄！無法進(jìn)行聯(lián)系人操作！');"
response.write"location.href='../menu.asp';"
response.write "</script>"
response.end
end if
TouchManID = 0
TouchManClientID = request("TouchManClientID")
TouchManCreatorID = User_ID
TouchManCreateDate = now()
TouchManOpenFlag = 1
TouchManOperatorID = User_ID
TouchManUpdateDate = now()
MainTouchMan = 1
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
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>新建聯(lián)系人詳細(xì)信息</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" >新建聯(lián)系人相關(guān)信息</TD>
<TD colspan="12" align="right" valign="middle" bgcolor="#DDDDDD" ></TD>
</TR>
</form>
<TR>
<TD height="16" colspan="14" valign="top" ><!--DWLayoutEmptyCell--> </TD>
</TR>
<FORM name=Newtouchman 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>
<TR>
<TD height="30" colspan="7" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>電子郵箱:
<input name="T_TouchManEmail" type="text" id="T_TouchManEmail" size="30" maxlength="50" value="<%=TouchManEmail%>">
</FONT></TD>
<TD colspan="4" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>主要聯(lián)系人</FONT><FONT color=#ff6600>:
<input type="checkbox" name="T_MainTouchMan" value="1" <%if MainTouchMan = 1 then%>checked<%end if%>>
</FONT></TD>
<TD colspan="3" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT><FONT face=Wingdings ></FONT></FONT><span class="style1">愛好:
<input name="T_TouchManHobby" type="text" size="25" maxlength="50" value="<%=TouchManHobby%>">
</span></TD>
</TR>
<TR>
<TD height="30" colspan="3" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>部門:
<input name="T_TouchManSection" type="text" size="13" maxlength="30" value="<%=TouchManSection%>">
</FONT></TD>
<TD colspan="5" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>職務(wù):
<input name="T_TouchManDuty" type="text" size="15" maxlength="30" value="<%=TouchManDuty%>">
</FONT></TD>
<TD colspan="5" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>手機(jī)</FONT><FONT color=#ff6600>:
<input name="T_TouchManMPhone" type="text" id="T_TouchMPhone" size="13" maxlength="30" value="<%=TouchManMPhone%>">
</FONT></TD>
<TD width="182" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff > v</FONT></FONT><FONT color=#ff6600>電話</FONT><FONT color=#ff6600>:
<input name="T_TouchManOPhone" type="text" id="T_TouchOPhone" size="15" maxlength="30" value="<%=TouchManOPhone%>">
</FONT></TD>
</TR>
<TR>
<TD height="30" colspan="4" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>家庭電話:
<input name="T_TouchManHPhone" type="text" id="T_TouchHPhone" size="15" maxlength="30" value="<%=TouchManHPhone%>">
</FONT></TD>
<TD 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_TouchManFax" type="text" size="15" maxlength="30" value="<%=TouchManFax%>">
</FONT></TD>
<TD colspan="4" align="center" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>特殊紀(jì)念日:
<input name="T_TouchManEspDay" type="text" size="20" maxlength="50" value="<%=TouchManEspDay%>">
</FONT></TD>
</TR>
<TR>
<TD height="30" colspan="14" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>詳細(xì)地址</FONT><FONT color=#ff6600>:
<input name="T_TouchManAddress" type="text" size="90" maxlength="120" value="<%=TouchManAddress%>">
</FONT></TD>
</TR>
<TR valign="middle">
<TD height="16" colspan="14" ><hr color="#566CDB" align="center" size="1"></TD>
</TR>
<TR>
<TD height="120" colspan="14" align="center" valign="top" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>詳細(xì)說明<br>
<textarea name="T_TouchManOthers" cols="90" rows="5"><%=TouchManOthers%></textarea>
</FONT></TD>
</TR>
<TR>
<TD height="16" colspan="14" ><hr color="#566CDB" align="center" size="1"></TD>
</TR>
<TR>
<TD height="42" colspan="9" align="left" valign="middle" >
<input name="NewButton" type="button" class="button_all" id="SaveButton" value="保存">
<input onclick="javascript:location.href='../menu.asp';" name="BackButton" type="button" class="button_all" id="BackButton" value="返回">
</TD>
<TD colspan="5" align="center" valign="middle" ></TD>
</TR>
<TR valign="middle">
<TD height="16" colspan="14" ><hr color="#566CDB" align="center" size="1"></TD>
</TR>
<TR>
<TD height="27" colspan="5" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>創(chuàng)建者:
<input readonly="true" name="T_TouchManCreator" type="text" id="T_TouchManIncome22" size="15" maxlength="30" value="<%=TouchManCreatorName%>">
<input name="T_TouchManCreatorID" type="hidden" value = <%=TouchManCreatorID%>>
</FONT></TD>
<TD colspan="7" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>所屬部門:
<input readonly="true" name="T_CreatorSection" type="text" size="15" maxlength="30" value="<%=TouchManCreatorSName%>">
<input name="T_CreatorSectionID" type="hidden" value=<%=TouchManCreatorSNum%>>
</FONT></TD>
<TD colspan="2" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>是否公開記錄:
<input name="Check_Open" type="checkbox" id="Check_Open" value="Open" <%if TouchManOpenFlag = 1 then%>checked<%end if%>>
</FONT></TD>
</TR>
<TR>
<TD height="26" colspan="5" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>操作者:
<input readonly="true" name="T_TouchManOperator" type="text" id="T_TouchManOperator" size="15" maxlength="30" value="<%=TouchManOperatorName%>">
<input name="T_TouchManOperatorID" type="hidden" value = <%=User_ID%>>
</FONT></TD>
<TD colspan="7" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>創(chuàng)建日期:
<input readonly="true" name="T_TouchManCreateDate" type="text" id="T_TouchManCreateDate" size="15" maxlength="30" value="<%=TouchManCreateDate%>">
</FONT></TD>
<TD colspan="2" align="left" valign="middle" ><FONT style="LINE-HEIGHT: 150%"><FONT face=Wingdings
color=#99ccff >v</FONT></FONT><FONT color=#ff6600>最后修改日期:
<input readonly="true" name="T_TouchManUpdateDate" type="text" id="T_TouchManUpdateDate" size="15" maxlength="30" value="<%=TouchManUpdateDate%>">
</FONT></TD>
</TR>
</form>
<!--保存按鈕確認(rèn)函數(shù)-->
<SCRIPT FOR="NewButton" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm,SubmitFlag
Set TheForm = Document.forms("Newtouchman")
SubmitFlag = 1
if TheForm.T_TouchManName.value = "" then
MsgBox "請?zhí)顚懧?lián)系人名稱",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManName.focus()
else if TheForm.T_TouchManEmail.value="" then
MsgBox "請?zhí)顚懧?lián)系人Email",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManEmail.focus()
else if TheForm.T_TouchManSection.value="" then
MsgBox "請?zhí)顚懧?lián)系人部門",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManSection.focus()
else if TheForm.T_TouchManDuty.value="" then
MsgBox "請?zhí)顚懧?lián)系人職務(wù)",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManDuty.focus()
else if TheForm.T_TouchManMPhone.value="" then
MsgBox "請?zhí)顚懧?lián)系人手機(jī)號碼",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManMPHone.focus()
else if TheForm.T_TouchManOPhone.value="" then
MsgBox "請?zhí)顚懧?lián)系人辦公電話",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManOPhone.focus()
else if TheForm.T_TouchManHPhone.value="" then
MsgBox "請?zhí)顚懧?lián)系人家庭電話",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManHPhone.focus()
else if TheForm.T_TouchManFax.value="" then
MsgBox "請?zhí)顚懧?lián)系人傳真",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManFax.focus()
else if TheForm.T_TouchManHobby.value="" then
MsgBox "請?zhí)顚懧?lián)系人愛好",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManHobby.focus()
else if TheForm.T_TouchManEspDay.value="" then
MsgBox "請?zhí)顚懧?lián)系人特殊日子",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManEspDay.focus()
else if IsDate(TheForm.T_TouchManEspDay.value)=false then
MsgBox "聯(lián)系人特殊日子格式不對，請?zhí)顚懭掌诟袷剑瑓⒖?2004-03-05",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManEspDay.focus()
else if TheForm.T_TouchManAddress.value="" then
MsgBox "請?zhí)顚懧?lián)系人詳細(xì)聯(lián)系地址",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManAddress.focus()
else if TheForm.T_TouchManOthers.value="" then
MsgBox "請?zhí)顚懧?lián)系人詳細(xì)說明",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManManOthers.focus()
else if TheForm.T_TouchManClient.value="" then
MsgBox "請選擇聯(lián)系人相關(guān)客戶",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManClient.focus()
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
if SubmitFlag = 1 then
TheForm.submit()
end if
</SCRIPT>
<!--保存按鈕確認(rèn)函數(shù)結(jié)束-->
<TR align=middle bgColor=#99ccff>
<TD height="25" colSpan=6 vAlign=middle></TD>
<TD width="19" vAlign=middle></TD>
<TD width="31" vAlign=middle></TD>
<TD width="19" vAlign=middle></TD>
<TD width="39" vAlign=middle></TD>
<TD width="38" vAlign=middle></TD>
<TD width="75" vAlign=middle></TD>
<TD width="42" vAlign=middle></TD>
<TD vAlign=middle></TD>
</TR>
<tr>
<td height="13"></TBODY>
<td></td>
<td width="35"></td>
<td width="23"></td>
<td width="70"></td>
<td width="29"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</TABLE>
</BODY></HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -