sql="update find set gs_name='"&gs_name1&"',gs_person='"&gs_person1&"',gs_url='"&gs_url1&"',gs_tel='"&gs_tel1&"',gs_telephone='"&gs_telephone1&"',gs_czh='"&gs_czh1&"',gs_qq='"&gs_qq1&"',gs_addr='"&gs_addr1&"',key='"&key1&"' where id=1" CreateConnection conn.execute (sql)
下面的代码是连接数据库的,就是createconnection的代码 //Sub CreateConnection '连接数据库 On Error Resume Next set conn = server.CreateObject("ADODB.Connection") conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("database/mydb.mdb") '数据库路径要注意写正确! conn.open If Err Then err.Clear Set Conn = Nothing Response.Write " <br> <br> <center>服务器连接出错,非常抱歉。 </center>" Response.End End If End Sub//