jujuchen的专栏

原创 asp 连接非1433 mssql

connstr = "DRIVER=SQL Server; SERVER=tcp:127.0.0.1,1633; UID=sa; password=12345;DATABASE=webexam;" set conn = Server.CreateObject("ADODB.Connection")conn.open connstr  

原创 如何控制Yahoo! Slurp蜘蛛的抓取频度

上周末豆瓣的阿北给我电话：最近你们雅虎的蜘蛛（Yahoo! Slurp）对豆瓣网的抓取频度非常高，导致服务器的速度有些慢，如何才能让Slurp降低抓取频度呢？我首先想到的建议是在网站的robots.txt中增加Crawl-delay: 设置，这个设置是目前Slurp独有的，用来告诉Slurp蜘蛛2次访问之间的间隔，单位是秒。剩下的问题就是Crawl-delay的值该设置多大，这个要看网站自

原创 本人收集的蜘蛛IP

Baidu:     Baiduspider+(+http://www.baidu.com/search/spider.htm)Yahoo:    Mozilla/5.0 (compatible; Yahoo! Slurp China; http://misc.yahoo.com.cn/help.html)Google:   Mozilla/5.0 (compatible; Googlebot/2

原创 常见的“蜘蛛和机器人”

由于IP的D段蜘蛛占用比较多，所以用*替代，并不是所有D段都是蜘蛛的IP－－－－－－－－－－－－－百度－－－－－－－－－－－－－61.135.145.*61.135.146.*159.226.50.*202.108.11.*202.108.22.*202.108.23.*202.108.249.*202.108.250.*220.181.19.*－－－－－－－－－－－－－雅虎中国－－－－－－－－－

原创 TD边框

原创 SQl技巧

显示星期几select datename(weekday,getdate()) 判断是否闰年：　 SELECT case day(dateadd(mm, 2, dateadd(ms,-3,DATEADD(yy, DATEDIFF(yy,0,getdate()), 0)))) when 28 then 平年 else 闰年 end 　　或者 　　select case d

原创 40种网页常用小技巧

1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键no 可用于Table2. 取消选取、防止复制3. onpaste="return false" 不准粘贴4. oncopy="return false;" oncut="return false;" 防止复制5. IE地址栏前换成自己的图标6. 可以在收

原创 ajax 脚本

http://download1.csdn.net/down3/20070613/13105633987.rar 

原创 vb.net后台http下载无提示覆盖文件

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Dim url As String        url = "http://localhost/system.dll"        Dim path As Stri

原创 browse

http://download1.csdn.net/down3/20070608/08233049513.rar 

原创 tcp通讯CS端

clienthttp://download1.csdn.net/down3/20070607/07094316678.exe serverhttp://download1.csdn.net/down3/20070607/07094340976.exe源代码http://download1.csdn.net/down3/20070607/07094411221.rar

原创 winbox

 http://download1.csdn.net/down3/20070607/07085042738.exe 

原创 ICO图标

http://download1.csdn.net/down3/20070606/06120550846.rar 

原创 在vb.net中实现窗体上回车键代替TAB键

 在vb.net中实现窗体上回车键代替TAB键，用如下方法：首先设置窗体的 KeyPreview  属性为true然后加入以下代码：Private Sub FrmLogin_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPre

原创 用Socket类构建网页下载器

开发工具：Microsoft Visual Studio .NET 2003　　 操作系统：Windows XP　　　　　　　　　　　　　　　什么时候用到Socket类　　 Microsoft.Net Framework为应用程序访问Internet提供了分层的、可扩展的以及受管辖的网络服务，其名字空间System.Net和System.Net.Sockets包含丰富的类可以开发多种网络应用程

原创 线程的实现

1．1．1 创建和使用线程用户可以通过声明一个变量类型System.Threading来建立一个新的线程。并且还提供了一个AddressOf操作和一个用户想运行的过程或方法。例如：       Dim mythread as New System.Threading.Thread(AddressOf MySub)       用户可以使用”Start”方法来开始一个线程，例如Threa

原创 如何获得并显示网上图片

在VB.net中，显示图片很简单： PictureBox1.Image=Image.FromFile(FileName) 但是这种办法不能用于显示Internet上的图片，因为Image.FromFile不支持URI格式。那么怎么办呢？ 其实 .net 为我们准备了一套很方便的方法。在.net中，网上的资源（图片，动画，声音，网页等等）是通过System.Net.WebRequest 和 Syst

原创 Asp.NET常用函数

Ucase(string) 将字符串转换为大写。 Val(string) 将代表数字的字符串转换为数值型态，若字符串中含有非数字的内容则会将其去除后，合并为一数字。 Weekday(date) 取的参数中的日期是一个星期的第几天，星期天为1、星期一为2、星期二为3 依此类推。 WeekDayName(number) 依接收的参数取得星期的名称，可接收的参数为1 到7，星期天为1、星期一为2、星期二

原创 一个功能齐全的DataGrid分页例子

 下面的这个例子提供了DataGrid的分页功能。aspx代码和Cohe Behind代码分别如下，注意更改数据录连接字符串。结果如下：C#版本 例子DataGridPaging.aspx<%@ Page language="c#" EnableViewState = "true" Codebehind="DataGridPaging.aspx.cs"AutoEventWi

原创 将人民币的数字表示转化成大写表示

 将人民币的数字表示转化成大写表示(VB.NET版) 本代码参考chenyu001 将人民币的数字表示转化成大写表示(C#版) http://dev.csdn.net/article/28/28977.shtm改的不多,但愿这些改动没让原作者发怒Public Class ChineseNum    输入字串    Private _InputString

原创 页面执行时间

以往在网上看到计算页面执行时间的程序，大部分都是使用C＃来实现，方法类型基本相似。而且其中大部分都是记录开始和结束时间，最后定义一个TimeSpan来计算时间差，但是在写代码的时候都是EndTime - StartTime，我没有试验这样是否可行，但是在VB.Net里面不行，因为时间变量不能使用“－”来进行计算。所以我使用了另外的函数，如下：在Global文件中添加如下代码：    Public

原创 通过WMI获得硬件信息

        Dim MYIP As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)        MsgBox("您的IP地址：" & MYIP.AddressList.GetValue(0).ToString)        MsgBox("您的计算机全名：" & MYI

原创 VB.NET轻松实现任务栏程序

 1.启动 .NET 环境, 新建一个 VB.NET的WINDOWS应用程序2.在窗体上添加一个 NotifyIcon 控件 , 指定一个相应的图标文件, 实例如图:3. 添加一个 CONTEXTMENU , 将 NotifyIcon 的 CONTEXTMENU 指定为这个CONTEXTMENU4. 给 CONTEXTMENU 添加两个子菜单, 分别为 “显示界面” 和 “退出”, 如图:

原创 使用UDP发送和接收消息

 Imports System.NetImports System.ThreadingImports System.TextImports System.Net.Sockets Module Module1     Dim PortNumber As Integer = 1984    侦听端口号    Dim Cmd As String = "Chat:" 

原创 在VB.NET里操作文本文件

  在.NET里的System.IO.File和System.IO.FileInfo里的OpenText和AppenText等几个方法都是使用UTF-8编码操作文件的.这就导致如果操作不是使用UTF-8编码编写的文件时将会出现乱码现象!!!解决方法就是对文本文件使用字节流操作,即不使用.NET里提供的OpenText和AppenText等几个方法,而是将文本当成二进制文件来操作,并且在操作时使

原创 VB.NET窗口渐淡关闭

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.ClosingIf MsgBox("請注意看關閉的視窗", MsgBoxStyle.Question + MsgBoxStyle.OKCancel, "關閉") = Ms

原创 VB.NET实现关机和重新启动

 Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReserved As Integer) As IntegerConst EWX_FORCE As Short = 4Const EWX_LOGOFF As Short = 0Const EWX_REBOOT

原创 VB.NET 获取磁盘信息

磁盘信息实例说明在本程序中，我们将生成一个能够得到当前磁盘信息的应用程序，跟右键点击磁盘“属性”得到的结果相似。运行后，选择磁盘后，可以得到当前磁盘的序列号、卷标、文件类型、已用空间、未用空间、磁盘容量等信息技术要点l         判断驱动器类型l         取得磁盘的相关信息l         取得磁盘的使用空间、总空间实现过程■       新建项目

原创 VB.NET与WEB服务器通讯

 WebRequest 和 WebResponse是两种我们访问Internet常用的类，严格说，WebRequest是一个抽象基类，我们一般用它的衍生类HttpWebRequest 以及 FileWebRequest，FTP的访问需要手动注册，具体看后面的插入协议。从逻辑角度上讲，Net classes 包含三个层：请求/响应层、应用协议层和传输层，依次展开，从应用程序到网络。WebRe

原创 一个登录窗体的完整范例，包括登录，密码更改，输入错误三次退出

 [一个登录窗体的完整范例，包括登录，密码更改，输入错误三次退出] 2004-12-31 运行效果如下：（请参考设置窗体布局）                （登录主窗体效果）                          （修改密码窗体效果）控件名称说明：‘cboUser就是图中的combobox控件  Public Class frmLogin    I

原创 防止同一个程序多次运行

 Function   IsSingleInstance()   As   Boolean                         If   UBound(Diagnostics.Process.GetProcessesByName(   _                       Diagnostics.Process.GetCurrentProcess.ProcessName))

原创 VB.NET中使用FTP下载文件的两种方法

 .net没有专门处理FTP的类，我们可以通过调用系统自带的FTP.EXE 或者是调用win32 API中的wininet.dll来完成基本操作。希望以下的代码能为大家抛砖引玉。方法一： 使用Ftp.exe ，通过process类来调用它。Imports System.Diagnostics...  Public Sub GetFileByCallFtp()      

原创 VB.NET里最方面的XP风格解决方案

 将以下代码添加到InitializeComponent()之后On Error Resume Next        Dim y As Integer        Dim AppName As String        Dim ManFileName As String        Dim FullAppExeNameAndPath As String        FullApp

原创 如何让自己的应用程序,控制台程序,windows 服务收到操作系统注销或者重启的消息

 对于windows form的应用程序, 操作系统其实在注销或者关闭的时候,会发一个WM_QueryEndSession的消息给每一个窗体,每一个窗体有一个表决的机会,返回是否退出.这个跟form 的closing 时间一样. 一旦有一个程序返回false,那么这个注销动作就取消了.默认.net 写的windows 应用程序都是表决true,就是系统注销的时候,程序自动退出. 所以你要相应系

原创 vb.net中windows服务的创建

 无论windows服务执行什么样的处理,创建与安装服务的步骤都十分相似.visual studio提供了windows services项目类型,利用它可以迅速创建windows服务,一下介绍简单的步骤:1)新建项目,在new project对话框中,选择windows服务图标,在对话框name字段输入服务名称,确定.visual studio将显示服务的设计视图.2)在服务属性里面

