advancesearch.asp

WEB客户管理系统+小型OA系统。一个不错的程序

<%@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加密判断-->
<%
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")

Dim action
action = Trim(Request("action"))
If action = "killSession" Then Session("CRM_sql") = ""

Dim strCounter,strToPrint

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

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

Function getUserList(intLevel,intGroup)
    Dim rs,strUserList
	strUserList = "'" & Session("CRM_name") & "'"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_user Where uLevel < " & intLevel & " And uGroup = " & intGroup,conn,3,1
	Do While Not rs.BOF And Not rs.EOF
	    If strUserList = "" Then
		    strUserList = "'" & rs("uName") & "'"
		Else
		    strUserList = strUserList & ",'" & rs("uName") & "'"
		End If
		rs.MoveNext
	Loop
	rs.Close
	Set rs = Nothing
	getUserList = strUserList
End Function

''生成下拉列表
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

Dim subAction
subAction = Trim(Request("subAction"))

If subAction = "searchItem" Then
    Dim cCompany,cLinkman,cHomepage
	Dim cTel,cEmail,cAddress
	Dim cArea,cSquare,cType
	dim Areaid,Squareid
	Dim cTrade,cUser,cGroup,total,cStatus
	Dim arrUser
	cCompany = Request("company")
	cLinkman = Trim(Request("linkman"))
	cTel = Trim(Request("tel"))
	cAddress = Trim(Request("address"))
	Areaid = Trim(Request("area"))
	Squareid = Trim(Request("square"))
	cType = Trim(Request("type"))
	cTrade = Trim(Request("trade"))
	total  = trim(request("total"))
	cStatus=trim(request("cStatus"))
	cUser = Trim(Request("user"))
	cGroup = Request("group")
	
	'Dim rs,cId,flag

	Set rs = Server.CreateObject("ADODB.Recordset")
	if squareid<>"" then
	rs.Open "Select * From baidu_square Where squareid = " & squareid ,conn,1,1
	else
	response.Write("<script language=""JavaScript"">history.go(-3)</script>")
	end if
	cArea=rs("areaName")
	cSquare=rs("squareName")
	rs.close
	
	If cGroup <> "" Then
	    cGroup = CInt(Abs(cGroup))
	End If
	
	Dim sql
    sql = ""
    If cCompany <> "" Then
        If sql = "" Then
            sql = sql&" where cCompany Like '%"&cCompany&"%'"
	    Else
	        sql = sql &" And cCompany Like '%"&cCompany& "%'"
        End If
	End If

	If cTel <> "" Then
        If sql = "" Then
            sql = sql & " where cTel Like '%" & cTel & "%'"
	    Else
	        sql = sql & " And cTel Like '%" & cTel & "%'"
        End If
	End If
		
	
    If cArea <> "" Then
        If sql = "" Then
            sql = sql & " where cArea = '" & cArea & "'"
	    Else
	        sql = sql & " And cArea = '" & cArea & "'"
        End If
	End If
	
    If cSquare <> "" Then
        If sql = "" Then
            sql = sql & " where cSquare = '" & cSquare & "'"
	    Else
	        sql = sql & " And cSquare = '" & cSquare & "'"
        End If
	End If
	
    If cType <> "" Then
        If sql = "" Then
            sql = sql & " where cType = '" & cType & "'"
	    Else
	        sql = sql & " And cType = '" & cType & "'"
        End If
	End If
	
    If cTrade <> "" Then
        If sql = "" Then
            sql = sql & " where cTrade = '" & cTrade & "'"
	    Else
	        sql = sql & " And cTrade = '" & cTrade & "'"
        End If
	End If
	
	if cStatus<>"" then
	    if sql="" then
		     sql=sql&" where cStatus="&cStatus
		else
		     sql=sql&" and cStatus="&cStatus
		end if
	end if		 	 
	
	if total <> "" then
	    if sql="" then
		   sql=sql&" where total like '%"&total&"%' "
		else
		    sql=sql&" and total like '%"&total&"%' "
		end if
	end if
			
	If cGroup <> "" And IsNumeric(cGroup) Then
        If sql = "" Then
            sql = sql & " Where cGroup = " & cGroup
	    Else
	        sql = sql & " And cGroup = " & cGroup
        End If
	End If
	
	If Session("CRM_level") < 9 Then
        If cUser <> "" Then
    	    arrUser = Split(getUserList(Session("CRM_level"),Session("CRM_group")),",")
	        Dim k,flag
	        flag = 0
    	    For k = 0 To UBound(arrUser) - 1
    	        If Replace(arrUser(k),"'","") = cUser Then
    		        flag = 1
    		    	Exit For
    		    End If
    	    Next
            If flag = 1 Then
                If sql = "" Then
                    sql = sql & " Where cUser = '" & cUser & "'"
    	        Else
    	            sql = sql & " And cUser = '" & cUser & "'"
                End If
    		Else
    		    If sql = "" Then
                    sql = sql & " Where cUser = '权限不允许的用户'"
    	        Else
    	            sql = sql & " And cUser = '权限不允许的用户'"
                End If
    	    End If
    	Else
    	    If sql = "" Then
                sql = sql & " Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")"
    	    Else
    	        sql = sql & " And cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")"
            End If
    	End If
	Else
	    If cUser <> "" Then
	        If sql = "" Then
                sql = sql & " Where cUser = '" & cUser & "'"
        	Else
    	        sql = sql & " And cUser = '" & cUser & "'"
            End If
		End If
	End If
End If

If cCompany = "" And cHomepage = "" And cLinkman = "" And cTel = "" And cEmail = "" And cAddress = "" And cArea = "" And cSquare = "" And cType = "" And cTrade = "" And cUser = "" And cGroup = "" and total="" Then
    If Session("CRM_sql") <> "" Then
        sql = Session("CRM_sql")
	Else
	    If Session("CRM_level") < 9 Then
		    sql = " Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")"
		End If
	End If
Else
    Session("CRM_sql") = sql
End If             	            	
'If Session("CRM_level") < 9 Then
'    If sql = "" Then
'	    sql = sql & " Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")"
'	Else
'	    sql = sql & " And cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")"
'	End If
'End If

strToPrint = strToPrint & "        <tr>" & VBCrlf
strToPrint = strToPrint & "          <td width=""60"" align=""center"" bgcolor=""menu"">编号</td>" & VBCrlf
strToPrint = strToPrint & "          <td align=""center"" bgcolor=""menu"">公司名称</td>" & VBCrlf
strToPrint = strToPrint & "          <td align=""center"" bgcolor=""menu"">公司地址</td>" & VBCrlf
strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">联系电话</td>" & VBCrlf
'If Session("CRM_level") > 1 Then
    strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">客户等级</td>" & VBCrlf
    strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">业务员</td>" & VBCrlf
'End If
'If Session("CRM_level") = 9 Then
'    strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">所属小区</td>" & VBCrlf
'End If
strToPrint = strToPrint & "        </tr>" & VBCrlf

Dim rs,intTotalRecords,intTotalPages,intCurrentPage,intPageSize
intCurrentPage = CInt(ABS(Request("pageNum")))
If Not IsNumeric(intCurrentPage) Or intCurrentPage <= 0 Then intCurrentPage = 1
intPageSize = 50

Set rs = Server.CreateObject("ADODB.Recordset")
'sql="Select * From baidu_client" & sql & " Order By cId"
'Response.Write(sql)
'Response.End()
rs.Open "Select * From baidu_client" & sql & " Order By cId",conn,3,1
intTotalRecords = rs.RecordCount
rs.PageSize = intPageSize
intTotalPages = rs.PageCount
If intCurrentPage > intTotalPages Then intCurrentPage = intTotalPages
If intTotalRecords > 0 Then rs.AbsolutePage = intCurrentPage
strCounter = strCounter & "共 " & intTotalRecords & " 条记录 "
strCounter = strCounter & "共 " & intTotalPages & " 页 "
strCounter = strCounter & "当前第 " & intCurrentPage & " 页 "
If intCurrentPage <> 1 And intTotalRecords <> 0 Then
    strCounter = strCounter & "<a href=""?pageNum=1""><<首页</a> "
Else
    strCounter = strCounter & "<<首页 "
End If
If intCurrentPage > 1 Then
    strCounter = strCounter & "<a href=""?pageNum=" & intCurrentPage - 1 & """><上一页</a> "
Else
    strCounter = strCounter & "<上一页 "
End If
If intCurrentPage < intTotalPages Then
    strCounter = strCounter & "<a href=""?pageNum=" & intCurrentPage + 1 & """>下一页></a> "
Else
    strCounter = strCounter & "下一页> "
End If
If intCurrentPage <> intTotalPages Then
    strCounter = strCounter & "<a href=""?pageNum=" & intTotalPages & """>尾页>></a>"
Else
    strCounter = strCounter & "尾页>>"
End If