<![CDATA[gOxiA=苏繁=SuFan Blog]]> https://sufan.maytide.net/index.php zh-cn https://sufan.maytide.net/read.php/2166.htm <![CDATA[项目发布：安静书]]> gOxiA <sufan_cn@msn.com> Mon, 13 Oct 2025 07:35:36 +0000 https://sufan.maytide.net/read.php/2166.htm quietbook

项目发布：安静书

        前段时间微软公布 Microsoft Store 面向个人开发人员免费注册，于是 gOxiA 做了一个面向 Windows 平板的适用于幼儿使用的“安装书”程序，并将其发布到了 Microsoft Store 中国市场。该应用基于 Web 技术，前端用了 HTML5 + CSS3 + JavaScript，因为涉及存储所以用了 IndexedDB，图形技术采用 Canvas API，内置了 50+ 精美的 emoji 图案，覆盖动物、植物、食物、交通工具等分类，并且还支持自上传图形。程序支持直接拖拽移动图形，保持宽高比的智能缩放，还专为 Windows 平板做了优化，可以直接用手指触控操作，并支持手写笔。非常适合儿童创意启发和艺术创作，或亲子互动场景，希望让孩子们可以安静地让创意在指尖绽放！！！

quietbook-1

quietbook-2

quietbook-3

        因为是基于 Web 的，所以添加了 PWA 支持，并通过 https://www.pwabuilder.com/ 做了优化和打包，使其能够通过 Microsoft Store 发布。现已发布到 Microsoft Store 中国市场，并免费提供！

  

下载地址：https://apps.microsoft.com/detail/9nn8rqk75qqh?hl=zh-CN&gl=CN

演示视频：https://weibo.com/u/1495462137?tabtype=newVideo&layerid=5221309315288882 ]]> https://sufan.maytide.net/read.php/2164.htm <![CDATA[项目发布: IPAPI]]> gOxiA <sufan_cn@msn.com> Fri, 10 Oct 2025 05:17:12 +0000 https://sufan.maytide.net/read.php/2164.htm ipapi

项目发布: IPAPI

一个基于 Web 的现代化 IP 地址信息查询工具，利用 IP-API.com 免费接口提供准确的地理位置和网络信息。

✨ 功能特性

核心功能
  • 自动IP检测: 页面加载时自动显示访问者当前IP信息
  • 手动IP查询: 支持输入任意IP地址进行查询
  • 详细信息展示: 默认显示以下关键信息：
    • 国家代码 (Country Code)
    • 所属程序 (Program/Service)
    • ISP提供商 (Internet Service Provider)
    • ️ 组织信息 (Organization)
    • AS名称 (Autonomous System Name)
    • 移动网络 (Mobile Network Detection)
    • ️ 托管服务 (Hosting Service Detection)
技术特性
  • PWA支持: 可作为原生应用安装到桌面和移动设备
  • Edge边栏兼容: 完美适配Microsoft Edge浏览器边栏工具
  • 响应式设计: 自适应各种屏幕尺寸和分辨率
  • 现代UI: 采用现代Web设计风格，美观易用
  • 跨平台: 支持Windows、macOS、Linux、iOS、Android等平台
  • 离线缓存: Service Worker提供离线访问能力

️ 界面预览

IPAPI

使用场景

  • 网络管理员: 快速查询IP地址归属信息
  • 开发者: 调试网络相关应用
  • 安全分析: 分析可疑IP来源
  • 个人用户: 了解自己的网络信息
  • 教育培训: 网络知识学习工具


该项目支持通过 Azure Static Web Apps 发布，为了适配 IP-API 的服务接口，API 目录包含 Azure Functions 相关配置，已在 iOS、Android、Windows平台上完成测试验证！

项目地址：https://github.com/goxia/Codes/tree/main/IPAPI ，支持 Github Actions，轻松发布到 Azure Static Web Apps！gOxiA 已在 https://ipapi.mdt.ink 发布供大家使用！

推荐官方文档：

