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
当前位置：
支持(0) | 
反对(0)
顶端 
底部
![电子邮件:[ 63575706@163.com ]](http://bbs.kesion.com/club/images/email.gif){kind=small}
