请教一个问题，排序

jack09596 2009-07-18 03:25:26

是这样子的，我在做时候有一个需要结构化的需求，我做不到，希望有人指导一下

是在填写表单的时候我需要把多个表单的数据填写到一个表单里，这个简单，但是问题是这样子的

表单1 表单2 表单3 表单4 我得先判断是否有数据，如果有数据，才填写进表单里而在输出的时候有 1、2、 3、输出表单的内容

打个比方说吧，我现在输入表单2 表单4的内容，那表单1和表单3就无内容了

但在输出页面是
一、表单2的内容
二、表单4的内容

我这个一、二、怎么做啊，怎么定义这个i呢
rs("DocEnrol")=CBool(DocEnrol)
If rs("DocEnrol") Then
Str=DocEnrolNum&" "
End If

rs("Nurse")=CBool(Nurse)
If rs("Nurse") Then
Str=Str&NurseNum&" "
End If

rs("Nurse2")=CBool(Nurse2)
If rs("Nurse2") Then
Str=Str&Nurse2Num&" "
End If
rs("ssstr")=Str

我目前的代码就不能有一、二了，请指点我一下，谢谢了

...全文

112 32 打赏收藏转发到动态举报

写回复

用AI写文章

32 条回复

切换为时间正序

请发表友善的回复…

发表回复

jack09596 2009-07-19

打赏
举报

是啊，我刚也发现了，谢谢你啊，万分感谢

lzp4881 2009-07-19

打赏
举报

怎么那个空格去不掉？
Arr=split(str,"这里有一个空格 ")

lzp4881 2009-07-19

打赏
举报

Arr=split(str," ")

lzp4881 2009-07-19

打赏
举报

Arr=split(str," ") 你这里多了一个空格
Arr=split(str," ")

jack09596 2009-07-19

打赏
举报

那个1不是，1是后面的，那就是没割出来

jack09596 2009-07-19

打赏
举报

<% Dim Arr,x,i
Str=Str&rs("XiangChangJianChaBiLu")
Arr=split(str," ")
x=1
Response.Write "ubound(Arr) ="&ubound(Arr)
for i=0 to ubound(Arr)
if trim(arr(i)) <>"" then
response.write (i+1)&"、"
response.write arr(i)&" "
x=x+1
response.write (i+1)
end if
next%> 我把那X改为i+1

jack09596 2009-07-19

打赏
举报

Response.Write "ubound(Arr) ="&ubound(Arr) 去输出了一下
ubound(Arr) =01

lzp4881 2009-07-19

打赏
举报

[Quote=引用 23 楼 jack09596 的回复:]
谢谢你，不过代码好像还有点小问题
输出只显示1、但是2 和3就没有，我给你看看
1、该机构持有《母婴保健技术服务执业许可证》
该机构持有《医疗美容服务执业许可证》
其它

他是这样的输出
[/Quote]
不可能吧，后面的
response.write arr(i)&" "
都执行了
前面的response.write x&"、" 会不执行？

jack09596 2009-07-19

打赏
举报

<% Dim Arr,x,i
Str=Str&rs("XiangChangJianChaBiLu")
Arr=split(str," ")
x=1
for i=0 to ubound(Arr)
if trim(arr(i)) <>"" then
response.write x&"、"
response.write arr(i)&" "
x=x+1
end if
next%>

jack09596 2009-07-19

打赏
举报

谢谢你，不过代码好像还有点小问题
输出只显示1、但是2 和3就没有，我给你看看
1、该机构持有《母婴保健技术服务执业许可证》
该机构持有《医疗美容服务执业许可证》
其它

他是这样的输出

lzp4881 2009-07-19

打赏
举报

<%
str="《母婴保健技术服务执业许可证》 该机构持有《医疗美容服务执业许可证》 其它 "
arr=split(str," ")
x=1
for i=0 to ubound(arr)
if trim(arr(i))<>"" then
response.write x&"、"
response.write arr(i)&" "
x=x+1
end if
next

jack09596 2009-07-19

打赏
举报

我读取到当前ID的rs("Content")值为《母婴保健技术服务执业许可证》 该机构持有《医疗美容服务执业许可证》 其它 

然后我输出就是
《母婴保健技术服务执业许可证》
该机构持有《医疗美容服务执业许可证》
其它

那我想用代码改为
1、《母婴保健技术服务执业许可证》
2、该机构持有《医疗美容服务执业许可证》
3、其它
该怎么改呢

lzp4881 2009-07-19

打赏
举报

[Quote=引用 19 楼 jack09596 的回复:]
该机构持有《母婴保健技术服务执业许可证》 该机构持有《医疗美容服务执业许可证》 其它 
这是那个Content的内容
然后我用
w=split(rs("Content")," ")
for i=0 to ubound(w)
if w(i)="" then
w(i)="0"
else
w(i)="1"
end if
next
w=W(i)&w 输出吗??
我能不能用
《母婴保健技术服务执业许可证》 该机构持有《医疗美容服务执业许可证》 其它 
去分割添加1 2 3吗，不要那些为空了的
[/Quote]
我怎么越看越糊涂，不明白你想要干什么

jack09596 2009-07-19

打赏
举报

该机构持有《母婴保健技术服务执业许可证》 该机构持有《医疗美容服务执业许可证》 其它 
这是那个Content的内容
然后我用
w=split(rs("Content")," ")
for i=0 to ubound(w)
if w(i)="" then
w(i)="0"
else
w(i)="1"
end if
next
w=W(i)&w 输出吗??
我能不能用
《母婴保健技术服务执业许可证》 该机构持有《医疗美容服务执业许可证》 其它 
去分割添加1 2 3吗，不要那些为空了的

lzp4881 2009-07-19

打赏
举报

w=split(rs("Content"),",")
for i=0 to ubound(w)
if w(i)="" then
w(i)="0"
else
w(i)="1"
end if
next

jack09596 2009-07-19

打赏
举报

我不是分割了提交到一个表单Content里面吗
然后W1 没有内容 W2 有内容 W3有内容 W4没内容
然后我用,分割嘛
就是,内容2,内容3，，
然后我就分割去判断
w=split(rs("Content"),",")
此时我就有点晕了，
w(0)为空的话..我怎么定义为0
而w(1)为有值话的，我怎么可以变为数字1呢
哎，基础不好，做东西就是累

lzp4881 2009-07-19