exportdata.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 strCounter,strToPrint

Dim dataItem,beginData,endData
dataItem = Trim(Request("dataItem"))
beginData = Trim(Request("beginData"))
endData = Trim(Request("endData"))

If beginData = "起始数据" Then beginData = ""
If endData = "结束数据" Then endData = ""

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 getItem(dataItem)
    If dataItem = "" Then
	    getItem = ""
	Else
	    Select Case dataItem
		Case "cEmail"
		    getItem = "电子信箱"
		Case "msn"
		    getItem = "msn"
		Case "phone"
		    getItem = "联系人手机"
		
		Case Else
		    getItem =""
		End Select
	End If
End Function

		
			
	
Dim flag
flag = 0
If dataItem <> "" Then
    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
		if dataItem="all" then
	strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">电子邮箱 </td>" & VBCrlf
	strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">msn </td>" & VBCrlf
	strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">联系人手机 </td>" & VBCrlf
		else
    strToPrint = strToPrint & "          <td width=""80"" align=""center"" bgcolor=""menu"">" & getItem(dataItem) & "</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 fso,f,fl
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	fl = Server.MapPath("data.CSV")
	If fso.FileExists(fl) Then
	    fso.DeleteFile(fl)
	    Set f = fso.CreateTextFile(fl)
			if dataItem="cEmail" then
			f.WriteLine("联系人,电子邮箱,foxaddrID")
			elseif dataItem="msn" then
			f.WriteLine("联系人,MSN,foxaddrID")
			elseif dataItem="phone" then
			f.WriteLine("联系人,联系人手机,foxaddrID")
			elseif dataItem="all" then
			f.WriteLine("联系人,电子邮箱,MSN,联系人手机,foxaddrID")
			end if
	Else
	    Set f = fso.CreateTextFile(fl)
		    if dataItem="cEmail" then
			f.WriteLine("联系人,电子邮箱,foxaddrID")
			elseif dataItem="msn" then
			f.WriteLine("联系人,MSN,foxaddrID")
			elseif dataItem="phone" then
			f.WriteLine("联系人,联系人手机,foxaddrID")
			elseif dataItem="all" then
			f.WriteLine("联系人,电子邮箱,MSN,联系人手机,foxaddrID")
			end if
	End If
    Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")
	
    Select Case dataItem
    Case "cEmail"
        If beginData = "" And endData = "" Then
    	    If Session("CRM_level") = 9 Then
    	        rs.Open "Select * From baidu_client Order By cId Desc",conn,3,1
    		Else
    		    rs.Open "Select * From baidu_client Where cUser = '" & Session("CRM_name") & "' Order By cId Desc",conn,3,1
    		End If
    	Else
    	    If beginData = "" Then beginData = endData		
      	    If Session("CRM_level") = 9 Then
    	        rs.Open "Select * From baidu_client Where cEmail Like '%" & beginData & "%' Order By cId Desc",conn,3,1
    		Else
    		    rs.Open "Select * From baidu_client Where cEmail Like '%" & beginData & "%' And cUser = '" & Session("CRM_name") & "' Order By cId Desc",conn,3,1
    		End If
    	End If
		
		Case "msn"
        If beginData = "" And endData = "" Then
    	    If Session("CRM_level") = 9 Then
    	        rs.Open "Select * From baidu_client Order By cId Desc",conn,3,1
    		Else
    		    rs.Open "Select * From baidu_client Where cUser = '" & Session("CRM_name") & "' Order By cId Desc",conn,3,1
    		End If
    	Else
    	    If beginData = "" Then beginData = endData		
      	    If Session("CRM_level") = 9 Then
    	        rs.Open "Select * From baidu_client Where cEmail Like '%" & beginData & "%' Order By cId Desc",conn,3,1
    		Else
    		    rs.Open "Select * From baidu_client Where cEmail Like '%" & beginData & "%' And cUser = '" & Session("CRM_name") & "' Order By cId Desc",conn,3,1
    		End If
    	End If
		
		Case "phone"
        If beginData = "" And endData = "" Then
    	    If Session("CRM_level") = 9 Then
    	        rs.Open "Select * From baidu_client Order By cId Desc",conn,3,1
    		Else
    		    rs.Open "Select * From baidu_client Where cUser = '" & Session("CRM_name") & "' Order By cId Desc",conn,3,1
    		End If
    	Else
    	    If beginData = "" Then beginData = endData		
      	    If Session("CRM_level") = 9 Then
    	        rs.Open "Select * From baidu_client Where cEmail Like '%" & beginData & "%' Order By cId Desc",conn,3,1
    		Else
    		    rs.Open "Select * From baidu_client Where cEmail Like '%" & beginData & "%' And cUser = '" & Session("CRM_name") & "' Order By cId Desc",conn,3,1
    		End If
    	End If
		
		Case "all"
        If beginData = "" And endData = "" Then
    	    If Session("CRM_level") = 9 Then
    	        rs.Open "Select * From baidu_client Order By cId Desc",conn,3,1
    		Else
    		    rs.Open "Select * From baidu_client Where cUser = '" & Session("CRM_name") & "' Order By cId Desc",conn,3,1
    		End If
    	Else
    	    If beginData = "" Then beginData = endData		
      	    If Session("CRM_level") = 9 Then
    	        rs.Open "Select * From baidu_client Where cEmail Like '%" & beginData & "%' Order By cId Desc",conn,3,1
    		Else
    		    rs.Open "Select * From baidu_client Where cEmail Like '%" & beginData & "%' And cUser = '" & Session("CRM_name") & "' Order By cId Desc",conn,3,1
    		End If
    	End If
		
		
    Case Else
    End Select
	
    Do While Not rs.BOF And Not rs.EOF
        strToPrint = strToPrint & "        <tr>" & VBCrlf
        strToPrint = strToPrint & "          <td width=""60"" align=""center"">" & rs("cId") & "</td>" & VBCrlf
        strToPrint = strToPrint & "          <td><a href=""view.asp?cId=" & rs("cId") & """>" & rs("cCompany") & "</a></td>" & VBCrlf
        strToPrint = strToPrint & "          <td><a href=""http://" & rs("cHomepage") & """ target=""_blank"">" & rs("cHomepage") & "</td>" & VBCrlf
			if dataItem="all" then
			strToPrint = strToPrint & "          <td>" & rs("cEmail") & "</td>" & VBCrlf
			strToPrint = strToPrint & "          <td>" & rs("msn") & "</td>" & VBCrlf
			strToPrint = strToPrint & "          <td>" & rs("phone") & "</td>" & VBCrlf
			else
        strToPrint = strToPrint & "          <td>" & rs(dataItem) & "</td>" & VBCrlf
			end if
    	If Session("CRM_level") = 9 Then
            strToPrint = strToPrint & "          <td>" & rs("cUser") & "</td>" & VBCrlf
    	End If
		if dataItem="all" then
		f.WriteLine(rs("cLinkman") & "," & rs("cEmail") &","&rs("msn")&","&rs("phone")& "," & rs("cId"))
		else
		f.WriteLine(rs("cLinkman") & "," & rs(dataItem) & "," & rs("cId"))
		end if
    	rs.MoveNext
    Loop
    rs.Close