Qihangnet's Blog! - Wednesday, June 22, 2005

Wednesday, June 22, 2005

对原来的版本的渐变效果进度条做了改进，抛弃了长度达256的数组，并修改了样式表，实现了大幅度减少资源消耗。请看效果。

具体程序如下：

<html>
<head>
<title>渐变效果进度条</title>
<script language="javascript">
var i;
function go()
{
  bar_width = document.getElementById("bg").clientWidth;
  i = bar_width;
  setTimeout('start();',300);
}
function start()
{
  if(i-->0)
  {
   ps.style.width = i;
   bn.innerHTML = Math.floor((bar_width-i)/bar_width*100)+"%";
   setTimeout('start();',20);
  }
}

</script>
<style type="text/css">
#bg {
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr=#FFFF00, EndColorStr=#FF0000);
width:300px;
height:20px;
border:1px solid black;
z-index:0;
position:absolute;
}
#ps {
float:right;
background-color:#FFFF00;
width:100%;
}
#bn {
position:absolute;
text-align:center;
width:100%;
height:100%;
cursor:default;
}
</style>
</head>
<body onload="go();">
<div id="bg"><div id="ps"></div><span id="bn">0%</span></div>
</body>
</html>

JAVASCRIPT

posted on Wednesday, June 22, 2005 11:23:54 AM (China Standard Time, UTC+08:00)

Comments [4]

Tuesday, June 21, 2005

偶做的渐变效果进度条

演示效果请看渐变效果进度条，具体代码如下：

<html>
<head>
<title>渐变效果进度条</title>
<script language="javascript">
var _Hex = Array("00","01","02","03","04","05","06","07","08","09",
"0A","0B","0C","0D","0E","0F","10","11","12","13","14","15","16","17","18","19",
"1A","1B","1C","1D","1E","1F","20","21","22","23","24","25","26","27","28","29",
"2A","2B","2C","2D","2E","2F","30","31","32","33","34","35","36","37","38","39",
"3A","3B","3C","3D","3E","3F","40","41","42","43","44","45","46","47","48","49",
"4A","4B","4C","4D","4E","4F","50","51","52","53","54","55","56","57","58","59",
"5A","5B","5C","5D","5E","5F","60","61","62","63","64","65","66","67","68","69",
"6A","6B","6C","6D","6E","6F","70","71","72","73","74","75","76","77","78","79",
"7A","7B","7C","7D","7E","7F","80","81","82","83","84","85","86","87","88","89",
"8A","8B","8C","8D","8E","8F","90","91","92","93","94","95","96","97","98","99",
"9A","9B","9C","9D","9E","9F","A0","A1","A2","A3","A4","A5","A6","A7","A8","A9",
"AA","AB","AC","AD","AE","AF","B0","B1","B2","B3","B4","B5","B6","B7","B8","B9",
"BA","BB","BC","BD","BE","BF","C0","C1","C2","C3","C4","C5","C6","C7","C8","C9",
"CA","CB","CC","CD","CE","CF","D0","D1","D2","D3","D4","D5","D6","D7","D8","D9",
"DA","DB","DC","DD","DE","DF","E0","E1","E2","E3","E4","E5","E6","E7","E8","E9",
"EA","EB","EC","ED","EE","EF","F0","F1","F2","F3","F4","F5","F6","F7","F8","F9",
"FA","FB","FC","FD","FE","FF");
function go()
{
  setTimeout('start();',100);
}
var i=0;
function start()
{
  if(i++<256)
  {
   ps.innerHTML += "<span style='width:1px;background-color:#FF"+_Hex[256-i]+"00;'>";
   bn.innerHTML = Math.floor(i/2.56)+"%";
   setTimeout('start();',10);
  }
}

</script>
<style type="text/css">
#ps {
background-color:#FFFF00;
width:256px;
margin: 1px;
float:left;
}
#bn {
width:39px;
margin: 1px;
float:right;
text-align:center;
color:#FFFFFF;
font-family:Arial;
font-size:13px;
}
</style>
</head>
<body onload="go();">

JAVASCRIPT

posted on Tuesday, June 21, 2005 8:26:14 AM (China Standard Time, UTC+08:00)

Comments [0]

Wednesday, June 15, 2005

自己写的一个简单的asp数据库操作类

<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'数据库操作类
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名称：Class_DBOperate
'版本：0.2
'作者：qihangnet
'更新：2005年6月14日
'作用：简化数据库操作的流程
'授权：免费使用
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Class Class_DBOperate

'************************************
'变量定义
'************************************
'Conn ---------- 数据库连接对象
'Conn_Str ------ 数据库连接字符串

Private Conn,Conn_Str

