01.<%
02.
03. Dim strSQL,objExec
04. Set ConnDBF = Server.CreateObject("ADODB.connection")
05. ConnStr= "Driver=Microsoft Visual Foxpro Driver; " + _
06. "UID=;SourceType=DBC;SourceDB=C:\ASP\Data\Data.DBC;Exclusive=No; Collate=Machine;NULL=YES;DELETED=NO;BACKGROUNDFETCH=NO;"
07. ConnDBF.Open ConnStr ,1,3
08.
09.
10.strSQL = ""
11.strSQL = strSQL &"INSERT INTO employee "
12.
13.
14.
15.
16.strSQL = strSQL &"(SSOID,TAXID,NATION,BIRTHDAY) "
17.strSQL = strSQL &"VALUES "
18.strSQL = strSQL &"('"&Request.Form("txtSSOID")&"','"&Request.Form("txtTAXID")&"', '"&Request.Form("txtNATION")&"' ,'"&Request.Form("txtTBIRTHDAY")&"') "
19.
20.
21.Response.write(strSQL)
22.Set objExec = ConnDBF.Execute(strSQL)
23.If Err.Number = 0 Then
24. Response.write("Save Done.")
25.Else
26. Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
27.End If
28.ConnDBF.Close()
29.Set objExec = Nothing
30.Set ConnDBF = Nothing
31.
32.%>
Quote:
