idtt.asp

客户管理模块：随着计算机的普及和网络的迅猛发展

<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
call fnCheckRight()
Dim EmpList__MMColParam
EmpList__MMColParam = "1"
If (Request("SearchWord") <> "") Then 
  EmpList__MMColParam = Request("SearchWord")
End If
%>
<%
'if instr(request.QueryString,"IDstring") then
' if  request.QueryString("IDstring") = "" then
  '  IDstring = "0"
 ' else
   ' IDstring=request.QueryString("IDstring")
  'end if
'end if
set uP=server.createobject("adodb.recordset")
 uP.Activeconnection=MM_EmpMain_string
 uP.source="select * from user where ID="&request.cookies("ID")&" and ispass=true"
 uP.cursortype=0
 uP.cursorlocation=2
 uP.locktype=1
 uP.open()
 dim upstr
   if uP.eof then
     upstr=""
	 else
	 upstr1=uP("地区")
	
	 end if 
	 up.close
	 set up=nothing
	 if fncheckupart(1)=true or fncheckupart(2)=true or fncheckupart(3)=true  then
	 else
	 if  IDstring = "" then
	    upstr=split(upstr1,"，")
		for i=0 to ubound(upstr)
		 Set search = Server.CreateObject("ADODB.Recordset")
           search.ActiveConnection = MM_EmpMain_STRING
           search.Source = "SELECT  ID FROM kufu where   城市='"&upstr(i)&"'" 
           'response.Write(search.Source)
           'response.end 
           search.CursorType = 0
           search.CursorLocation = 2
            search.LockType = 1
            search.Open()
           search_numRows = 0
       	   if search.eof then		   
		   else
            while not search.eof 
             IDstring = IDstring & search("ID") & ","
            search.movenext
           wend
		    end if
		   next 
		   end if
		   end if
		   response.write(idstring)
	
%>