<%
'==================================
' 会员页面
' 更新时间: 2006-1-9
'==================================
Dim blog_Mem
IF Request.QueryString("action")="edit" then
if memName=empty then Response.Redirect("member.asp")
%>
修改用户信息
<%set blog_Mem=conn.execute("select * from blog_Member where mem_Name='"&CheckStr(memName)&"'")
if blog_Mem.eof or blog_Mem.bof then
%>
<%else%>
<%
end if
blog_Mem.Close
Set blog_Mem=Nothing%>
<%
ElseIF Request.QueryString("action")="view" then
%>
<%
ElseIF Request.form("action")="save" then
dim reg
reg=SaveMem
%>
<%
Else
Dim searchType
Dim PageCount,BM
Set blog_Mem=Server.CreateObject("ADODB.RecordSet")
SQL="SELECT * FROM blog_Member order by mem_RegTime desc"
blog_Mem.Open SQL,Conn,1,1
SQLQueryNums=SQLQueryNums+1
blog_Mem.PageSize=20
blog_Mem.AbsolutePage=CurPage
%>
用户列表
<% if blog_Mem.eof or blog_Mem.bof then
response.write "没找到任何注册用户!"
else %>
| 用户名 | 邮件 | 主页 | QQ | 日志 | 评论 | 留言 | 注册时间 |
<%
Do Until blog_Mem.EOF OR PageCount=blog_Mem.PageSize
if blog_Mem("mem_HideEmail") or len(blog_Mem("mem_Email"))<1 or isnull(blog_Mem("mem_Email")) then
BM="![]() | "
else
BM="![]() | "
end if
if len(blog_Mem("mem_HomePage"))<1 or isnull(blog_Mem("mem_HomePage")) then
BM=BM&"![]() | "
else
BM=BM&"![]() | "
end if
if len(blog_Mem("mem_QQ"))<1 or isnull(blog_Mem("mem_QQ")) then
BM=BM&"![]() | "
else
BM=BM&"![]() | "
end if
response.write "| "&blog_Mem("mem_Name")&" | "&BM&""&blog_Mem("mem_PostLogs")&" | "&blog_Mem("mem_PostComms")&" | "&blog_Mem("mem_PostMessageNums")&" | "&DateToStr(blog_Mem("mem_RegTime"),"Y-m-d H:I A")&" | "
PageCount=PageCount+1
blog_Mem.movenext
loop
response.write "
"
response.write "
"&MultiPage(blog_Mem.RecordCount,20,CurPage,"?","","float:left")&"
"
end if
blog_Mem.Close
Set blog_Mem=Nothing
%>
<%End if%>
<%
function SaveMem
dim ReInfo
dim UID,username,Oldpassword,password,Confirmpassword,Gender,email,homepage,QQ,HideEmail,checkUser
UID=trim(CheckStr(request.form("UID")))
ReInfo=Array("错误信息","","MessageIcon")
Oldpassword=trim(CheckStr(request.form("Oldpassword")))
password=trim(CheckStr(request.form("password")))
Confirmpassword=trim(CheckStr(request.form("Confirmpassword")))
Gender=CheckStr(request.form("Gender"))
email=trim(CheckStr(request.form("email")))
homepage=trim(checkURL(CheckStr(request.form("homepage"))))
QQ=CheckStr(request.form("QQ"))
if request.form("hiddenEmail")=1 then
HideEmail=true
else
HideEmail=false
end if
if IsInteger(Gender)=false then
ReInfo(0)="错误信息"
ReInfo(1)="