该@IP我在InsertArticle中提供了,可是老是报错,麻烦大哥们看看

 过程 'InsertArticle' 需要参数 '@IP'，但未提供该参数。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.Data.SqlClient.SqlException: 过程 'InsertArticle' 需要参数 '@IP'，但未提供该参数。

源错误:

行 68:             cmd.Connection = conn
行 69:             conn.Open()
行 70:             cmd.ExecuteNonQuery()
行 71:             conn.Close()
行 72:         End Function


源文件: c:\inetpub\wwwroot\shilian\App_Code\DataArticle.vb    行: 70
_______________________________________
 Dim conn As New SqlConnection(_conn)
            Dim cmd As New SqlCommand
             = "InsertArticle"
             =
            cmd.Parameters.Add(New SqlParameter("@ClassName", Data.SqlDbType.VarChar, 10)) '类别号 1
            cmd.Parameters.Add(New SqlParameter("@Title", Data.SqlDbType.VarChar, 70)) '标题 2
            cmd.Parameters.Add(New SqlParameter("@Content", Data.SqlDbType.NText)) '内容 3
            cmd.Parameters.Add(New SqlParameter("@imageURL", Data.SqlDbType.VarChar, 100)) '图片地址 4
            cmd.Parameters.Add(New SqlParameter("@pubDate", Data.SqlDbType.SmallDateTime)) '发表时间 5
            cmd.Parameters.Add(New SqlParameter("@setTop", Data.SqlDbType.Bit)) '是否置顶 6
            cmd.Parameters.Add(New SqlParameter("@isBest", Data.SqlDbType.Bit)) '是否精品 7
            cmd.Parameters.Add(New SqlParameter("@fatherid", Data.SqlDbType.Int)) '父文章编号 8
            cmd.Parameters.Add(New SqlParameter("@layer", Data.SqlDbType.SmallInt)) '层号 9
            cmd.Parameters.Add(New SqlParameter("@lastDate", Data.SqlDbType.SmallDateTime)) '最后更新时间 10
            cmd.Parameters.Add(New SqlParameter("@lastUserName", Data.SqlDbType.NVarChar, 256)) '最后跟新人 11
            cmd.Parameters.Add(New SqlParameter("@userName", Data.SqlDbType.NVarChar, 256)) '作者 12
            cmd.Parameters.Add(New SqlParameter("@Clicks", Data.SqlDbType.Int)) '点击次数 13
            cmd.Parameters.Add(New SqlParameter("@subCount", Data.SqlDbType.Int)) '回复数 14
            cmd.Parameters.Add(New SqlParameter("@IP", Data.SqlDbType.VarChar, 100))
            '设置参数方向
            '_________________________________________________________________________________________--
            cmd.Parameters("@ClassName").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@Title").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@Content").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@imageURL").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@pubDate").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@setTop").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@isBest").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@fatherId").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@layer").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@lastDate").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@lastUserName").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@userName").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@Clicks").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@subCount").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@IP").Direction = Data.ParameterDirection.Input
            '_________________________________________________________________________________________
            cmd.Parameters("@ClassName").Value = ClassName '类别号 1
            cmd.Parameters("@Title").Value = title '标题 2
            cmd.Parameters("@Content").Value = content '内容 3
            cmd.Parameters("@imageURL").Value = imageURL ' 图片地址 4
            cmd.Parameters("@pubDate").Value = pubDate '发表时间 5
            cmd.Parameters("@setTop").Value = setTop ' 是否置顶 6
            cmd.Parameters("@isBest").Value = isBest ' 是否精品 7
            cmd.Parameters("@fatherId").Value = fatherId '父文章编号 8
            cmd.Parameters("@layer").Value = layer ' 层号 9
            cmd.Parameters("@lastDate").Value = lastDate ' 最后更新时间 10
            cmd.Parameters("@lastUserName").Value = lastUserName ' 最后跟新人 11
            cmd.Parameters("@userName").Value = userName '作者 12
            cmd.Parameters("@Clicks").Value = Clicks '点击次数 13
            cmd.Parameters("@subCount").Value = subCount ' 回复数 14
            cmd.Parameters("@IP").Value = IP

把代码贴出来……

这是存储过程代码:
ALTER PROCEDURE dbo.InsertArticle
    @ClassName varchar(10),
    @Title varchar(70),
    @Content ntext,
    @imageURL varchar(100),
    @pubDate smalldatetime,
    @setTop bit,
    @isBest bit,
    @fatherId int,
    @layer smallint,
    @lastDate smalldatetime,
    @lastUserName nvarchar(256),
    @userName nvarchar(256),
    @Clicks int,
    @subCount int,
    @IP varchar(100)
    AS
    Insert Into Articles(ClassName,Title,Content,imageURL,pubDate,setTop,isBest,fatherId,layer,lastDate,
            lastUserName,userName,Clicks,subCount,IP) Values(@ClassName,@Title,@Content,@imageURL,@pubDate,@setTop,@isBest,@fatherId,@layer,@lastDate,@lastUserName,@userName,@Clicks,@subCount,@IP)
