📄 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('尚未有任何客户记录！无法进行联系人操作！');"
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>新建联系人详细信息</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" ></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>主要联系人</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>职务:
<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>手机</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>特殊纪念日:
<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>详细地址</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>详细说明<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>创建者:
<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>创建日期:
<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>
<!--保存按钮确认函数-->
<SCRIPT FOR="NewButton" EVENT="onClick" LANGUAGE="VBScript">
Dim TheForm,SubmitFlag
Set TheForm = Document.forms("Newtouchman")
SubmitFlag = 1
if TheForm.T_TouchManName.value = "" then
MsgBox "请填写联系人名称",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManName.focus()
else if TheForm.T_TouchManEmail.value="" then
MsgBox "请填写联系人Email",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManEmail.focus()
else if TheForm.T_TouchManSection.value="" then
MsgBox "请填写联系人部门",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManSection.focus()
else if TheForm.T_TouchManDuty.value="" then
MsgBox "请填写联系人职务",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManDuty.focus()
else if TheForm.T_TouchManMPhone.value="" then
MsgBox "请填写联系人手机号码",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManMPHone.focus()
else if TheForm.T_TouchManOPhone.value="" then
MsgBox "请填写联系人办公电话",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManOPhone.focus()
else if TheForm.T_TouchManHPhone.value="" then
MsgBox "请填写联系人家庭电话",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManHPhone.focus()
else if TheForm.T_TouchManFax.value="" then
MsgBox "请填写联系人传真",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManFax.focus()
else if TheForm.T_TouchManHobby.value="" then
MsgBox "请填写联系人爱好",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManHobby.focus()
else if TheForm.T_TouchManEspDay.value="" then
MsgBox "请填写联系人特殊日子",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManEspDay.focus()
else if IsDate(TheForm.T_TouchManEspDay.value)=false then
MsgBox "联系人特殊日子格式不对，请填写日期格式，参考:2004-03-05",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManEspDay.focus()
else if TheForm.T_TouchManAddress.value="" then
MsgBox "请填写联系人详细联系地址",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManAddress.focus()
else if TheForm.T_TouchManOthers.value="" then
MsgBox "请填写联系人详细说明",48,"警告"
SubmitFlag = 0
TheForm.T_TouchManManOthers.focus()
else if TheForm.T_TouchManClient.value="" then
MsgBox "请选择联系人相关客户",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>
<!--保存按钮确认函数结束-->
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -