先把出错那行注释掉,直接显示sql语句,看看内容是什么。
'dataconn.execute "insert into user (username,pass,op) values('"&username&"','"&pass&"','"&op&"')"
Response.Write "insert into user (username,pass,op) values('"&username&"','"&pass&"','"&op&"')"
Response.End
如果你在sql语句中发现了什么问题,那末就恭喜你了。
另外,字段op是varchar型还是int型?如果是int型,语句应为:
dataconn.execute "insert into user (username,pass,op) values('"&username&"','"&pass&"',"&op&")"
<%
dim op
dim username
dim c_user
dim pass
'on error resume next
classid=request("classid")
classname=request("classname")
c_fatherid=request("c_fatherid")
c_user=request("c_user")
username=request("c_user")
pass=request("c_user")
if c_fatherid = 0 then
op = 2
else
op = 3
end if
'if classname<>"" then
sql="insert into class (c_name,c_fatherid,c_user) values('" & classname & "'," & classid &",'"& c_user &"')"
dataconn.execute(sql)
'dataconn.close
'向user表中添加管理员信息
' if c_user<>"" then
set rs1=server.CreateObject("adodb.recordset")
sql1 = "select * from [user] where username=" & username
rs1.Open sql1,dataconn,3,3
if rs1.eof then
dataconn.execute "insert into user (username,pass,op) value('"&username&"','"&pass&"','"&op&"')"
else
if rs1("op")<>op then
dataconn.execute "insert into user (username,pass,op) value('"&username&"','"&pass&"','"&op&"')"
end if
end if
rs1.close
set rs1=nothing
'end if
response.redirect "classman.asp?class=" & classid
%>