原创 [VB.NET+XML]完成简单程序配置

xml version="1.0" encoding="utf-8" ?> 2  config>3  Function Name="a" Checked="false" /> 4  Function Name="b" Checked="false" /> 5  Function Name="c" Checked="false" /> 6  Function Name="d" Checked="fa

原创 轻松制作特效窗体

窗体是Windows应用程序的基础。新一代的开发工具Visual Basic.Net为设计制作窗体提供了更多简单而丰富的方法，无需再求助于复杂而易错的API函数，我们就可以轻松制作多种特效窗体：1 、轻松制作透明窗体VB.NET可以轻松制作出任一透明度的窗体：我们只要在窗体的“属性”窗口中，将 Opacity 属性设置为一个介于 0.0（完全透明）与 1.0（完全不透明）之间的值就可以了：

原创 asp.net中cookie的使用

在asp.net中cookie的用法与asp中是有一些不一样的.开始我用asp中的用法,老是出错.试了多次后,才发现应该在asp.net中应该这样用.       首先,要定义一个 HttpCookie        Dim  acookie As New HttpCookie("amtek")       然后可以向其中的添加一个名为"name"的项,值为"itone"       ac

原创 VB.NET里的MD5加密函数

   Imports System.Security.Cryptography Public Function Md5hash_String(ByVal InputString As String) As String        Dim code, MD5        Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).G

原创 调用windows系统常用功能

  我们在开始→运行下输入CMD.EXE进入CMD的环境下，输入命令：calc 时，系统立即显示出在附件下的计算器的运用程序。大家是否想过，怎样通过程序控制的方式，来达到同样的目的呢？下面我们通过编程的方式，用VBNET创建这样一个简单的运用程序。其实非常的简单，大家只要依照参考以下的说明马上就可以学会。我们通过进入VSNET编程环境，建立一个VBNET的windows运用