⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 dataform.asp

📁 客户资源管理系统 1.显示所有客户资料 2.添加/修改客户资料； 3.添加客户拜访记录； 4.模糊搜索； 5.数据导出导入excal-access； 6.信息录入人员管理； 7.数据转移
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
    actionUrl = "?action=userAction"
End If

Dim action,selectItems,rUser,arrList
Dim sql1,intDay
action = Trim(Request.QueryString("action"))
selectItems = Trim(Request.Form("selectItems"))
rUser = Trim(Request.Form("rUser"))

If action <> "" Then Session("CRM_sql1") = ""

If action = "userAction" Then
    Select Case selectItems
	Case "rTime"
	    Dim rTimeBegin,rTimeEnd
		rTimeBegin = Trim(Request.Form("rTimeBegin"))
		rTimeEnd = Trim(Request.Form("rTimeEnd"))
		If rTimeBegin = "" And rTimeEnd = "" Then Response.Redirect("?errMsg=1")
		If rTimeBegin <> "" And rTimeEnd <> "" Then
		    ''数据不完整
		    If Not IsDate(rTimeBegin) Or Not IsDate(rTimeEnd) Or rTimeBegin > rTimeEnd Then Response.Redirect("?errMsg=1")
			intDay = DateDiff("d",rTimeBegin,rTimeEnd)
			If intDay = 0 Then intDay = 1
			If rUser = "" Then
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
                arrList = listAllAtDate(sql1)
            	strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
			Else
			    ''没有权限
			    If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
                arrList = listAllAtDate(sql1)
            	strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
			End If
		ElseIf rTimeBegin <> "" Then
		    ''数据不完整
		    If Not IsDate(rTimeBegin) Then Response.Redirect("?errMsg=1")
			If rUser = "" Then
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And rDate >= #" & rTimeBegin & "#"
                arrList = listAll(sql1)
            	strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
			Else
			    ''没有权限
			    If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate >= #" & rTimeBegin & "#"
                arrList = listAll(sql1)
            	strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
			End If
		Else
		    ''数据不完整
		    If Not IsDate(rTimeEnd) Then Response.Redirect("?errMsg=1")
			If rUser = "" Then
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And rDate <= #" & rTimeEnd & "#"
                arrList = listAll(sql1)
            	strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
			Else
			    ''没有权限
			    If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate <= #" & rTimeEnd & "#"
                arrList = listAll(sql1)
            	strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
			End If
		End If
	Case "rType"
	    Dim rType
		rType = Trim(Request.Form("rType"))
		If rType = "" Then Response.Redirect("?errMsg=1")
		If rUser = "" Then
		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And cId In (Select cId From baidu_client Where cType = '" & rType & "')"
            arrList = listAll(sql1)
            strToPrint = strToPrint & arrList(1)
            strCounter = arrList(0)
		Else
			''没有权限
			If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")		
		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And cId In (Select cId From baidu_client Where cType = '" & rType & "')"
            arrList = listAll(sql1)
            strToPrint = strToPrint & arrList(1)
            strCounter = arrList(0)
		End If
	Case "rTrade"
	    Dim rTrade
		rTrade = Trim(Request.Form("rTrade"))
		If rTrade = "" Then Response.Redirect("?errMsg=1")
		If rUser = "" Then
		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And cId In (Select cId From baidu_client Where cTrade = '" & rTrade & "')"
            arrList = listAll(sql1)
            strToPrint = strToPrint & arrList(1)
            strCounter = arrList(0)
		Else
			''没有权限
			If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")		
		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And cId In (Select cId From baidu_client Where cTrade = '" & rTrade & "')"
            arrList = listAll(sql1)
            strToPrint = strToPrint & arrList(1)
            strCounter = arrList(0)
		End If
	Case "rRecordsType"
	    Dim rRecordsType
		rRecordsType = Trim(Request.Form("rRecordsType"))
		If rRecordsType = "" Then Response.Redirect("?errMsg=1")
		If rUser = "" Then
		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And rType  = '" & rRecordsType & "'"
            arrList = listAll(sql1)
            strToPrint = strToPrint & arrList(1)
            strCounter = arrList(0)
		Else
			''没有权限
			If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")		
		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rType = '" & rRecordsType & "'"
            arrList = listAll(sql1)
            strToPrint = strToPrint & arrList(1)
            strCounter = arrList(0)
		End If
	End Select
