Question

有谁给我把这些代码改正确啊，出现insert into的语法错误，急用....

<%
dim conn
set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dbaddress.mdb")
dim num,uname,sex,age,shf,tel,qq,email,ptel,intro
num=request.Form("num")
uname=request.Form("uname")
sex=request.Form("sex")
age=int(request.Form("age"))
shf=request.Form("shf")
tel=request.Form("tel")
qq=int(request.Form("qq"))
email=request.Form("email")
ptel=request.Form("ptel")
intro=request.Form("intro")
dim a
a="insert int straddress(strnum,strname,strsex,intage,str,strtel,strqq,stremail,strptel,strintro) values('"&num&"','"&uname&"','"&sex&"',"&age&",'"&shf&"','"&tel&"',"&qq&",'"&email&"','"&ptel&"','"&intro&"')"
conn.execute(a)
response.Write"注册成功!"
%>

Answer 1

换种简单的添加方法吧.我最喜欢用的
连接文件我就不写了

Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * from [user]"
rs.open sql,conn,2,3
rs.addnew

rs("num")=request.Form("num")
rs("uname")=request.Form("uname")
rs("sex")=request.Form("sex")
rs("age")=int(request.Form("age"))
rs("shf")=request.Form("shf")
rs("tel")=request.Form("tel")
rs("qq")=int(request.Form("qq"))
rs("email")=request.Form("email")
rs("ptel")=request.Form("ptel")
rs("intro")=request.Form("intro")

rs.update
rs.close
conn.close
response.Write"注册成功!"
'这样怎么样?

Answer 2

a="insert int straddress 这句的 int 应该是into

Answer 3

Plugin hwnd = Window.MousePoint()
Delay 100
Plugin Bkgnd.MoveTo(hwnd,776,211)
Plugin Bkgnd.LeftClick(hwnd,776,211)
Delay 150
Plugin Bkgnd.MoveTo(hwnd,551,408)
Plugin Bkgnd.LeftClick(hwnd,551,408)
Delay 150
Plugin Bkgnd.MoveTo(hwnd,750,234)
Plugin Bkgnd.LeftDown(hwnd,750,234)
Plugin Bkgnd.MoveTo(hwnd,750,225)
Plugin Bkgnd.LeftUp(hwnd,750,225)
Delay 150
Plugin Bkgnd.MoveTo(hwnd,554,265)
Plugin Bkgnd.LeftClick(hwnd,554,265)
请参考