Firefox 在主浏览器的经典asp web应用程序中生成Outlook约会链接

我正在尝试在我的经典asp网页中创建一个链接，以便在单击outlook时向其添加带有一些数据的约会。首先，为了做一个测试，我在Outlook中创建了它，并将它保存为两种格式，.ics和.vcs，在我链接到我的页面之后

当我运行它们时，我注意到.vcs不能在Firefox和Chrome上运行，.ics不能只在Firefox上运行，所以我可能会选择最后一个

我的问题是，有没有其他格式或方法可以从Firefox打开.ics文件？它无法识别它，也无法打开Outlook窗口

---

多谢各位

在上找到此解决方案，全部归功于他们：

Sub createICS (sTitle, sDesc, sDate, sStartT, eDate, sEndT, sFName)
    Response.Buffer = True
    server.ScriptTimeout = 3000
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim iFile : Set iFile = objFSO.CreateTextFile(sFName, TRUE)
        iFile.WriteLine("BEGIN:VCALENDAR")
        iFile.WriteLine("PRODID:Microsoft CDO for Microsoft Exchange")
        iFile.WriteLine("VERSION:2.0")
        iFile.WriteLine("METHOD:PUBLISH")
        iFile.WriteLine("BEGIN:VEVENT")
        iFile.WriteLine("DTSTAMP:"&dateToUTC (DATE(), TIME()))
        Dim dtStart, dtEnd
        dtStart = "DTSTART:" & dateToUTC (sDate, sStartT)
        dtEnd = "DTEND:" & dateToUTC (eDate, sEndT)
        iFile.WriteLine(dtStart)
        iFile.WriteLine(dtEnd)
        iFile.WriteLine("UID:{A6DEF157-DFCE-40F4-AC77-217563191E7B}")
        iFile.WriteLine("SUMMARY:" & sTitle)
        iFile.WriteLine("DESCRIPTION:" & sDesc)
        iFile.WriteLine("SEQUENCE:0")
        iFile.WriteLine("PRIORITY:3")
        iFile.WriteLine("CLASS:Personal")
        iFile.WriteLine("STATUS:CONFIRMED")
        iFile.WriteLine("TRANSP:OPAQUE")
        iFile.WriteLine("X-MICROSOFT-CDO-BUSYSTATUS:BUSY")
        iFile.WriteLine("X-MICROSOFT-CDO-INSTTYPE:0")
        iFile.WriteLine("BEGIN:VALARM")
        iFile.WriteLine("TRIGGER:PT10M")
        iFile.WriteLine("ACTION:DISPLAY")
        iFile.WriteLine("DESCRIPTION:Reminder")
        iFile.WriteLine("END:VALARM")
        iFile.WriteLine("END:VEVENT")
        iFile.WriteLine("END:VCALENDAR")
    iFile.close()
End Sub
Function dateToUTC (sDate, sTime)
    Dim iHour, iMin, iYear, iMonth, iDay, tDate, tTime 
    tDate = DateValue(sDate)
    tTime = TimeValue(sTime)
    iHour = Hour(DateAdd("h", 4, tTime)) 'correction for US Eastern time
    iMin = Minute(tTime)
    iYear = Year(tDate)
    iMonth = Month(tDate)
    iDay = Day(tDate)
    Dim s : s = iYear
    if iMonth < 10 then s = s & "0"
        s = s & iMonth
    if iDay < 10 then s = s & "0"
        s = s & iDay & "T"
    if iHour < 10 then s = s & "0"
        s = s & iHour
    if iMin < 10 then s = s & "0"
        s = s & iMin & "00Z"
    dateToUTC = s
End Function



if request.querystring("a") = 1 then
    strPath = server.mappath("/temp.ics")
    Call createICS ("The Title", "The Description", formatdatetime(now,2), formatdatetime(now,4), formatdatetime(now+1,2), formatdatetime(now+1,2), strPath)

     'do your emailing stuff here and when you add the attachment to the code use the strPath variable as in above
end if
%>
<a href="/temp2.asp?a=1">Click Here For It</a>

Sub-createICS（缝合线、sDesc、sDate、SSSTART、eDate、sEndT、sFName）
Response.Buffer=True
server.ScriptTimeout=3000
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
Dim iFile:Set iFile=objFSO.CreateTextFile（sFName，TRUE）
iFile.WriteLine（“开始：VCALENDAR”）
iFile.WriteLine（“PRODID:MicrosoftCDO for MicrosoftExchange”）
iFile.WriteLine（“版本：2.0”）
iFile.WriteLine（“方法：发布”）
iFile.WriteLine（“开始：VEVENT”）
iFile.WriteLine（“DTSTAMP:&dateToUTC（DATE（），TIME（）））
变暗dtStart，dtEnd
dtStart=“dtStart:”&dateToUTC（sDate，sStartT）
dtEnd=“dtEnd:&dateToUTC（eDate，sEndT）
iFile.WriteLine（dtStart）
iFile.WriteLine（dtEnd）
iFile.WriteLine（“UID:{A6DEF157-DFCE-40F4-AC77-217563191E7B}”）
iFile.WriteLine（“摘要：&缝合”）
iFile.WriteLine（“说明：”&sDesc）
iFile.WriteLine（“序列：0”）
iFile.WriteLine（“优先级：3”）
iFile.WriteLine（“类别：个人”）
iFile.WriteLine（“状态：已确认”）
iFile.WriteLine（“传输：不透明”）
iFile.WriteLine（“X-MICROSOFT-CDO-BUSYSTATUS:忙碌”）
iFile.WriteLine（“X-MICROSOFT-CDO-INSTTYPE:0”）
iFile.WriteLine（“开始：VALARM”）
iFile.WriteLine（“触发器：PT10M”）
iFile.WriteLine（“操作：显示”）
iFile.WriteLine（“说明：提醒”）
iFile.WriteLine（“结束：VALARM”）
iFile.WriteLine（“结束：VEVENT”）
iFile.WriteLine（“结束：VCALENDAR”）
iFile.close（）
端接头
函数日期TOUTC（sDate、sTime）
时间，时间，时间
tDate=日期值（sDate）
tTime=时间值（时间）
iHour=小时（DateAdd（“h”，4，tTime））'美国东部时间修正
iMin=分钟（tTime）
iYear=年份（tDate）
伊蒙顿=月（tDate）
iDay=日（tDate）
Dim s:s=iYear
如果iMonth<10，则s=s&“0”
s=s&iMonth
如果iDay<10，则s=s&“0”
s=s&iDay和“T”
如果iHour<10，则s=s&“0”
s=s&I小时
如果iMin<10，则s=s&“0”
s=s&iMin和“00Z”
dateToUTC=s
端函数
如果request.querystring（“a”）=1，则
strPath=server.mappath（“/temp.ics”）
调用createICS（“标题”、“描述”、formatdatetime（现在，2）、formatdatetime（现在，4）、formatdatetime（现在+1,2）、formatdatetime（现在+1,2）、strPath）
'在此处发送电子邮件，并在将附件添加到代码时使用上述strPath变量
如果结束
%>