|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!把持|数据|显现良多时分,我们在显现数据库的内容时,会用到几行或几列来显现数据,如10条数据,要以每行2列或3列情势显现。
上面是一个利用数组以表格显现几行几列的复杂的示列代码,但愿对您有所匡助。
dimwwwstr,wwwarr
wwwstr="51windows.Net|blueidea.com|google.com|yahoo.com|msn.com.cn|csdn.net|ipark.cn|1kg.cn"
wwwarr=split(wwwstr,"|")
functionurltest1(str)
Response.write("<ahref=""."&str&"""target=""_blank"">"&str&"</a>")
endfunction
<tableborder="1"width="480"cellpadding="2">
<%calltablebody(wwwarr,3,"urltest1")%>
</table>
函数代码:
functiontablebody(arr,cols,functionstr)
arr为数组
cols为列数
functionstr为输入内容用的function,没无为空
dimallnum,i,j
allnum=ubound(arr)
fori=0to(allnum/cols)
Response.write(VbTab&"<tr>"&VbNewLine)
forj=0to(cols-1)
ij=(i*cols+j)
Response.write(VbTab&VbTab&"<tdwidth="""&formatnumber(100/cols,0)&"%"">")
ifij<=allnumthen
iflen(functionstr)>0then
execute(""&functionstr&"(arr(ij))")
else
Response.write(arr(ij))
endif
else
Response.write("")
endif
Response.write("</td>"&VbNewLine)
next
Response.write(VbTab&"</tr>"&VbNewLine)
next
endfunction
functiontest1(str)
Response.write("<divalign=""center"">"&str&"</div>")
endfunction
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况; |
|