请教instr问题

补充说明一下：
1、我有一个表，里面有选项1，选项2，选项3，。。。选项20，选项21
当用户选中其中的一些项时，我就把选中项的id号一次性写入到用户表的choice字段里。
如：rs("choice")=request.form("user_choice")
2、在另外一个表里，显示出用户选择的结果。
如果包含的有这些id的字符串就显示出来。
如：循环开始
  <input ....<%if instr(用户表,""&choice&"") then response.write "checked" end if%>>
   循环结束

s=Request("choice") ' a, b, c, d
s=Replace(s," ","") ' a,b,c,d
s="|" & Replace(s,",","|") & "|" ' |a|b|c|d|
SaveToDatabase s

''''''''''''''''''''

GetChoiceFromDatabase s ' |a|b|c|d|
If Instr(s,"|c|")>0 Then Response.Write "c被选择"

Response.Write request.form("user_choice")
显示一下这个数据然后贴上来

谁能告诉我没事就连上一个空字符串是个什么习惯……我真的没在书上读到过

呵呵。。。

难道说您不会复制文本？
你先去百度知道混一会，就了解了。

看论坛的帮助网页
如果是1,2,3,4,5,6的话
精确判断可以进行逐个判断，比InStr精确
比如判断某个ID是否在这串字符串里出现过
Function IsHaveID(IDStr,ID)
   Dim i,IsHave,tAry()
   tAry=Split(IDStr,",")
   IsHave=False
   For i=0 To UBound(tAry)
       IF tAry(i)=CStr(ID) Then
          IsHave=True
       End IF
   Next
   IsHaveID=IsHave
End Function

？不可能不支持贴图啊？回复上传附件上传图片会自动显示在帖子里。

这是用Response.Write request.form("user_choice")出来的结果
ps：终于知道上传图片了

你要理解，有些人生来就不晓得去看论坛帮助的。

用函数直接调用不是很方便吗？
比如
Dim tStr
tStr="1,2,3,4,5,6,7,8"
IF Not IsHaveID(tStr,9) Then
   Response.Write "9在'"&tStr&"'中没有出现"
End IF

综合以上，以下代码请帮我改进一下：
1、写入数据库：
dim limit
limit=request.form("choice")  '获取用户点选的项目id,也就是tree表中tree_name字段的id
limit=replace(limit," ","")   '替换掉空格
limit="|"&replace(limit,",","|")&"|"  '替换逗号为 |
    'response.write limit的结果就是：|1|2|4|8|10|11|....|20|....
rs.open "select * from [user] where ....",conn,1,3
rs("choice")=limit
......

2、用户选择页面
dim effect,newid
...
rs1.open "select * from [user]",conn,1,1
effect=rs1("choice")
...
rs2.open "select id,tree_name from [tree]",conn,1,1
newid=rs2("id")
  循环开始
<input name="choice" value="<%=newid%>" type=...<%if ...then response.write "checked" end if%>><%=rs2("tree_name")%> '意思是，如果user表的choice字段里有tree表中tree_name的ID，就为选中状态。
  循环结束
如何写这个if语句？
if instr(effect,""&newid&"") then.....
补充：关键这个effect的值，它不是普通的字符串，而是tree_name的ID

[[it] 本帖最后由 nicechlk 于 2008-10-19 23:48 编辑 [/it]]

谢谢各位！