Question

ASP提交表单内容到数据库两个表里面?

现在是保存到baidu_records表的字段里面..我还想让它保存到baidu_messages表的字段里面????

<%
Dim action
action = Trim(Request("action"))
Select Case action
''Case "save"
'' Call saveData()
''Case "edit"
'' Call editForm()
Case "saveRecords"
Call saveEditData()
Case Else
Call editForm()
End Select

Sub saveEditData()
Dim cId
Dim rDate,rType,rContent
cId = CInt(ABS(Request("cId")))
rDate = Request.Form("rDate")
rType = Request.Form("recordsType")
rContent = htmlEncode2(Request.Form("rContent"))
If Not IsNumeric(cId) Or cId <= 0 Or rType = "" Or Not IsDate(rDate) Or rContent = "" Then
Response.Write("<font color=""#FF0000""><b>资料请求错误。</b></font><br><br>")
Response.Write("<input type=""button"" value="" 返 回 "" onClick=""history.back();"">")
Else
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select Top 1 * From baidu_records",conn,3,2
rs.AddNew
rs("cId") = cId
rs("rDate") = rDate
rs("rType") = rType
rs("rContent") = rContent
rs.Update
rs.Close
Set rs = Nothing
Response.Redirect("view.asp?cId=" & cId)
End If
End Sub
我试了一下,还是不行啊.
由于其Required属性设置为真,字段baidu_messages.uName不能包含Null值.在此字段中输入一个数值.
我第二个表比第一个表多了二个字段:uName和rUser
可不可以这样?我在rs.AddNew下面多添加:
rs("uName")=uName
rs("rUser")=rUser

Answer 1

rs.Open "Select Top 1 * From baidu_records",conn,3,2
rs.AddNew
rs("cId") = cId
rs("rDate") = rDate
rs("rType") = rType
rs("rContent") = rContent
rs.Update
rs.Close
后面加上你的baidu_messages
rs.Open "Select Top 1 * From baidu_messages",conn,3,2
rs.AddNew
rs("cId") = cId
rs("rDate") = rDate
rs("rType") = rType
rs("rContent") = rContent
rs.Update
rs.Close
就可以了啊
你把那个字段去掉就可以了啊
或者加上判断
你的Required字段假设接的变量xx的值
格式是
if xx<>"" then
rs("Required")=xx
end if
这样就可以了

Answer 2

土方法嘛.麻烦是麻烦.好用.

用两个记录集打开两个表
set rs1=..
rs1.open..
set rs2=..
rs2.open..
rs1.addnew
rs1("字段")=值.
rs2.addnew
rs2("字段")=值.