高手帮我看看~~提交数据的时候错误！

<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<%@ Register TagPrefix="Page_Pub" TagName="HeaderTag" src="./include/header.ascx" %>
<%@ Register TagPrefix="Page_Pub" TagName="BottomTag" src="./include/bottom.ascx" %>
<Script Language="VB" Runat="Server">
Function Get_DSN(bolSQL As Boolean) As String
If Not bolSQL Then
Get_DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./data.mdb")
Else
Response.Write("请先连接数据库！")
Response.End
End If
End FunctionSub Page_Load(Sender As Object, E As EventArgs)
Dim objConn As OleDbConnection
Dim objCmd As OleDbDataAdapter
Dim objDS As DataSet
Dim strDSN As Object, strSQL As String strSQL = "SELECT * FROM [pokemon] ORDER BY p_number_all ASC"
strDSN = Get_DSN(False)
objConn = New OleDbConnection(strDSN)
objCmd = New OleDbDataAdapter() objCmd.TableMappings.Add("Table", "Pokemon")
objCmd.SelectCommand = New OleDbCommand(strSQL, objConn) objDS = New DataSet("pokemon")
objCmd.Fill(objDS) pokemon_r.DataSource = objDS.Tables("pokemon").DefaultView
pokemon_r.DataBind()
End SubSub show_Sub(sender As Object, e As System.Web.UI.ImageClickEventArgs)
show_msg.Text = "您将查询的精灵全国编号为：" & p_number_all_search.Text & "，不过查询功能正在完善中……暂时不能查询！"
End SubSub add_Sub(sender As Object, e As System.Web.UI.ImageClickEventArgs)
Dim objCmd As OleDbCommand
Dim objConn As OleDbConnection
Dim strDSN As Object, strSQL As String
strDSN = Get_DSN(False)
objConn = New OleDbConnection(strDSN)
strSQL = "INSERT INTO [pokemon] (p_number_all, p_number_fy, p_name_cn, p_name_jp, p_name_en, p_tall, p_weight, p_property, p_quality, p_egg_form, p_exp_min, p_exp_max, p_egg_ratio, p_egg_step, p_snare_ratio, p_flee_ratio, p_first_intimate) VALUES ('" & Request.Form("p_number_all") & "','" & Request.Form("p_number_fy") & "','" & Request.Form("p_name_cn") & "','" & Request.Form("p_name_jp") & "','" & Request.Form("p_name_en") & "','" & Request.Form("p_tall") & "','" & Request.Form("p_weight") & "','" & Request.Form("p_property") & "','" & Request.Form("p_quality") & "','" & Request.Form("p_egg_form") & "','" & Request.Form("p_exp_min") & "','" & Request.Form("p_exp_max") & "','" & Request.Form("p_egg_ratio") & "','" & Request.Form("p_egg_step") & "','" & Request.Form("p_snare_ratio") & "','" & Request.Form("p_flee_ratio") & "','" & Request.Form("p_first_intimate") & "')"
objCmd = New OleDbCommand(strSQL, objConn)
objCmd.Connection.Open()
objCmd.ExecuteNonQuery()
objCmd.Connection.Close()
show_msg.Text = "添加&nbsp;" & p_number_all.Text & "号精灵&nbsp;" & p_name_cn.Text & "&nbsp;完成！"
End Sub
</Script>
<Page_Pub:HeaderTag ID="Header" Runat="Server" />
<asp:Panel ID="all_page" Runat="Server">
<Form ID="data_form" method="post" Runat="Server">
<asp:TextBox class="text_style" ID="p_number_all_search" Runat="Server" />　<asp:ImageButton src="./search_button.gif" ID="show_data" onClick="show_sub" Runat="Server" />
<asp:Repeater ID="pokemon_r" Runat="Server">
<HeaderTemplate>
<table border="0" class="all_table">
<tr class="menu_tr">
<td>全国№</td>
<td>方圆№</td>
<td>中文名</td>
<td>日问名</td>
<td>英文名</td>
<td>身高</td>
<td>体重</td>
<td>属性</td>
<td>特性</td>
<td>生蛋分组</td>
<td>初期经验</td>
<td>最大经验</td>
<td>生蛋比例</td>
<td>孵化步数</td>
<td>捕捉几率</td>
<td>逃跑几率</td>
<td>初期亲密</td>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr class="one_tr">
<td><%# Container.DataItem("p_number_all") %></td>
<td><%# Container.DataItem("p_number_fy") %></td>
<td><%# Container.DataItem("p_name_cn") %></td>
<td><%# Container.DataItem("p_name_jp") %></td>
<td><%# Container.DataItem("p_name_en") %></td>
<td><%# Container.DataItem("p_tall") %></td>
<td><%# Container.DataItem("p_weight") %></td>
<td><%# Container.DataItem("p_property") %></td>
<td><%# Container.DataItem("p_quality") %></td>
<td><%# Container.DataItem("p_egg_form") %></td>
<td><%# Container.DataItem("p_exp_min") %></td>
<td><%# Container.DataItem("p_exp_max") %></td>
<td><%# Container.DataItem("p_egg_ratio") %></td>
<td><%# Container.DataItem("p_egg_step") %></td>
<td><%# Container.DataItem("p_snare_ratio") %></td>
<td><%# Container.DataItem("p_flee_ratio") %></td>
<td><%# Container.DataItem("p_first_intimate") %></td>
</tr>
</ItemTemplate>
<AlternatingItemTemplate>
<tr class="two_tr">
<td><%# Container.DataItem("p_number_all") %></td>
<td><%# Container.DataItem("p_number_fy") %></td>
<td><%# Container.DataItem("p_name_cn") %></td>
<td><%# Container.DataItem("p_name_jp") %></td>
<td><%# Container.DataItem("p_name_en") %></td>
<td><%# Container.DataItem("p_tall") %></td>
<td><%# Container.DataItem("p_weight") %></td>
<td><%# Container.DataItem("p_property") %></td>
<td><%# Container.DataItem("p_quality") %></td>
<td><%# Container.DataItem("p_egg_form") %></td>
<td><%# Container.DataItem("p_exp_min") %></td>
<td><%# Container.DataItem("p_exp_max") %></td>
<td><%# Container.DataItem("p_egg_ratio") %></td>
<td><%# Container.DataItem("p_egg_step") %></td>
<td><%# Container.DataItem("p_snare_ratio") %></td>
<td><%# Container.DataItem("p_flee_ratio") %></td>
<td><%# Container.DataItem("p_first_intimate") %></td>
</tr>
</AlternatingItemTemplate>
<FooterTemplate>
</table>
</FooterTemplate>
</asp:Repeater>
<asp:Panel ID="data_add" Runat="Server">
　　　　　　全国图鉴：<asp:TextBox class="text_style" ID="p_number_all" Runat="Server" />　方圆图鉴：<asp:TextBox class="text_style" ID="p_number_fy" Runat="Server" />　中文名称：<asp:TextBox class="text_style" ID="p_name_cn" Runat="Server" /><br />
　　　　　　日问名称：<asp:TextBox class="text_style" ID="p_name_jp" Runat="Server" />　英文名称：<asp:TextBox class="text_style" ID="p_name_en" Runat="Server" />　精灵身高：<asp:TextBox class="text_style" ID="p_tall" Runat="Server" /><br />
　　　　　　精灵体重：<asp:TextBox class="text_style" ID="p_weight" Runat="Server" />　精灵属性：<asp:TextBox class="text_style" ID="p_property" Runat="Server" />　战斗特性：<asp:TextBox class="text_style" ID="p_quality" Runat="Server" /><br />
　　　　　　生蛋分组：<asp:TextBox class="text_style" ID="p_egg_form" Runat="Server" />　初期经验：<asp:TextBox class="text_style" ID="p_exp_min" Runat="Server" />　最大经验：<asp:TextBox class="text_style" ID="p_exp_max" Runat="Server" /><br />
　　　　　　生蛋比例：<asp:TextBox class="text_style" ID="p_egg_ratio" Runat="Server" />　孵化步数：<asp:TextBox class="text_style" ID="p_egg_step" Runat="Server" />　捕捉几率：<asp:TextBox class="text_style" ID="p_snare_ratio" Runat="Server" /><br />
　　　　　　逃跑几率：<asp:TextBox class="text_style" ID="p_flee_ratio" Runat="Server" />　初期亲密：<asp:TextBox class="text_style" ID="p_first_intimate" Runat="Server" /><br />
　　　　　　<asp:ImageButton src="./submit_button.gif" ID="add_data" onClick="add_sub" Runat="Server" />　<asp:Label ID="show_msg" Runat="Server" />
</asp:Panel>
</Form>
</asp:Panel>
<Page_Pub:BottomTag ID="Bottom" Runat="Server" />
其中包含了两个文件！就不列出来了……麻烦救我一下~

解决方案 »

  1.   

    这上哪里去看啊，为什么不用CODEBEHIND方式编程？那样你就可以进行调试了。
      

  2.   

    说是错误号码：-2147467259
    错误程序：Microsoft JET Database Engine
    错误信息：操作必须使用一个可更新的查询。
      

  3.   

    皮卡丘？操作必须使用一个可更新的查询。看来楼主你用的是access数据库
    意思就是，你的数据库文件，你没得到写的权限
    在数据库文件的权限里把访问者的权限设置成可写就行了
      

  4.   

    在服务器端改数据库文件的权限还是在FTP改目录的权限？
      

  5.   

    1.给上Access数据库可读写权限,在服务端.如果是虚拟主机.他应该开了
    2.因为程序正在使用库,没有及时关闭也可能出现这个问题