引用:
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: '[string: "INSERT INTO gbook(n"]'
代码：
Dim xname,xpassword,xage,exec
xname=Trim(Request("name"))
xpassword=Request("password")
xage=CInt(Request("age"))
exec=""
set Con = Server.CreateObject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("/data/gb.mdb")
exec = "INSERT INTO gbook(name, email, password, age) VALUES('"& xname &"','"& xemail & "','"& xpassword &"','"& xage &"')"
Con.open constr
Con.Execute exec
Con.close
