📄 user.asp
字号:
<!--#include file="conn.asp"-->
<%
if session ("WinMyDNSUserName")="" then
response.redirect "index.asp"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WinMyDNS管理</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.table1 {
border-bottom-width: 1px;
border-bottom-style: dashed;
border-bottom-color: #666666;
}
-->
</style>
</head>
<body>
<table width="630" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/iis_02.gif" width="630" height="137" alt=""></td>
</tr>
</table>
<table width="630" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="21" height="512" valign="bottom" background="images/iis_04.gif"><p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</td>
<td valign="top" bgcolor="#FFFFFF">
<!--#include file="menu.asp"-->
<!--中间部分开始-->
<br><br>
<%
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"
sql ="update userlist set password='"&SafeRequest("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)
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
%>
<img src='images/dotdb.gif' width='10' height='10'>
共计 <%=rs.recordcount%> 条记录<br><br>
<table width="100%" border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td bgcolor="#AAE3FF" colspan="10"><span class="style1">会员管理
<%if session("WinMyDNSIsAdmin")="Y" then %>-[<a href="reg.asp" target="_blank"><font color="#ff0000">添加会员</font></a>]</span>
<%end if%></td></tr>
<%if session("WinMyDNSIsAdmin")="Y" then %>
<tr>
<td >
<form method="POST" action="USER.asp">
会员名:<input type="Text" size="20" name="sdomain" value="<%=sdomain%>">
每页<input type="text" name="PageSize" size="3" value="<%=PageSize%>" >条记录 <input type='submit' value='搜索符合条件的记录' name='B1'></b></td></form> </tr>
<%end if%>
</table>
<table width="100%" border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td>序号</td><td>会员名</td>
<td>姓名</td>
<td>权限</td>
<td>DNS区域名数</td>
<td>域名记录数</td>
<td>注册时间</td>
<td>审核</td>
<td>管理</td></tr>
<%
i=1
do while not rs.eof %>
<tr><td><%=i+(pagecount-1)*PageSize%></td>
<td><%=rs("username")%></td>
<td><%=rs("realname")%></td>
<td><%if rs("isadmin")="Y" then
response.write "<font color='#ff0000'>管理员</font>"
else
response.write " "
end if%></td>
<td><%=rs("soanum")%></td>
<td><%=rs("rrnum")%></td>
<td><%=rs("regtime")%> </td>
<td><%
if rs("verify")="N" then
response.write "<font color='#ff0000'>未审核</font>"
else
response.write "已审核"
end if%> </td>
<td><a href="USER.asp?act=edit_pre&ID=<%=rs("ID")%>">管理</a></td>
</tr>
</form>
<% i=i+1
rs.movenext
if i>rs.PageSize then exit do
loop
%>
</table>
<%
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
%>
<form method="post" action="<%=URL%>">
<%=pagecount%>/<%=rs.pagecount%>
<%if cint(pagecount) > 1 then%>
<A HREF=<%=URL%>&page=<%=(cint(pagecount)-1)%>>〖上一页〗</a>
<%else%>
〖上一页〗
<%end if%>
<%if cint(pagecount) < rs.pagecount then%>
<A HREF=<%=URL%>&page=<%=(cint(pagecount)+1)%>>〖下一页〗</a>
<%else%>
〖下一页〗
<%end if%>
转到第
<select name="page">
<%
i=1
do while i<rs.pagecount+1 %>
<%if i<> pagecount then%>
<option value="<%=i%>"><%=i%></option>
<%else%>
<option selected value="<%=i%>"><%=i%></option>
<%end if%>
<%i=i+1%>
<%loop%>
</select>页
<input type="Submit" value="确定">
</form>
<%
end if
end sub
'查询A记录
Function Edit_pre()
ID=SafeRequest("ID")
%>
<script language='JavaScript' >
<!--
function check_input()
{
newuserreg=document.dnsform;
if(newuserreg.password.value=='')
{
alert('密码不能为空');
newuserreg.password.focus();
return false;
}
if(newuserreg.realname.value=='')
{
alert('姓名不能为空');
newuserreg.realname.focus();
return false;
}
if(newuserreg.tel.value=='')
{
alert('电话不能为空');
newuserreg.tel.focus();
return false;
}
if(newuserreg.address.value=='')
{
alert('地址不能为空');
newuserreg.address.focus();
return false;
}
if(newuserreg.postcode.value=='')
{
alert('邮编不能为空');
newuserreg.postcode.focus();
return false;
}
if(newuserreg.email.value=='')
{
alert('email邮箱不能为空');
newuserreg.email.focus();
return false;
}
}
//-->
</script>
<table width="98%" border="1" cellpadding="4" cellspacing="0" bordercolor="#AAE3FF">
<tr><td bgcolor="#AAE3FF" colspan="10">会员管理
<%if session("WinMyDNSIsAdmin")="Y" then %>-[<a href="USER.asp?act=del&ID=<%=ID%>" onclick="return window.confirm('该操作结果不可恢复,你确实要删除该会员吗?')"><font color="#ff0000">删除会员</font></a>]-[<a href="USER.asp?act=delall&ID=<%=ID%>" onclick="return window.confirm('该操作结果不可恢复,你确实要删除该会员及他的所有域名解析吗?')"><font color="#ff0000">删除会员及其所有的DNS解析</font></a>]
<%end if%></td></tr>
<%
i = 0
set rs=conn.execute("select * from userlist where ID="&ID )
if rs.eof then
PopMsg "对不起,该会员不存在"
end if
%>
<form action="USER.asp" name="dnsform" onsubmit='return check_input()'>
<input name="act" type="Hidden" value="edit">
<input name="ID" type="Hidden" value="<%=ID%>">
<tr>
<td>会员名</td>
<td> <%=rs("username")%></td>
</tr>
<tr>
<tr><td>密码 </td>
<td><input type="Password" name="password" value="<%=rs("password")%>" size="20" maxlength="125"> </td>
</tr>
<tr><td>姓名 <font color="#ff0000">*</font></td>
<td><input type="Text" name="realname" value="<%=rs("realname")%>" size="20" maxlength="125"></td>
</tr>
<tr><td>电话 <font color="#ff0000">*</font></td>
<td><input type="Text" name="tel" value="<%=rs("tel")%>" size="20" maxlength="125"></td>
</tr>
<tr><td>地址 <font color="#ff0000">*</font></td>
<td><input type="Text" name="address" value="<%=rs("address")%>" size="50" maxlength="125"></td>
</tr>
<tr><td>邮编 <font color="#ff0000">*</font></td>
<td><input type="Text" name="postcode" value="<%=rs("postcode")%>" size="20" maxlength="125"></td>
</tr>
<tr><td>email <font color="#ff0000">*</font></td>
<td><input type="Text" name="email" value="<%=rs("email")%>" size="20" maxlength="125"></td>
</tr>
<tr><td>MSN</td>
<td><input type="Text" name="MSN" value="<%=rs("MSN")%>" size="20" maxlength="125"></td>
</tr>
<tr><td>QQ</td>
<td><input type="Text" name="QQ" value="<%=rs("icq")%>" size="20" maxlength="125"></td>
</tr>
<%if session("WinMyDNSIsAdmin")="Y" then %>
<tr><td>权限</td>
<td>
<select name="isadmin">
<option value="N">普通会员</option>
<option value="Y"<%if rs("isadmin")="Y" then response.write "selected" %>>管理员</option>
</select>
</td>
</tr>
<tr><td>域名数</td>
<td><input type="Text" name="soanum" value="<%=rs("soanum")%>" size="20" maxlength="125"></td>
</tr>
<tr><td>记录数</td>
<td><input type="Text" name="rrnum" value="<%=rs("rrnum")%>" size="20" maxlength="125"></td>
</tr>
<tr><td>审核</td>
<td>
<select name="verify">
<option value="Y">已审核</option>
<option value="N"<%if rs("verify")="N" then response.write "selected" %>>未审核</option>
</select>
</td>
</tr>
<%end if%>
<tr><td colspan="2" align="center"><input type="Submit" value="确认修改"></td>
</tr>
</form>
</table>
<% ENd FUnction%>
<!--中间部分结束-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30"> </td>
</tr>
</table></td>
<td width="32" background="images/iis_06.gif"> </td>
</tr>
</table>
<table width="630" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="21"><img src="images/iis_51.gif" width="21" height="15" alt=""></td>
<td background="images/iis_52.gif"> </td>
<td width="30"><img src="images/iis_54.gif" width="21" height="15" alt=""></td>
</tr>
</table>
<br><br><br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -