为什么关了机过后,Application_Start不执行？急！！！

Application_Start和index.aspx中的代码贴出来

解决方案 »

  1.   

    你的思路没有问题，可能你的代码有问题：
    1、你应该将DW信息写入一文件中保存，比如xml或者txt文件，不要视图写入web.config文件
    2、确认你的setup.aspx页面能够将用户的信息写入xml文件，可以在资源管理器中打开xml了查看，可以使用datasetde ReadXML(),WriteXML(),记住一定用WriteXML()将信息写回xml文件
    3、在应用Application_Start，将dw信息读取出来application("DW")=DW,确保这句话正确执行，可以debug查看的。
      

  2.   

    Application_Start当中的代码有问题
    贴出来看看
      

  3.   

    index.aspx:
       If Application("conn") = "" Or Application("conn") Is Nothing Or Application  ("DanWeiID") = "" Or Application("DanWeiID") Is Nothing Or Application("DanWeiMing") = "" Or Application("DanWeiMing") Is Nothing Then
                Response.Write("<html><head><title>系统配置</title><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""></head><body bgcolor=""#FFFFFF"" text=""#000000""><p>在登录系统之前，请先进行系统配置！谢谢合作！ </p><p><a href=""setup.aspx"">系统配置</a></p></body></html>")
                Response.End()
            End IfApplication_Start:
      Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
            LoadSystemConfig()
      End Sub  Private Sub LoadSystemConfig()
            Dim xmlDoc As New XmlDocument()
            Try
                xmlDoc.Load(Server.MapPath("system.conf"))
                //此处省去读文件的一部分内容 
                Application("conn") = GetConn(srv, db, login, pwd)
                Application("DanWeiID") = xmlDoc.SelectSingleNode("descendant::DANWEIID").FirstChild.Value
                Application("DanWeiMing") = xmlDoc.SelectSingleNode("descendant::DANWEIMING").FirstChild.Value
            Catch ex As Exception
                Dim s As String = ex.Message
            End Try
        End SubPublic Shared Function GetConn(ByVal server As String, ByVal db As String, ByVal login As String, ByVal pwd As String) As String
            Dim str As String
            str = "Provider=SQLOLEDB.1;Password=" + pwd
            str += ";Persist Security Info=True;User ID=" + login
            str += ";Initial Catalog=" + db + ";Data Source=" + server
            str += ";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=sodar;Use Encryption for Data=False;Tag with column collation when possible=False"
            Return str
        End Function
      

  4.   

    其他机器上的ASPNET用户有IO的权限吗？