ASP数组的拆分显示跟其分页的问题?
例如我要把这个字符串:(IDX="冯先生,23岁,168cm,高中,2008-9-12:李先生,25岁,170cm,大学,2008-9-13:成先生,30岁,169cm,...
例如我要把这个字符串:(IDX="冯先生,23岁,168cm,高中,2008-9-12:李先生,25岁,170cm,大学,2008-9-13:成先生,30岁,169cm,高中,2008-9-10:王先生,28岁,160cm,大学,2008-9-20")
折分为以表格的方式显示:如以下显示
--------------------------------------------
| 姓名 | 年龄 | 身高 | 学历 | 参加时间 |
--------------------------------------------
| 李先生| 25岁 | 170cm | 大学 | 2008-9-13|
--------------------------------------------
| 冯先生| 23岁 | 168cm | 高中 | 2008-9-12|
--------------------------------------------
还有一点就是要有时间的排序和分页功能。
希望各位大侠能解答我这个问题吧,一万个谢了。 展开
折分为以表格的方式显示:如以下显示
--------------------------------------------
| 姓名 | 年龄 | 身高 | 学历 | 参加时间 |
--------------------------------------------
| 李先生| 25岁 | 170cm | 大学 | 2008-9-13|
--------------------------------------------
| 冯先生| 23岁 | 168cm | 高中 | 2008-9-12|
--------------------------------------------
还有一点就是要有时间的排序和分页功能。
希望各位大侠能解答我这个问题吧,一万个谢了。 展开
展开全部
我写的,经过测试,成功,拿去用吧
剩下的分页:你可以把先分好的页,合并成一个长字符串,然后再调用这个函数就可以了
function paixu(str,xunxu)
a=str
b= split(a,":")
if xunxu="降序" then
for i=0 to ubound(b)-1
a1 = split(b(i),",")(4)
for j=i+1 to ubound(b)
b1=split(b(j),",")(4)
if b1>a1 then
temp = b(i)
b(i)=b(j)
b(j)=temp
end if
next
next
elseif xunxu="升序" then
for i=0 to ubound(b)-1
a1 = split(b(i),",")(4)
for j=i+1 to ubound(b)
b1=split(b(j),",")(4)
if b1<a1 then
temp = b(i)
b(i)=b(j)
b(j)=temp
end if
next
next
else
response.Write "指定顺序出错"
exit function
end if
response.Write "| 姓名 | 年龄 | 身高 | 学历 | 参加时间 | <br>"
for i=0 to ubound(b)
c=split(b(i),",")
response.Write "| " & c(0) & " | " & c(1) & " | " & c(2) & " | " & c(3) & " | " & c(4) & " |<br>"
next
end function
call paixu("冯先生,23岁,168cm,高中,2008-9-12:李先生,25岁,170cm,大学,2008-9-13:成先生,30岁,169cm,高中,2008-9-10:王先生,28岁,160cm,大学,2008-9-20","升序")
response.Write "<br><br>"
call paixu("冯先生,23岁,168cm,高中,2008-9-12:李先生,25岁,170cm,大学,2008-9-13:成先生,30岁,169cm,高中,2008-9-10:王先生,28岁,160cm,大学,2008-9-20","降序")
剩下的分页:你可以把先分好的页,合并成一个长字符串,然后再调用这个函数就可以了
function paixu(str,xunxu)
a=str
b= split(a,":")
if xunxu="降序" then
for i=0 to ubound(b)-1
a1 = split(b(i),",")(4)
for j=i+1 to ubound(b)
b1=split(b(j),",")(4)
if b1>a1 then
temp = b(i)
b(i)=b(j)
b(j)=temp
end if
next
next
elseif xunxu="升序" then
for i=0 to ubound(b)-1
a1 = split(b(i),",")(4)
for j=i+1 to ubound(b)
b1=split(b(j),",")(4)
if b1<a1 then
temp = b(i)
b(i)=b(j)
b(j)=temp
end if
next
next
else
response.Write "指定顺序出错"
exit function
end if
response.Write "| 姓名 | 年龄 | 身高 | 学历 | 参加时间 | <br>"
for i=0 to ubound(b)
c=split(b(i),",")
response.Write "| " & c(0) & " | " & c(1) & " | " & c(2) & " | " & c(3) & " | " & c(4) & " |<br>"
next
end function
call paixu("冯先生,23岁,168cm,高中,2008-9-12:李先生,25岁,170cm,大学,2008-9-13:成先生,30岁,169cm,高中,2008-9-10:王先生,28岁,160cm,大学,2008-9-20","升序")
response.Write "<br><br>"
call paixu("冯先生,23岁,168cm,高中,2008-9-12:李先生,25岁,170cm,大学,2008-9-13:成先生,30岁,169cm,高中,2008-9-10:王先生,28岁,160cm,大学,2008-9-20","降序")
展开全部
asp有点忘了
但思路应该是这样
分组idxarray=idx.split(",")
这一行“| 姓名 | 年龄 | 身高 | 学历 | 参加时间 | ”直接输出
下面遍历数组idxarray
dim i=0;
for each s in idxarray
i=i+1;
response.write(s);
if i mod 5=0
response.write("<br>");
end if
next
但思路应该是这样
分组idxarray=idx.split(",")
这一行“| 姓名 | 年龄 | 身高 | 学历 | 参加时间 | ”直接输出
下面遍历数组idxarray
dim i=0;
for each s in idxarray
i=i+1;
response.write(s);
if i mod 5=0
response.write("<br>");
end if
next
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
同二楼.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询