📄 adddata.asp

📁 OA企业智能办公自动化系统边缘特别版功能非常强大的OA系统 1.仿WINDOWS操作界面
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
	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>数据请求错误。</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>数据请求错误。</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="0">
        <form name="editDataForm" action="?action=saveEdit" method="post" onSubmit="return checkInput();">
          <tr> 
            <td width="109" height="25" align="right">公司名称：</td>
            <td width="134"><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="107" align="right">联系人：</td>
            <td width="180"><input name="linkman" type="text" id="linkman" value="<% = cLinkman %>" size="24" maxlength="48"></td>
          </tr>
          <tr> 
            <td width="109" height="25" align="right">网址：</td>
            <td><input name="homepage" type="text" id="homepage" value="<% = cHomepage %>" size="24" maxlength="36"></td>
            <td width="107" align="right">联系电话：</td>
            <td><input name="tel" type="text" id="tel" value="<% = cTel %>" size="24" maxlength="36"></td>
          </tr>
          <tr> 
            <td width="109" height="25" align="right">电子信箱：</td>
            <td><input name="email" type="text" id="email" value="<% = cEmail %>" size="24" maxlength="36"></td>
            <td width="107" align="right">公司地址：</td>
            <td> 
              <input name="address" type="text" id="address" value="<% = cAddress %>" size="36"></td>
          </tr>
          <tr> 
            <td width="109" height="25" align="right">地区：</td>
            <td>
              <% = getList(1,"baidu_area","","areaName","area","业务区域") %>
            </td>
            <td width="107" align="right">所属小区：</td>
            <td>
              <% = getList(1,"baidu_square","","squareName","square","业务小区") %>
            </td>
          </tr>
          <tr> 
            <td width="109" height="25" align="right">客户类型：</td>
            <td>
              <% = getList(1,"baidu_clientsType","","clientsType","type","客户类型") %>
            </td>
            <td width="107" align="right">行业类型：</td>
            <td>
              <% = getList(1,"baidu_clientsTrade","","clientsTrade","trade","行业类型") %>
            </td>
          </tr>
          <tr> 
            <td width="109" height="25" align="right">业务员：</td>
            <td><input name="user" type="text" id="user" value="<% = cUser %>" size="12" maxlength="16" readonly="true"> 
            </td>
            <td width="107" align="right">业务组：</td>
            <td><input name="group" type="text" id="group" size="16" maxlength="24" value="<% = getGroupName(cGroup) %>" readonly="true"></td>
          </tr>
          <tr> 
            <td width="109" height="25" 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=" 提 交 "> 
              &nbsp;&nbsp; <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>
              如果同一数据项中有多个数据，请用“|”符号分隔，例如：客户有多个联系电话，分别是80000001 80000002 
            80000003，在联系电话一项应该输入的字符为 <strong>80000001|80000002|80000003</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>数据请求错误。</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 = "&nbsp;"
    	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"">此客户已经存在。</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>数据请求错误。</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="#88ADDF"><a href="#top"><img src="images/arrow_up.gif" alt="返回顶部" width="16" height="16" border="0" align="absmiddle"></a>&nbsp;</td>
	</td>
  </tr>
</table>
</body>
</html>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0053)http://bbs.wj8.net/admincp.php?action=menu&sid=LXPP7l -->
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>A:link {
	COLOR: #003366; TEXT-DECORATION: none
}
A:visited {
	COLOR: #003366; TEXT-DECORATION: none
}
A:hover {
	TEXT-DECORATION: underline
}
BODY {
	FONT-SIZE: 12px; SCROLLBAR-ARROW-COLOR: #dde3ec; SCROLLBAR-BASE-COLOR: #f8f9fc; BACKGROUND-COLOR: #e9edf7
}
TABLE {
	FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana
}
TEXTAREA {
	FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; BACKGROUND-COLOR: #f8f9fc
}
INPUT {
	FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; BACKGROUND-COLOR: #f8f9fc
}
OBJECT {
	FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; BACKGROUND-COLOR: #f8f9fc
}
SELECT {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Tahoma; BACKGROUND-COLOR: #f8f9fc
}
.nav {
	FONT-WEIGHT: bold; FONT-SIZE: 12px; FONT-FAMILY: Tahoma, Verdana
}
.header {
	FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-IMAGE: url(images/default/headerbg.gif); COLOR: #ffffff; FONT-FAMILY: Tahoma, Verdana
}
.category {
	FONT-SIZE: 12px; BACKGROUND-IMAGE: url(images/default/catbg.gif); COLOR: #000000; FONT-FAMILY: Tahoma
}
.multi {
	FONT-SIZE: 11px; COLOR: #003366; FONT-FAMILY: Tahoma
}
.smalltxt {
	FONT-SIZE: 11px; FONT-FAMILY: Tahoma
}
.mediumtxt {
	FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana
}
.bold {
	FONT-WEIGHT: bold
}
BLOCKQUOTE {
	BORDER-RIGHT: #dde3ec 1px dashed; PADDING-RIGHT: 5px; BORDER-TOP: #dde3ec 1px dashed; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; MARGIN-LEFT: 20px; BORDER-LEFT: #dde3ec 1px dashed; MARGIN-RIGHT: 20px; PADDING-TOP: 5px; BORDER-BOTTOM: #dde3ec 1px dashed; BACKGROUND-COLOR: #ffffff
}
.code {
	PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; MARGIN-LEFT: 20px; MARGIN-RIGHT: 20px; PADDING-TOP: 5px; BACKGROUND-COLOR: #ffffff
}
</STYLE>

<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY leftMargin=3 topMargin=3>
上一页 12
💿 文件大小 3222 K
👤 上传用户 yyjpu
📂 所属分类 OA系统
🏷️ 相关标签

#WINDOWS #办公自动化系统 #OA系统 #操作界面
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -