预览模式: 普通 | 列表

ASP查询PR值源码程序

作者:记忆 日期:2010-02-09

本人已经测试能用，效果非常快

<%@LANGUAGE="JAVASCRIPT"%>
<form name="zzsky" method="get" action="">
<input type="text" name="site">
<input type="submit" name="submit" value="查询">
</form>
<%
function hexdec(str)
{
return parseInt(str,16);
}
function zeroFill(a,b)

查看更多...

分类:我的日志 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 12

Access数据库在线压缩的实现方法

作者:记忆 日期:2010-02-08

　　如果在 Access 数据库中删除数据或对象，或者在 Access 项目中删除对象，Access 数据库或 Access 项目可能会产生碎片并会降低磁盘空间的使用效率。压缩 Access 数据库或Access项目实际上是复制该文件，并重新组织文件在磁盘上的存储方式。压缩同时优化了 Access 数据库和 Access 项目的性能。

　　所以我们在对日益增大的数据库导致的ASP程序慢得无法忍受的时候，就想到了要压缩他。但常规的做法把他下载到本地然后用MSaccess来完成压缩操作，然后再上传！

　　需要注意的是：本程序其实是通过FSO权限和JET引擎连接，因此在使用之前请确认你的服务器支持FSO（filesystemobject)权限并安装的ACCESS最新驱动！从安全出发，请在压缩之前备份原始数据库！已经测试通过的运行环境：

　　WIN98SE+PWS、WIN2000+IIS5.0

　　下面是我整理后的源代码，复制另存为compact.asp并上传到数据库所在目录即可正常使用。

<html>
<head>
<title>ACCESS数据库压缩程序</title>

查看更多...

分类:我的日志 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 10

泡泡堂彩色字（不是喇叭）

作者:记忆 日期:2010-02-07

引用内容 引用内容
<font color=green>绿</font>
<font color=blue>蓝</font>
<font color=red>红</font>
<font color=black>黑</font>
<font color=purple>深灰</font>

中间的字随便你打什么，暂时我只知道这几种颜色

查看更多...

分类:我的日志 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 17

《阿凡达》DVD高清迅雷下载地址 [网络最清晰的版本]

作者:记忆 日期:2010-02-06

详情进进入查看 很多朋友要 共享一下。

查看更多...

Tags: 视频

分类:我的日志 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 77

升级TP-Link 402家用路由器实现IP带宽限制

作者:记忆 日期:2010-02-06

TL-R402  产品型号(Model No.)：TL-R402系列

　　如果家里有几台电脑通过路由器实现共享上网，那么有时候很苦恼，有些人常常喜欢用PPLIVE、QVOD等P2P播放器收看电影或者泡沫剧。像我，就很厌恶别人如此，你可以在深夜通宵、别人睡觉的时候下载好电影，隔日再看。我常常需要找些资料，网页是网络生活的极大部分，所以，我不能容忍的就是网页打开巨慢，于是…我开始使用P2P终结者，杯具的是，P2P终结者常常会让我自己无故断网，也常常能让别人无故断网，这样虽然能达到限制带宽的效果，但是实际效果不理想。

很多路由器是具有IP带宽限制功能的，但是家用的路由器，比如低档的TP-LINK 402+/402/402m没有这个功能。不过TP-LINK官方放出了新的固件，增加了IP带宽限制功能~
固件下载地址如下：


升级说明下载的压缩包里面有，很详细！我就不重复累赘了~不过我要说明的是：
升级的过程中，需要在WIN XP下进行。可能是我人品不好，windows7下升级总是出错，似乎是tftp没有传完。而且在win7下使用压缩包自带的tftpd32总是有错，无法建立tftp服务器。如果你在XP下也不能使用的话，去xdowns下载一个汉化版，应该可以用。

升级完成就能在192.168.1.1页面中看到IP带宽限制了，具体设置一目了然，我就不说明了。本人实际测试的情况非常好

查看更多...

分类:我的日志 | 固定链接 | 评论: 2 | 引用: 0 | 查看次数: 34

ASP用户登录模块的设计

作者:记忆 日期:2010-02-06

用户登录验证脚本,Chkpwd.asp

ASP/Visual Basic代码
  1. <%    
  2. '=======用户登录验证脚本=======    
  3. '如果尚未定义Passed对象,则将其定义为false,表示没有通过验证    
  4. If IsEmpty(Session("Passed")) Then    
  5. Session("Passed")=false    
  6. End If    
  7.   
  8. 'Session("Passed")=False,表示尚未通过验证,则开始读取从表单传来的验证信息    
  9. If Session("Passed")=False Then    
  10. UserName=Request.Form("UserName")    
  11. UserPwd=Request.Form("UserPwd")    
  12.   
  13. If UserName="" Then    
  14. Errmsg="提示:请输入用户名和密码"    
  15. Else    
  16. '===================连接数据库=====================    
  17. Set Conn= Server.CreateObject("ADODB.Connection")    
  18. Conn.Connectionstring= "Driver={SQL Server};Server=192.168.1.3;UID=sa;PWD=;Database=zcmrs"    
  19. Conn.open    
  20. '===================从表log中读取用户数据=====================    
  21. '定义RecordSet对象    
  22. Set rs=Server.CreateObject("ADODB.Recordset")    

 

查看更多...

分类:我的日志 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 38