📄 dns_admin.asp
字号:
rs.open("select * from [domain] where id="&id),conn,1,1
%>
<form name="form4" method="post" action="dns_admin.asp?sel=13">
<table width="400" border="1" align="center" cellpadding="4" cellspacing="0" class="table-line">
<tr align="center" class="td-title-color">
<td colspan="2"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="shadow">域名广告管理</td>
</tr>
</table></td>
</tr>
<tr>
<td>域 名：</td>
<td>
<input type="text" name="domain" value="<%=rs("domain")%>" readonly><input type="hidden" name="id" value="<%=rs("id")%>">
</td>
</tr>
<tr>
<td>窗口高度：</td>
<td>
<input type="text" name="height" value="<%=rs("height")%>" size="10" maxlength="3">
</td>
</tr>
<tr>
<td>窗口宽度：</td>
<td>
<input type="text" name="width" value="<%=rs("width")%>" size="10" maxlength="3">
</td>
</tr>
<tr>
<td>广告链接：</td>
<td>
<input type="text" name="url" value="<%=rs("url")%>">
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="submit" name="Submit6" value="提交">
<input type="button" name="Submit22" value="按钮">
</td>
</tr>
</table>
<center>[<a href="javascript:history.go(-1)">返回</a>]</center>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
case 13
chk_admin_login(2)
id=Request.Form ("id")
domain=Request.Form ("domain")
height=Request.Form ("height")
width=Request.Form ("width")
url=Request.Form ("url")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.Open connstr
rs.open ("select * from [domain] where id="&id),conn,1,3
if rs.bof or rs.eof then
rs.close
set rs=nothing
conn.close
set conn=nothing
msg="找不到此记录！"
call initerr()
Response.End
end if
rs("height")=height
rs("width")=width
rs("url")=url
rs.update
rs.close
domain_info=""
rs.Open ("select [domain],[ad],[height],[width],[url] from [domain] order by [top] desc"),conn,1,1
do while not (rs.bof or rs.eof)
domain_info=domain_info&rs(0)&"|"&rs(1)&"|"&rs(2)&"|"&rs(3)&"|"&rs(4)&"|"
rs.movenext
loop
Application("domain_info")=domain_info
rs.close
set rs=nothing
conn.close
set conn=nothing
msg="恭喜您成功修改记录！"
Response.Write "<script language=JavaScript>{alert('"&msg&"');this.location.href='dns_admin.asp?sel=3';}</script>"
case 14
sql="select * from [user] order by regdate"
if request("sname")<>"" then
sql="select * from [user] where username like '%"& request("sname") &"%' order by regdate"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<br><br><center>所有用户列表为空！</center>"
response.end
end if
%>
<table width="95%" border="1" align="center" cellpadding="4" cellspacing="0" class="table-line">
<tr class="td-title-color">
<td colspan="9" align="center"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="shadow">二级域名用户管理</td>
</tr>
</table></td>
</tr>
<form method="post" action="">
<tr>
<td colspan="7">搜索：用户名
<input name="sname" type="text" size="12">
<input name="submit" type="submit" value="搜索"></td>
</tr>
</form>
<tr class="td-title-color">
<td align="center">I D</td>
<td>用 户</td>
<td>网 址</td>
<!--td align="center"><a href="dns_admin.asp?sel=14&order=2">计 数</a></td-->
<td align="center">邮 箱</td>
<td align="center">注册时间</td>
<td align="center">最后IP</td>
<td align="center"> 编 辑</td>
</tr>
<%
rs.pagesize=20
page=request("page")
if page="" then
page=1
end if
rs.absoluteposition=rs.recordcount-(page-1)*rs.pagesize
for ipag=1 to rs.pagesize
%>
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td align="center"><%=rs("userid")%></td>
<td><%=rs("username")%></td>
<td><a href=http://<%=rs("username")&"."&rs("seldomain")%> target=_blank><%=rs("username")&"."&rs("seldomain")%></a></td>
<td><a href="mail_send.asp?toemail=<%=rs("email")%>" title="给<%=rs("username")%>发送邮件"><%=rs("email")%></a></td>
<td align="center" ><%=rs("regdate")%></td>
<td align="center"><%=rs("loginip")%></td>
<td align="center"><a href="#" onclick="javascript:window.open('dns_admin.asp?sel=19&id=<%=rs("userid")%>', 'domainmsg', 'width=450,height=270 scrollbars=auto')">编
辑</a></td>
</tr>
<%
rs.moveprevious
if rs.bof Then exit for
next
%>
</table>
<table width="95%" border="0" cellspacing="0" cellpadding="4" align="center">
<tr align="CENTER" valign="BOTTOM">
<td width="33%"> 共 <%=rs.recordcount%> 条记录 第 <%=page%>/<%=rs.pagecount%> 页 </td>
<td width="14%"><a href="?sname=<%=request("sname")%>">首页</a></td>
<td width="22%"><%if page<>1 then%>
<a href="?page=<%=page-1%>&sname=<%=request("sname")%>">上一页</a>
<%else%>
<font color="#999999">上一页</font>
<%end if%></td>
<td width="14%"><%
rs.absolutepage=page+1
if not rs.EOF then
%>
<a href="?page=<%=page+1%>&sname=<%=request("sname")%>">下一页</a>
<%else%>
<font color="#999999">下一页</font>
<%end if%>
</td>
<td width="17%"><a href="?page=<%=rs.pagecount%>&sname=<%=request("sname")%>">尾页</a></td>
</tr>
</table>
<center>[<a href="javascript:history.go(-1)">返回</a>]</center>
<%
case 19
chk_admin_login(2)
Response.Write("<script language=JavaScript>window.moveTo(window.screen.width/2-225,window.screen.height/2-280);</script>")
id=Request.QueryString ("id")
if id="" then
Response.Write "<script LANGUAGE=JavaScript>if(window!=window.top){top.location.href=location.href;}window.close();</script>"
Response.End
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.Open connstr
rs.open("select * from [user] where userid="&id),conn,1,1
if rs.bof or rs.eof then
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Write "<script LANGUAGE=JavaScript>if(window!=window.top){top.location.href=location.href;}window.close();</script>"
Response.End
end if
%>
<form name="form7" method="post" action="dns_admin.asp?sel=20">
<table width="95%" border="1" align="center" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF" class="table-line">
<tr align="center" class="td-title-color">
<td colspan="2"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="shadow">用户信息</td>
</tr>
</table></td>
</tr>
<tr>
<td>账号</td>
<td><%=rs("username")%> </td>
</tr>
<tr>
<td>网址</td>
<td><a href=http://<%=rs("username")&"."&rs("seldomain")%> target=_blank>http://<%=rs("username")&"."&rs("seldomain")%></a> </td>
</tr>
<tr>
<td>真实网址</td>
<td><a href=http://<%=rs("url")%> target=_blank>http://</a>
<input name="url" type="text" id="url" value="<%=rs("url")%>"></td>
</tr>
<tr>
<td>注册时间</td>
<td><%=rs("regdate")%> </td>
</tr>
<tr>
<td>最后访问时间</td>
<td><%=rs("logindate")%> </td>
</tr>
<tr>
<td>是否隐藏真实URL</td>
<td><select name="hidden" class="input">
<option value="1" <%if rs("hidden")="1" then Response.Write " selected"%>>是</option>
<option value="0" <%if rs("hidden")="0" then Response.Write " selected"%>>否</option>
</select></td>
</tr>
<tr>
<td>0-默认设置<br>
1-弹出广告<br>
2-禁用账号</td>
<td>
<input type="text" name="ad" size="2" maxlength="2" value='<%=rs("ad")%>'>
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="hidden" name=id value='<%=rs("userid")%>'>
<input type="submit" name="Submit7" value="提交">
<input type="button" name="Submit9" value="关闭" onclick=javascript:window.close();>
</td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
case 20
chk_admin_login(2)
id=Request.Form("id")
ad=Request.Form("ad")
url=Request.Form("url")
hidden=Request.Form("hidden")
if id="" then
Response.Write "<script>window.close();</script>"
Response.End
end if
if ad="" or ad<0 or ad>2 then ad=0
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.Open connstr
conn.execute("update [user] set [ad] = '"&ad&"',[url]='"&url&"',[hidden]='"&hidden&"' where userid="&id)
conn.close
set conn=nothing
Response.Redirect Request.ServerVariables("HTTP_REFERER")
end select
sub initerr()
Response.Write "<script language=JavaScript>{alert('"&msg&"');parent.history.go(-1);}</script>"
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -