isitant.asp 仿MOP对开式论坛程序 1.0源码程序 - ASP源码程序

gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > visitant.asp
    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<%
contents=contents &"<title>社区贵宾设置－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if bbsadmin>3 then
Dim visitant,i,delid
visitant=Trim(Request.Form("username"))
delid=Request.QueryString("delid")
if IsNumeric(delid) then
delid=Clng(delid)
else
delid=0
end if
if visitant<>"" then
rs.Open "Select gbmadadmin From gbmaduser Where gbmaduser='"& visitant &"'",conn,1,3
if Not rs.Eof then
if IsNull(rs("gbmadadmin")) then
rs("gbmadadmin")=1
rs.Update
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">设置贵宾</td></tr><tr><td><br> 已将 "& visitant &" 设置为 社区贵宾。<br><br></td></tr>"
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">设置贵宾</td></tr><tr><td><br> 用户 "& visitant &" 是社区管理员，不能降级为 社区贵宾。<br><br></td></tr>"
end if
visitant=""
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">设置贵宾</td></tr><tr><td><br> 用户 "& visitant &" 不存在，请检查后再试。<br><br></td></tr>"
end if
rs.Close
end if
if delid>0 then
rs.Open "Select gbmaduser,gbmadadmin From gbmaduser Where id="& delid &" and gbmadadmin=1",conn,1,3
if Not rs.Eof then
rs("gbmadadmin")=Null
rs.Update
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">移除贵宾</td></tr><tr><td><br> 已将 "& rs("gbmaduser") &" 移出贵宾组。<br><br></td></tr>"
end if
rs.Close
end if
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">设置贵宾</td></tr>"&_
"<form name=""visitant"" onsubmit=""return validinput();"" method=""post"" action=""visitant.asp"">"&_
"<tr class=""tds""><td>"&_
"<Script Language=""JavaScript"">"&_
"function validinput()"&_
"{"&_
"if (document.visitant.username.value.length==0)"&_
"{"&_
"alert(""还没输入用户名呢。"");"&_
"document.visitant.username.focus();"&_
"return false;"&_
"}"&_
"return true;"&_
"}"&_
"</Script>"&_
"输入要加为贵宾的用户：<input name=""username"" type=""text"" maxlength=""20"" size=""20"" class=""iptwin"">　"&_
"<input type=""submit"" value=""提交"" class=""out"" onmouseover=""this.className='over'"" onmouseout=""this.className='out'"">"&_
"</td></tr>"&_
"</form>"&_
"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">贵宾列表</td></tr>"&_
"<tr class=""tds""><td>"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""3"" width=""100%"">"&_
"<tr class=""toptr""><td width=""32"">ID</td><td>用户名</td><td width=""32"">删除</td></tr>"
rs.Open "Select id,gbmaduser,gbmadadmin From gbmaduser Where gbmadadmin=1",conn,1,1
For i=1 to rs.RecordCount
contents=contents &"<tr class=""otr""><td>"& rs("id") &"</td><td>"& rs("gbmaduser") &"</td><td><a href=""visitant.asp?delid="& rs("id") &""">移除</a></td></tr>"
rs.MoveNext
Next
rs.Close
contents=contents &"</table>"&_
"</td></tr>"
else
call connclose
Response.Redirect "login.asp"
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->