ASP Classic
Show data:
| F1 |
F2 |
F3 |
<%
adParamInput = 1
adInteger = 3
adVarChar = 200
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={MySQL ODBC 8.0 ANSI Driver};Server=localhost;Database=Test;User Id=root;Password=hemmeligt;"
If (Request.ServerVariables("REQUEST_METHOD") = "POST") And Not(Request.Form("F1") Is Nothing) And (Request.Form("F1") <> "") Then
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandText = "INSERT INTO t1demo VALUES(?,?,?)"
cmd.Parameters.Append(cmd.CreateParameter("@f1", adInteger, adParamInput))
cmd.Parameters.Append(cmd.CreateParameter("@f2", adVarChar, adParamInput, 32))
cmd.Parameters.Append(cmd.CreateParameter("@f3", adVarChar, adParamInput, 32))
cmd.Parameters("@f1") = Request.Form("F1")
cmd.Parameters("@f2") = Request.Form("F2")
cmd.Parameters("@f3") = Request.Form("F3")
cmd.Execute
Set cmd = Nothing
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT f1,f2,f3 FROM t1demo", con
Do While Not rs.EOF
%>
| <%= rs("F1") %> |
<%= rs("F2") %> |
<%= rs("F3") %> |
<%
rs.MoveNext
Loop
Set rs = Nothing
Set con = Nothing
%>
Add data: