IDC资讯中心
windows200s.iis.asp网页中修改access记录时无效
部分原码为:
<%@ language=vbscript %>
<%
判断用户是否登录以及具有系统管理员身份
if isempty(session("id")) or session("issystemmanager")=false then
response.redirect "../login.asp"
end if
连接系统数据库
set conn = server.createobject ("adodb.connection")
conn.open "aspdata", "", ""
set rsdepartments = conn.execute("select departmentname from departments order by "_
& "departmentname")
set rsthisuser=conn.execute ("select * from userinfo where loginid= " & session("temp") &" ")
修改某个用户信息
if not isempty(request.form("modify")) then
校验用户的输入
if len(request.form("loginid"))=0 or len(request.form("name"))=0 _
or len(request.form("password"))=0 then
themessage = "用户登录名，姓名，密码不能为空"
else
conn.execute " update userinfo set " _
& "emailaddress=" & request.form("emailaddress") & ", " _
& "department=" & request.form("department") & ", " _
& "position=" & request.form("position") & ", " _
& "internalphone=" & request.form("internalphone") & ", " _
& "homephone=" & request.form("homephone") & ", " _
& "mobilephone=" & request.form("mobilephone") & ", " _
& "homeaddress=" & request.form("homeaddress") & "," _
& "birthday=" & request.form("birthdayyear") & "-" _
& request.form("birthdaymonth") & "-" _
& request.form("birthdayday") & "," _
& "qq=" & request.form("qq") & "" _
& " where loginid=" & request.form("loginid") &""
& "issystemmanager=" & request.form("issystemmanager") & "," _
& "isfinancialmanager=" & request.form("isfinancialmanager") & "," _
set rsthisuser=conn.execute ("select * from userinfo where loginid= " & session("temp") &" ")
themessage = "此用户信息已经修改成功"
end if
else
themessage = "请在下面修改此用户信息"
end if
%>
此页中有删除.添加都正常,更新时提示"此用户信息已经修改成功",但数据库并为成功更新!
哪位有兴趣者可告诉我如何解决吗?谢谢!
