老Y 3.0 两个 xss 漏洞

以下是引用片段：

ub savenew()
        dim Title,Content,ClassID,sqlmoney
        Title = LoseHtml(trim(request.form("Title")))
        ClassID = LaoYRequest(request.form("ClassID"))
        CopyFrom = LoseHtml(trim(request.form("CopyFrom")))
        Author = LoseHtml(trim(request.form("Author")))
        Content = request.form("Content")  '这里未过滤
        myyn = LaoYRequest(request.form("myyn"))
        mycode = LaoYRequest(request.form("code"))
        if mycodeSession("getcode") then
        Call Alert("请输入正确的验证码！",-1)
        end if
        If session("postarttime")"" then
                posttime8=DateDiff("s",session("postarttime"),Now())
                  if posttime8
                posttime9=yaopostgetime-posttime8
                Call Alert ("话说的太快不好!"&posttime9&"秒后再发表。","-1")
                  end if
        end if

以下是引用片段：

if (get_cookie('laoymood')=='')
        {
                alert("-_-|||，你不是表过态了嘛？！");
        }
        else {
                url = "http://"+window.location.host+"xinqing.asp?action=mood&id="+infoid+"&typee="+mood_id+"&m=" + Math.random();
                makeRequest(url,'return_review1','GET','');
        //moodzt = "1";
        document.cookie='laoymood'+infoid+'='+infoid+'';
        }