asp数组随机排序
这段代码的功能是：将一个数组打乱顺序，显示出来，让每一次显示的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b)=tt(ii)
tt(ii)=temp
Next
For i=0 To leng
response.write tt(i)&"<br>"
next
%>
相关文档：
最近做一个用asp做的网站后台的数据导出功能时,google,baidu了很多,但是多数都是转载,代码大概都一样,但是就是报错,最后有人说通过设置MIME类型和建立模板,最后整理,测试问题终于解决.关键的地方有以下几点:
1):MIME类型要设置正确,如要把DB中表(或表中指定字段)的数据导出成exel格式时,头部的MEMI类型的设置是:
<%
......
Excel导出函数
<%
Sub ExportToExcel
Response.ContentType = "application/vnd.ms-Excel"
Response.AddHeader "Content-Disposition", "attachment;Filename=Results.xls"
Response.Write ......
是Office的OWC版本问题。2000，2002XP，2003各不相同，加入Office的版本检查即可，完整代码如下：
<script language="javascript">
function exportExcel(atblData,dirPath)
{
//alert(dirPath);
if (typeof(atblData)=="undefined"||typeof(atblData)=="unknow")
{
& ......
MicrosoftVBScript语法错误(0×800A03E9)–＞内存不足MicrosoftVBScript语法错误(0×800A03EA)–＞语法错误
MicrosoftVBScript语法错误(0×800A03EB)–＞缺少?’:’
MicrosoftVBScript语法错误(0×800A03ED)–＞缺少?’(’
Micros ......
