📄 delnamevdong.asp
字号:
<!--#include file="conn.asp"-->
<%
sel=Request.QueryString ("sel")
if sel="" then sel=1
select case sel
case 1
Set rs = Server.CreateObject("ADODB.Recordset")
RS.open ("select domain from domain "),Conn,1
while not rs.eof
for i= 0 to rs.fields.count-1
msg=msg&"<option value="& rs.fields(i).value &">"&rs.fields(i).value&"</option>"
next
rs.movenext
wend
%>
<TITLE>中国洞穴网－－免费域名系统->帐号删除</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="img/sys.css">
</STYLE>
<HTML>
<HEAD>
</HEAD>
</td>
</tr>
</table>
<body topmargin="0" leftmargin="0">
<div align="center" style="width: 1006; height: 476">
<BR><form name="form1" method="post" action="delnamevdong.asp?sel=2">
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD>
</TD></TR>
<TR>
<TD>
<p align="center"> <table class=ttbb border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-style: dotted; border-width: 1" bordercolor="#111111" width="569" height="244">
<tr>
<td width="567" height="45" colspan="3" bgcolor="#FFFFFF" style="position:relative">
<div id="9126" style="position:absolute; left:0px; top:-31px; border-style:none;">
<img border="0" src="img/2hot.gif"></div>
</td>
</tr>
<tr>
<td width="567" height="24" bgcolor="#0374B8" colspan="3">
<script src=menu.js></script></td>
</tr>
<tr>
<td width="71" height="194" bgcolor="#66CCFF" valign=top rowspan="2">
<p align="center">
<img border="0" src="img/killuser.gif"></td>
<td class=en width=496 background="img/bg.gif" bgcolor=#66ccff
height=220 valign="top">
<p><font color=#ffffff size=4><b>账号注消:::::....</b></font> </p><p>HTTP://
<input type="text" name="username" size="12">.
<select name="seldomain"><%=msg%>
</select>密码：
<input type="text" name="password" size="10" maxlength="10"><input type="submit" name="Submit" value="提交"><br></p></td></tr><tr><td align=right bgcolor=#66ccff height=14><img height=20
src="img/bottomr.gif" width=20
border=0></td>
</tr>
</table>
</center>
</div>
<p align="center"><script src=bob.htm></script></p>
</BODY></HTML><%
case 2
username=trim(Request.Form ("username"))
password=Request.Form ("password")
seldomain=trim(Request.Form ("seldomain"))
username=CStr(Replace(username,chr(13)&chr(10),""))
if server.HTMLEncode(username)<>username or InStr(username,"【")<>0 or InStr(username,"】")<>0 or InStr(username," ")<>0 or InStr(username," ")<>0 or InStr(username,"⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -