?? adddata.asp
字號:
<tr>
<td colspan="4" align="center"> <input type="submit" name="Submit" value=" 提 交 ">
<input name="Reset" type="reset" id="Reset" value=" 重 置 "></td>
</tr>
<tr>
<td colspan="4"><hr size="1" noshade> <span class="emRed">說明：</span><br>
如果同一數(shù)據(jù)項中有多個數(shù)據(jù)，請用“|”（鍵盤上“=”后邊的符號）分隔，例如：客戶有多個聯(lián)系電話，分別是88658715 88658716
88658717，在聯(lián)系電話一項應該輸入的字符為 <strong>88658715|88658716|88648717</strong></td>
</tr>
</form>
</table>
<%
End Sub
Sub saveData()
Dim cCompany,cLinkman,cHomepage,cTel,cEmail,cUser
Dim cArea,cLocal,cType,cStatus,cAddress
Dim cTrade,cSquare,cGroup
'Dim cDomainBegin,cDomainEnd
'Dim cSpaceBegin,cSpaceEnd
'Dim cOprationBegin,cOprationEnd
Dim cInfo
cCompany = Trim(Request("company"))
cLinkman = Trim(Request("linkman"))
cHomepage = Trim(Request("homepage"))
If cHomepage = "" Then cHomepage = " "
cTel = Trim(Request("tel"))
cEmail = Trim(Request("email"))
cUser = Trim(Request("user"))
cArea = Trim(Request("area"))
cLocal = Trim(Request("local"))
cType = Trim(Request("type"))
cStatus = Trim(Request("status"))
cAddress = Trim(Request("address"))
cTrade = Trim(Request("trade"))
cSquare = Trim(Request("square"))
cGroup = Session("CRM_group")
'cDomainBegin = Trim(Request("domainBegin"))
'cDomainEnd = Trim(Request("domainEnd"))
'cSpaceBegin = Trim(Request("spaceBegin"))
'cSpaceEnd = Trim(Request("spaceEnd"))
'cOprationBegin = Trim(Request("oprationBegin"))
'cOprationEnd = Trim(Request("oprationEnd"))
cInfo = htmlEncode2(Request("info"))
Dim rs,cId,flag
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_client Where cCompany = '" & cCompany & "' Or cLinkman = '" & cLinkman & "'",conn,3,1
If rs.RecordCount > 0 Then
Response.Write("<font color=""#FF0000"">此客戶已經(jīng)存在。</font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""history.back();"">")
Response.End()
End If
rs.Close
''
rs.Open "Select Top 1 * From baidu_client",conn,3,2
rs.AddNew
rs("cCompany") = cCompany
rs("cLinkman") = cLinkman
rs("cHomepage") = cHomepage
rs("cTel") = cTel
rs("cEmail") = cEmail
rs("cUser") = cUser
rs("cArea") = cArea
rs("cLocal") = cLocal
rs("cType") = cType
rs("cStatus") = cStatus
rs("cAddress") = cAddress
rs("cTrade") = cTrade
rs("cSquare") = cSquare
rs("cGroup") = cGroup
'If cDomainBegin <> "" Then rs("cDomainBegin") = cDomainBegin
'If cDomainEnd <> "" Then rs("cDomainEnd") = cDomainEnd
'If cSpaceBegin <> "" Then rs("cSpaceBegin") = cSpaceBegin
'If cSpaceEnd <> "" Then rs("cSpaceEnd") = cSpaceEnd
'If cOprationBegin <> "" Then rs("cOprationBegin") = cOprationBegin
'If cOprationEnd <> "" Then rs("cOprationEnd") = cOprationEnd
rs("cInfo") = cInfo
rs.Update
cId = rs("cId")
rs.Close
Set rs = Nothing
Response.Redirect("view.asp?cId=" & cId)
End Sub
Sub editform()
Dim cId
cId = CInt(ABS(Request("cId")))
If Not IsNumeric(cId) Or cId <= 0 Then
Response.Write("<font color=""#FF0000""><b>數(shù)據(jù)請求錯誤。</b></font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""location.replace('listAll.asp');"">")
Else
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_client Where cId = " & cId,conn,3,1
If rs.RecordCount <> 1 Then
Response.Write("<font color=""#FF0000""><b>數(shù)據(jù)請求錯誤。</b></font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""location.replace('listAll.asp');"">")
Response.End()
End If
Dim cCompany,cLinkman,cHomepage,cTel,cEmail,cUser
Dim cArea,cLocal,cType,cStatus,cAddress
Dim cTrade,cSquare,cGroup
'Dim cDomainBegin,cDomainEnd
'Dim cSpaceBegin,cSpaceEnd
'Dim cOprationBegin,cOprationEnd
Dim cInfo
cCompany = rs("cCompany")
cLinkman = rs("cLinkman")
cHomepage = rs("cHomepage")
cTel = rs("cTel")
cEmail = rs("cEmail")
cUser = rs("cUser")
cArea = rs("cArea")
cLocal = rs("cLocal")
cType = rs("cType")
cStatus = rs("cStatus")
cAddress = rs("cAddress")
cTrade = rs("cTrade")
cSquare = rs("cSquare")
cGroup = rs("cGroup")
'cDomainBegin = rs("cDomainBegin")
'cDomainEnd = rs("cDomainEnd")
'cSpaceBegin = rs("cSpaceBegin")
'cSpaceEnd = rs("cSpaceEnd")
'cOprationBegin = rs("cOprationBegin")
'cOprationEnd = rs("cOprationEnd")
cInfo = htmlEncode3(rs("cInfo"))
rs.Close
Set rs = Nothing
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<form name="editDataForm" action="?action=saveEdit" method="post" onSubmit="return checkInput();">
<tr>
<td width="100" align="right">公司名稱：</td>
<td><input name="company" type="text" id="company" value="<% = cCompany %>" size="24" maxlength="36">
<input name="id" type="hidden" id="id" value="<% = cId %>"></td>
<td width="100" align="right">聯(lián)系人：</td>
<td><input name="linkman" type="text" id="linkman" value="<% = cLinkman %>" size="24" maxlength="48"></td>
</tr>
<tr>
<td width="100" align="right">網(wǎng)址：</td>
<td><input name="homepage" type="text" id="homepage" value="<% = cHomepage %>" size="24" maxlength="36"></td>
<td width="100" align="right">聯(lián)系電話：</td>
<td><input name="tel" type="text" id="tel" value="<% = cTel %>" size="24" maxlength="36"></td>
</tr>
<tr>
<td width="100" align="right">電子信箱：</td>
<td><input name="email" type="text" id="email" value="<% = cEmail %>" size="24" maxlength="36"></td>
<td width="100" align="right">公司地址：</td>
<td>
<input name="address" type="text" id="address" value="<% = cAddress %>" size="36"></td>
</tr>
<tr>
<td width="100" align="right">地區(qū)：</td>
<td>
<% = getList(1,"baidu_area","","areaName","area","業(yè)務區(qū)域") %>
</td>
<td width="100" align="right">所屬小區(qū)：</td>
<td>
<% = getList(1,"baidu_square","","squareName","square","業(yè)務小區(qū)") %>
</td>
</tr>
<tr>
<td width="100" align="right">客戶類型：</td>
<td>
<% = getList(1,"baidu_clientsType","","clientsType","type","客戶類型") %>
</td>
<td width="100" align="right">行業(yè)類型：</td>
<td>
<% = getList(1,"baidu_clientsTrade","","clientsTrade","trade","行業(yè)類型") %>
</td>
</tr>
<tr>
<td width="100" align="right">業(yè)務員：</td>
<td><input name="user" type="text" id="user" value="<% = cUser %>" size="12" maxlength="16" readonly="true">
</td>
<td width="100" align="right">業(yè)務組：</td>
<td><input name="group" type="text" id="group" size="16" maxlength="24" value="<% = getGroupName(cGroup) %>" readonly="true"></td>
</tr>
<tr>
<td width="100" align="right">客戶描述：</td>
<td colspan="3"><textarea name="info" rows="4" id="info" style="width: 80%;"><% = cInfo %></textarea>
</td>
</tr>
<!--<tr>
<td width="100" align="right">拜訪記錄：</td>
<td colspan="3"><textarea name="record" rows="8" id="record" style="width: 80%;"><%' = cRecord %></textarea></td>
</tr>-->
<tr>
<td colspan="4" align="center"> <input type="submit" name="Submit" value=" 提 交 ">
<input name="Reset" type="reset" id="Reset" value=" 重 置 "></td>
</tr>
<tr>
<td colspan="4"><hr size="1" noshade> <font color="#FF0000"><span class="emRed">說明：</span></font><br>
如果同一數(shù)據(jù)項中有多個數(shù)據(jù)，請用“|”（鍵盤上“=”后邊的符號）分隔，例如：客戶有多個聯(lián)系電話，分別是88658715 88658716
88658717，在聯(lián)系電話一項應該輸入的字符為 <strong>88658715|88658716|88648717</strong></td>
</tr>
</form>
</table>
<script language="JavaScript">
<!--
var strType = "<% = cType %>";
for(var i=0;i<document.all.type.options.length;i++){
if(document.all.type.options[i].value == strType){
document.all.type.options[i].selected = true;
}
}
var strTrade = "<% = cTrade %>";
for(var i=0;i<document.all.trade.options.length;i++){
if(document.all.trade.options[i].value == strTrade){
document.all.trade.options[i].selected = true;
}
}
var strArea = "<% = cArea %>";
for(var i=0;i<document.all.area.options.length;i++){
if(document.all.area.options[i].value == strArea){
document.all.area.options[i].selected = true;
}
}
var strSquare = "<% = cSquare %>";
for(var i=0;i<document.all.square.options.length;i++){
if(document.all.square.options[i].value == strSquare){
document.all.square.options[i].selected = true;
}
}
-->
</script>
<%
End If
End Sub
Sub saveEditData()
Dim cId
cId = CInt(ABS(Request("id")))
If Not IsNumeric(cId) Or cId <= 0 Then
Response.Write("<font color=""#FF0000""><b>數(shù)據(jù)請求錯誤。</b></font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""location.replace('listAll.asp');"">")
Else
Dim cCompany,cLinkman,cHomepage,cTel,cEmail,cUser
Dim cArea,cLocal,cType,cStatus,cAddress
Dim cTrade,cSquare,cGroup
'Dim cDomainBegin,cDomainEnd
'Dim cSpaceBegin,cSpaceEnd
'Dim cOprationBegin,cOprationEnd
Dim cInfo
cCompany = Trim(Request("company"))
cLinkman = Trim(Request("linkman"))
cHomepage = Trim(Request("homepage"))
If cHomepage = "" Then cHomepage = " "
cTel = Trim(Request("tel"))
cEmail = Trim(Request("email"))
cUser = Trim(Request("user"))
cArea = Trim(Request("area"))
cLocal = Trim(Request("local"))
cType = Trim(Request("type"))
cStatus = Trim(Request("status"))
cAddress = Trim(Request("address"))
cTrade = Trim(Request("trade"))
cSquare = Trim(Request("square"))
cGroup = CInt(Abs(getGroup(Request("group"))))
'cDomainBegin = Trim(Request("domainBegin"))
'cDomainEnd = Trim(Request("domainEnd"))
'cSpaceBegin = Trim(Request("spaceBegin"))
'cSpaceEnd = Trim(Request("spaceEnd"))
'cOprationBegin = Trim(Request("oprationBegin"))
'cOprationEnd = Trim(Request("oprationEnd"))
cInfo = htmlEncode2(Request("info"))
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From baidu_client Where (cCompany = '" & cCompany & "' Or cLinkman = '" & cLinkman & "') And cId <> " & cId,conn,3,1
If rs.RecordCount > 0 Then
Response.Write("<font color=""#FF0000"">此客戶已經(jīng)存在。</font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""history.back();"">")
Response.End()
End If
rs.Close
''
rs.Open "Select Top 1 * From baidu_client Where cId = " & cId,conn,3,2
If rs.RecordCount <> 1 Then
Response.Write("<font color=""#FF0000""><b>數(shù)據(jù)請求錯誤。</b></font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""location.replace('listAll.asp');"">")
Response.End()
End If
rs("cCompany") = cCompany
rs("cLinkman") = cLinkman
rs("cHomepage") = cHomepage
rs("cTel") = cTel
rs("cEmail") = cEmail
rs("cUser") = cUser
rs("cArea") = cArea
rs("cLocal") = cLocal
rs("cType") = cType
rs("cStatus") = cStatus
rs("cAddress") = cAddress
rs("cTrade") = cTrade
rs("cSquare") = cSquare
rs("cGroup") = cGroup
'If cDomainBegin <> "" Then rs("cDomainBegin") = cDomainBegin
'If cDomainEnd <> "" Then rs("cDomainEnd") = cDomainEnd
'If cSpaceBegin <> "" Then rs("cSpaceBegin") = cSpaceBegin
'If cSpaceEnd <> "" Then rs("cSpaceEnd") = cSpaceEnd
'If cOprationBegin <> "" Then rs("cOprationBegin") = cOprationBegin
'If cOprationEnd <> "" Then rs("cOprationEnd") = cOprationEnd
rs("cInfo") = cInfo
rs.Update
rs.Close
Set rs = Nothing
Response.Redirect("view.asp?cId=" & cId)
End If
End Sub
%>
</td>
</tr>
<tr>
<td height="16" align="right" bgcolor="#999999"><a href="#top"><img src="images/arrow_up.gif" alt="返回頂部" width="16" height="16" border="0" align="absmiddle"></a> </td>
</td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -