listall.asp

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

		'End If
	    strOut(1) = strOut(1) & "        </tr>" & VBCrlf
		If k >= intPageSize Then Exit Do
		rs.MoveNext
	Loop
	rs.Close
	Set rs = Nothing
	searchUrl = strOut
End Function

Function level()
    Dim rs,strOut(2),strUserList
	Dim 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")
	If Session("CRM_level") = 9 Then
	    rs.Open "Select * From baidu_client Where level =true Order By cSpaceEnd Desc",conn,3,1
	Else
	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))
		rs.Open "Select * From baidu_client Where level =true And cUser In (" & strUserList & ") Order By cSpaceEnd Desc",conn,3,1
	   
	End If
	intTotalRecords = rs.RecordCount
    rs.PageSize = intPageSize
    intTotalPages = rs.PageCount
    If intCurrentPage > intTotalPages Then intCurrentPage = intTotalPages
    If intTotalRecords > 0 Then rs.AbsolutePage = intCurrentPage
    strOut(0) = strOut(0) & "共 " & intTotalRecords & " 条记录 "
    strOut(0) = strOut(0) & "共 " & intTotalPages & " 页 "
    strOut(0) = strOut(0) & "当前第 " & intCurrentPage & " 页 "
    If intCurrentPage <> 1 And intTotalRecords <> 0 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=1""><<首页</a> "
    Else
        strOut(0) = strOut(0) & "<<首页 "
    End If
    If intCurrentPage > 1 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage - 1 & """><上一页</a> "
    Else
        strOut(0) = strOut(0) & "<上一页 "
    End If
    If intCurrentPage < intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage + 1 & """>下一页></a> "
    Else
        strOut(0) = strOut(0) & "下一页> "
    End If
    If intCurrentPage <> intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intTotalPages & """>尾页>></a>"
    Else
        strOut(0) = strOut(0) & "尾页>>"
    End If
	
	Dim k
	k = 0
	Do While Not rs.BOF And Not rs.EOF
	    k = k + 1
	    strOut(1) = strOut(1) & "        <tr>" & VBCrlf
	    if rs("cStatus")=false then
		strOut(1) = strOut(1) & "        <td align=""right"">" & rs("cId") & "</td>" & VBCrlf
		else
	    strOut(1) = strOut(1) & "        <td align=""right"">" & "<img src=images/usd.gif>&nbsp;&nbsp;"&rs("cId") & "</td>" & VBCrlf
		end if
	    if rs("level")=true then
		strOut(1) = strOut(1) & "        <td><a href=""view.asp?cId=" & rs("cId") & """>"&"<font color=red>" & rs("cCompany") & "</font>"&"</a></td>" & VBCrlf
		else
	    strOut(1) = strOut(1) & "        <td><a href=""view.asp?cId=" & rs("cId") & """>" & rs("cCompany") & "</a></td>" & VBCrlf
	    end if
	    strOut(1) = strOut(1) & "        <td>" & rs("cAddress") & "</td>" &  VBCrlf
	    strOut(1) = strOut(1) & "        <td>" & rs("cType") & "</td>" & VBCrlf
		strOut(1) = strOut(1) & "        <td>" & rs("cTel") & "</td>" & VBCrlf
		strOut(1) = strOut(1) & "        <td>" & rs("cLinkman") & "</td>" &  VBCrlf
		'If Session("CRM_level") = 9 Then
	        strOut(1) = strOut(1) & "        <td>" & rs("cUser") & "</td>" & VBCrlf
		'End If
	    strOut(1) = strOut(1) & "        </tr>" & VBCrlf
		If k >= intPageSize Then Exit Do
		rs.MoveNext
	Loop
	rs.Close
	Set rs = Nothing
	level = strOut
End Function

Function checked()
    Dim rs,strOut(2),strUserList
	Dim 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")
	If Session("CRM_level") = 9 Then
	    rs.Open "Select * From baidu_client Where cStatus =true Order By cSpaceEnd Desc",conn,3,1
	Else
	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))
		rs.Open "Select * From baidu_client Where cStatus =true And cUser In (" & strUserList & ") Order By cSpaceEnd Desc",conn,3,1
	   
	End If
	intTotalRecords = rs.RecordCount
    rs.PageSize = intPageSize
    intTotalPages = rs.PageCount
    If intCurrentPage > intTotalPages Then intCurrentPage = intTotalPages
    If intTotalRecords > 0 Then rs.AbsolutePage = intCurrentPage
    strOut(0) = strOut(0) & "共 " & intTotalRecords & " 条记录 "
    strOut(0) = strOut(0) & "共 " & intTotalPages & " 页 "
    strOut(0) = strOut(0) & "当前第 " & intCurrentPage & " 页 "
    If intCurrentPage <> 1 And intTotalRecords <> 0 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=1""><<首页</a> "
    Else
        strOut(0) = strOut(0) & "<<首页 "
    End If
    If intCurrentPage > 1 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage - 1 & """><上一页</a> "
    Else
        strOut(0) = strOut(0) & "<上一页 "
    End If
    If intCurrentPage < intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage + 1 & """>下一页></a> "
    Else
        strOut(0) = strOut(0) & "下一页> "
    End If
    If intCurrentPage <> intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intTotalPages & """>尾页>></a>"
    Else
        strOut(0) = strOut(0) & "尾页>>"
    End If
	
	Dim k
	k = 0
	Do While Not rs.BOF And Not rs.EOF
	    k = k + 1
	    strOut(1) = strOut(1) & "        <tr>" & VBCrlf
	    if rs("cStatus")=false then
		strOut(1) = strOut(1) & "        <td align=""right"">" & rs("cId") & "</td>" & VBCrlf
		else
	    strOut(1) = strOut(1) & "        <td align=""right"">" & "<img src=images/usd.gif>&nbsp;&nbsp;"&rs("cId") & "</td>" & VBCrlf
		end if
	    if rs("level")=true then
		strOut(1) = strOut(1) & "        <td><a href=""view.asp?cId=" & rs("cId") & """>"&"<font color=red>" & rs("cCompany") & "</font>"&"</a></td>" & VBCrlf
		else
	    strOut(1) = strOut(1) & "        <td><a href=""view.asp?cId=" & rs("cId") & """>" & rs("cCompany") & "</a></td>" & VBCrlf
	    end if
	    strOut(1) = strOut(1) & "        <td>" & rs("cAddress") & "</td>" &  VBCrlf
	    strOut(1) = strOut(1) & "        <td>" & rs("cType") & "</td>" & VBCrlf
		strOut(1) = strOut(1) & "        <td>" & rs("cTel") & "</td>" & VBCrlf
		strOut(1) = strOut(1) & "        <td>" & rs("cLinkman") & "</td>" &  VBCrlf
		'If Session("CRM_level") = 9 Then
	        strOut(1) = strOut(1) & "        <td>" & rs("cUser") & "</td>" & VBCrlf
		'End If
	    strOut(1) = strOut(1) & "        </tr>" & VBCrlf
		If k >= intPageSize Then Exit Do
		rs.MoveNext
	Loop
	rs.Close
	Set rs = Nothing
	checked = strOut
