求助 无法写入数据库

请教大家为什么无法写入数据库啊！~~
<!-- #include file="LHB_Check_Session.asp"-->
<!-- #include file="Config.asp"-->
<!-- #include file="LHB_Copy.asp" -->
<!-- #include file="LHB_head.asp"-->
<!-- #include file="LHB_DHT_01.asp"-->
<!-- #include file="LHB_DHT_02.asp"-->
<br>
<%
L_Reg=Request("LouHB_Reg")
KHXM=Request("LouHB_KHXM")
SFKP=Request("LouHB_SFKP")
SFZHM=Request("LouHB_SFZHM")
ID=Request("LouHB_ID")
TianJ_XiuG=Request("LouHB_TianJ_XiuG")
CM=Request("LouHB_CM")
XH=Request("LouHB_XH")
DZ=Request("LouHB_DZ")
LXDH=Request("LouHB_LXDH")
GCSJ=Request("LouHB_GCSJ")
CCRQ=Request("LouHB_CCRQ")
HGZH=Request("LouHB_HGZH")
DJH=Request("LouHB_DJH")
FDJH=Request("LouHB_FDJH")
BZ=Request("LouHB_BZ")


Select Case L_Reg
Case "添加"

if Len(KHXM) < 1 then L_CuoWu("请输入用户名！")
if Len(SFZHM) < 1 then L_CuoWu("请输入身份证号码！")

Sub L_CuoWu(LouHB_CuoWu)
if LouHB_CuoWu <> "" then Response.Write("<script>alert('" & LouHB_CuoWu & "');history.back();</script>")
Response.End
End Sub

set save=Louconn.execute("insert into LHB_UserInfo(SFKP,CM,XH,KHXM,DZ,LXDH,SFZHM,GCSJ,CCRQ,HGZH,DJH,FDJH,BZ) values('"&SFKP&"','"&CM&"','"&XH&"','"&KHXM&"','"&DZ&"','"&LXDH&"','"&SFZHM&"','"&GCSJ&"','"&CCRQ&"','"&HGZH&"','"&DJH&"','"&FDJH&"',"&BZ&"')")
set save=nothing
Call Copy()
response.write "<script language=JavaScript>" & chr(23) & "alert('恭喜，添加成功！');"&"window.location.href = 'Add_User.asp?LouHB_TianJ_XiuG=1'"&" </script>"
Response.End

Case "修改"
Set Lours=server.createobject("adodb.recordset")
Check="Select * From LHB_UserInfo where id="&ID
Lours.Open Check,LouConn,2,3
Lours("KHXM")=KHXM
Lours("SFKP")=SFKP
Lours("SFZHM")=SFZHM
Lours("CM")=CM
Lours("XH")=XH
Lours("DZ")=DZ
Lours("LXDH")=LXDH
Lours("GCSJ")=GCSJ
Lours("CCRQ")=CCRQ
Lours("HGZH")=HGZH
Lours("DJH")=DJH
Lours("FDJH")=FDJH
Lours("BZ")=BZ
Lours.update
Lours.Close
Set Lours=Nothing
LouConn.Close
Set LouConn=Nothing
Call Copy()
response.write "<script language=JavaScript>" & chr(23) & "alert('恭喜，修改成功！');"&"window.location.href = 'Add_User.asp?LouHB_TianJ_XiuG=1'"&" </script>"
Response.End
End Select

Select Case TianJ_XiuG
Case 2
Set Lours=server.createobject("adodb.recordset")
CX="Select * From LHB_UserInfo where id="&ID
Lours.Open CX,Louconn,1,1
SFKP=Lours("SFKP")
KHXM=Lours("KHXM")
SFZHM=Lours("SFZHM")
CM=Lours("CM")
XH=Lours("XH")
DZ=Lours("DZ")
LXDH=Lours("LXDH")
GCSJ=Lours("GCSJ")
CCRQ=Lours("CCRQ")
HGZH=Lours("HGZH")
DJH=Lours("DJH")
FDJH=Lours("FDJH")
BZ=Lours("BZ")
End Select
%>
<table width="41%"  border="0" cellspacing="0" cellpadding="0" align="center" class="table4">
<form name="form1" method="post" action="Add_User.asp?LouHB_TianJ_XiuG=<%=TianJ_XiuG%>&LouHB_ID=<%=ID%>">
<tr align="center">
<td height="30" colspan="2" background="pic/bg.gif">
<%
If TianJ_XiuG=1 Then
response.write"用户添加"
ElseIF TianJ_XiuG=2 Then
response.write"用户修改"
End If
%></td>
</tr>
<tr>
<td width="22%" align="center">是否开票</td>
<td width="78%"><select name="LouHB_SFKP" type="text"  size=1 class="button1">
  <option value="1" <%If SFKP=1 Then response.write"selected" End If%>>是</option>
  <option value="2" <%If SFKP=2 Then response.write"selected" End If%>>否</option>
</select></td>
</tr>
<tr>
<td align="center">车       名</td>
<td><input name="LouHB_CM" type="text" class="button1" size="30" value="<%=CM%>"></td>
</tr>

<tr>
<td align="center">车      型</td>
<td><input name="LouHB_XH" type="text" class="button1" size="30"  value="<%=XH%>"></td>
</tr>
<tr>
<td align="center">姓     名</td>
<td><%
response.write"<input name='LouHB_KHXM' type='text' class='button1' size='30' "
response.write"value='"&L_KHXM&"'"
If TianJ_XiuG=2 Then
response.write"readonly"
End If
response.write">"
%></td>
</tr>
<tr>
<td align="center">地     址</td>
<td><input name="LouHB_DZ"  class="button1" size="30" type="text" value="<%=DZ%>"></td>
</tr>
<tr>
<td align="center">联系电话</td>
<td><input name="LouHB_LXDH"  class="button1"  size="30" type="text" value="<%=LXDH%>" ></td>
</tr>
<tr align="center">
  <td>身份证号码</td>
  <td><div align="left">
    <input name="LouHB_SFZHM" type="text" class="button1" size="30" value="<%=SFZHM%>">
  </div></td>
