预览模式: 普通 | 列表

ASP查询PR值源码程序

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

<%@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数据库在线压缩的实现方法

  如果在 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

泡泡堂彩色字(不是喇叭)

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

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

查看更多...

分类:我的日志 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 17
详情进进入查看 很多朋友要 共享一下。

查看更多...

Tags: 视频

分类:我的日志 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 77
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用户登录模块的设计

用户登录验证脚本,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