神武手游变身卡大全:又一ASP代码问题,只提示“专家已添加”,其实数据库中根本就没有该专家的信息……请高手指点!谢谢!!

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 18:06:35
<%
cname=request("cname")
sex=request("sex")
birth=request("birth")
native=request("native")
phone=request("phone")
mobile=request("mobile")
college=request("college")
major=request("major")
lastedu=request("lastedu")
career=request("career")
workplace=request("workplace")
duty=request("duty")
ctitle=request("ctitle")
worktime=request("worktime")
addr=request("addr")
experience=request("experience")
achieve=request("achieve")
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;"&"data source="& server.MapPath

("expert.mdb")
conn.open
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
sql="select * from expert "
rs.open sql ,conn,1,1
if rs.eof or rs.bof then
rs1.open "expert",conn,1,2
rs1.addnew array

(cname,sex,birth,native,phone,mobile,college,major,lastedu,career,workplace,duty,ctitle,worktime,

addr,experience,achieve),array

(cname,sex,birth,native,phone,mobile,college,major,lastedu,career,workplace,duty,ctitle,worktime,

addr,experience,achieve)
%>
<script language="vbscript">
alert("该用户信息已添加成功!!!")
window.location.href="index.asp"
</script>
<%

rs1.close
set rs1=nothing
else
%>
<script language="vbscript">
alert("此专家已添加!")
history.back
</script>
<%
end if
rs.close
set rs=nothing
%>