'************************************
'实例初始化/终止
'************************************

Private Sub Class_Initialize()
Set Conn = Server.CreateObject("ADODB.Connection")
End Sub

Private Sub Class_Teriminate()
Set Conn = Nothing
End Sub

'************************************
'属性
'************************************

'输出数据库连接字符串
' 返回值类型：string

Property Get ConnectString
ConnectString = Conn_Str
End Property

'设置数据库连接字符串（数据库连接字符串）
' 参数：str --- string

Property Let ConnectString(str)
Conn_Str = str
End Property

'************************************
'事件
'************************************

'数据库打开
Public Sub DB_Open() 。
Conn.ConnectionString = Conn_Str
Conn.Open
End Sub

'数据库关闭
Public Sub DB_Close()
Conn.Close
End Sub

'************************************
'方法
'************************************

'数据库查询（sql语句）
' 参数及类别：sql ---- string
' 返回值类型：记录集
' 前提：数据库状态为打开

Public Function DB_Select(sql)
Set DB_Select = Conn.Execute(sql)
End Function

'数据库执行（SQL语句）
' 参数及类别：sql ---- string
' 返回值类型：整形
' 返回值含义：受影响行数
' 前提：数据库状态为打开

Public Function DB_Excute(sql)
Dim rs_affected
Conn.Execute sql,rs_affected
DB_Excute = rs_affected
End Function

End Class
%>

ASP

posted on Wednesday, June 15, 2005 11:50:26 AM (China Standard Time, UTC+08:00)

Comments [0]

发现并整理了一个asp快速字符串连接类

<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'快速字符串连接类
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名称：Class_FastString
'来源：http://www.jansfreeware.com
'整理：qihangnet
'更新：2005年6月15日
'作用：高效地进行字符串连接，比 str = str & "abc"的方法快很多
'授权：免费使用
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Class Class_FastString

'************************************
'变量定义
'************************************
'index --- 字符串数组的下标
'ub ------ 用于调整数组度数的整数变量
'ar() ---- 字符串数组

Private index, ub, ar()

'************************************
'实例初始化/终止
'************************************

Private Sub Class_Initialize()
Redim ar(50)
index = 0
ub = 49
End Sub

Private Sub Class_Terminate()
Erase ar
End Sub

'************************************
'事件
'************************************

'默认事件，添加字符串
Public Default Sub Add(value)
ar(index) = value
index = index+1
If index>ub Then
ub = ub + 50
Redim Preserve ar(ub)
End if
End Sub

'************************************
'方法
'************************************

'返回连接后的字符串
Public Function Dump
Redim preserve ar(index-1)
Dump = join(ar,"") '关键所在哦^_^
End Function

End class
%>

ASP

posted on Wednesday, June 15, 2005 11:41:18 AM (China Standard Time, UTC+08:00)

Comments [0]

Monday, June 06, 2005

Dasblog之Qihangnet汉化版

本站的Dasblog是经过站长qihangnet汉化修改的版本，近日一些网友提出使用汉化版的想法。为了满足大家的要求，在此提供编译好的版本给大家使用。由于原始版本的默认样式比较不美观，本站提供的汉化版为Qihangnet自己修改的样式，不喜欢的可以修改或删除。

~~点击这里下载~~

DOWNLOAD

posted on Monday, June 06, 2005 12:33:52 PM (China Standard Time, UTC+08:00)

Comments [0]

Wednesday, June 01, 2005

Bindows™ 中文站开通

我们惊喜地看到了Bindows中文站的开通，站长andot如下报道：

“Bindows™ 中文站开通经过了一段时间的紧张筹备，Bindows™ 中文站于今日正式开通了。

开办 Bindows™ 中文站的主要目的是为大家提供更多的关于 Bindows™ 的中文技术资料。本网站内容主要来自对Bindows™ 官方网站的翻译，去掉了有关商业的部分内容。另外目前 Bindows™ 中文站跟原 Bindows™ 开发者论坛合并了，现在 Bindows™ 中文站的中文论坛就是原 Bindows™ 开发者论坛。

在这里，我们要感谢 Xenium，Leo 同学在 Bindows™ 中文站建设过程中进行的翻译工作，没有他们的努力，大家便不会这么快看到现在的 Bindows™ 中文站。同时要感谢 Lzlhero，是他提供了我们现在的 Bindows™ 中文论坛。

目前 Bindows API 部分我们还没有汉化，不过这部分工作我们正在紧张的进行中。欢迎更多的人参与进来，为大家提供更多更好的中文资料。

现在你可以通过下面这些域名来访问 Bindows™ 中文站：
http://www.bindows.net.cn
http://bindows.net.cn
http://bindows.coolcode.cn

