|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了把持|数据|显现良多时分,我们在显现数据库的内容时,会用到几行或几列来显现数据,如10条数据,要以每行2列或3列情势显现。上面是一个利用数组以表格显现几行几列的复杂的示列代码,但愿对您有所匡助。
<%
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
示例1
dimkk(9)
fork=0to9
kk(k)=k+1
next
%>
<tableborder="1"width="600"cellpadding="2">
<%calltablebody(kk,1,"")%>
</table>
<hr>
<tableborder="1"width="600"cellpadding="2">
<%calltablebody(kk,4,"test1")%>
</table>
<hr>
<tableborder="1"width="600"cellpadding="2">
<%calltablebody(kk,5,"")%>
</table>
<hr>
<%
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=""http://www."&str&"""target=""_blank"">"&str&"</a>")
endfunction
functionurltest2(str)
Response.write("<buttonstyle=""width:100%;""window.open(http://www."&str&",,)"">"&str&"</button>")
endfunction
%>
<tableborder="1"width="480"cellpadding="2">
<%calltablebody(wwwarr,3,"urltest1")%>
</table>
<hr>
<tableborder="2"width="480"cellpadding="2"cellspacing="2">
<%calltablebody(wwwarr,4,"urltest2")%>
</table>
缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|