具体是这样的，以游客身份点击一个软件，页面提示需登录或注册，点击登录进入登录页，输入并确定后，页面出现四个字“非法链接”。

实际上，会员已经登录，并可以顺利下载。

不知哪里出了问题？

求高人帮助，谢谢！

好人有好报哦！

求解~~~~~

非常感谢，具体怎么删，请兄弟指点一下。

  End Sub

  Public Sub Kesion()

      ChannelID=KS.ChkClng(Request("m"))

   If ChannelID=0 Then Response.End()

      DownUrlTF=false

   DomainStr=KS.GetDomain

      UserLoginTF=Cbool(KSUser.UserLoginChecked)

   ID = KS.ChkClng(KS.S("ID"))

   DownID = KS.ChkClng(KS.S("DownID"))

   PayTF=KS.S("PayTF")

   

   Dim From_url,Serv_url

   From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))

   Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))

   if mid(From_url,8,len(Serv_url)) <> Serv_url then

   KS.Die "非法链接！" '防止盗链

   end if

   

   If ID = 0 Then

       TitleStr="下载错误提示"

    ShowInfoStr = ShowInfoStr & "<li>错误的系统参数!请输入正确的" & KS.C_S(ChannelID,3) & "ID</li>"

    FoundErr=True

   End If

   If DownID = 0 Then

       TitleStr="下载错误提示"

    ShowInfoStr = ShowInfoStr & "<li>错误的系统参数!请输入正确的" & KS.C_S(ChannelID,3) & "ID</li>"

    FoundErr=True

   End If

   If KS.CheckOuterUrl Then

    ShowInfoStr = ShowInfoStr & "<li>非法下载，请不要盗链本站资源！</li>"

    FoundErr=True

   End If

   

    If FoundErr Then Call ShowInfo :Exit Sub

    SqlStr= "Select a.*,ClassPurview,DefaultArrGroupID,DefaultReadPoint,DefaultChargeType,DefaultPitchTime,DefaultReadTimes From " & KS.C_S(ChannelID,2) & " a inner join ks_class b on a.tid=b.id Where a.ID=" & ID

    Set RSObj=Server.CreateObject("Adodb.Recordset")

    RSObj.Open SqlStr,Conn,1,3

    IF RSObj.Eof And RSObj.Bof Then

另外，怎样使得在登陆后自动进入下载？拜托拜托！

具体是这样的，以游客身份点击一个软件