这是DAL代码:
        Public Function Insert(ByVal ClassName As String, ByVal title As String, ByVal content As String, ByVal imageURL As String, _
        ByVal pubDate As DateTime, ByVal setTop As Integer, ByVal isBest As Integer, ByVal fatherId As Integer, _
        ByVal layer As Integer, ByVal lastDate As DateTime, ByVal lastUserName As String, ByVal userName As String, _
        ByVal Clicks As Integer, ByVal subCount As Integer, ByVal IP As String) As Boolean
            Dim conn As New SqlConnection(_conn)
            Dim cmd As New SqlCommand
             = "InsertArticle"
             =
            cmd.Parameters.Add(New SqlParameter("@ClassName", Data.SqlDbType.VarChar, 10)) '类别号 1
            cmd.Parameters.Add(New SqlParameter("@Title", Data.SqlDbType.VarChar, 70)) '标题 2
            cmd.Parameters.Add(New SqlParameter("@Content", Data.SqlDbType.NText)) '内容 3
            cmd.Parameters.Add(New SqlParameter("@imageURL", Data.SqlDbType.VarChar, 100)) '图片地址 4
            cmd.Parameters.Add(New SqlParameter("@pubDate", Data.SqlDbType.SmallDateTime)) '发表时间 5
            cmd.Parameters.Add(New SqlParameter("@setTop", Data.SqlDbType.Bit)) '是否置顶 6
            cmd.Parameters.Add(New SqlParameter("@isBest", Data.SqlDbType.Bit)) '是否精品 7
            cmd.Parameters.Add(New SqlParameter("@fatherid", Data.SqlDbType.Int)) '父文章编号 8
            cmd.Parameters.Add(New SqlParameter("@layer", Data.SqlDbType.SmallInt)) '层号 9
            cmd.Parameters.Add(New SqlParameter("@lastDate", Data.SqlDbType.SmallDateTime)) '最后更新时间 10
            cmd.Parameters.Add(New SqlParameter("@lastUserName", Data.SqlDbType.NVarChar, 256)) '最后跟新人 11
            cmd.Parameters.Add(New SqlParameter("@userName", Data.SqlDbType.NVarChar, 256)) '作者 12
            cmd.Parameters.Add(New SqlParameter("@Clicks", Data.SqlDbType.Int)) '点击次数 13
            cmd.Parameters.Add(New SqlParameter("@subCount", Data.SqlDbType.Int)) '回复数 14
            cmd.Parameters.Add(New SqlParameter("@IP", Data.SqlDbType.VarChar, 100))
            '设置参数方向
            '_________________________________________________________________________________________--
            cmd.Parameters("@ClassName").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@Title").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@Content").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@imageURL").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@pubDate").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@setTop").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@isBest").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@fatherId").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@layer").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@lastDate").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@lastUserName").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@userName").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@Clicks").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@subCount").Direction = Data.ParameterDirection.Input
            cmd.Parameters("@IP").Direction = Data.ParameterDirection.Input
            '_________________________________________________________________________________________
            cmd.Parameters("@ClassName").Value = ClassName '类别号 1
            cmd.Parameters("@Title").Value = title '标题 2
            cmd.Parameters("@Content").Value = content '内容 3
            cmd.Parameters("@imageURL").Value = imageURL ' 图片地址 4
            cmd.Parameters("@pubDate").Value = pubDate '发表时间 5
            cmd.Parameters("@setTop").Value = setTop ' 是否置顶 6
            cmd.Parameters("@isBest").Value = isBest ' 是否精品 7
            cmd.Parameters("@fatherId").Value = fatherId '父文章编号 8
            cmd.Parameters("@layer").Value = layer ' 层号 9
            cmd.Parameters("@lastDate").Value = lastDate ' 最后更新时间 10
            cmd.Parameters("@lastUserName").Value = lastUserName ' 最后跟新人 11
            cmd.Parameters("@userName").Value = userName '作者 12
            cmd.Parameters("@Clicks").Value = Clicks '点击次数 13
            cmd.Parameters("@subCount").Value = subCount ' 回复数 14
            cmd.Parameters("@IP").Value = IP
            cmd.Connection = conn
            conn.Open()
            cmd.ExecuteNonQuery()
            conn.Close()
        End Function
这是BLL代码:
Public Function InsertNewArtitle(ByVal ClassName As String, ByVal Title As String, ByVal Content As String, ByVal imageURL As String, ByVal userName As String) As Boolean
            Dim pubDate, lastDate As DateTime
            Dim setTop, isBest, fatherId, layer, Clicks, subCount As Integer
            Dim lastUserName, IP As String
            pubDate = DateTime.Now '发表日期
            setTop = 0 '是否置顶
            isBest = 0 '是否精品
            fatherId = 0 '父文章ID
            layer = 1 '新发表的文章为第一层
            lastDate = DateTime.Now '最后回复时间
            lastUserName = userName
            Clicks = 0 '点击次数
            subCount = 0 '回复数目
            IP = HttpContext.Current.Request.ServerVariables("ROMOTE_ADDR")
            '建立dataarticle对象,调用Insertarticle插入文章
            Dim DA As New DataArticle
            DA.Insert(ClassName, Title, Content, imageURL, pubDate, setTop, isBest, fatherId, layer, lastDate, lastUserName, userName, Clicks, subCount, IP)
        End Function
想死!

Sorry写错一个单词了
把REMOTE_ADDR写成了ROMOTE_ADDR
没有给参数赋值会出现这种情况!

是一下你的ip到底获取到了没有……

本来没有  现在把REMOTE_ADDR参数改过来了

要细心