<html>
<head>
<style>
body { font-size: 10pt; background-color:#D4D0C8 }
td { font-size: 9pt }
</style>
</head>
<script language="javascript">
/*
程序标题：javascript字典探测用户名工具
发布时间：2006年8月
文章作者：翟振凯 (小琦)
作者网站：http://www.xiaoqi.net
作者论坛：http://www.tdqy.com
演示地址：http://www.xiaoqi.net/zuopin/js_user_swf.htm
QQ：22336848 53353866
关于本文：
授人予鱼，不如授人予渔。本程序的核心代码处，都有详细的注解，
目地是让大家了解一个程序的开发过程和这个程序功能的实现原理，
而不仅仅是给大家提供一个这样的工具。希望看过本文后的朋友会有
所收获，能和我共同分享用javascript编写程序的乐趣。
*/
//尝试用IE浏览器的方式创建XMLHttpRequest对象
var xmlhttp = null;
try
{
xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");
}
catch(e)
{
try
{
xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
}
catch(e){
alert("您的浏览器不能创建XMLHttpRequest对象，无法使用此程序!");
}
}
//尝试用IE浏览器的方式创建XMLHttpRequest对象结束
/*
翟振凯注：MSXML2.XMLHTTP 和 Microsoft.XMLHTTP 都是微软的XMLHTTP控件，只是版本不同。
IE的安全级别如果不是太高，微软的XMLHTTP控件是可以跨域获取数据的。
因为 Mozilla Firefox 浏览器的 XMLHttpRequest() 不能跨域获取数据，我们就不用 XMLHttpRequest() 方法创建XMLHTTP对象了。
*/
//对返回的中文编码处理 作者：翟振凯
function Rec_Html(Html)
{
var Rec=new ActiveXObject("ADODB.RecordSet");
Rec.Fields.Append("xiaoqi",201,1);
Rec.Open();
Rec.AddNew();
Rec(0).AppendChunk(Html);
Rec.Update();
<head>
<style>
body { font-size: 10pt; background-color:#D4D0C8 }
td { font-size: 9pt }
</style>
</head>
<script language="javascript">
/*
程序标题：javascript字典探测用户名工具
发布时间：2006年8月
文章作者：翟振凯 (小琦)
作者网站：http://www.xiaoqi.net
作者论坛：http://www.tdqy.com
演示地址：http://www.xiaoqi.net/zuopin/js_user_swf.htm
QQ：22336848 53353866
关于本文：
授人予鱼，不如授人予渔。本程序的核心代码处，都有详细的注解，
目地是让大家了解一个程序的开发过程和这个程序功能的实现原理，
而不仅仅是给大家提供一个这样的工具。希望看过本文后的朋友会有
所收获，能和我共同分享用javascript编写程序的乐趣。
*/
//尝试用IE浏览器的方式创建XMLHttpRequest对象
var xmlhttp = null;
try
{
xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");
}
catch(e)
{
try
{
xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
}
catch(e){
alert("您的浏览器不能创建XMLHttpRequest对象，无法使用此程序!");
}
}
//尝试用IE浏览器的方式创建XMLHttpRequest对象结束
/*
翟振凯注：MSXML2.XMLHTTP 和 Microsoft.XMLHTTP 都是微软的XMLHTTP控件，只是版本不同。
IE的安全级别如果不是太高，微软的XMLHTTP控件是可以跨域获取数据的。
因为 Mozilla Firefox 浏览器的 XMLHttpRequest() 不能跨域获取数据，我们就不用 XMLHttpRequest() 方法创建XMLHTTP对象了。
*/
//对返回的中文编码处理 作者：翟振凯
function Rec_Html(Html)
{
var Rec=new ActiveXObject("ADODB.RecordSet");
Rec.Fields.Append("xiaoqi",201,1);
Rec.Open();
Rec.AddNew();
Rec(0).AppendChunk(Html);
Rec.Update();
