未初始化 For 循环。

未初始化 For 循环。 
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。 

异常详细信息: System.Exception: 未初始化 For 循环。

源错误: 

执行当前 Web 请求期间生成了未处理的异常。可以使用下面的异常堆栈跟踪信息确定有关异常原因和发生位置的信息。  

堆栈跟踪: 


[Exception: 未初始化 For 循环。]
   Microsoft.VisualBasic.CompilerServices.FlowControl.ForNextCheckObj(Object Counter, Object LoopObj, Object& CounterResult) +245628
   member_write.ok_request(Object obj) +684
   member_write.checklogin() +235
   member_write.page_load(Object sender, EventArgs e) +98
   System.Web.Util.CalliHelper.EventArgFunctionCaller(IntPtr fp, Object o, Object t, EventArgs e) +14
   System.Web.Util.CalliEventHandlerDelegateProxy.Callback(Object sender, EventArgs e) +35
   System.Web.UI.Control.OnLoad(EventArgs e) +99
   System.Web.UI.Control.LoadRecursive() +50
   System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +627

 

12 个解决方案

#1

for(int i=0,i<val,i++)
{}

#2

贴错误代码。。

#3

贴出代码
for(int i=0;i<2;i++)
{}

#4

贴出代码

#5

vb.net报的错？
For循环体的变量没有初始化啊。

#6

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System.Runtime.CompilerServices
Imports System.Web.Security
Public Class member_write
    Inherits Page
    ' Methods
    Public Function bz(ByVal str As Object) As Object
        str = Strings.Replace(StringType.FromObject(str), " ", "&nbsp;", 1, -1, CompareMethod.Binary)
        str = Strings.Replace(StringType.FromObject(str), ChrW(13) & ChrW(10), "<br>", 1, -1, CompareMethod.Binary)
        Return RuntimeHelpers.GetObjectValue(str)
    End Function

    Public Sub checklogin()
        Dim obj2 As Object
        Dim obj3 As Object
        Dim obj5 As Object
        If Not Information.IsNumeric(Strings.Trim(Me.Request.Item("LoginTime"))) Then
            obj3 = 0
        Else
            obj3 = IntegerType.FromString(Strings.Trim(Me.Request.Item("LoginTime")))
        End If
        If (StringType.StrCmp(Me.Request.Item("jFile"), "", False) = 0) Then
            obj2 = "manage.aspx"
        Else
            obj2 = Me.Request.Item("jFile")
        End If
        Dim objectValue As Object = RuntimeHelpers.GetObjectValue(Me.ok_request("username"))
        Dim obj4 As Object = RuntimeHelpers.GetObjectValue(Me.md5(Me.Request.Item("password")))
        If (ObjectType.ObjTst(objectValue, "", False) = 0) Then
            Me.JumpMsg(ChrW(23545) & ChrW(19981) & ChrW(36215) & ChrW(65292) & ChrW(29992) & ChrW(25143) & ChrW(21517) & ChrW(19981) & ChrW(33021) & ChrW(20026) & ChrW(31354) & ChrW(65281), "back", "")
        End If
        If (ObjectType.ObjTst(obj4, "", False) = 0) Then
            Me.JumpMsg(ChrW(23545) & ChrW(19981) & ChrW(36215) & ChrW(65292) & ChrW(23494) & ChrW(30721) & ChrW(19981) & ChrW(33021) & ChrW(20026) & ChrW(31354) & ChrW(65281), "back", "")
        End If
        Dim adapter As New SqlDataAdapter(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj((StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj("select * from sy_user where u_username='", objectValue), "'")) & " and u_password='"), obj4), "'")), Me.conn)
        Dim dataSet As New DataSet
        adapter.Fill(dataSet)
        Dim table As DataTable = dataSet.Tables.Item(0)
        Dim builder As New SqlCommandBuilder(adapter)
        If (table.Rows.Count = 0) Then
            obj5 = 1
            Me.JumpMsg(ChrW(35813) & ChrW(29992) & ChrW(25143) & ChrW(19981) & ChrW(23384) & ChrW(22312) & "," & ChrW(25110) & ChrW(23494) & ChrW(30721) & ChrW(38169) & ChrW(35823) & ChrW(65281), "back", "")
        Else
            obj5 = 0
            Me.Session.Item("fzsyjy_UserLogin") = "userOK123fzsyjy"
            If Information.IsDBNull(RuntimeHelpers.GetObjectValue(table.Rows.Item(0).Item("u_carddate"))) Then
                Me.Session.Item("fzsyjy_UserCardDate") = "2000-1-1"
            Else
                Me.Session.Item("fzsyjy_UserCardDate") = StringType.FromObject(table.Rows.Item(0).Item("u_carddate"))
            End If
            Me.Session.Item("fzsyjy_UserPower") = RuntimeHelpers.GetObjectValue(table.Rows.Item(0).Item("u_power"))
            Me.Session.Item("fzsyjy_UserId") = RuntimeHelpers.GetObjectValue(table.Rows.Item(0).Item("u_id"))
            Me.Session.Item("fzsyjy_UserName") = RuntimeHelpers.GetObjectValue(table.Rows.Item(0).Item("u_username"))
            Me.Response.Cookies.Item("fzsyjy_UserId").Value = StringType.FromObject(table.Rows.Item(0).Item("u_id"))
            Me.Response.Cookies.Item("fzsyjy_UserName").Value = StringType.FromObject(table.Rows.Item(0).Item("u_username"))
            Me.Response.Cookies.Item("fzsyjy_PassWord").Value = StringType.FromObject(table.Rows.Item(0).Item("u_password"))
            If (ObjectType.ObjTst(obj3, 0, False) <> 0) Then
                Me.Response.Cookies.Item("fzsyjy_UserId").Expires = DateTime.Now.AddDays(3)
                Me.Response.Cookies.Item("fzsyjy_UserName").Expires = DateTime.Now.AddDays(3)
                Me.Response.Cookies.Item("fzsyjy_PassWord").Expires = DateTime.Now.AddDays(3)
            End If
            table.Rows.Item(0).Item("u_lastdate") = DateAndTime.Now
            adapter.Update(dataSet)
            Me.conn.Close()
        End If
        If (ObjectType.ObjTst(obj5, 0, False) = 0) Then
            Me.Response.Redirect(StringType.FromObject(obj2))
        End If
    End Sub

    Public Sub chk_login_user()
        If BooleanType.FromObject(ObjectType.BitOrObj(Not Information.IsNumeric(RuntimeHelpers.GetObjectValue(Me.Session.Item("fzsyjy_UserId"))), (ObjectType.ObjTst(Me.Session.Item("fzsyjy_UserName"), "", False) = 0))) Then
            Me.JumpMsg(ChrW(23545) & ChrW(19981) & ChrW(36215) & ChrW(65292) & ChrW(30331) & ChrW(24405) & ChrW(36229) & ChrW(26102) & ChrW(65292) & ChrW(35831) & ChrW(37325) & ChrW(26032) & ChrW(30331) & ChrW(24405) & ChrW(65281), "goto2", "../index.aspx")
        End If
    End Sub

#7

 Public Sub chk_site()
       
    End Sub

    Public Function ChkString(ByVal strValue As Object, ByVal strType As Object) As Object
        Dim objectValue As Object
        If (Information.IsDBNull(RuntimeHelpers.GetObjectValue(strValue)) Or (StringType.StrCmp(Strings.Trim(StringType.FromObject(strValue)), "", False) = 0)) Then
            Return " "
        End If
        If (ObjectType.ObjTst(strType, "unhtml", False) = 0) Then
            strValue = Strings.RTrim(StringType.FromObject(strValue))
            strValue = Strings.Replace(StringType.FromObject(strValue), "''", "'", 1, -1, CompareMethod.Binary)
            strValue = Strings.Replace(StringType.FromObject(strValue), " ", " ", 1, -1, CompareMethod.Binary)
            strValue = Strings.Replace(StringType.FromObject(strValue), "<", "<", 1, -1, CompareMethod.Binary)
            strValue = Strings.Replace(StringType.FromObject(strValue), ChrW(13) & ChrW(10), "<br>", 1, -1, CompareMethod.Binary)
            Return RuntimeHelpers.GetObjectValue(strValue)
        End If
        If (ObjectType.ObjTst(strType, "replymail", False) = 0) Then
            strValue = Strings.RTrim(StringType.FromObject(strValue))
            strValue = Strings.Replace(StringType.FromObject(strValue), " ", " ", 1, -1, CompareMethod.Binary)
            strValue = Strings.Replace(StringType.FromObject(strValue), ChrW(13) & ChrW(10), "<br>", 1, -1, CompareMethod.Binary)
            Return RuntimeHelpers.GetObjectValue(strValue)
        End If
        If (ObjectType.ObjTst(strType, "unhtml1", False) = 0) Then
            strValue = Strings.RTrim(StringType.FromObject(strValue))
            strValue = Strings.Replace(StringType.FromObject(strValue), "''", "'", 1, -1, CompareMethod.Binary)
            strValue = Strings.Replace(StringType.FromObject(strValue), " ", " ", 1, -1, CompareMethod.Binary)
            strValue = Strings.Replace(StringType.FromObject(strValue), "<", "<", 1, -1, CompareMethod.Binary)
            strValue = Strings.Replace(StringType.FromObject(strValue), ChrW(13) & ChrW(10), "<br>", 1, -1, CompareMethod.Binary)
            strValue = Strings.Replace(StringType.FromObject(strValue), "|", " ", 1, -1, CompareMethod.Binary)
            Return RuntimeHelpers.GetObjectValue(strValue)
        End If
        If (ObjectType.ObjTst(strType, "save", False) = 0) Then
            strValue = Strings.RTrim(StringType.FromObject(strValue))
            strValue = Strings.Replace(StringType.FromObject(strValue), "'", "''", 1, -1, CompareMethod.Binary)
            Return RuntimeHelpers.GetObjectValue(strValue)
        End If
        If (ObjectType.ObjTst(strType, "unreplace", False) = 0) Then
            strValue = Strings.RTrim(StringType.FromObject(strValue))
            strValue = Strings.Replace(StringType.FromObject(strValue), "''", "'", 1, -1, CompareMethod.Binary)
            Return RuntimeHelpers.GetObjectValue(strValue)
        End If
        If (ObjectType.ObjTst(strType, "save1", False) = 0) Then
            strValue = Strings.RTrim(StringType.FromObject(strValue))
            strValue = Strings.Replace(StringType.FromObject(strValue), "'", "''", 1, -1, CompareMethod.Binary)
            strValue = Strings.Replace(StringType.FromObject(strValue), " ", "|", 1, -1, CompareMethod.Binary)
            objectValue = RuntimeHelpers.GetObjectValue(strValue)
        End If
        Return objectValue
    End Function

    

