未初始化 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
--------------------编程问答-------------------- for(int i=0,i<val,i++)
{} --------------------编程问答-------------------- 贴错误代码。。 --------------------编程问答-------------------- 贴出代码
for(int i=0;i<2;i++)
{} --------------------编程问答-------------------- 贴出代码
--------------------编程问答-------------------- vb.net报的错？
For循环体的变量没有初始化啊。
--------------------编程问答-------------------- 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), " ", " ", 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 --------------------编程问答-------------------- 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
--------------------编程问答-------------------- 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
--------------------编程问答-------------------- --------------------编程问答-------------------- vb没弄过 --------------------编程问答-------------------- 出错的地方高亮一下，这么多代码看的晕 --------------------编程问答--------------------
错误代码呢？
补充：.NET技术 , ASP.NET
