userupdate.asp

教师教学质量评价系统 教师教学质量评价系统 asp 源代码

<!--#include file="Odbc_connection.asp"-->
<!--#include file="Function.asp"-->
<%
On Error Resume Next
userok
UserID=trim(request.Form("UserID"))
password=trim(request.Form("password"))
pass=trim(request.Form("pass"))
address=trim(request.Form("ADDRESS"))
Email=trim(request.Form("Email"))
tel=trim(request.Form("TEL"))

strsql="select * From userinfo Where username='"&UserID&"'"
set rs=db.execute(strsql)
passok=rs("password")
if passok<>pass then
response.write"<script>alert('修改失败，您的密码不正确！');location='USERINFO.asp?UserID="&UserID&"'</script>"
response.End()
end if


'-------------------------------------------
if Email="" then
Email="无"
end if
if address="" then
address="无"
end if
if tel="" then
tel="无"
end if
  '---------------------------------------------- 

  
  
'------------------------------------------------------------

strsql="Update UserInfo set password='"&password&"',Email='"&Email&"',tel='"&tel&"',address='"&address&"' where username='"&userID&"'"
db.execute(strsql)
response.write"<script>alert('修改成功，请开始评价！');location='USERINFO.asp?UserID="&UserID&"'</script>"
%>