📄 empmain_addnew.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%if session("name")="" then
response.write("你登陆已过期，请重登！")
else
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
dim msg
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) = "form1") Then
MM_editTable = "EmpGeneralInfo"
MM_editRedirectUrl = "EmpMain_AddNew_Sucess.asp"
Set rs= Server.CreateObject ("ADODB.RecordSet")
rs.open "select * from kufu where 公司名称='"&request("company")&"' order by id desc ",MM_EmpMain_STRING,3,3
if rs.eof then
rs.addnew
rs("公司名称")=request("company")
rs("email")=request("email")
rs("联系人")=request("contect")
rs("联系电话")=request("dianhua")
rs("手机")=request("shouji")
rs("地址")=request("Address")
rs("职务")=request("zhiwu")
'rs("省份")=request("province")
rs("城市")=request("city")
rs("传真")=request("zhuanzhen")
rs("备注")=request("qt")
rs("录入人")=session("name")
rs("客户等级")=request("kfdj")
rs("客户性质")=request("客户性质")
rs("date")=date()
rs("redate")=date()
rs.update
msg="已添加"
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
response.redirect( MM_editRedirectUrl)
else
msg="数据库中已存在该公司！不能重复！"
end if
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新增客户信息</title>
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
<script language="javascript" src="js_Lib/fnCheckForm.js"></script>
<script language="javascript" src="Js_Lib/Calendar.js"></script>
<script>
function CheckForm(){
//=======================================================================================
if(trim(document.form1.company.value)==""){
alert("公司名称，不能为空！")
document.form1.company.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(trim(document.form1.city.value)==""){
alert("请选 择地区！")
document.form1.city.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
//=========================================================================================
//===============================================================================
if(document.form1.contect.value==""){
alert("联系人不能为空！")
document.form1.contect.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(document.form1.客户性质.value==""){
alert("客户性质不能为空！")
document.form1.客户性质.focus()
dataReady = "0"
return
}
else{
dataReady = "1"
}
if(document.form1.dianhua.value==""){
alert("联系电话不能为空！")
document.form1.dianhua.focus()
dataReady = "0"
return
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -