日期:2014-05-17  浏览次数:21052 次

如何实现公共通讯录的部分页面刷新
我做了一个公共地址簿,有查询功能,从查询结果选择主送人和抄送人,现在完成主送人和抄送人的选择,但是因为抄送人是不同单位的人员,需要重新查询单位找到相关人员,但是一查询就把原来选好的人员也刷新了,我希望只是在左边表格里显示查询结果,无论查询多少次都不影响右边两个表格的数据。
代码如下:
有人说用<iframe>,我试了并不成功,请大家帮帮忙,谢谢。
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/function.asp"-->
<%
selectusers = trim(request("SelectedUsers"))
if left(selectusers,"1")="," then selectusers=right(selectusers,len(selectusers)-1)
arrSelectUsers=split(selectusers,",")
dim strSelectUsers
if not isempty(arrSelectUsers) then
for i=ubound(arrSelectUsers) to 0 step -1
str=GetUser1("tblUser","UserName",arrSelectUsers(i))
strSelectUsers=strSelectUsers &","& str
next
if left(strSelectUsers,"1")="," then strSelectUsers=right(strSelectUsers,len(strSelectUsers)-1)
end if

selectusers1 = trim(request("SelectedUsers1"))
if left(selectusers1,"1")="," then selectusers1=right(selectusers1,len(selectusers1)-1)
arrSelectUsers1=split(selectusers1,",")
dim strSelectUsers1
if not isempty(arrSelectUsers1) then
for i=ubound(arrSelectUsers1) to 0 step -1
str=GetUser1("tblUser","UserName",arrSelectUsers1(i))
strSelectUsers1=strSelectUsers1 &","& str
next
if left(strSelectUsers1,"1")="," then strSelectUsers1=right(strSelectUsers1,len(strSelectUsers1)-1)
end if

%>

<%
Dim sql,rsb
set rsb=server.CreateObject ("ADODB.Recordset")
sql = "select ID,enterarea_id,department from tbldepartment where disp='0' order by enterarea_id"
rsb.Open sql,oConn,1,3

%> 
<script language = "JavaScript">
var onecount; 
onecount=0; 
subcat = new Array(); 
<% 
count = 0 
do while not rsb.eof
%> 
subcat[<%=count%>] = new Array("<%= trim(rsb(2))%>","<%= trim(rsb(1))%>","<%= trim(rsb(2))%>"); 
<% 
count = count + 1 
rsb.movenext
loop
rsb.close 
set rsb=nothing 
%> 
onecount=<%=count%>; 

function changeunits(enter_area) 

document.Queryform.selDept.length = 0; 

var enter_area=enter_area; 
var i; 
 
document.Queryform.selDept.options[0] = new Option('请选择',''); 
 
for (i=0;i < onecount; i++) 

if (subcat[i][1] == enter_area) 

document.Queryform.selDept.options[document.Queryform.selDept.length] = new Option(subcat[i][0], subcat[i][2]); 
}
}
}
</script>
<%
  strEnterarea = trim(request("selEnterarea"))
  strDept = trim(request("selDept"))
sqlCondition=""
  if strEnterarea <>"" then sqlcondition=sqlCondition&"d.enterarea_id='"&strEnterarea&"' and "
if strDept<>"" then sqlCondition=sqlCondition&"d.department='"&strDept&"' and "
  if sqlcondition<>"" then
strCondition=sqlcondition & "s.disp='0' order by e.id,d.id"
else
strCondition="s.disp='0' order by e.id,d.id"
end if

set rsm=Server.CreateObject("Adodb.Recordset")
sql="select e.id as enter_area,e.enter_area,d.id as dept_id,d.enterarea_id,d.department as dept,s.id as user_id,s.loginname,s.username,s.department "
sql=sql&"from "
sql=sql&&qu