打开ks_cls/kesion.appcls.asp

找到



Public Sub HomePage()



      



    If instr(request.servervariables("http_user_agent"),"Mobile")>0 Then '手机访问,自动跳到手机版

                  If KS.WSetting(0)=1 Then



    Response.Redirect(KS.Setting(3) & KS.WSetting(4)&"/index.asp")



    Exit Sub



  End If



End If











   Dim QueryStrings:QueryStrings=Request.ServerVariables("QUERY_STRING")



   If QueryStrings<>"" And Ubound(Split(QueryStrings,"-"))>=1 Then



Call StaticCls.Run()



   ElseIf Not KS.IsNul(Request.QueryString("do")) Then



       Select Case lcase(KS.S("DO"))



  case "vote" vote



   End Select









把上面红色的删除即可。