📄 dnsreg.asp
字号:
<!--#include file="chkuser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="inc/user.asp"-->
<%
if rshost("domain")="False" then
response.redirect "error.asp?error=domain"
response.end
end if
if request("do")="yes" then
Set Rs=Server.CreateObject("ADODB.RecordSet")
username=Request.Form("username")
domainname=Request.Form("domainname")
hidden=Request.Form("hidden")
url=(Request.Form ("url"))
url=replace(url,"http://","")
rs.Open ("select * from [user] where username='"&username&"'"),conn,1,3
if not(rs.BOF or rs.EOF) then
rs("url")=url
rs("hidden")=hidden
rs("seldomain")=domainname
rs.update
end if
rs.Close
set rs=nothing
conn.Close
%>
</html>
<head>
<title></title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#F6ECE2" leftmargin="0" topmargin="0">
<table width="100%" height="70%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><fieldset style="padding: 2; width:200; height:120">
<legend><strong>二级域名</strong></legend>
<table width="450" border=0 align="center" cellpadding=4 cellspacing=0 >
<form name="form1" method="post" action="?do=yes" onSubmit="return check()">
<tbody>
<tr>
<td colspan="2"><p><font size="4"><strong>操作成功</strong></font></p>
<p> 您可以使用以下网址访问您的网站</p>
<p> <a href="http://<%=username%>.<%=domainname%>" target="_blank">http://<%=username%>.<%=domainname%></a></p>
<p> <a href="dnsreg.asp">[返回]</a></p>
</td>
</tr>
</tbody>
</form>
</table>
</fieldset></td>
</tr>
</table>
</body>
</html>
<%
else
%>
<%
set rsym1=Server.CreateObject("ADODB.RecordSet")
sqlym1="select * from domain"
rsym1.open sqlym1,conn,1,1
set rsdns=Server.CreateObject("ADODB.RecordSet")
sqldns="select * from [user] where username='"&Request.Cookies("username")&"'"
rsdns.open sqldns,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="css/style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function check()
{
document.form1.submit.value='请稍候...'
document.form1.submit.disabled=true;
}
</script>
</head>
<BODY bgcolor="#F6ECE2">
<table width="100%" height="70%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><fieldset style="padding: 2; width:200; height:120">
<legend><strong>二级域名管理</strong></legend>
<table width="450" border=0 align="center" cellpadding=4 cellspacing=0 >
<form name="form1" method="post" action="?do=yes" onSubmit="return check()">
<tbody>
<tr>
<td width="70">绑定域名：</td>
<td width="364"><font face="Arial">http://<%=Request.Cookies("username")%><input type="hidden" name="username" value="<%=Request.Cookies("username")%>"> <b>.</b> </font><select name="domainname" class="input">
<%do while not rsym1.eof%>
<option value=<%=rsym1("domain")%> <%if rsdns("seldomain")=rsym1("domain") then Response.Write " selected"%>><%=rsym1("domain")%></option>
<%rsym1.movenext
loop
rsym1.close
set rsym1=nothing
%>
</select></td>
</tr>
<tr>
<td>转向地址：</td>
<td> <font face="Arial"><a href="<%=rshost("userurl")%>/<%=Request.Cookies("username")%>" target="_blank"><%=rshost("userurl")%>/<%=Request.Cookies("username")%></a></font>
<input type="hidden" value="<%=rshost("userurl")%>/<%=Request.Cookies("username")%>" name="url">
<select name="hidden" class="input">
<option value="1" <%if rsdns("hidden")="1" then Response.Write " selected"%>>是</option>
<option value="0" <%if rsdns("hidden")="0" then Response.Write " selected"%>>否</option>
</select>是否隐藏真实URL？</td>
</tr>
<tr align="center">
<td colspan="2"><input name="submit" type="submit" class="button" value="确 定">
</td>
</tr>
</tbody>
</form>
</table>
</fieldset></td>
</tr>
</table>
</BODY></HTML>
<%
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -