📄 index.asp
字号:
<%@ Language=VBScript %>
<%
Response.Buffer=true
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../reg/images/css.css" type="text/css">
<body bgcolor="#FFFFFF">
<%
sel=Request.QueryString ("sel")
if sel="" then sel=1
if sel>3 then
if session("admin_login")="" then
msg="您未登陆或系统超时！请返回重新登陆！"
Response.Write "<script language=JavaScript>{alert('"&msg&"');this.location.href='index.asp';}</script>"
Response.End
end if
end if
connstr=Application("domain_database")
select case sel
case 1
%>
<form name="form1" method="post" action="index.asp?sel=2">
<table width="400" border="1" align="center" cellpadding="4" cellspacing="0" style="border-collapse: collapse">
<tr align="center" bgcolor="#FF9933">
<td colspan="3"><font color="#FFFFFF"><>信阳在线免费二级域名管理系统1.0测试版<></font></td>
</tr>
<tr>
<td>超管账号：</td>
<td>
<input type="text" name="username" size="10" maxlength="10">
</td>
<td>请填入您的账号</td>
</tr>
<tr>
<td>超管密码：</td>
<td>
<input type="password" name="password" size="10" maxlength="10">
</td>
<td>请填入您的密码</td>
</tr>
<tr align="center">
<td colspan="3">
<input type="submit" name="Submit" value="提交">
<input type="button" name="Submit2" value="按钮">
</td>
</tr>
</table>
</form>
<%
case 2
username=trim(Request.Form ("username"))
password=trim(Request.Form ("password"))
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 + -