% 判断包含双字节字符的字符串长度 Function getStrLen(str)dim x,y,ix = len(str)y = 0 for i = 1 to x if asc(mid(str,i,1))0 or asc(mid(str,i,1))>255 theny = y + 2 双字节 elsey = y + 1ascii码字符 end if nextgetStrLen =

Response.Buffer = true Response.Clear dim url Dim fso,fl,flsize dim Dname Dim objStream,ContentType,flName,isre,url1 Dim strFileNamestrFileName=replace(replace(Request("file"),"/",""),"/","")  传参

SQL Server 2000: SELECT TOP n * FROM tanblename ORDER BY NEWID() Access: SELECT TOP n * FROM tanblename ORDER BY rnd([一个自动编号字段]) SQL 有了 NEWID() 就无须多讲拉，但 Access 中没有，所以寄望于 RND，实际上这条语句在 Access 中的