x2.0的筛选功能获取不到模型id,得到的总是0问题出现这个函数上面
- function GetQuery() dim QP:QP=Request.QueryString if not ks.isnul(QP) Then QP=1 End If GetQuery=QP End Function
解决办法
- Function GetParam(key) If KS.IsNUL(Request.QueryString) Then GetParam="":Exit Function Dim PArr:Parr=Split(Replace(Request.QueryString,".html",""),",") Dim Pkey,Pval,i For I=0 To Ubound(Parr) if instr(Parr(i),"-")<>0 Then Pkey=Split(Parr(i),"-")(0) if lcase(key)=lcase(Pkey) Then Pval=Split(Parr(i),"-")(1) Exit For End If End If Next GetParam=Pval End Function