教育网用户可以通过下面的地址更快的访问：
http://bindows.cn
http://www.bindows.cn ”

posted on Wednesday, June 01, 2005 11:01:08 PM (China Standard Time, UTC+08:00)

Comments [0]

Sunday, May 29, 2005

让你的网站首页自动选择语言

过去在一家软件外企工作时写过一个小的web实验性项目,其中一部分需求是用户界面的多种语言（简体中文、繁体中文、英语、朝鲜语、日语）支持，当时使用了模板技术来实现了该需求，并用Cookies保存了用户的设置，但是用户第一次登陆时（或者是将Cookies删除了以后）仍然需要选择语言种类，那么能不能更方便用户呢？能不能用程序来自动帮助选择呢？
答案是肯定的，大家都在用google，你用中文系统打开google的首页，打开的自然是中文首页，而不会是其他语言。因为google会自动判断用户系统使用的首选语言是什么。
怎样才能做到像google那样呢，其实很简单，
在浏览器发给web服务器的 HTTP Headers Information 中包含了这样一个信息 Accept-Language，这个信息就是，浏览器中工具->gt;Internet选项->gt;常规下的语言，它就是用来设置浏览器可接受的语言首选项的，它可以是多种可接受语言的优先排序列。
下面我以asp为例简单介绍一下“如何来自动判断用户语言”：

<%
Function RegExpTest(patrn, strng)
  Dim regEx,Match,Matches'建立变量。
  Set regEx = New RegExp'建立正则表达式。
  regEx.Pattern = patrn'设置模式。
  regEx.IgnoreCase = True'设置是否区分字符大小写。
  regEx.Global = True'设置全局可用性。
  Set Matches = regEx.Execute(strng)'执行搜索。
  For Each Match in Matches'遍历匹配集合。
        RetStr = RetStr&Match.Value
  Next
  RegExpTest = RetStr
End Function
AL = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")'获取用户浏览器可接受语言参数
LG = RegExpTest("^[a-z\-]+",AL)'获取用户浏览器可接受语言的首选项
select case LG
case "zh-cn"
        response.write "中文(中国)"
case "zh-tw"
        response.write "中文(台湾)"
case "zh-mo"
        response.write "中文(澳门特别行政区)"
case "zh-hk"
        response.write "中文(香港特别行政区)"
case "zh-sg"
        response.write "中文(新加坡)"
case "en-us"
        response.write "英语(美国)"
case "ja"
        response.write "日语"
case "ko"
        response.write "朝鲜语"
end select
%>

ASP

posted on Sunday, May 29, 2005 10:19:53 PM (China Standard Time, UTC+08:00)

Comments [2]

Tuesday, May 24, 2005

FoxitReader 1.3 Beta 0519 汉化版

最近开始阅读机器上的PDF电子书，开始使用的是ADOBE READER，虽然这个经典软件很强大很好用，但是随着版本的更新，到了6.0和7.0的时候速度已经变得越来越让我受不了了，怎么办？怎么办？无意中在CNBETA网站上看到了FoxitReader 1.3 Beta的报道。于是下载了试用了一下，这个版本是免费的，基本已经能够满足我的平常需求，最大的优点就是速度快，整个软件也只有几兆，解压缩就能用，不需要安装。一个字：“爽”^_^ 。不过呢，E文菜单感觉对中文用户还是不太爽啊，于是自己动手把它的菜单和大部分对话框汉化了，也就是个非完全汉化版啦。自己用着还可以，就把他放到我的站上来与大家一起共享了。希望大家喜欢！

点击这里下载FoxitReader 1.3 Beta 0519 汉化版

DOWNLOAD

posted on Tuesday, May 24, 2005 12:02:59 PM (China Standard Time, UTC+08:00)

Comments [1]

Sunday, May 22, 2005

.NET Framework 工具之——ASP.NET IIS 注册工具

前几天安装了VS.Net 2005 测试版，尝了尝鲜！近日要更新一个.Net的网站系统，于是乎卸载了VS.Net 2005和.NET Framework 2.0。结果发现我的IIS开始不正常了，运行asp.net程序不成功！于是重新安装了IIS，结果发现还是不正常，检查了一下IIS的配置信息，发现IIS关联的ASP.NET相关信息没有了。这可怎么办呢？于是google了一下，在微软的MSDN上找到了相关解说，原来在.NET Framework对应的版本目录中有个包含了一个工具：Aspnet_regiis.exe —— ASP.NET IIS 注册工具。于是在命令行下运行了该工具，根据帮助信息，选择了适当的参数，结果俺IIS支持俺的ASP.Net网站代码了。:)