</tr>
<tr align="center">
  <td>购车时间</td>
  <td><div align="left">
    <input name="LouHB_GCSJ"  class="button1" size="30" type="text" value="<%=GCSJ%>" >
  </div></td><td width="46%"><a href="#SelectDate" onClick="javascript:window.open('Select_Date.asp?form=form1&field=LouHB_GCSJ','','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=190,height=170');"><img src="pic/RiLi.gif" width="30" height="30" border="0" alt="选择日期"></a></td>
</tr>
</tr>
<tr align="center">
  <td>出厂日期</td>
  <td><div align="left">
    <input name="LouHB_CCRQ"  class="button1"  size="30" type="text" value="<%=CCRQ%>" >
  </div></td></td><td width="46%"><a href="#SelectDate" onClick="javascript:window.open('Select_Date.asp?form=form1&field=LouHB_CCRQ','','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=190,height=170');"><img src="pic/RiLi.gif" width="30" height="30" border="0" alt="选择日期"></a></td>
</tr>
<tr align="center">
  <td>合格证号</td>
  <td><div align="left">
    <input name="LouHB_HGZH"  class="button1" size="30" type="text" value="<%=HGZH%>" >
  </div></td>
</tr>
<tr align="center">
  <td>大架号</td>
  <td><div align="left">
    <input name="LouHB_DJH"  class="button1"  size="30" type="text" value="<%=DJH%>" >
  </div></td>
</tr>
<tr align="center">
  <td>发动机号</td>
  <td><div align="left">
    <input name="LouHB_FDJH"  class="button1" size="30" type="text" value="<%=FDJH%>" >
  </div></td>
</tr>
<tr align="center">
  <td>备注</td>
  <td><div align="left">
    <textarea name="LouHB_BZ" cols="30" rows="1" class="goto" value="<%=BZ%>"></textarea>
  </div></td>
</tr>
<tr align="center">
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan="2"><%
If TianJ_XiuG=2 Then
response.write"<input name=""LouHB_Reg"" type=""submit"" class=""button1"" value=""修改"">"
Else
response.write"<input name=""LouHB_Reg"" type=""submit"" class=""button1"" value=""添加"">"
End If
%></td>
</tr>
</form>
</table>
<br>
<%
LouConn.Close
Set LouConn=Nothing
Call Copy()
%>

搜索更多相关主题的帖子: 数据库

看看是不是少了Lours.addnew?

回复 2# J_j 的帖子

怎么写？我是初学者 不是很懂 还请说明白 谢谢

那~~~~就说下面这里.......
Case "修改"
Set Lours=server.createobject("adodb.recordset")
Check="Select * From LHB_UserInfo where id="&ID
Lours.Open Check,LouConn,2,3
lours.addnew(在这里加这句)
Lours("KHXM")=KHXM
Lours("SFKP")=SFKP
Lours("SFZHM")=SFZHM
Lours("CM")=CM
Lours("XH")=XH
Lours("DZ")=DZ
Lours("LXDH")=LXDH
Lours("GCSJ")=GCSJ
Lours("CCRQ")=CCRQ
Lours("HGZH")=HGZH
Lours("DJH")=DJH
Lours("FDJH")=FDJH
Lours("BZ")=BZ
Lours.update
Lours.Close
Set Lours=Nothing
LouConn.Close
Set LouConn=Nothing

回复 4# J_j 的帖子

呜呜　　还是不行啊　　我给你发短息了　！～～～～

他要的是修改，不需要Addnew。

你确定update那个语句执行了吗？没条件就静态调试，有条件就跟踪一下。

Check="Select * From LHB_UserInfo where id="&ID
这是更新,不是添加
加上:lours.addnew()
一定会报错的,而且还不能更新

Select Case TianJ_XiuG
Case 2
Set Lours=server.createobject("adodb.recordset")
CX="Select * From LHB_UserInfo where id="&ID
Lours.Open CX,Louconn,1,1
SFKP=Lours("SFKP")
KHXM=Lours("KHXM")
SFZHM=Lours("SFZHM")
CM=Lours("CM")
XH=Lours("XH")
DZ=Lours("DZ")
LXDH=Lours("LXDH")
GCSJ=Lours("GCSJ")
CCRQ=Lours("CCRQ")
HGZH=Lours("HGZH")
DJH=Lours("DJH")
FDJH=Lours("FDJH")
BZ=Lours("BZ")
End Select
%>
这个也是错的,因为1,1是只读形式,如果想修改应该改成1,3
你应该看看ASP游标的说明,再看一下程序

各位  谢谢大家的解答 ，我给各位都发信息了， 我QQ：3492186   还请加我QQ  我或者加大家的QQ  具体指导下可以吗？

set save=Louconn.execute("insert into LHB_UserInfo(SFKP,CM,XH,KHXM,DZ,LXDH,SFZHM,GCSJ,CCRQ,HGZH,DJH,FDJH,BZ) values('"&SFKP&"','"&CM&"','"&XH&"','"&KHXM&"','"&DZ&"','"&LXDH&"','"&SFZHM&"','"&GCSJ&"','"&CCRQ&"','"&HGZH&"','"&DJH),1,3你改成这样试试
添加的时候