非常简单的在数据库中写入记录问题出错了!我实在想不通,已改一星期了,请帮我分析一下,谢谢!(在线等待!)2

ill_linux 2005-07-04 09:35:23

'接上一帖http://community.csdn.net/Expert/topic/4120/4120718.xml?temp=1.781642E-03
if trim(MyRecordsetE("id")) <> "" then
set MyRecordsetD1=Server.CreateObject("ADODB.Recordset")
MyQuery="select * from tb_ClientBranch2 where yeah='"&trim(MyRecordsetE("id"))&"'"
MyRecordsetD1.Open MyQuery,MyConnection,1,2
set MyRecordsetD2=Server.CreateObject("ADODB.Recordset")
MyQuery="select * from tb_LINKMAN2 where yeah='"&trim(MyRecordsetE("id"))&"'"
MyRecordsetD2.Open MyQuery,MyConnection,1,2
set MyRecordsetD3=Server.CreateObject("ADODB.Recordset")
MyQuery="select * from tb_ClientBranch_Category2 where yeah='"&trim(MyRecordsetE("id"))&"'"
MyRecordsetD3.Open MyQuery,MyConnection,1,2
else
set MyRecordsetD1=Server.CreateObject("ADODB.Recordset")
MyQuery="select * from tb_ClientBranch2"
MyRecordsetD1.Open MyQuery,MyConnection,1,2
set MyRecordsetD2=Server.CreateObject("ADODB.Recordset")
MyQuery="select * from tb_LINKMAN2"
MyRecordsetD2.Open MyQuery,MyConnection,1,2
set MyRecordsetD3=Server.CreateObject("ADODB.Recordset")
MyQuery="select * from tb_ClientBranch_Category2"
MyRecordsetD3.Open MyQuery,MyConnection,1,2
end if

MyRecordsetE.AddNew
MyRecordsetE("save_name")=request("yeah")
MyRecordsetE.Update

while not MyRecordsetC1.EOF
MyRecordsetD1.AddNew
MyRecordsetD1("Client_ID") = trim(MyRecordsetC1("Client_ID"))
MyRecordsetD1("Year_ID") = trim(MyRecordsetC1("Year_ID"))
MyRecordsetD1("Year_Name") = trim(MyRecordsetC1("Year_Name"))
MyRecordsetD1("Branch_ID") = trim(MyRecordsetC1("Branch_ID"))
MyRecordsetD1("Capital") = trim(MyRecordsetC1("Capital"))
MyRecordsetD1("Branch_Name") = trim(MyRecordsetC1("Branch_Name"))
MyRecordsetD1("Phone") = trim(MyRecordsetC1("Phone"))
MyRecordsetD1("Fax") = trim(MyRecordsetC1("Fax"))
MyRecordsetD1("Email") = trim(MyRecordsetC1("Email"))
MyRecordsetD1("Human1") = trim(MyRecordsetC1("Human1"))
MyRecordsetD1("Human2") = trim(MyRecordsetC1("Human2"))
MyRecordsetD1("Human3") = trim(MyRecordsetC1("Human3"))
MyRecordsetD1("Human4") = trim(MyRecordsetC1("Human4"))
MyRecordsetD1("Human5") = trim(MyRecordsetC1("Human5"))
MyRecordsetD1("yeah") = trim(MyRecordsetE("id"))
MyRecordsetD1.MoveNext
MyRecordsetC1.MoveNext
MyRecordsetD1.Update
wend

while not MyRecordsetC2.EOF
MyRecordsetD2.AddNew
MyRecordsetD2("NAME_OF_THE_LINKMAN") = trim(MyRecordsetC2("NAME_OF_THE_LINKMAN"))
MyRecordsetD2("CLIENT_ID") = trim(MyRecordsetC2("CLIENT_ID"))
MyRecordsetD2("YEAR_ID") = trim(MyRecordsetC2("YEAR_ID"))
MyRecordsetD2("SEX_OF_THE_LINKMAN") = trim(MyRecordsetC2("SEX_OF_THE_LINKMAN"))
MyRecordsetD2("BIRTH_OF_THE_LINKMAN") = trim(MyRecordsetC2("BIRTH_OF_THE_LINKMAN"))
MyRecordsetD2("HOMETEL_OF_THE_LINKMAN") = trim(MyRecordsetC2("HOMETEL_OF_THE_LINKMAN"))
MyRecordsetD2("TELNO_OF_THE_LINKMAN") = trim(MyRecordsetC2("TELNO_OF_THE_LINKMAN"))
MyRecordsetD2("FAX_OF_THE_LINKMAN") = trim(MyRecordsetC2("FAX_OF_THE_LINKMAN"))
MyRecordsetD2("EMAIL_OF_THE_LINKMAN") = trim(MyRecordsetC2("EMAIL_OF_THE_LINKMAN"))
MyRecordsetD2("DIRECTOR_OF_CLIENT_ID") = trim(MyRecordsetC2("DIRECTOR_OF_CLIENT_ID"))
MyRecordsetD2("NAME_OF_DIRECTOR") = trim(MyRecordsetC2("NAME_OF_DIRECTOR"))
MyRecordsetD2("ASSITENT_OF_CLIENT_ID") = trim(MyRecordsetC2("ASSITENT_OF_CLIENT_ID"))
MyRecordsetD2("NAME_OF_ASSITENT") = trim(MyRecordsetC2("NAME_OF_ASSITENT"))
MyRecordsetD2("MEMO_LINKMAN") = trim(MyRecordsetC2("MEMO_LINKMAN"))
MyRecordsetD2("MOBIL_OF_THE_LINKMAN") = trim(MyRecordsetC2("MOBIL_OF_THE_LINKMAN"))
MyRecordsetD2("LINKMAN_INTEREST") = trim(MyRecordsetC2("LINKMAN_INTEREST"))
MyRecordsetD2("LINKMAN_POSITION") = trim(MyRecordsetC2("LINKMAN_POSITION"))
MyRecordsetD2("yeah") = trim(MyRecordsetE("id"))
MyRecordsetC2.MoveNext
MyRecordsetD2.MoveNext
MyRecordsetD2.Update
wend

while not MyRecordsetC3.EOF
MyRecordsetD3.AddNew
MyRecordsetD3("Branch_ID") = trim(MyRecordsetC3("Branch_ID"))
MyRecordsetD3("Branch_Name") = trim(MyRecordsetC3("Branch_Name"))
MyRecordsetD3("BRANCH_LEVEL") = trim(MyRecordsetC3("BRANCH_LEVEL"))
MyRecordsetD3("BRANCH_SERIAL") = trim(MyRecordsetC3("BRANCH_SERIAL"))
MyRecordsetD3("BRANCH_MOM_ID") = trim(MyRecordsetC3("BRANCH_MOM_ID"))
MyRecordsetD3("BRANCH_MOM_NAME") = trim(MyRecordsetC3("BRANCH_MOM_NAME"))
MyRecordsetD3("CLIENT_ID") = trim(MyRecordsetC3("CLIENT_ID"))
MyRecordsetD3("CLIENT_NAME") = trim(MyRecordsetC3("CLIENT_NAME"))
MyRecordsetD3("YEAR_ID") = trim(MyRecordsetC3("YEAR_ID"))
MyRecordsetD3("BRANCH_CAT_ADD_IN_LAW") = trim(MyRecordsetC3("BRANCH_CAT_ADD_IN_LAW"))
MyRecordsetD3("BRANCH_CAT_ADD_IN_OPERA") = trim(MyRecordsetC3("BRANCH_CAT_ADD_IN_OPERA"))
MyRecordsetD3("BRANCH_CAT_ENTR_PROP") = trim(MyRecordsetC3("BRANCH_CAT_ENTR_PROP"))
MyRecordsetD3("BRANCH_CAT_POST") = trim(MyRecordsetC3("BRANCH_CAT_POST"))
MyRecordsetD3("BRANCH_CAT_CITY") = trim(MyRecordsetC3("BRANCH_CAT_CITY"))
MyRecordsetD3("BRANCH_CAT_COUNTRY") = trim(MyRecordsetC3("BRANCH_CAT_COUNTRY"))
MyRecordsetD3("BRANCH_CAT_PROVINCE") = trim(MyRecordsetC3("BRANCH_CAT_PROVINCE"))
MyRecordsetD3("BRANCH_CAT_WEBSITE") = trim(MyRecordsetC3("BRANCH_CAT_WEBSITE"))
MyRecordsetD3("BRANCH_CAT_MEMO") = trim(MyRecordsetC3("BRANCH_CAT_MEMO"))
MyRecordsetD3("BRANCH_CLOSED_FLAG") = trim(MyRecordsetC3("BRANCH_CLOSED_FLAG"))
MyRecordsetD3("CLIENT_BRANCH_OPEN_TIME") = trim(MyRecordsetC3("CLIENT_BRANCH_OPEN_TIME"))
MyRecordsetD3("CLIENT_BRANCH_CLOSE_TIME") = trim(MyRecordsetC3("CLIENT_BRANCH_CLOSE_TIME"))
MyRecordsetD3("yeah") = trim(MyRecordsetE("id"))
MyRecordsetC3.MoveNext
MyRecordsetD3.MoveNext
MyRecordsetD3.Update
wend

MyRecordsetE.Close
MyRecordsetC1.Close
MyRecordsetC2.Close
MyRecordsetC3.Close
MyRecordsetD1.Close
MyRecordsetD2.Close
MyRecordsetD3.Close
Set MyRecordsetE = nothing
Set MyRecordsetC1 = nothing
Set MyRecordsetC2 = nothing
Set MyRecordsetC3 = nothing
Set MyRecordsetD1 = nothing
Set MyRecordsetD2 = nothing
Set MyRecordsetD3 = nothing

response.Write "<script language='javascript'>"
response.Write "</script>"
end if

else
if trim(request("qClientID"))="" or trim(request("qClientName"))="" then
response.Write chr(10)&"请填写年度名称!"
response.End
end if
end if
%>
</td></tr>
</table>
</body></html>

...全文