admin_usersave.asp

一个美化的论坛程序

<!--#include file="function.asp"-->
<%CheckAdmin%>
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
id=request.QueryString("id")
act=request("act")
set rs=server.CreateObject("ADODB.RecordSet")
if request.form("UserName")="" or len(request.form("UserName"))>20 then
	errmsg=errmsg+"<br>"+"<li>用户名输入错误(未输入或长度超过了20个字节)。"
	founderr=true
else
	UserName=trim(request.form("UserName"))
end if
if request.form("ask")="" then
	errmsg=errmsg+"<br>"+"<li>密码提示问题不能为空"
	founderr=true
else
	ask=request.form("ask")
end if
if request.form("answer")="" then
	errmsg=errmsg+"<br>"+"<li>密码提示答案不能为空"
	founderr=true
else
	answer=request.form("answer")
end if
if request.form("password")="" or Len(request.form("password"))>20 then
	errmsg=errmsg+"<br>"+"<li>密码输入错误(未输入或长度超过了20个字节)。"
	founderr=true
else
	password=request.form("password")
end if
if IsValidEmail(trim(request.form("Email")))=false then
	errmsg=errmsg+"<br>"+"<li>Email有错误。"
	founderr=true
else
	Email=trim(request.form("Email"))
end if
byear=request.form("byear")
bmonth=request.form("bmonth")
bday=request.form("bday")
sex=request.form("sex")
title=request.form("title")
if trim(request.form("sign"))<>"" then
	sign=htmlencode(trim(request.form("sign")))
else
	sign=""
end if
if act="edit" then
	sql="select * from user where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		rs("UserName")=UserName
		rs("password")=password
		rs("email")=email
		rs("sex")=sex
		rs("ask")=ask
		rs("answer")=answer
		rs("title")=title
		rs("face")=request.form("face")
		rs("Truename")=request.form("Truename")
		rs("birthday")   =byear & "-" & bmonth & "-" & bday 
		rs("Address")=request.form("Address")
		rs("oicq")=request.form("oicq")
		rs("sign")=sign
		if request.form("UserWebName")<>"" and request.form("UserWebUrl")<>"" then
			rs("UserWebName")=request.form("UserWebName")
			rs("UserWebUrl")=request.form("UserWebUrl")
		end if
		rs.update
	end if
	rs.close
elseif act="lock" then
	sql="select * from user where id="&id
	rs.open sql,conn,1,3
	if not rs.eof then
		if rs("lockuser")=false then
			rs("lockuser")=true
		else
			rs("lockuser")=false
		end if
		rs.update
	end if
	rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_UserMana.asp"
%>