Overview of API support in Azure Static Web Apps | Microsoft Learn

]]> https://sufan.maytide.net/read.php/813.htm <![CDATA[实用的 Javascript 代码]]> gOxiA <sufan_cn@msn.com> Fri, 28 Jul 2006 03:25:22 +0000 https://sufan.maytide.net/read.php/813.htm       今天成转载日了，好多东西都是从网上找的，呵呵及时地获取新鲜血液补充一下能量还是很有必要的。

  1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键
    <table border oncontextmenu=return(false)><td>no</table> 可用于Table
  2. <body onselectstart="return false"> 取消选取、防止复制
  3. onpaste="return false" 不准粘贴
  4. oncopy="return false;" oncut="return false;" 防止复制
  5. <link rel="Shortcut Icon" href="favicon.ico"> IE地址栏前换成自己的图标
  6. <link rel="Bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标
  7. <input style="ime-mode:disabled"> 关闭输入法
  8. 永远都会带着框架
    <script language="javascript"><!--
    if (window == top)top.location.href = "frames.htm"; //frames.htm为框架网页
    // --></script>
  9. 防止被人frame
    <SCRIPT LANGUAGE=javascript><!--
    if (top.location != self.location)top.location=self.location;
    // --></SCRIPT>
  10. <noscript><iframe src=*.html></iframe></noscript> 网页将不能被另存为
  11. <input type=button value=查看网页源代码
    onclick="window.location = 'view-source:'+ 'http://www.htmlcn.com/'">
  12. 取得控件的绝对位置

    //javascript
    <script language="javascript">
    function getIE(e){
    var t=e.offsetTop;
    var l=e.offsetLeft;
    while(e=e.offsetParent){
    t+=e.offsetTop;
    l+=e.offsetLeft;
    }
    alert("top="+t+"\nleft="+l);
    }
    </script>

    //VBScript
    <script language="VBScript"><!--
    function getIE()
    dim t,l,a,b
    set a=document.all.img1
    t=document.all.img1.offsetTop
    l=document.all.img1.offsetLeft
    while a.tagName<>"BODY"
    set a = a.offsetParent
    t=t+a.offsetTop
    l=l+a.offsetLeft
    wend
    msgbox "top="&t&chr(13)&"left="&l,64,"得到控件的位置"
    end function
    --></script>

  13. 光标是停在文本框文字的最后
    <script language="javascript">
    function cc()
    {
    var e = event.srcElement;
    var r =e.createTextRange();
    r.moveStart('character',e.value.length);
    r.collapse(true);
    r.select();
    }
    </script>
    <input type=text name=text1 value="123" onfocus="cc()">
  14. 最小化、最大化、关闭窗口
    <object id=hh1 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
    <param name="Command" value="Minimize"></object>
    <object id=hh2 classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">
    <param name="Command" value="Maximize"></object>
    <OBJECT id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
    <PARAM NAME="Command" value="Close"></OBJECT>

    <input type=button value=最小化 onclick=hh1.Click()>
    <input type=button value=最大化 onclick=hh2.Click()>
    <input type=button value=关闭 onclick=hh3.Click()>
    本例适用于IE

]]> https://sufan.maytide.net/read.php/814.htm <![CDATA[Asp.net下基础应用SQL2000]]> gOxiA <sufan_cn@msn.com> Fri, 28 Jul 2006 03:21:35 +0000 https://sufan.maytide.net/read.php/814.htm       对编程开发不敢冒所以也不精通，菜鸟一个但是不看看又不行，今天在网上找了个适合入门者的小资料，感觉很有用，转载至此留作后用。

    以下是有关ASP.net连接SQL Server2000数据库的例程：
    
     Asp.net连接SQL Server2000数据库例程详解:
     <%@ Import Namespace="System.Data" %>
     <%@ Import NameSpace="System.Data.SqlClient" %>
     <script laguage="VB" runat="server">
     sub page_load(sender as Object,e as EventArgs)
     Dim myConnection As SqlConnection
     Dim myCommand As SqlCommand
     Dim ds as DataSet
     '1.connect to sql server
     myConnection = New SqlConnection( "server=localhost;database=DEMOs;uid=username;pwd=Passw0rd" )
     myConnection.Open()
     la1.text="Connection Opened!"
    
     '2.Create a table
     myCommand = New SqlCommand( "CREATE TABLE [test] ([id] [int] IDENTITY (1, 1) NOT NULL ,[name]
    
     [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,[sex] [char] (10) COLLATE Chinese_PRC_CI_AS NULL
    
     )", myConnection )
     myCommand.ExecuteNonQuery()
     la2.text="New table created!"
    
     '2 添加纪录
     myCommand = New SqlCommand( "Insert into [test] (name,sex) values( 'gOxiA','男' )",
    
     myConnection )
     myCommand.ExecuteNonQuery()
     la3.text="New Record Inserted!"
    
     '3 更新数据
     myCommand = New SqlCommand( "UPDATE [test] SET name='gOxiA' where name='SuFan'", myConnection )
     myCommand.ExecuteNonQuery()
     la4.text="Record Updated!"
    
     '4 删除数据
     myCommand = New SqlCommand( "delete from [test] where name='gOxiA'", myConnection )
     myCommand.ExecuteNonQuery()
     la5.text="Record Deleted!"
    
     '5 用DataGrid显示数据
     myCommand = New SqlCommand( "select * from [test]", myConnection )
     MyDataGrid.DataSource=myCommand.ExecuteReader()
     MyDataGrid.DataBind()
     end sub
     </script>
     <html>
     <body>
     <asp:label id="la1" runat="server" /><br>
     <asp:label id="la2" runat="server" /><br>
     <asp:label id="la3" runat="server" /><br>
     <asp:label id="la4" runat="server" /><br>
     <asp:label id="la5" runat="server" /><br>
     <ASP:DataGrid id="MyDataGrid" runat="server"
     BorderColor="black"
     BorderWidth="1"
     GridLines="Both"
     CellPadding="3"
     CellSpacing="0"
     Font-Name="Verdana"
     Font-Size="10pt"
     HeaderStyle-BackColor="#aaaadd"
     AlternatingItemStyle-BackColor="#eeeeee"
     >
     </asp:DataGrid>
    
     </body>
     </html> 

]]> https://sufan.maytide.net/read.php/815.htm <![CDATA[XHTML代码规范]]> gOxiA <sufan_cn@msn.com> Fri, 02 Dec 2005 09:13:28 +0000 https://sufan.maytide.net/read.php/815.htm 1.所有的标记都必须要有一个相应的结束标记

以前在HTML中，你可以打开许多标签，例如<p>和<li>而不一定写对应的</p>和</li>来关闭它们。但在XHTML中这是不合法的。XHTML要求有严谨的结构，所有标签必须关闭。如果是单独不成对的标签，在标签最后加一个"/"来关闭它。例如:

<br /><img height="80" alt="网页设计师" src="../images/logo_w3cn_200x80.gif" width="200" />

2.所有标签的元素和属性的名字都必须使用小写

与HTML不一样，XHTML对大小写是敏感的，<title>和<TITLE>是不同的标签。XHTML要求所有的标签和属性的名字都必须使用小写。例如：<BODY>必须写成<body> 。大小写夹杂也是不被认可的，通常dreamweaver自动生成的属性名字"onMouseOver"也必须修改成"onmouseover"。

3.所有的XML标记都必须合理嵌套

同样因为XHTML要求有严谨的结构，因此所有的嵌套都必须按顺序，以前我们这样写的代码：

<p><b></p>/b>

必须修改为：

[code]<p><b></b>/p>

就是说，一层一层的嵌套必须是严格对称。

4.所有的属性必须用引号""括起来

在HTML中，你可以不需要给属性值加引号，但是在XHTML中，它们必须被加引号。例如:

<height=80>

必须修改为：

<height="80">

特殊情况，你需要在属性值里使用双引号，你可以用"，单引号可以使用&apos;，例如：

<alt="say&apos;hello&apos;">

5.把所有<和&特殊符号用编码表示

  • 任何小于号（<），不是标签的一部分，都必须被编码为& l t ;
  • 任何大于号（>），不是标签的一部分，都必须被编码为& g t ;
  • 任何与号（&），不是实体的一部分的，都必须被编码为& a m p;

注：以上字符之间无空格。

6.给所有属性赋一个值

XHTML规定所有属性都必须有一个值，没有值的就重复本身。例如：

<td nowrap> <input type="checkbox" name="shirt" value="medium" checked>

必须修改为：

<td nowrap="nowrap"> <input type="checkbox" name="shirt" value="medium" checked="checked">

7.不要在注释内容中使“--”

“--”只能发生在XHTML注释的开头和结束，也就是说，在内容中它们不再有效。例如下面的代码是无效的:

<!--这里是注释-----------这里是注释-->

用等号或者空格替换内部的虚线。

<!--这里是注释============这里是注释-->
 ]]> https://sufan.maytide.net/read.php/816.htm <![CDATA[head区的其他设置]]> gOxiA <sufan_cn@msn.com> Fri, 02 Dec 2005 09:04:26 +0000 https://sufan.maytide.net/read.php/816.htm 收藏夹小图标

将下面的代码嵌入head区：

<link rel="icon" href="/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="/favicon.ico" type="image/x-icon" />

为搜索引擎准备的内容

  • 允许搜索机器人搜索站内所有链接。如果你想某些页面不被搜索，推荐采用robots.txt方法
<meta content="all" name="robots" />
  • 设置站点作者信息
<meta name="author" content=goxia@vipmail.maytide.net,五月时节 />
  • 设置站点版权信息
<meta name="Copyright" content="www.maytide.net,自由版权,授权转载" />
  • 站点的简要介绍(推荐)
<meta name="description" content="MDaemon，Microsoft，五月时节Blog服务" />
  • 站点的关键词(推荐)
<meta content="goxia,maytide" name="keywords" />
 ]]> https://sufan.maytide.net/read.php/817.htm <![CDATA[调用样式表]]> gOxiA <sufan_cn@msn.com> Fri, 02 Dec 2005 08:47:58 +0000 https://sufan.maytide.net/read.php/817.htm 外部调用样式表在以前，通常采用2种方法使用样式表：
  • 页面内嵌法：就是将样式表直接写在页面代码的head区。类似这样：

<style type="text/css"> <!-- body { background : white ; color : black ; } --> </style>

  • 外部调用法：将样式表写在一个独立的.css文件中，然后在页面head区用类似以下代码调用。

<link rel="stylesheet" rev="stylesheet" href="css/style.css" type="text/css" media="all" />

双表法调用样式表

查看某些符合标准站点的原代码，可能会看到，在调用样式表的地方有如下2句：

<link rel="stylesheet" rev="stylesheet" href="css/style.css" type="text/css" media="all" /> <style type="text/css" media="all">@import url( css/style01.css );</style>

为什么要写两次呢？

实际上一般情况下用外联法调用(就是第一句)就足够了。这里使用双表调用只是一种示例。其中的"@import"命令用于输入样式表。而"@import"命令在netscape 4.0版本浏览器是无效的。也就是说，当希望某些效果在netscape 4.0浏览器中隐藏，在4.0以上或其它浏览器中又显示的时候，可以采用"@import"命令方法调用样式表。

]]> https://sufan.maytide.net/read.php/818.htm <![CDATA[定义语言编码]]> gOxiA <sufan_cn@msn.com> Fri, 02 Dec 2005 08:44:25 +0000 https://sufan.maytide.net/read.php/818.htm 定义语言编码，类似这样：

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

为了被浏览器正确解释和通过W3C代码校验，所有的XHTML文档都必须声明它们所使用的编码语言，一般使用gb2312(简体中文)，制作多国语言页面也有可能用Unicode、ISO-8859-1等，根据需要定义。

通常这样定义就可以。但是要补充说明的是，XML文档并不是这样定义语言编码的，XML的定义方式如下：

<?xml version="1.0" encoding="gb2312"?>

针对老版本浏览器，需要添加以下代码以保证各种浏览器都能正确解释页面：

<meta http-equiv="Content-Language" content="gb2312" />

注意：在上面声明语句的最后，看到有一个斜杠"/"，这和以前的HTML4.0的代码写法不同。原因是XHTML语法规则要求所有的标识都必须有开始和结束。例如<body>和</body>、<p>和</p>等，对于不成对的标识，要求在标识最后加一个空格，然后跟一个"/"。例如<br>写成<br />、<img>写成<img />，加空格的原因是避免代码连在一起浏览器不识别。

]]> https://sufan.maytide.net/read.php/819.htm <![CDATA[DOCTYPE声明完毕后的名字空间定义]]> gOxiA <sufan_cn@msn.com> Fri, 02 Dec 2005 08:40:00 +0000 https://sufan.maytide.net/read.php/819.htm DOCTYPE声明好以后，接下来的代码是：

<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">

通常HTML4.0的代码只是<html>，这里的"xmlns"是什么呢？

这个"xmlns"是XHTML namespace的缩写，叫做"名字空间"声明。名字空间是什么作用呢？阿捷自己的理解是：

由于xml允许你自己定义自己的标识，你定义的标识和其他人定义的标识有可能相同，但表示不同的意义。当文件交换或者共享的时候就容易产生错误。为了避免这种错误发生，XML采用名字空间声明，允许你通过一个网址指向来识别你的标识。

XHTML是HTML向XML过渡的标识语言，它需要符合XML文档规则，因此也需要定义名字空间。又因为XHTML1.0不能自定义标识，所以它的名字空间都相同，就是http://www.w3.org/1999/xhtml。