End Function

Function question()
    Dim rs,strOut(2),strUserList
	Dim 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")
	If Session("CRM_level") = 9 Then
	    rs.Open "Select * From baidu_client Where flag ='1' Order By cSpaceEnd Desc",conn,3,1
	Else
	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))
		rs.Open "Select * From baidu_client Where flag ='1' And cUser In (" & strUserList & ") Order By cSpaceEnd Desc",conn,3,1
	   
	End If
	intTotalRecords = rs.RecordCount
    rs.PageSize = intPageSize
    intTotalPages = rs.PageCount
    If intCurrentPage > intTotalPages Then intCurrentPage = intTotalPages
    If intTotalRecords > 0 Then rs.AbsolutePage = intCurrentPage
    strOut(0) = strOut(0) & "共 " & intTotalRecords & " 条记录 "
    strOut(0) = strOut(0) & "共 " & intTotalPages & " 页 "
    strOut(0) = strOut(0) & "当前第 " & intCurrentPage & " 页 "
    If intCurrentPage <> 1 And intTotalRecords <> 0 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=1""><<首页</a> "
    Else
        strOut(0) = strOut(0) & "<<首页 "
    End If
    If intCurrentPage > 1 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage - 1 & """><上一页</a> "
    Else
        strOut(0) = strOut(0) & "<上一页 "
    End If
    If intCurrentPage < intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage + 1 & """>下一页></a> "
    Else
        strOut(0) = strOut(0) & "下一页> "
    End If
    If intCurrentPage <> intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intTotalPages & """>尾页>></a>"
    Else
        strOut(0) = strOut(0) & "尾页>>"
    End If
	
	Dim k
	k = 0
	Do While Not rs.BOF And Not rs.EOF
	    k = k + 1
	    strOut(1) = strOut(1) & "        <tr>" & VBCrlf
	    if rs("cStatus")=false then
		strOut(1) = strOut(1) & "        <td align=""right"">" & rs("cId") & "</td>" & VBCrlf
		else
	    strOut(1) = strOut(1) & "        <td align=""right"">" & "<img src=images/usd.gif>&nbsp;&nbsp;"&rs("cId") & "</td>" & VBCrlf
		end if
	    if rs("level")=true then
		strOut(1) = strOut(1) & "        <td><a href=""view.asp?cId=" & rs("cId") & """>"&"<font color=red>" & rs("cCompany") & "</font>"&"</a></td>" & VBCrlf
		else
	    strOut(1) = strOut(1) & "        <td><a href=""view.asp?cId=" & rs("cId") & """>" & rs("cCompany") & "</a></td>" & VBCrlf
	    end if
	    strOut(1) = strOut(1) & "        <td>" & rs("cAddress") & "</td>" &  VBCrlf
	    strOut(1) = strOut(1) & "        <td>" & rs("cType") & "</td>" & VBCrlf
		strOut(1) = strOut(1) & "        <td>" & rs("cTel") & "</td>" & VBCrlf
		strOut(1) = strOut(1) & "        <td>" & rs("cLinkman") & "</td>" &  VBCrlf
		'If Session("CRM_level") = 9 Then
	        strOut(1) = strOut(1) & "        <td>" & rs("cUser") & "</td>" & VBCrlf
		'End If
	    strOut(1) = strOut(1) & "        </tr>" & VBCrlf
		If k >= intPageSize Then Exit Do
		rs.MoveNext
	Loop
	rs.Close
	Set rs = Nothing
	question = strOut
End Function


Function listAll()
    Dim rs,strOut(2),strUserList
	Dim 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")
	If Session("CRM_level") = 9 Then
	    rs.Open "Select * From baidu_client Order By cSpaceEnd Desc",conn,3,1
	Else
	    strUserList = getUserList(Session("CRM_level"),Session("CRM_group"))
		'Response.Write(strUserList)
		'Response.End()
		rs.Open "Select * From baidu_client Where cUser In (" & strUserList & ") Order By cSpaceEnd Desc",conn,3,1
	    'If Session("CRM_level") = 2 Then
	    '    rs.Open "Select * From baidu_client Where cLocal = '" & getGroupName(Session("CRM_group")) & "' Order By cSpaceEnd Desc",conn,3,1
		'Else
	    '    rs.Open "Select * From baidu_client Where cUser = '" & Session("CRM_name") & "' Order By cSpaceEnd Desc",conn,3,1
		'End If
	End If
	intTotalRecords = rs.RecordCount
    rs.PageSize = intPageSize
    intTotalPages = rs.PageCount
    If intCurrentPage > intTotalPages Then intCurrentPage = intTotalPages
    If intTotalRecords > 0 Then rs.AbsolutePage = intCurrentPage
    strOut(0) = strOut(0) & "共 " & intTotalRecords & " 条记录 "
    strOut(0) = strOut(0) & "共 " & intTotalPages & " 页 "
    strOut(0) = strOut(0) & "当前第 " & intCurrentPage & " 页 "
    If intCurrentPage <> 1 And intTotalRecords <> 0 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=1""><<首页</a> "
    Else
        strOut(0) = strOut(0) & "<<首页 "
    End If
    If intCurrentPage > 1 Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage - 1 & """><上一页</a> "
    Else
        strOut(0) = strOut(0) & "<上一页 "
    End If
    If intCurrentPage < intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage + 1 & """>下一页></a> "
    Else
        strOut(0) = strOut(0) & "下一页> "
    End If
    If intCurrentPage <> intTotalPages Then
        strOut(0) = strOut(0) & "<a href=""?pageNum=" & intTotalPages & """>尾页>></a>"
    Else
        strOut(0) = strOut(0) & "尾页>>"
    End If
	
	Dim k
	k = 0
	Do While Not rs.BOF And Not rs.EOF
	    k = k + 1
	    strOut(1) = strOut(1) & "        <tr>" & VBCrlf
	    if rs("cStatus")=false then
		strOut(1) = strOut(1) & "        <td align=""right"">" & rs("cId") & "</td>" & VBCrlf
		else
	    strOut(1) = strOut(1) & "        <td align=""right"">" & "<img src=images/usd.gif>&nbsp;&nbsp;"&rs("cId") & "</td>" & VBCrlf
		end if
	    if rs("level")=true then
		strOut(1) = strOut(1) & "        <td><a href=""view.asp?cId=" & rs("cId") & """>"&"<font color=red>" & rs("cCompany") & "</font>"&"</a></td>" & VBCrlf
		else
	    strOut(1) = strOut(1) & "        <td><a href=""view.asp?cId=" & rs("cId") & """>" & rs("cCompany") & "</a></td>" & VBCrlf
	    end if
	    strOut(1) = strOut(1) & "        <td>" & rs("cAddress") & "</td>" &  VBCrlf
	    strOut(1) = strOut(1) & "        <td>&nbsp;" & rs("cType") & "</td>" & VBCrlf
		strOut(1) = strOut(1) & "        <td>" & rs("cTel") & "</td>" & VBCrlf
		strOut(1) = strOut(1) & "        <td>" & rs("cLinkman") & "</td>" &  VBCrlf
		'If Session("CRM_level") = 9 Then
	        strOut(1) = strOut(1) & "        <td>" & rs("cUser") & "</td>" & VBCrlf
		'End If
	    strOut(1) = strOut(1) & "        </tr>" & VBCrlf