📄 modify.asp
字号:
<!--#include file="conn.asp"-->
<%
sel=Request("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="modify.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 valign=top width=71 bgcolor=#66ccff height=194 rowspan=2><p align=center><img height=234 src="img/modify.gif" width=52
border=0></p>
</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="domainname"><%=msg%>
</select>密码：
<input type="password" 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></tbody></table></form></CENTER></DIV><%
case 2
username=Request.Form ("username")
password=Request.Form ("password")
domainname=Request.Form ("domainname")
if username="" or password="" then Response.Redirect "modify.asp"
username=CStr(Replace(username,chr(13)&chr(10),""))
password=CStr(Replace(password,chr(13)&chr(10),""))
domainname=CStr(Replace(domainname,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 + -