usermodify.asp

这是我在大三的《asp程序设计教程》的课程设计

<!-- #include file="conn.asp" -->
<!-- #include file="usertop.asp" -->
<br>
<br>
<br>
<%
'取得记录标识
user=Trim(request.form("huser"))
'判断用户是否具有添加数据的权限
if Session("level") < 3 then
	Response.write"您没有操作权限或连接已经超时，请重新登录！"
	Response.end
end if
if Request.Form("add")="确定" then
	on error resume Next
	Set rs=Server.CreateObject("ADODB.RecordSet")
	sql="Select * From t_user Where d_user='"&user&"'"
	rs.Open sql,conn,1,3
	'修改记录值
	if not rs.eof then
		rs("d_user")=Trim(request.form("user"))
		rs("d_pass")=Trim(request.form("pass"))
		rs("d_level")=Trim(request.form("level"))
		'执行更新操作
		rs.update
		'判断执行是否成功
		if conn.Errors.Count > 0 then
			Response.Write"<p><font color=red>该用户已存在，请查核后添加！</font></p>"
		else
			Response.write"<p><font color=red>数据修改成功！</font></p>"
		end if
		response.end
	end if
end if
Set conn=nothing 
%>