updata_user_ac.asp

公正、客观、科学地评价教师的教学质量、工作质量有利于加强高校的教学管理

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
if session("login")<>"yes" then
response.write "<script language=JavaScript>" & chr(13) & "alert('您还未登录或者超时,请重登录！');"&"window.location.href = '../'"&" </script>"
response.end
end if
if request("ttype")="1" then
if trim(request("pwd"))="" and trim(request("answer"))="" then 
sql="update in_user set question='"&request("question")&"',lock="&request("lock")&",vip="&request("vip")&" where id="&request("id")
if trim(request("pwd"))="" and trim(request("answer"))<>"" then 
sql="update in_user set question='"&request("question")&"',lock="&request("lock")&",vip="&request("vip")&",answer='"&md5(trim(request("answer")))&"' where id="&request("id")
if trim(request("pwd"))<>"" and trim(request("answer"))="" then 
sql="update in_user set question='"&request("question")&"',lock="&request("lock")&",vip="&request("vip")&",pwd='"&md5(trim(request("pwd")))&"' where id="&request("id")
if trim(request("pwd"))<>"" and trim(request("answer"))<>"" then 
sql="update in_user set question='"&request("question")&"',lock="&request("lock")&",vip="&request("vip")&",pwd='"&md5(trim(request("pwd")))&"',answer='"&md5(trim(request("answer")))&"' where id="&request("id")
end if
if request("ttype")="2" then
if trim(request("pwd"))="" and trim(request("answer"))="" then
 sql="update en_user set question='"&request("question")&"',lock="&request("lock")&",vip="&request("vip")&" where id="&request("id")
if trim(request("pwd"))="" and trim(request("answer"))<>"" then 
sql="update en_user set question='"&request("question")&"',lock="&request("lock")&",vip="&request("vip")&",answer='"&md5(trim(request("answer")))&"' where id="&request("id")
if trim(request("pwd"))<>"" and trim(request("answer"))="" then
 sql="update en_user set question='"&request("question")&"',lock="&request("lock")&",vip="&request("vip")&",pwd='"&md5(trim(request("pwd")))&"' where id="&request("id")
if trim(request("pwd"))<>"" and trim(request("answer"))<>"" then 
vsql="update en_user set question='"&request("question")&"',lock="&request("lock")&",vip="&request("vip")&",pwd='"&md5(trim(request("pwd")))&"',answer='"&md5(trim(request("answer")))&"' where id="&request("id")
end if
rs.open sql,conn,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('修改成功，即将返回！');" & "history.back()" & "</script>" 
set rs=nothing
%>