Asp.net 日历中的错误消息

当我点击远程机器上的应用程序时，我遇到了这个错误

“/please god”应用程序中出现服务器错误。 安全例外 描述：应用程序试图执行安全策略不允许的操作。要授予此应用程序所需的权限，请与系统管理员联系，或在配置文件中更改应用程序的信任级别

异常详细信息：System.Security.SecurityException:请求类型为“System.Security.Permissions.EnvironmentPermission，mscorlib，版本=2.0.0.0，区域性=neutral，PublicKeyToken=b77a5c561934e089”的权限失败

源错误：

Line 7:      Dim oBF As New BinaryFormatter()
Line 8:      Dim oFS As FileStream
Line 9:      Dim strPath As String = Path.GetTempPath & "schedule.Bin"
Line 10: 
Line 11:     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

源文件：D:\Hosting\4423045\html\please god\appointmentscheduler.aspx.vb行：9

有人能帮我吗？应用程序的完整代码如下所示：

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

Partial Class appointmentscheduler
    Inherits System.Web.UI.Page
    Dim arrCalendar(12, 31) As String
    Dim oBF As New BinaryFormatter()
    Dim oFS As FileStream
    Dim strPath As String = Path.GetTempPath & "schedule.Bin"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Cache("arrCalendar") Is Nothing) Then
            If (File.Exists(strPath)) Then
                oFS = New FileStream(strPath, FileMode.Open)
                arrCalendar = DirectCast(oBF.Deserialize(oFS), Array)
                oFS.Close()
                Cache("arrCalendar") = arrCalendar
            End If
        Else
            arrCalendar = Cache("arrCalendar")
        End If
    End Sub

    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        arrCalendar(Me.myCalendar.SelectedDate.Month, Me.myCalendar.SelectedDate.Day) = Me.myNotes.Text
        oFS = New FileStream(strPath, FileMode.Create)
        oBF.Serialize(oFS, arrCalendar)
        oFS.Close()
        Cache("arrCalendar") = arrCalendar
    End Sub

    Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        arrCalendar(Me.myCalendar.SelectedDate.Month, Me.myCalendar.SelectedDate.Day) = ""
        oFS = New FileStream(strPath, FileMode.Create)
        oBF.Serialize(oFS, arrCalendar)
        oFS.Close()
        Cache("arrCalendar") = arrCalendar
        Me.myNotes.Text = ""
    End Sub

    Protected Sub myCalendar_DayRender(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles myCalendar.DayRender
        If arrCalendar(e.Day.Date.Month, e.Day.Date.Day) <> "" Then
            e.Cell.BackColor = Drawing.Color.Red
        End If
    End Sub

    Protected Sub myCalendar_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles myCalendar.SelectionChanged
        Me.myNotes.Text = ""
        If arrCalendar(Me.myCalendar.SelectedDate.Month, Me.myCalendar.SelectedDate.Day) <> "" Then
            Me.myNotes.Text = arrCalendar(Me.myCalendar.SelectedDate.Month, Me.myCalendar.SelectedDate.Day)
        End If
    End Sub
End Class

Imports System.IO
导入System.Runtime.Serialization.Formatters.Binary
部分类指派调度器
继承System.Web.UI.Page
将日历（12，31）设置为字符串
Dim oBF作为新的二进制格式化程序（）
作为文件流的Dim oFS
Dim strPath作为String=Path.GetTempPath&“schedule.Bin”
受保护的子页加载（ByVal sender作为对象，ByVal e作为System.EventArgs）处理Me.Load
如果（缓存（“日历”）为空），则
如果（File.Exists（strPath）），则
oFS=新文件流（strPath，FileMode.Open）
arrCalendar=DirectCast（对象反序列化（oFS），数组）
oFS.Close（）
缓存（“arrCalendar”）=arrCalendar
如果结束
其他的
arrCalendar=缓存（“arrCalendar”）
如果结束
端接头
受保护的子btnSave\u单击（ByVal sender作为对象，ByVal e作为System.EventArgs）处理btnSave。单击
arrCalendar（Me.myCalendar.SelectedDate.Month，Me.myCalendar.SelectedDate.Day）=Me.myNotes.Text
oFS=新文件流（strPath，FileMode.Create）
对象序列化（oFS、ARR日历）
oFS.Close（）
缓存（“arrCalendar”）=arrCalendar
端接头
受保护的子btnDelete\u单击（ByVal sender作为对象，ByVal e作为System.EventArgs）处理btnDelete。单击
arrCalendar（Me.myCalendar.SelectedDate.Month，Me.myCalendar.SelectedDate.Day）=“”
oFS=新文件流（strPath，FileMode.Create）
对象序列化（oFS、ARR日历）
oFS.Close（）
缓存（“arrCalendar”）=arrCalendar
Me.myNotes.Text=“”
端接头
受保护的子myCalendar_DayRender（ByVal sender作为对象，ByVal e作为System.Web.UI.WebControl.DayRenderReventArgs）处理myCalendar.DayRender
如果使用日历（如：日、日、月），则
e、 Cell.BackColor=Drawing.Color.Red
如果结束
端接头
受保护的子myCalendar_SelectionChanged（ByVal sender作为对象，ByVal e作为System.EventArgs）处理myCalendar.SelectionChanged
Me.myNotes.Text=“”
如果日历（Me.myCalendar.SelectedDate.Month、Me.myCalendar.SelectedDate.Day）为“”，则
Me.myNotes.Text=日历（Me.myCalendar.SelectedDate.Month，Me.myCalendar.SelectedDate.Day）
如果结束
端接头
末级

---

如何消除此错误消息？

看起来您正在尝试打开web应用程序根目录之外的文件。将文件移动到IIS使用的服务帐户有权读取该文件的位置，或者更改您试图读取的文件的读/写权限。

是否手动键入错误消息

Path.GetTempPath

是一种方法，如果不使用语法

Path.GetTempPath（）

，则会导致编译错误。如果您发布的错误消息可能不正确，则很难深入挖掘这些错误消息。

VB.Net没有此要求。如果没有，IDE会添加它们，但是如果它们不在那里，它会将其视为一种方法。C#对这类事情很挑剔，但VB允许。