 |
<%
act=SafeRequest("act")
ID= SafeRequest("ID")
if ID<>"" then
set rsd = conn.execute("select * from userlist where ID="&ID)
username=rsd("username")
if session("WinMyDNSIsAdmin")<>"Y" and username<>session("WinMyDNSUserName") then
PopMsg "对不起，你没有管理该会员的权限"
end if
rsd.close
end if
select case act
case "add_pre"
call Add_Pre()
case "edit_pre"
call Edit_Pre()
case "add"
if SafeRequest("origin")="" then
response.write "错误:域名不能为空"
else
conn.execute ("insert into soa (origin,ns,mbox,Serial,refresh,retry,expire,minimum,ttl) values ('"&SafeRequest("origin")&"','"&SafeRequest("origin")&"','"&SafeRequest("origin")&"',1,900,600,86400,3600,3600)")
response.write "操作成功"
end if
call List()
case "edit"
password_tmp = SafeRequest("password")
if password_tmp<>"" then
password = md5 (password_tmp)
sql ="update userlist set [password]='"&password&"', realname='"&SafeRequest("realname")&"',tel='"&SafeRequest("tel")&"',address='"&SafeRequest("address")&"',postcode='"&SafeRequest("postcode")&"',email='"&SafeRequest("email")&"',msn='"&SafeRequest("msn")&"',icq='"&SafeRequest("icq")&"' where ID="&ID
conn.execute (sql)
end if
if session("WinMyDNSIsAdmin")="Y" then
sql ="update userlist set isadmin='"&SafeRequest("isadmin")&"', soanum="&SafeRequest("soanum")&",rrnum="&SafeRequest("rrnum")&",verify='"&SafeRequest("verify")&"' where ID="&ID
conn.execute (sql)
end if
response.write "操作成功"
call List()
case "del"
if username = session("WinMyDNSUserName") then PopMsg "对不起，您不对删除你自已"
set rs=conn.execute("select * from soa where [username]=(select [username] from userlist where ID="&ID&") ")
if not rs.eof then
PopMsg("该会员申请了域名解析,不能删除。如果要删除该会员及名下的所有域名，请使用[删除会员及其所有的DNS解析]的功能")
end if
conn.execute (" delete from userlist where ID="&SafeRequest("ID"))
response.write "操作成功"
call List()
case "delall"
if username = session("WinMyDNSUserName") then PopMsg "对不起，您不对删除你自已"
conn.execute (" delete from rr where [zone] in (select ID from soa where [username]=(select [username] from userlist where ID="&ID&")) ")
conn.execute (" delete from soa where [username]=(select [username] from userlist where ID="&ID&") ")
conn.execute (" delete from userlist where ID="&SafeRequest("ID"))
response.write "操作成功"
call List()
case "query"
Query
case "query_R"
Query_R
case else
call List
end select
sub List()
sdomain=SafeRequest("sdomain")
sql = "select * from userlist where [username] like'%"&susername&"%' "
if session("WinMyDNSIsAdmin")<>"Y" then
sql = sql & " and username='"&session("WinMyDNSUserName")&"' "
end if
sql = sql& " order by isadmin desc,verify,regtime "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
if not isempty(SafeRequest("page")) then
if IsNumeric(SafeRequest("page")) = True then
pagecount=cint(SafeRequest("page"))
else
pagecount=1
end if
else
pagecount=1
end if
PageSize = SafeRequest("PageSize")
if PageSize="" or not IsNumeric(PageSize) then
PageSize = "100"
end if
rs.pagesize=PageSize
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
if not rs.eof then rs.AbsolutePage=pagecount
end if
%>
共计 <%=rs.recordcount%> 条记录
| 会员管理
<%if session("WinMyDNSIsAdmin")="Y" then %>-[添加会员]
<%end if%> |
<%if session("WinMyDNSIsAdmin")="Y" then %>
<%end if%>
| 序号 | 会员名 |
姓名 |
权限 |
DNS区域名数 |
域名记录数 |
注册时间 |
审核 |
管理 |
<%
i=1
do while not rs.eof %>
| <%=i+(pagecount-1)*PageSize%> |
<%=rs("username")%> |
<%=rs("realname")%> |
<%if rs("isadmin")="Y" then
response.write "管理员"
else
response.write "普通用户"
end if%> |
<%=rs("soanum")%> |
<%=rs("rrnum")%> |
<%=rs("regtime")%> |
<%
if rs("verify")="N" then
response.write "未审核"
else
response.write "已审核"
end if%> |
">管理 |
<% i=i+1
rs.movenext
if i>rs.PageSize then exit do
loop
%>
<%
URL = "USER.asp?sdomain="&sdomain&"&PageSize="&PageSize
call PrintPage(pagecount, rs, URL)
rs.close
set rs=nothing
end sub
sub PrintPage(pagecount, rs, URL)
if rs.pagecount > 0 then
%>
<%
end if
end sub
'查询A记录
Function Edit_pre()
ID=SafeRequest("ID")
%>
| 会员管理
<%if session("WinMyDNSIsAdmin")="Y" then %>-[删除会员]-[删除会员及其所有的DNS解析]
<%end if%> |
<%
i = 0
set rs=conn.execute("select * from userlist where ID="&ID )
if rs.eof then
PopMsg "对不起,该会员不存在"
end if
%>
<% ENd FUnction%>
|
 |
