推荐:JScript中遍历Request表单参数集合的方法JScript下有一个Enumerator对象可以遍历集合。根据它的文档写了以下程序,可以遍历整个Request.QueryString集合: 代码如下: var params = new Enumerator(Request.QueryString); while (!params.atEnd()) { Response.Write(params.item() + : + Request.QueryString(p
代码如下:
Function GetTable(Table,Where,Order,OrderSort,curpage, pagesize,MiniJson)'Author : nigou
'使用方法 : Response.Write GetTable(Table表名,Where条件,Order主键(必须),OrderSort(asc,desc),curpage当前页, pagesize每页条数,MiniJson是否输出为miniUI格式)'
dim i, j ,rs
if OrderSort="" Then OrderSort="asc"
if Where="" Then Where="asc"
Set Rs=Server.CreateObject("adodb.recordset")if curpage>1 then
TmpSql="select a.* from ( select top "& (curpage) * pagesize& " * from "& Table& " where "& where& " order by "& Order& " "& OrderSort& ") a left join ( select top "& (curpage-1) * pagesize& " * from "& Table& " where "& where& " order by "& Order& " "& OrderSort& ") b on a."& Order& "=b."& Order& " where iif(b."& Order& ",'0','1')='1'"
else
TmpSql="select a.* from ( select top "& (curpage) * pagesize& " * from "& Table& " where "& where& " order by "& Order& " "& OrderSort& ") a "
end if
if pagesize=0 Then TmpSql = "select * from "& Table
Rs.open TmpSql,conn,1,1
RealSize=Rs.recordcount
for i=0 to Rs.recordcount-1
TmpJson= TmpJson& "{"
for j=0 to Rs.fields.count-1
TmpJson= TmpJson& """"& (Rs.fields(j).name)& """ : "
TmpJson= TmpJson& """"& Rs(j)& """"
if j<Rs.fields.count-1 then TmpJson= TmpJson& " , "
next
TmpJson= TmpJson& " }"
if i<Rs.recordcount-1 then TmpJson= TmpJson& ","
TmpJson= TmpJson& vbcrlf
rs.movenext
next
Rs.close
if MiniJson=1 Then
CountSql="select count("& order& ") from "& Table& " where "& where
Rs.open CountSql,Conn,1,1
Counts=Rs(0)
Rs.Close
GetTable=ToMiniUi(TmpJson,Counts)Else
GetTable=toJson(TmpJson)
end if
Set Rs=nothing
End Function
function toJson(JsonStr)
toJson="["& vbcrlf& JsonStr& vbcrlf& "]"
end function
Function ToMiniUi(JsonStr,total)
ToMiniUI="{"
ToMiniUI=ToMiniUI& """total"":"" "& total& ""","& vbcrlf
ToMiniUI=ToMiniUI& """data"": ["& JsonStr
ToMiniUI=ToMiniUI& "]}"
End Function
PS:最后的参数是针对miniUI开发的,可以无视
以上就是本文的全部内容了,希望大家能够喜欢。
分享:如何使用ASP建立虚拟的FTP服务器ASP中采用组件或无组件上传技术,均可以实现文件的上传功能。由此我们可以采用ASP的无组件上传技术,在我们自己的站点上建立一个虚拟的FTP服务器,象真正的FTP服务器一样,为多个用户提供远程文件的管理,同时各个用户只能操作自己的文件。 当文件上传的时候,ASP可以