system.asp

客户资源管理系统 1.显示所有客户资料 2.添加/修改客户资料； 3.添加客户拜访记录； 4.模糊搜索； 5.数据导出导入excal-access； 6.信息录入人员管理； 7.数据转移

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = 0
Response.Expiresabsolute = Now() - 1 
Response.AddHeader "pragma","no-cache" 
Response.AddHeader "cache-control","private" 
Response.CacheControl = "no-cache"
%>
<!--#include file="Connections/conn.asp" -->

<!--登录权限判断，Session和MD5加密判断-->
<%
''生成下拉列表
Function getList(i,sTable,iId,sValue,sName,selfValue)
    If i < 1 Or i > 2 Then
	    getList = ""
		Exit Function
	End If
	Dim strList
	Dim rs
	If i = 1 Then
	    strList = "<select name=""" & sName & """ selfValue=""" & selfValue & """>"
		strList = strList & "<option value="""">请选择</option>"
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open "Select * From " & sTable & "",conn,3,1
		Do While Not rs.BOF And Not rs.EOF
		    strList = strList & "<option value=""" & rs(sValue) & """>" & rs(sValue) & "</option>"
			rs.MoveNext
		Loop
		rs.Close
		Set rs = Nothing
		strList = strList & "</select>"
		getList = strList
	Else
	    strList = "<select name=""" & sName & """ selfValue=""" & selfValue & """>"
		strList = strList & "<option value="""">请选择</option>"
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open "Select * From " & sTable & "",conn,3,1
		Do While Not rs.BOF And Not rs.EOF
		    strList = strList & "<option value=""" & rs(iId) & """>" & rs(sValue) & "</option>"
			rs.MoveNext
		Loop
		rs.Close
		Set rs = Nothing
		strList = strList & "</select>"
		getList = strList
	End If
End Function

Rem Session("CRM_account") 用户帐号
Rem Session("CRM_name") 用户名
Rem Session("CRM_level") 用户等级

If Session("CRM_account") = "" Or Session("CRM_name") = "" Or Session("CRM_level") <= 0 Then Response.Redirect("login.asp")

If Session("CRM_level") <> 9 Then Response.Redirect("listAll.asp")

Function getGroupName(gId)
    If Not IsNumeric(gId) Or gId <= 0 Then
	    getGroupName = ""
	Else
	    Dim rs,gName
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open "Select * From baidu_group Where gId = " & gId,conn,3,1
		If rs.RecordCount <> 1 Then
		    gName = ""
		Else
		    gName = rs("gName")
		End If
		rs.Close
		Set rs = Nothing
		getGroupName = gName
	End If
End Function

Function getLevelName(lId)
    If Not IsNumeric(lId) Or lId <= 0 Then
	    getLevelName = ""
	Else
	    Dim rs,lName
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open "Select * From baidu_level Where lId = " & lId,conn,3,1
		If rs.RecordCount <> 1 Then
		    lName = ""
		Else
		    lName = rs("lName")
		End If
		rs.Close
		Set rs = Nothing
		getLevelName = lName
	End If
End Function

Function sql_AddNew(strSQL,objConn,intI,intJ,strFields,strValues,strTypes,strUrl)
    On Error Resume Next
	Dim rs,arrFields,arrValues,arrTypes,i
	If strFields <> "" Then arrFields = Split(strFields,",,")
	If strValues <> "" Then arrValues = Split(strValues,",,")
	If strTypes <> "" Then arrTypes = Split(strTypes,",,")
	If UBound(arrFields) <> UBound(arrValues) Then
		Exit Function
	End If
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open strSQL,objConn,intI,intJ
	rs.AddNew
	For i = 0 To UBound(arrFields)
	    rs(arrFields(i)) = arrValues(i)
	Next
	rs.Update
	rs.Close
	Set rs = Nothing
End Function

Dim strCounter,strToPrint,strForm,strList

Dim action,subAction
action = Trim(Request.QueryString("action"))
subAction = Trim(Request.QueryString("subAction"))
If action = "" Then Response.Redirect("?action=Level")
Select Case action
Case "Level"
    Select Case subAction
	'Case "new"
	Case "save"
	    Call saveLevel()
	Case "edit"
	    Call editLevel()
	Case "restore"
	    Call restoreLevel()
	Case "delete"
	    Call deleteLevel()
	Case "list"
	    Call listLevel()
	Case Else
	    listLevel()
	End Select
Case "Group"
    Select Case subAction
	'Case "new"
	Case "save"
	    Call saveGroup()
	Case "edit"
	    Call editGroup()
	Case "restore"
	    Call restoreGroup()
	Case "delete"
	    Call deleteGroup()
	Case "list"
	    Call listGroup()
	Case Else
	    Call listGroup()
	End Select
Case "ClientsType"
    Select Case subAction
	'Case "new"
	Case "save"
	    Call saveClientsType()
	Case "edit"
	    Call editClientsType()
	Case "restore"
	    Call restoreClientsType()
	Case "delete"
	    Call deleteClientsType()
	Case "list"
	    Call listClientsType()
	Case Else
	    Call listClientsType()
	End Select
Case "RecordsType"
    Select Case subAction
	'Case "new"
	Case "save"
	    Call saveRecordsType()
	Case "edit"
	    Call editRecordsType()
	Case "restore"
	    Call restoreRecordsType()
	Case "delete"
	    Call deleteRecordsType()
	Case "list"
	    Call listRecordsType()
	Case Else
	    Call listRecordsType()
	End Select
Case Else
    Response.Redirect("?action=Level&subAction=list")
End Select

Sub saveLevel()
    Dim lId,lName
	lId = CInt(Abs(Request.Form("lId")))
	lName = Trim(Request.Form("lName"))
	If lId = "" Or lName = "" Then Response.Write("<script>history.back();</script>")
	Dim rs,flag
	flag = 0
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_level",conn,3,2
	Do While Not rs.BOF And Not rs.EOF
	    If rs("lId") = lId Or rs("lName") = gName Then
		    flag = 1
			Exit Do
		End If
		rs.MoveNext
	Loop
	If flag = 0 Then
	    rs.AddNew
		rs("lId") = lId
		rs("lName") = lName
		rs.Update
	End If
	rs.Close
	Set rs = Nothing
	If flag = 1 Then
	    Response.Write("<script>" & VBCrlf)
		Response.Write("alert(""编号或者名称已经存在。"")" & VBCrlf)
		Response.Write("history.back();" & VBCrlf)
		Response.Write("</script>")
	Else
	    Response.Redirect("?action=Level")
	End If
End Sub

Sub saveGroup()
    Dim gId,gName
	gId = CInt(Abs(Request.Form("lId")))
	gName = Trim(Request.Form("lName"))
	If gId = "" Or gName = "" Then Response.Write("<script>history.back();</script>")
	Dim rs,flag
	flag = 0
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_group",conn,3,2
	Do While Not rs.BOF And Not rs.EOF
	    If rs("gId") = gId Or rs("gName") =gName Then
		    flag = 1
			Exit Do
		End If
		rs.MoveNext
	Loop
	If flag = 0 Then
	    rs.AddNew
		rs("gId") = gId
		rs("gName") = gName
		rs.Update
	End If
	rs.Close
	Set rs = Nothing
	If flag = 1 Then
	    Response.Write("<script>" & VBCrlf)
		Response.Write("alert(""编号或者名称已经存在。"")" & VBCrlf)
		Response.Write("history.back();" & VBCrlf)
		Response.Write("</script>")
	Else
	    Response.Redirect("?action=Group")
	End If
End Sub

Sub saveClientsType()
    Dim clientsType
	clientsType = Trim(Request.Form("clientsType"))
	If clientsType = "" Then Response.Write("<script>history.back();</script>")
	Dim rs,flag
	flag = 0
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_clientsType",conn,3,2
	Do While Not rs.BOF And Not rs.EOF
	    If rs("clientsType") = clientsType Then
		    flag = 1
			Exit Do
		End If
		rs.MoveNext
	Loop
	If flag = 0 Then
	    rs.AddNew
		rs("clientsType") = clientsType
		rs.Update
	End If
	rs.Close
	Set rs = Nothing
	If flag = 1 Then
	    Response.Write("<script>" & VBCrlf)
		Response.Write("alert(""编号或者名称已经存在。"")" & VBCrlf)
		Response.Write("history.back();" & VBCrlf)
		Response.Write("</script>")
	Else
	    Response.Redirect("?action=ClientsType")
	End If
End Sub

Sub saveRecordsType()
    Dim recordsType
	recordsType = Trim(Request.Form("recordsType"))
	If recordsType = "" Then Response.Write("<script>history.back();</script>")
	Dim rs,flag
	flag = 0
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_recordsType",conn,3,2
	Do While Not rs.BOF And Not rs.EOF
	    If rs("recordsType") = recordsType Then
		    flag = 1
			Exit Do
		End If
		rs.MoveNext