字符串比较和删除

[rcsglydm]

替雇用公司做一个事故统计网站，受赔人员分两种，一种是工伤，由保险公司赔，一种是意外伤害，由雇用公司赔。
员工表结构如下：
gr_list 表
ID 人名 伤害类型
1 张三 意外
2 李四 工伤
3 王五 意外

第一个页面有几个文本框，其中一个是人名框，可以输入几个人名。
第二个页面从第一个页面人名组合，如“张三、李四、王五、赵六”，要求把其中凡是工伤的人给去掉，剩下的人名存入字段中。如李四是工伤，那么字段name中应该是“张三、王五、赵六”。

         gongren=request("gongren")     '取得字符串的值
	set rs=server.createobject("adodb.recordset")
	sql="select * from gr_list  where unit='工伤'"
	rs.open sql,conn,3,3
	rcount=rs.recordcount
	  for h=1 to rcount
	      result=replace(gongren,request("gongren"),rs("gr_name"),"")     '从字符串中去掉工伤的人员名字，
	  rs.movenext
	  next 
	rs.close
	set rs=nothing

可是我运行几次，得到的"result"值，并没有把李四的名字去掉。
而且，麻烦的是不但要去掉人名，还要去掉相应的"、"号。

[lzp4881]

<%
gongren=request("gongren") '取得字符串的值
set rs=conn.execute("select * from gr_list where unit='工伤'")
do while not rs.eof
gr_name=rs("gr_name")
gongren=replace(gongren,gr_name,"") '从字符串中去掉工伤的人员名字
gongren=replace(gongren,"、、","、")
rs.movenext
loop
rs.close
set rs=nothing
if left(gongren,1)="、" then gongren=right(gongren,len(gongren)-1)
if right(gongren,1)="、" then gongren=left(gongren,len(gongren)-1)
response.write gongren
%>

[草原可可]

你把值都打印出来看看对不对

[lzp4881]

上面那个有问题，修改一下
<%
gongren=request("gongren") '取得字符串的值
gongren="、"&gongren&"、" '前后加上、
set rs=conn.execute("select * from gr_list where unit='工伤'")
do while not rs.eof
gr_name="、"&rs("gr_name")&"、"
gongren=replace(gongren,gr_name,"、") '从字符串中去掉工伤的人员名字
rs.movenext
loop
rs.close
set rs=nothing
if left(gongren,1)="、" then gongren=right(gongren,len(gongren)-1)
if right(gongren,1)="、" then gongren=left(gongren,len(gongren)-1)
response.write gongren
%>

[Rotel-刘志东]

 <% 
gongren=request("gongren")    '取得字符串的值 
gongren="、"&gongren&"、" '前后加上、 
set rs=conn.execute("select * from gr_list  where unit='工伤'") 
do while not rs.eof 
gr_name="、"&rs("gr_name")&"、" 
    gongren=replace(gongren,gr_name,"、")    '从字符串中去掉工伤的人员名字 
rs.movenext 
loop 
rs.close 
set rs=nothing 
if left(gongren,1)="、" then gongren=right(gongren,len(gongren)-1) 
if right(gongren,1)="、" then gongren=left(gongren,len(gongren)-1) 
response.write gongren 
%>