ElseIf action = "adminAction" Then
    Dim rGroup
	rGroup = Request.Form("rGroup")
    If rGroup = "" Then
    	Select Case selectItems
    	Case "rTime"
    	    'Dim rTimeBegin,rTimeEnd
    		rTimeBegin = Trim(Request.Form("rTimeBegin"))
    		rTimeEnd = Trim(Request.Form("rTimeEnd"))
    		If rTimeBegin = "" And rTimeEnd = "" Then Response.Redirect("?errMsg=1")
    		If rTimeBegin <> "" And rTimeEnd <> "" Then
	    	    ''数据不完整
	    	    If Not IsDate(rTimeBegin) Or Not IsDate(rTimeEnd) Or rTimeBegin > rTimeEnd Then Response.Redirect("?errMsg=1")
				intDay = DateDiff("d",rTimeBegin,rTimeEnd)
				If intDay = 0 Then intDay = 1
	    		If rUser = "" Then
	    		    sql1 = "Select * From baidu_records Where rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
                    arrList = listAllAtDate(sql1,intDay)
                	strToPrint = strToPrint & arrList(1)
                    strCounter = arrList(0)
	    		Else
	    		    ''没有权限
	    		    'If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
	    		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
                    arrList = listAllAtDate(sql1,intDay)
                	strToPrint = strToPrint & arrList(1)
                    strCounter = arrList(0)
	    		End If
	    	ElseIf rTimeBegin <> "" Then
	    	    ''数据不完整
	    	    If Not IsDate(rTimeBegin) Then Response.Redirect("?errMsg=1")
	    		If rUser = "" Then
    			    sql1 = "Select * From baidu_records Where rDate >= #" & rTimeBegin & "#"
                    arrList = listAll(sql1)
                	strToPrint = strToPrint & arrList(1)
                    strCounter = arrList(0)
    			Else
    			    ''没有权限
    			    'If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
    			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate >= #" & rTimeBegin & "#"
                    arrList = listAll(sql1)
                	strToPrint = strToPrint & arrList(1)
                    strCounter = arrList(0)
    			End If
    		Else
    		    ''数据不完整
    		    If Not IsDate(rTimeEnd) Then Response.Redirect("?errMsg=1")
    			If rUser = "" Then
    			    sql1 = "Select * From baidu_records Where rDate <= #" & rTimeEnd & "#"
                    arrList = listAll(sql1)
                	strToPrint = strToPrint & arrList(1)
                    strCounter = arrList(0)
    			Else
    			    ''没有权限
    			    'If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
    			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate <= #" & rTimeEnd & "#"
                    arrList = listAll(sql1)
                	strToPrint = strToPrint & arrList(1)
                    strCounter = arrList(0)
    			End If
    		End If
    	Case "rType"
    	    'Dim rType
    		rType = Trim(Request.Form("rType"))
    		If rType = "" Then Response.Redirect("?errMsg=1")
    		If rUser = "" Then
    		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cType = '" & rType & "')"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		Else		
    		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "' And cType = '" & rType & "')"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		End If
    	Case "rTrade"
    	    'Dim rTrade
    		rTrade = Trim(Request.Form("rTrade"))
    		If rTrade = "" Then Response.Redirect("?errMsg=1")
    		If rUser = "" Then
    		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cTrade = '" & rTrade & "')"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		Else		
    		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "' And cTrade = '" & rTrade & "')"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		End If
    	Case "rRecordsType"
    	    'Dim rRecordsType
    		rRecordsType = Trim(Request.Form("rRecordsType"))
    		If rRecordsType = "" Then Response.Redirect("?errMsg=1")
    		If rUser = "" Then
    		    sql1 = "Select * From baidu_records Where rType  = '" & rRecordsType & "'"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		Else		
    		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rType = '" & rRecordsType & "'"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		End If
    	End Select
    Else
	    If CInt(Abs(rGroup)) <= 0 Then Response.Redirect("?errMsg=1")
    	Select Case selectItems
    	Case "rTime"
    	    'Dim rTimeBegin,rTimeEnd
    		rTimeBegin = Trim(Request.Form("rTimeBegin"))
    		rTimeEnd = Trim(Request.Form("rTimeEnd"))
    		If rTimeBegin = "" And rTimeEnd = "" Then Response.Redirect("?errMsg=1")
    		If rTimeBegin <> "" And rTimeEnd <> "" Then
	    	    ''数据不完整
	    	    If Not IsDate(rTimeBegin) Or Not IsDate(rTimeEnd) Or rTimeBegin > rTimeEnd Then Response.Redirect("?errMsg=1")
				intDay = DateDiff("d",rTimeBegin,rTimeEnd)
				If intDay = 0 Then intDay = 1
	    		''没有权限
	    		'If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList2(9,rGroup) & ")) And rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
	    '		sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
                arrList = listAllAtDate(sql1,intDay)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
	    	ElseIf rTimeBegin <> "" Then
	    	    ''数据不完整
	    	    If Not IsDate(rTimeBegin) Then Response.Redirect("?errMsg=1")
    			''没有权限
    			'If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList2(9,rGroup) & ")) And rDate >= #" & rTimeBegin & "#"
    			'sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate >= #" & rTimeBegin & "#"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		Else
    		    ''数据不完整
    		    If Not IsDate(rTimeEnd) Then Response.Redirect("?errMsg=1")
    			''没有权限
    			'If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList2(9,rGroup) & ")) And rDate <= #" & rTimeEnd & "#"
    			'sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate <= #" & rTimeEnd & "#"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		End If
    	Case "rType"
    	    'Dim rType
    		rType = Trim(Request.Form("rType"))
    		If rType = "" Then Response.Redirect("?errMsg=1")
		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList2(9,rGroup) & ")) And cId In (Select cId From baidu_client Where cType = '" & rType & "')"
    		'sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And cId In (Select cId From baidu_client Where cType = '" & rType & "')"
            arrList = listAll(sql1)
            strToPrint = strToPrint & arrList(1)
            strCounter = arrList(0)
    	Case "rTrade"
    	    'Dim rTrade
    		rTrade = Trim(Request.Form("rTrade"))
    		If rTrade = "" Then Response.Redirect("?errMsg=1")
		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList2(9,rGroup) & ")) And cId In (Select cId From baidu_client Where cTrade = '" & rTrade & "')"
    		'sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And cId In (Select cId From baidu_client Where cTrade = '" & rTrade & "')"
            arrList = listAll(sql1)
            strToPrint = strToPrint & arrList(1)
            strCounter = arrList(0)
    	Case "rRecordsType"
    	    'Dim rRecordsType
    		rRecordsType = Trim(Request.Form("rRecordsType"))
    		If rRecordsType = "" Then Response.Redirect("?errMsg=1")
		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList2(9,rGroup) & ")) And rType  = '" & rRecordsType & "'"
    		'sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rType = '" & rRecordsType & "'"
            arrList = listAll(sql1)
            strToPrint = strToPrint & arrList(1)
            strCounter = arrList(0)
    	End Select
123

⌨️ 快捷键说明

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