#8

Public Sub clientlogin()
        Dim obj2 As Object
        Dim obj3 As Object
        Dim obj5 As Object
        If Not Information.IsNumeric(Strings.Trim(Me.Request.Item("LoginTime"))) Then
            obj3 = 0
        Else
            obj3 = IntegerType.FromString(Strings.Trim(Me.Request.Item("LoginTime")))
        End If
        If (StringType.StrCmp(Me.Request.Item("redir"), "", False) = 0) Then
            obj2 = "manage.aspx"
        Else
            obj2 = Me.Request.Item("redir")
        End If
        Dim objectValue As Object = RuntimeHelpers.GetObjectValue(Me.ok_request("account"))
        Dim obj4 As Object = Me.Request.Item("psw")
        If (ObjectType.ObjTst(objectValue, "", False) = 0) Then
            Me.JumpMsg(ChrW(23545) & ChrW(19981) & ChrW(36215) & ChrW(65292) & ChrW(29992) & ChrW(25143) & ChrW(21517) & ChrW(19981) & ChrW(33021) & ChrW(20026) & ChrW(31354) & ChrW(65281), "back", "")
        End If
        If (ObjectType.ObjTst(obj4, "", False) = 0) Then
            Me.JumpMsg(ChrW(23545) & ChrW(19981) & ChrW(36215) & ChrW(65292) & ChrW(23494) & ChrW(30721) & ChrW(19981) & ChrW(33021) & ChrW(20026) & ChrW(31354) & ChrW(65281), "back", "")
        End If
        Dim adapter As New SqlDataAdapter(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj((StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj("select * from sy_user where u_username='", objectValue), "'")) & " and u_password='"), obj4), "'")), Me.conn)
        Dim dataSet As New DataSet
        adapter.Fill(dataSet)
        Dim table As DataTable = dataSet.Tables.Item(0)
        Dim builder As New SqlCommandBuilder(adapter)
        If (table.Rows.Count = 0) Then
            obj5 = 1
            Me.JumpMsg(ChrW(35813) & ChrW(29992) & ChrW(25143) & ChrW(19981) & ChrW(23384) & ChrW(22312) & "," & ChrW(25110) & ChrW(23494) & ChrW(30721) & ChrW(38169) & ChrW(35823) & ChrW(65281), "back", "")
        Else
            obj5 = 0
            Me.Session.Item("fzsyjy_UserLogin") = "userOK123fzsyjy"
            If Information.IsDBNull(RuntimeHelpers.GetObjectValue(table.Rows.Item(0).Item("u_carddate"))) Then
                Me.Session.Item("fzsyjy_UserCardDate") = "2000-1-1"
            Else
                Me.Session.Item("fzsyjy_UserCardDate") = StringType.FromObject(table.Rows.Item(0).Item("u_carddate"))
            End If
            Me.Session.Item("fzsyjy_UserPower") = RuntimeHelpers.GetObjectValue(table.Rows.Item(0).Item("u_power"))
            Me.Session.Item("fzsyjy_UserId") = RuntimeHelpers.GetObjectValue(table.Rows.Item(0).Item("u_id"))
            Me.Session.Item("fzsyjy_UserName") = RuntimeHelpers.GetObjectValue(table.Rows.Item(0).Item("u_username"))
            Me.Response.Cookies.Item("fzsyjy_UserId").Value = StringType.FromObject(table.Rows.Item(0).Item("u_id"))
            Me.Response.Cookies.Item("fzsyjy_UserName").Value = StringType.FromObject(table.Rows.Item(0).Item("u_username"))
            Me.Response.Cookies.Item("fzsyjy_PassWord").Value = StringType.FromObject(table.Rows.Item(0).Item("u_password"))
            If (ObjectType.ObjTst(obj3, 0, False) <> 0) Then
                Me.Response.Cookies.Item("fzsyjy_UserId").Expires = DateTime.Now.AddDays(3)
                Me.Response.Cookies.Item("fzsyjy_UserName").Expires = DateTime.Now.AddDays(3)
                Me.Response.Cookies.Item("fzsyjy_PassWord").Expires = DateTime.Now.AddDays(3)
            End If
            table.Rows.Item(0).Item("u_lastdate") = DateAndTime.Now
            adapter.Update(dataSet)
            Me.conn.Close()
        End If
        If (ObjectType.ObjTst(obj5, 0, False) = 0) Then
            Me.Response.Write("<script language='javascript'>")
            Me.Response.Write(ObjectType.AddObj(ObjectType.AddObj("window.location='", obj2), "';"))
            Me.Response.Write("</script>")
        End If
    End Sub

    Public Sub company_add()
        Dim srcTable As String = "company"
        Dim adapter As New SqlDataAdapter(("select * from " & srcTable), Me.conn)
        Dim dataSet As New DataSet
        adapter.Fill(dataSet, srcTable)
        Dim builder As New SqlCommandBuilder(adapter)
        Dim row As DataRow = dataSet.Tables.Item(srcTable).NewRow
        row.Item("bz") = RuntimeHelpers.GetObjectValue(Me.bz(RuntimeHelpers.GetObjectValue(Me.ok_request("bz"))))
        row.Item("company") = RuntimeHelpers.GetObjectValue(Me.ok_request("company"))
        row.Item("qy") = ObjectType.StrCatObj(Me.ok_request("sheng"), Me.ok_request("shi"))
        row.Item("address") = RuntimeHelpers.GetObjectValue(Me.ok_request("address"))
        row.Item("yb") = RuntimeHelpers.GetObjectValue(Me.ok_request("yb"))
        row.Item("tel") = RuntimeHelpers.GetObjectValue(Me.ok_request("tel"))
        row.Item("fax") = RuntimeHelpers.GetObjectValue(Me.ok_request("fax"))
        row.Item("man") = RuntimeHelpers.GetObjectValue(Me.ok_request("man"))
        row.Item("http") = RuntimeHelpers.GetObjectValue(Me.ok_request("http"))
        row.Item("email") = RuntimeHelpers.GetObjectValue(Me.ok_request("email"))
        row.Item("date") = DateAndTime.Now
        row.Item("pass") = 0
        dataSet.Tables.Item(srcTable).Rows.Add(row)
        adapter.Update(dataSet, srcTable)
        Me.JumpMsg(ChrW(20449) & ChrW(24687) & ChrW(25552) & ChrW(20132) & ChrW(25104) & ChrW(21151) & ChrW(65292) & ChrW(25105) & ChrW(20204) & ChrW(20250) & ChrW(21450) & ChrW(26102) & ChrW(19982) & ChrW(24744) & ChrW(21462) & ChrW(24471) & ChrW(32852) & ChrW(31995) & ChrW(65281), "goto1", "../index.aspx")
    End Sub

    Public Function convertsql(ByVal str As Object) As Object
        Return Strings.Replace(StringType.FromObject(str), "'", "''", 1, -1, CompareMethod.Binary)
    End Function

    Public Sub db_del(ByVal table As Object, ByVal d_id As Object)
        If (StringType.StrCmp(Me.Request.Item("selAnnounce"), Nothing, False) <> 0) Then
            Dim obj2 As Object = Me.Request.Item("selAnnounce")
            obj2 = Strings.Replace(StringType.FromObject(Strings.Replace(StringType.FromObject(obj2), " ", "", 1, -1, CompareMethod.Binary)), ",", StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(" or ", d_id), "=")), 1, -1, CompareMethod.Binary)
            Dim command As New SqlCommand(StringType.FromObject(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj(ObjectType.StrCatObj("delete from ", table), " where "), d_id), "="), obj2)), Me.conn)
            Me.conn.Open()
            command.ExecuteNonQuery()
            Me.conn.Close()
        Else
            Me.JumpMsg(ChrW(23545) & ChrW(19981) & ChrW(36215) & ChrW(65292) & ChrW(24744) & ChrW(36824) & ChrW(26410) & ChrW(36873) & ChrW(25321) & ChrW(35760) & ChrW(24405) & ChrW(65281), "back", "")
        End If
    End Sub

   

#9

该回复于2010-12-27 13:28:47被版主删除

#10

  vb没弄过

#11

出错的地方高亮一下，这么多代码看的晕

#12

错误代码呢？