后面的lang="gb2312",指定你的文档用简体中文。

]]> https://sufan.maytide.net/read.php/820.htm <![CDATA[XHTML 1.0 提供可供选择的三种DTD声明]]> gOxiA <sufan_cn@msn.com> Fri, 02 Dec 2005 08:36:31 +0000 https://sufan.maytide.net/read.php/820.htm
  • 过渡的(Transitional):要求非常宽松的DTD，它允许你继续使用HTML4.01的标识(但是要符合xhtml的写法)。完整代码如下：

    • <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

    • 严格的(Strict):要求严格的DTD，你不能使用任何表现层的标识和属性，例如<br>。完整代码如下：

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

    • 框架的(Frameset):专门针对框架页面设计使用的DTD，如果你的页面中包含有框架，需要采用这种DTD。完整代码如下：

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">

    ]]>     https://sufan.maytide.net/read.php/821.htm <![CDATA[DIV+CSS布局入门]]> gOxiA <sufan_cn@msn.com> Fri, 02 Dec 2005 06:57:02 +0000 https://sufan.maytide.net/read.php/821.htm       我实际上在网页设计与编程上是一个菜鸟，曾经也想深入学习一下可感觉自己没有那个天分，可是发现自己却经常要和它们打交道，自己的网站、论坛都是自己在维护，总想将其优化并设计更加美观些，此时我知道了DIV+CSS，利用这种布局可以有效地解决因表格布局而导致的页面载入速度慢的问题。今天在一个论坛看到有人转发了一片非常有用的帖子——《DIV+CSS布局入门》，感觉对自己特别有用，于是转录于此。
    ............
    ]]>     https://sufan.maytide.net/read.php/822.htm <![CDATA[WML元素及其语法格式一览表（4）]]> gOxiA <sufan_cn@msn.com> Sat, 14 May 2005 08:47:21 +0000 https://sufan.maytide.net/read.php/822.htm

    元  素

    功    能

    语法格式

    setvar

    setvar元素用于指定在当前上下文内容中的变量的值，从侧面影响正在运行的任务

    <setvar  name="name"  value="value" / >

    small

    使用小字体显示文本

    <small>  文本(text)  </small>

    strong

    进一步加强文本的增强显示

    <strong>  文本(text)  </strong>

    table

    table元素与tr元素、td元素一起，可用来创建能容纳文本和图像的表格，并可设置表格各列中文本和图像的对齐方式

    <table  align="alignment"  title="label" 

           columns="n"/>

    或

    <table  align="alignment"  title="label" 

           columns="n">

                  内容(content)

    </table>

    td

    td元素用于规定表格单元格的内容

    <td>  单元格内容(content)  </td>

    template

    template元素用于为当前卡片组中的所有卡片定义一个模板，统一规定卡片的某些参数

    <template  onenterforward="href" 

           onenterbackward="href"  ontimer="href" >

                 内容(content)

    </template>

    timer

    timer元素用于设定一个定时器，可以延时显示卡片组、卡片，或实现WML程序的等待操作，或在卡片组和卡片之间实现切换以取得动画效果

    <timer  name="variable"  value="value" / >

    tr

    tr元素用于定义表格的行

    <tr> 

           <td>  单元格内容(content)  </td>

    </tr>

    u

    显示文本时增加下划线

    <u>  文本(text)  </u>

    wml

    wml元素用于定义一个卡片组，并通过<wml>与</wml>标签包含和封装该卡片组中的所有卡片及信息

    <wml  xml:lang="lang" >

       内容(content)

    </wml>

    ]]>     https://sufan.maytide.net/read.php/823.htm <![CDATA[WML元素及其语法格式一览表（3）]]> gOxiA <sufan_cn@msn.com> Sat, 14 May 2005 08:46:18 +0000 https://sufan.maytide.net/read.php/823.htm

    元  素

    功    能

    语法格式

    onevent

    onevent元素通过<onevent>和<onevent/>标签可以把包含的任务(task)与特定的事件捆绑在一起。当用户激活这一特定事件时，onevent元素所绑定的任务就会被立即执行

    <onevent  type="type">

           任务(task)

    </onevent>

    onpick

    onpick事件在定义时一般通过onpick属性指定一些项目，当用户选择或取消这些项目时，即可触发onpick事件，执行onpick属性所指定的项目

    <option  value="value"  onpick="href">

         内容(content)

    </option>

    ontimer

    ontimer用于指定一个事件，当<timer/>标签指定的时间到期后，浏览器就执行ontimer所指定的这个事件

    <card  id="name"  title="label" 

           newcontext="boolean"  ordered="true" 

           onenterforward="href"

           onenterbackward="href"  ontimer="href"  >

                 内容(content)

    </card>

    或：

    <template  onenterforward="href" 

           onenterbackward="href"  ontimer="href"  >

                 内容(content)

    </template>

    optgroup

    optgroup元素用于将多个相关的option元素进行分组，用户浏览器可以借助这种分组来安排选项列表的显示布局，以方便用户选择

    <optgroup  title="label" >

           内容(content)

    </optgroup>

    option

    option元素用于定义select元素中的一组单选项，并可包括事件和单选项的显示文本等信息

    <option  title="label"  value="value"  onpick="href" >

           内容(content)

    </option>

    p

    p元素用于划分段落，使当前文本换行并插入一个空白行

    <p  align="alignment"  mode="wrapmode" >

           文本(text)

    </p>

    或<p  align="alignment"  mode="wrapmode" />

    postfield

    postfield元素用于指定当浏览器接到URL请求时，向源服务器(origin server)传送的域名及域值

    <postfield  name="name"  value="value"/>

    prev

    prev元素用于指定将浏览器导航至历史堆栈中的前一个URL地址

    <prev/>

    或  <prev>  内容(content)  </prev>

    refresh

    refresh用于刷新当前的卡片，对卡片内指定的变量进行更新

    <refresh>

           内容(content)

    </refresh>

    select

    select元素允许用户从选项列表中选择所需的项目

    <select  title="label"  multiple="false&line;true" 

           name="variable"  default="default" 

           iname="index_var" ivalue="default" 

           tabindex="n" >

                  内容(content)

    </select>

    ]]>     https://sufan.maytide.net/read.php/824.htm <![CDATA[WML元素及其语法格式一览表（2）]]> gOxiA <sufan_cn@msn.com> Sat, 14 May 2005 08:45:24 +0000 https://sufan.maytide.net/read.php/824.htm

    元  素

    功    能

    语法格式

    img

    img元素用于在格式化的文本中放置和显示一幅图像

    <img  alt="text"  src="url"  localsrc="icon" 

           align="alignment"  height="n"  width="n"

           vspace="n"  hspace="n" />

    input

    input元素用于定义文本实体对象，包含有对输入文本内容的格式、数据类型、长度、值、变量名等多种属性的具体规定

    <input  name="variable"  title="label"  type="type" 

           value="value"  default="default"

           format="specifier"  emptyok="false&line;true" 

           size="n"  maxlength="n"  tabindex="n"/>

    meta

    meta元素用于定义WML卡片组相关的通用meta信息

    <meta  name="name"&line;http-equiv="name" 

           content="value"  forua="true&line;false" 

           scheme="format"/ >

    noop

    noop元素表示什么也不做，是一个空操作

    <noop/>

    onenterbackward

    当用户使用prev任务或类似的任务来导航至某一卡片时，onenterbackward事件才可发生。换句话说，当用户从历史堆栈中选取URL地址，并通过浏览器打开这一地址对应的卡片时，onenterbackward事件才能发生

     

    <card  id="name"  title="label" 

           newcontext="boolean"  ordered="true" 

           onenterforward="href" onenterbackward="href" 

           ontimer="href"  >

               内容(content)

    </card>

    或：

    <template  onenterforward="href" 

           onenterbackward="href"  ontimer="href"  >

                 内容(content)

    </template>

    或：

    <onevent type="onenterbackward">

           <go href="href"/> 或其他任务(task)

    </onevent>

    onenterforward

    onenterforward事件仅当用户使用go任务或类似于go任务的任务来定位和浏览卡片时才可发生。设置onenterforward事件后，当用户进入当前卡片组时，浏览器就会定位onenterforward属性或<go/>标签中指定超链(href)的URL地址，并打开URL指定的卡片

    <card  id="name"  title="label" 

           newcontext="boolean"  ordered="true" 

           onenterforward="href"

           onenterbackward="href"  ontimer="href"  >

                   内容(content)

    </card>

    或：

    <template  onenterforward="href" 

           onenterbackward="href"  ontimer="href"  >

                 内容(content)

    </template>

    或：

    <onevent type="onenterforward">

           <go href="href"/> 或其他任务(task)

    </onevent>

    ]]>     https://sufan.maytide.net/read.php/825.htm <![CDATA[WML元素及其语法格式一览表（1）]]> gOxiA <sufan_cn@msn.com> Sat, 14 May 2005 08:43:51 +0000 https://sufan.maytide.net/read.php/825.htm WML元素及其语法格式一览表

    元  素

    功    能

    语法格式

    a

    a元素是anchor元素的简化形式，它内嵌了anchor元素需要包含的go元素功能来完成超链接定位，并且不再包含其他任何变量设置

    <a  title="label" >

           href=“href”

           文本(text)

    </a>

    或：<a  href=“href”>  文本(text)  </a>

    access

    access元素是由一个单独的标签即<access>标签实现的元素，用于定义WML整个卡片组的操作权限，即访问控制参数

    <head>

    <access  domain="domain"  path="path"/ >

    ...

    </head>

    anchor

    anchor元素用于创建一个超链接的头部，超链接的其余部分为用户指定的URL地址。当程序运行中用户选中选超链接时，浏览器即会被引入到超链接指定的地址，如其他卡片组或同一卡片组中的其他卡片

    <anchor  title="label" >

           任务(task)

           文本(text)

    </anchor>

    b

    使用粗体字显示文本

    <b>  文本(text)  </b>

    big

    使用大字体显示文本

    <big>  文本(text)  </big>

    br

    br元素用于插入一个回车符，并开始一个新行

    <br/>

    card

    card元素用于定义一个卡片的各种属性及相关内容等

    <card  id="name"  title="label"

           newcontext="boolean"  ordered="true"

           onenterforward="href"

           onenterbackward="href"  ontimer="href">

              内容(content)

    </card>

    do

    do元素提供了一个通用的事件处理机制，使得用户可以参与当前卡片的事件处理

    <do  type="type"  label="label"  name="name" 

           optional="boolean">

                任务(task)

    </do>

    em

    指定增强显示文本

    <em>  文本(text)  </em>

    fieldset

    fieldset元素用于设置输入框和相应的说明文本，从而用户就可以利用input元素等借助该输入框输入所需的数据信息

    <fieldset  title="label" >

           内容(content)

    </fieldset>

    go

    go元素主要用来定义浏览器需要导航的URL地址

    <go  href="href"  sendreferer="false&line;true" 

           method="get&line;post"  accept-charset="charset">

                  内容(content)

    </go>

    head

    head元素用于指定卡片组的头，即与卡片组整体有关的信息，包括meta数据和access控制信息

    <head>

        内容(content)

    </head>

    i

    使用斜体字显示文本

    <i>  文本(text)  </i>

    ]]>     https://sufan.maytide.net/read.php/826.htm <![CDATA[IIS下搭建WAP平台]]> gOxiA <sufan_cn@msn.com> Sat, 14 May 2005 08:30:59 +0000 https://sufan.maytide.net/read.php/826.htm 找了几篇文章并回忆过去的搭建过程，到现在为止还没有变。不过早期ThunderWAP搭建WAP1.1平台是有限制的开发版是免费的，但是只支持一个人在线，而商业版则价格不菲。看来还是要手工自己建立，不过现在对WAP1.1和WAP2.0的概念比较混乱，不知道WAP2.0是否需要专门购买平台，只能先搭建起来再说吧！

    方法：在IIS下的站点属性中新建MIME映射

    关联文件名 内容类型

    Associated Extension

    MIME Type

    wmltext/vnd.wap.wml
    wmlcapplication/vnd.wap.wmlc
    wbmpimage/vnd.wap.wbmp
    wmlscapplication/vnd.wap.wmlscriptc
    wmlstext/vnd.wap.wmlscript
    wscapplication/vnd.wap/wmlscriptc

    另外注意：
    如果使用asp编写，在源码的开始添加

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
    <%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>

    编码采用utf-8

    ]]>     https://sufan.maytide.net/read.php/827.htm <![CDATA[什么是WAP?（非官方解释）]]> gOxiA <sufan_cn@msn.com> Sat, 14 May 2005 08:18:50 +0000 https://sufan.maytide.net/read.php/827.htm 在Google上找了一圈也没有找到WAP的详细官方权威的定义与介绍，不过以下这个足以说明什么是WAP。

    WAP（无线应用协议）是在数字移动电话、因特网或其他个人数字助理机（PDA）、计算机应用之间进行通讯的开 放全球标准。它是由一系列协议组成，用来标准化无线通信设备，可用于Internet访问，包括收发电子邮件，访问WAP网站上的页面等等。WAP将移动网络和Internet以及公司的局域网紧密地联系起来，提供一种与网络类型、 运行商和终端设备都独立的移动增值业务。 通过这种技术，无论你在何地、何时只要你需要信息，你就可以打开 你的WAP手机，享受无穷无尽的网上信息或者网上资源。如：综合新闻、天气预报、股市动态、商业报道、当前汇率等。电子商务、网上银行也将逐一实现。 你还可以随时随地获得体育比赛结果、娱乐圈趣闻以及幽默故事，为 生活增添情趣，也可以利用网上预定功能，把生活安排的有条不紊。 WAP协议包括以下几层： 

    1、Wireless Application Environment (WAE)  

    2、Wireless Session Layer (WSP)  

    3、Wireless Transaction Layer (WTP)  

    4、Wireless Transport Layer Security (WTLS) 

    5、Wireless Transport Layer (WDP)  

    其中，WAE层含有微型浏览器、WML 、WMLSCRIPT的解释器等等功能。WTLS层为无线电子商务及无线加密传输数据时提供安全方面的基本功能。 

    WAP协议的诞生是WAP论坛成员多年努力的结果。它是针对不同的协议层定义了一系列协议，这些协议使得各方面的厂商和公司可以协同工作，开发无线通信网络的应用。目前有超过100个成员加入WAP论坛，包括有终端和基础设备的制造商，有移动通信的网络运营商，有业务提供商，有软件公司，也有网络内容提供商等，共同为移动设备开发服务和应用。 但是，目前由于无线网的带宽等等因素的限制，WAP手机的在多媒体上的应用如：可视会议、多媒体教学等等，还须一段时日。 WAP规范还在不断地完善，WAP论坛成员们在加紧 开发功能完善的WAP设备，这无疑加快其在无线因特网综合服务领域的扩展速度。

    ]]>     https://sufan.maytide.net/read.php/828.htm <![CDATA[走上WAP的不归路]]> gOxiA <sufan_cn@msn.com> Sat, 14 May 2005 08:11:26 +0000 https://sufan.maytide.net/read.php/828.htm 好早知道WAP这个词后，就被吸引，可是面对功底欠佳的自己，实在不知道该如何下手，早在两年前就有下功夫学习的决心，但是还是失败了。

    最近接到公司指示，要做一个简单的WAP宣传站，主要就是前期做个静态的WAP页面供客户访问查询一下产品价格，看似很简单，但是对我来说还是有难度，毕竟自己连写程序都不会，只是接触过罢了，所以这次决心在鞭挞下能做出成绩。

    ]]>     https://sufan.maytide.net/read.php/829.htm <![CDATA[利用ASP连接各种数据库]]> gOxiA <sufan_cn@msn.com> Wed, 02 Feb 2005 03:23:07 +0000 https://sufan.maytide.net/read.php/829.htm 用ASP连接DBF、DBC、MDB、Excel、SQL Server型数据库的方法：
    一、ASP的对象存取数据库方法
    在ASP中，用来存取数据库的对象统称ADO（Active Data Objects），主要含有三种对象：Connection、Recordset 、Command
    Connection：负责打开或连接数据
    Recordset：负责存取数据表
    Command：负责对数据库执行行动查询命令

    二、连接各数据库的驱动程序
    ODBC链接

    适合数据库类型
    链接方式
    access"Driver={microsoft access driver(*.mdb)};dbq=*.mdb;uid=admin;pwd=pass;"
    dBase "Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"
    Oracle "Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"
    MSSQL server"Driver={sql server};server=servername;database=dbname;uid=sa;pwd=pass;"
    MS text "Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"
    Visual Foxpro"Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"
    MySQL"Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;"

    OLEDB链接

    适合的数据库类型
    链接方式
    access"Provider=microsoft.jet.oledb.4.0;data source=your_database_path;user id=admin;password=pass;"
    Oracle"Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"
    MS SQL Server"Provider=SQLOLEDB;data source=machinename;initial catalog=dbname;userid=sa;password=pass;"
    MS text "Provider=microsof.jet.oledb.4.0;data source=your_path;Extended Properties'text;FMT=Delimited'"


    一般情况下使用Access的数据库比较多，连接Access数据库使用下面的方法：

    dim conn
    set conn = server.createobject("adodb.connection")
    conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("../db/bbs.mdb")

    其中../db/bbs.mdb是数据库存放的相对路径！如果数据库和ASP文件在同一目录下，只要这样写就可以了：

    dim conn
    set conn = server.createobject("adodb.connection")
    conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("bbs.mdb")

    ]]>     https://sufan.maytide.net/read.php/830.htm <![CDATA[简单代码实现“选择速度最快的站点”]]> gOxiA <sufan_cn@msn.com> Tue, 07 Dec 2004 04:10:21 +0000 https://sufan.maytide.net/read.php/830.htm 代码内容：

    <html><head>
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
    <title>正在选择速度最快的镜像站点...</title></head>
    <body>
    <center><br>
    <p>
    　</p>
    <p>
    　</p>
    <p>
    　</p>
    <p>
    <font color=red size=4><br><br>
    </font>
    <font color=red size=2>请稍候，正在分配最快的镜像给您登陆...</p>
    </font>
    <font color=red size=4>
    <script>
    i=1
    var autourl=new Array()
    autourl[1]="http://forum.maytide.net"
    autourl[2]="http://www.maytide.net"
    autourl[3]="http://goxia.maytide.net"
    autourl[4]="http://blog.maytide.net"
    function choose(url)
    &leftsign;
      if(i)&leftsign;top.location=url;i=0&rightsign;
    &rightsign;
    function run()
    &leftsign;
      for(var i=1;i<autourl.length;i++)
      document.write("<img src="+autourl[i]+" width=1 height=1 onerror=choose('"+autourl[i]+"')>")
    &rightsign;
    run()
    </script>
    </font>
    </body>
    </html>

    ]]>     https://sufan.maytide.net/read.php/831.htm <![CDATA[关于页面嵌套]]> gOxiA <sufan_cn@msn.com> Thu, 18 Nov 2004 02:20:18 +0000 https://sufan.maytide.net/read.php/831.htm <iframe name="main1" frameborder="0" width="100%" height="100%" align="middle" scrolling="auto" src="default.htm"></iframe>发现当提交一个登录后，便跳出这个嵌套主页。纳闷，找人问问去。 ]]> https://sufan.maytide.net/read.php/832.htm <![CDATA[特殊字符 - HTML语言 对照表 想表达的意图 处理方式]]> gOxiA <sufan_cn@msn.com> Tue, 09 Nov 2004 06:23:37 +0000 https://sufan.maytide.net/read.php/832.htm 特殊字符 - HTML语言 对照表
    想表达的意图处理方式
    （回车换行）
    （空格符）
    &（AND符号）&
    <（左尖括号、小于号）<
    >（右尖括号、大于号）>
    °（度）°
    •（间隔符）•
    ´´
    ""
    ““
    ””
    ‰‰
    ←←
    ↑↑
    →→
    ↓↓
    ↔↔
    √√
    ∝∝
    ∞∞
    ∠∠
    ∧∧
    ∨∨
    ∩∩
    ∪∪
    ØØ
    ∫∫
    ∴∴
    ≈≈
    ¥（RMB）¥
    想表达的意图处理方式
    ≠≠
    ≡≡
    ≤≤
    ≥≥
    ⊕⊕
    λλ
    μμ
    νν
    ξξ
    νν
    ξξ
    ∏∏
    ∑∑
    ¥¥
    ……
    ¹（一次方符号）¹
    ²（平方符号）²
    ³（立方符号）³
    nr（上标情形）nr
    Ci（下标情形）Ci
    加粗加粗
    斜体斜体
    下划线下划线
    ±（加减符号）±
    ×（乘法符号）×
    ÷（除法符号）÷
    ©（版权所有）©
    ®（注册商标）®
    ™（商标符号）™
    —（破折号）—
    ]]>     https://sufan.maytide.net/read.php/833.htm <![CDATA[利用网页修改域登录密码]]> gOxiA <sufan_cn@msn.com> Fri, 17 Sep 2004 03:32:07 +0000 https://sufan.maytide.net/read.php/833.htm 你可以写一个ASP脚本来创建一个修改密码的网页。ASP可以让你完全访问活动目录接口（ADSI）,这样你就可以用ASP完成一系列的功能，向修改用户密码或者创建用户帐号。当你写这样一个脚本的时候，你必须考虑这样一个问题---哪些用户可以运行脚本，当脚本运行是你应该使用哪些权限。用来修改用户密码的基本的ADSI命令是：
    set usr = GetObject("LDAP://CN=John Savill,CN=Users,DC=savilltech,DC=com") usr.put "userPassword", NewPassword
    第一行分配了一个句炳给savilltech.com里面的用户john savill。第二行则把新密码放到用户的密码属性里面. 我写了一个比较短的asp脚本changepass.asp用来提示用户键入一个用户名和密码（记住你要把域名savilltech.com改成你自己的域名），下面是文件的代码：
    ]<%
    strUserCN = request.form("cn")
    strNewPassword = request.form("newpass")
    strPassVerify = request.form("passverify")

    if strUserCN="" then
        response.write "<html><head><title>Change Password</title></head><body>"
        response.write "<center><h1>Web Password Reset</h1></center>"
        response.write "<hr>

    <form method=post action=changepass.asp><table>"
        response.write "<tr><td>CN: </td><td><input type=text name=cn></td><tr>"
        response.write "<tr><td>New Password: </td><td><input type=password name=newpass></td></tr>"
        response.write "<tr><td>Verify Password: </td><td><input type=password name=passverify></td></tr>"
        response.write "<tr><td colspan=2 align=center><input type=submit value='Reset Password'></td></tr>"
        response.write "</table></body></html>"
        response.end
    else

    if strNewPassword = strPassVerify then

    set usr = GetObject("LDAP://CN=" & strUserCN & ",CN=Users,DC=savilltech,DC=com")

    usr.put "userPassword", strNewPassword

    response.write "<html><head><title>Results</title></head><center><h1>Update Results</h1></center><hr>

    "
    response.write strUserCN & ": password was successfully updated"
    response.end

    else

        response.write "<html><head><title>Error!</title></head><body>"
        response.write "<center><h1>An Error Has Occurred!</h1></center>"
        response.write "<hr>

    "
        response.write "The password and confirmation do not match. Please go back and try again."
        response.end

    end if
    end if
    %>

    在WINDOWS SERVER 2003里面就提供了一个修改用户密码的网页英文原稿作者为John Savil

    ]]>     https://sufan.maytide.net/read.php/834.htm <![CDATA[摘录“ASP + Serv-u 实现FTP的代码”]]> gOxiA <sufan_cn@msn.com> Wed, 04 Aug 2004 09:38:14 +0000 https://sufan.maytide.net/read.php/834.htm <!--#include file="md5.asp"-->
    <%
    '**************************************************
    '* 作者：awaysrain(绝对零度) *
    '* 完成时间：2003-10-10 *
    '* 测试环境：WIN2000SERVER，SERV-U 4.2-beta版 *
    '**************************************************
    Dim iniPath,iniFileName,iniStr,tmpStr,n
    Dim userName,passWord,tmp

    userName = "myfso222" '用户名
    passWord = "awaysrain" '密码
    tmp = "ai" '随机生成两个小写字母，（应该是随机生成的，但是我这里省略了）
    passWord = tmp & UCase(md5(passWord)) '密码，是MD5加密过的，用动网的MD5加密程序，具体算法是随机生成两位小写字母，然后和你的密码连接后进行MD5加密，把随机生成的密码和MD5加密后的结果作为密码存放，举个例子来说比如下面的awaysrain用户，我的密码为awaysrain先随机生成两位小写字母ai，和我的密码awaysrain连接得到aiawaysrain把aiawaysrain进行MD5加密得到9118BFD94A9CE9CF37AE5BAA947ED596把随机生成两位小写字母ai和MD5加密后的结果9118BFD94A9CE9CF37AE5BAA947ED596连接得到密码ai9118BFD94A9CE9CF37AE5BAA947ED596

    iniPath="D:\Program Files\Serv-U" 'ini文件的路径
    iniFileName = "ServUDaemon.ini" 'ini的文件名

    Set fso=Server.CreateObject("Scripting.FileSystemObject")
    Set ServUIni = fso.OpenTextFile(iniPath & "\" & iniFileName,1,false)

    iniStr = ""
    n = 0
    addedUserList = false

    Set tf = fso.CreateTextFile(iniPath & "\" & iniFileName & "._awaysrain.tmp", True)
    '生成新的临时INI文件

    Do While not ServUIni.AtEndOfStream
    tmpStr = ServUIni.ReadLine

    If Instr("awaysrain||" & tmpStr,"awaysrain||User")>0 Then
    '记录用户原来的数量
    n = n+1
    End If

    If Instr("awaysrain||" & tmpStr,"awaysrain||[USER=")>0 and not addedUserList Then
    '往用户列表的部分添加现在的用户
    n = n +1
    tf.WriteLine("User" & n & "=" & userName & "|1|0")
    addedUserList = true
    End If
    tf.WriteLine(tmpStr)
    Loop
    ServUIni.Close

    '添加新用户的信息，具体内容可以在SERV-U中新建用户并对照INI文件

    tf.WriteLine("[USER=" & userName & "|1]") '用户名
    tf.WriteLine("Password=" & passWord) '密码
    tf.WriteLine("HomeDir=e:\temp") '主目录
    tf.WriteLine("RelPaths=1") '是否锁定用户于主目录
    tf.WriteLine("MaxUsersLoginPerIP=1") '相同IP同时登录数
    tf.WriteLine("SpeedLimitDown=102400") '最大下载速度
    tf.WriteLine("TimeOut=600") '空闲超时时间（秒）
    tf.WriteLine("Access1=E:\Temp|RLP") '可访问目录,可以不是一个，比如 'Access2=E:\Temp1|RLP'

    tf.Close
    '--------------------备份原来的INI文件--------------------------
    Set f1 = fso.GetFile(iniPath & "\" & iniFileName)
    f1.Copy (iniPath & "\" & iniFileName & "._awaysrain.bak")
    f1.Delete
    '--------------------把生成的临时INI文件改为正式的INI--------------------------
    Set f1 = fso.GetFile(iniPath & "\" & iniFileName & "._awaysrain.tmp")
    f1.Copy (iniPath & "\" & iniFileName)
    f1.Delete

    Set fso = nothing
    %>
    注：以上代码假设ServUDaemon.ini中的格式只有一个域并已经至少有一个用户 测试的ServUDaemon.ini文件结构如下： ================================== [Domain1] User1=222|1|0 User2=myfso111|1|0 [USER=222|1] Password=hwB1ECF70CDAF5DAE2B981AE394EEFCDC0 HomeDir=E:\Temp RelPaths=1 TimeOut=600 Access1=E:\Temp|RLP [USER=myfso111|1] Password=ai9118BFD94A9CE9CF37AE5BAA947ED596 HomeDir=e:\temp RelPaths=1 TimeOut=600 Access1=E:\Temp|RLP 生成后的文件结构如下 ================================== [Domain1] User1=222|1|0 User2=myfso111|1|0 User3=myfso222|1|0 [USER=222|1] Password=hwB1ECF70CDAF5DAE2B981AE394EEFCDC0 HomeDir=E:\Temp RelPaths=1 TimeOut=600 Access1=E:\Temp|RLP [USER=myfso111|1] Password=ai9118BFD94A9CE9CF37AE5BAA947ED596 HomeDir=e:\temp RelPaths=1 TimeOut=600 Access1=E:\Temp|RLP [USER=myfso222|1] Password=ai9118BFD94A9CE9CF37AE5BAA947ED596 HomeDir=e:\temp RelPaths=1 TimeOut=600 Access1=E:\Temp|RLP ]]>     https://sufan.maytide.net/read.php/835.htm <![CDATA[MD5.asp Code]]> gOxiA <sufan_cn@msn.com> Wed, 04 Aug 2004 09:32:14 +0000 https://sufan.maytide.net/read.php/835.htm <%
    Private Const BITS_TO_A_BYTE = 8
    Private Const BYTES_TO_A_WORD = 4
    Private Const BITS_TO_A_WORD = 32

    Private m_lOnBits(30)
    Private m_l2Power(30)

    Private Function LShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
    LShift = lValue
    Exit Function
    ElseIf iShiftBits = 31 Then
    If lValue And 1 Then
    LShift = &H80000000
    Else
    LShift = 0
    End If
    Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
    Err.Raise 6
    End If

    If (lValue And m_l2Power(31 - iShiftBits)) Then
    LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
    Else
    LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
    End If
    End Function

    Private Function RShift(lValue, iShiftBits)
    If iShiftBits = 0 Then
    RShift = lValue
    Exit Function
    ElseIf iShiftBits = 31 Then
    If lValue And &H80000000 Then
    RShift = 1
    Else
    RShift = 0
    End If
    Exit Function
    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
    Err.Raise 6
    End If

    RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)

    If (lValue And &H80000000) Then
    RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
    End If
    End Function

    Private Function RotateLeft(lValue, iShiftBits)
    RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
    End Function

    Private Function AddUnsigned(lX, lY)
    Dim lX4
    Dim lY4
    Dim lX8
    Dim lY8
    Dim lResult

    lX8 = lX And &H80000000
    lY8 = lY And &H80000000
    lX4 = lX And &H40000000
    lY4 = lY And &H40000000

    lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)

    If lX4 And lY4 Then
    lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
    ElseIf lX4 Or lY4 Then
    If lResult And &H40000000 Then
    lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
    Else
    lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
    End If
    Else
    lResult = lResult Xor lX8 Xor lY8
    End If

    AddUnsigned = lResult
    End Function

    Private Function md5_F(x, y, z)
    md5_F = (x And y) Or ((Not x) And z)
    End Function

    Private Function md5_G(x, y, z)
    md5_G = (x And z) Or (y And (Not z))
    End Function

    Private Function md5_H(x, y, z)
    md5_H = (x Xor y Xor z)
    End Function

    Private Function md5_I(x, y, z)
    md5_I = (y Xor (x Or (Not z)))
    End Function

    Private Sub md5_FF(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
    End Sub

    Private Sub md5_GG(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
    End Sub

    Private Sub md5_HH(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
    End Sub

    Private Sub md5_II(a, b, c, d, x, s, ac)
    a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))
    a = RotateLeft(a, s)
    a = AddUnsigned(a, b)
    End Sub

    Private Function ConvertToWordArray(sMessage)
    Dim lMessageLength
    Dim lNumberOfWords
    Dim lWordArray()
    Dim lBytePosition
    Dim lByteCount
    Dim lWordCount

    Const MODULUS_BITS = 512
    Const CONGRUENT_BITS = 448

    lMessageLength = Len(sMessage)

    lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
    ReDim lWordArray(lNumberOfWords - 1)

    lBytePosition = 0
    lByteCount = 0
    Do Until lByteCount >= lMessageLength
    lWordCount = lByteCount \ BYTES_TO_A_WORD
    lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
    lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
    lByteCount = lByteCount + 1
    Loop

    lWordCount = lByteCount \ BYTES_TO_A_WORD
    lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE

    lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)

    lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
    lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)

    ConvertToWordArray = lWordArray
    End Function

    Private Function WordToHex(lValue)
    Dim lByte
    Dim lCount

    For lCount = 0 To 3
    lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
    WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
    Next
    End Function
    Public Function MD5(sMessage)
    m_lOnBits(0) = CLng(1)
    m_lOnBits(1) = CLng(3)
    m_lOnBits(2) = CLng(7)
    m_lOnBits(3) = CLng(15)
    m_lOnBits(4) = CLng(31)
    m_lOnBits(5) = CLng(63)
    m_lOnBits(6) = CLng(127)
    m_lOnBits(7) = CLng(255)
    m_lOnBits(8) = CLng(511)
    m_lOnBits(9) = CLng(1023)
    m_lOnBits(10) = CLng(2047)
    m_lOnBits(11) = CLng(4095)
    m_lOnBits(12) = CLng(8191)
    m_lOnBits(13) = CLng(16383)
    m_lOnBits(14) = CLng(32767)
    m_lOnBits(15) = CLng(65535)
    m_lOnBits(16) = CLng(131071)
    m_lOnBits(17) = CLng(262143)
    m_lOnBits(18) = CLng(524287)
    m_lOnBits(19) = CLng(1048575)
    m_lOnBits(20) = CLng(2097151)
    m_lOnBits(21) = CLng(4194303)
    m_lOnBits(22) = CLng(8388607)
    m_lOnBits(23) = CLng(16777215)
    m_lOnBits(24) = CLng(33554431)
    m_lOnBits(25) = CLng(67108863)
    m_lOnBits(26) = CLng(134217727)
    m_lOnBits(27) = CLng(268435455)
    m_lOnBits(28) = CLng(536870911)
    m_lOnBits(29) = CLng(1073741823)
    m_lOnBits(30) = CLng(2147483647)

    m_l2Power(0) = CLng(1)
    m_l2Power(1) = CLng(2)
    m_l2Power(2) = CLng(4)
    m_l2Power(3) = CLng(8)
    m_l2Power(4) = CLng(16)
    m_l2Power(5) = CLng(32)
    m_l2Power(6) = CLng(64)
    m_l2Power(7) = CLng(128)
    m_l2Power(8) = CLng(256)
    m_l2Power(9) = CLng(512)
    m_l2Power(10) = CLng(1024)
    m_l2Power(11) = CLng(2048)
    m_l2Power(12) = CLng(4096)
    m_l2Power(13) = CLng(8192)
    m_l2Power(14) = CLng(16384)
    m_l2Power(15) = CLng(32768)
    m_l2Power(16) = CLng(65536)
    m_l2Power(17) = CLng(131072)
    m_l2Power(18) = CLng(262144)
    m_l2Power(19) = CLng(524288)
    m_l2Power(20) = CLng(1048576)
    m_l2Power(21) = CLng(2097152)
    m_l2Power(22) = CLng(4194304)
    m_l2Power(23) = CLng(8388608)
    m_l2Power(24) = CLng(16777216)
    m_l2Power(25) = CLng(33554432)
    m_l2Power(26) = CLng(67108864)
    m_l2Power(27) = CLng(134217728)
    m_l2Power(28) = CLng(268435456)
    m_l2Power(29) = CLng(536870912)
    m_l2Power(30) = CLng(1073741824)


    Dim x
    Dim k
    Dim AA
    Dim BB
    Dim CC
    Dim DD
    Dim a
    Dim b
    Dim c
    Dim d

    Const S11 = 7
    Const S12 = 12
    Const S13 = 17
    Const S14 = 22
    Const S21 = 5
    Const S22 = 9
    Const S23 = 14
    Const S24 = 20
    Const S31 = 4
    Const S32 = 11
    Const S33 = 16
    Const S34 = 23
    Const S41 = 6
    Const S42 = 10
    Const S43 = 15
    Const S44 = 21

    x = ConvertToWordArray(sMessage)

    a = &H67452301
    b = &HEFCDAB89
    c = &H98BADCFE
    d = &H10325476

    For k = 0 To UBound(x) Step 16
    AA = a
    BB = b
    CC = c
    DD = d

    md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
    md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
    md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
    md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
    md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
    md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
    md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
    md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
    md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
    md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
    md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
    md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
    md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
    md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
    md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
    md5_FF b, c, d, a, x(k + 15), S14, &H49B40821

    md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
    md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
    md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
    md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
    md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
    md5_GG d, a, b, c, x(k + 10), S22, &H2441453
    md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
    md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
    md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
    md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
    md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
    md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
    md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
    md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
    md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
    md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A

    md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
    md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
    md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
    md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
    md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
    md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
    md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
    md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
    md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
    md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
    md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
    md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
    md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
    md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
    md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
    md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665

    md5_II a, b, c, d, x(k + 0), S41, &HF4292244
    md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
    md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
    md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
    md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
    md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
    md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
    md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
    md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
    md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
    md5_II c, d, a, b, x(k + 6), S43, &HA3014314
    md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
    md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
    md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
    md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
    md5_II b, c, d, a, x(k + 9), S44, &HEB86D391

    a = AddUnsigned(a, AA)
    b = AddUnsigned(b, BB)
    c = AddUnsigned(c, CC)
    d = AddUnsigned(d, DD)
    Next

    MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
    'MD5=LCase(WordToHex(b) & WordToHex(c)) 'I crop this to fit 16byte database password :D
    End Function
    %>
    ]]>     https://sufan.maytide.net/read.php/836.htm <![CDATA[CSS样式中文字连接的设定和说明]]> gOxiA <sufan_cn@msn.com> Wed, 28 Jul 2004 05:22:40 +0000 https://sufan.maytide.net/read.php/836.htm

    A:link {
    COLOR: #3333FF; TEXT-DECORATION: none
    }
    A:visited {
    COLOR: #0099FF; TEXT-DECORATION: none
    }
    A:hover {
    COLOR: #ff9900; TEXT-DECORATION: none
    }
    A:active {
    COLOR: #999999;
    text-decoration: none;
    }


    其中：link 表示：未访问的文字链接颜色
         visited 表示：已经访问过的链接颜色
         hover 表示：鼠标移至链接时的颜色
         active 表示：点击时或者选中后的链接颜色 ]]>