静态博客入口:http://blog.5d.cn/user8/wwle/
2007/08/28 | 关于window.Scroll
类别(网页类学习笔记) | 评论(0) | 阅读(692) | 发表于 14:39

<SCRIPT type=text/javascript>
<!--
var currentpos,timer;
function sc()
{
 clearInterval(timer);
}

function initialize()
{
 timer=setInterval("scrollwindow()",10);
}

function scrollwindow()
{
 currentpos=document.body.scrollTop;window.scroll(0,++currentpos);
}

document.onmousedown=sc
document.ondblclick=initialize

var newWindow=null
function subwin(loadpos,target,width,height)
{
 if(!newWindow||newWindow.closed)
  {
  newWindow=window.open(loadpos,target,"resizable,scrollbars,dependent,width=

2007/08/28 | Delphi 操作ACCESS
类别(语言类学习笔记) | 评论(0) | 阅读(516) | 发表于 14:19

unit Access;

interface

uses
  Windows, SysUtils, Variants, Classes, Graphics, Controls, StdCtrls, ComObj,
  DB, ADODB;


//创建Access数据库,DBFileName为数据库文件的完整路径
//                  ForceWrite为是否强制建立
//创建成功返回True,否则返回False
function CreateAccessDB(DBFullName: String; ForceWrite: Boolean): Boolean;

//删除Access数据库表
procedure DropAccessTable( AccessFullName: String;      //Access数据库完整文件名
                      

2007/08/23 | 这样的效果是用层还是用表格呢
类别(网页类学习笔记) | 评论(0) | 阅读(33) | 发表于 14:29

<html>
<head>
<title> New Document </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Keywords" content="">
<meta name="Description" content="">
<style type="text/css">
body,table,tr,td{
 font-size:12px;
 color:#000000;
 }
.sec1 {
    background-color: #99CC99;
    cursor: hand;
    color: #000000;
    border-left: 1px solid #FFFFFF;
    border-top: 1px solid #FFFFFF;

2007/08/19 | 计算机网络公共基础复习题
类别(教程习题) | 评论(0) | 阅读(270) | 发表于 13:18
 

1.         第一章

l    

2007/08/19 | 看到很久了,今天才想起来测试一下[有事QQ我!” 是怎么实现的?怎么实现类似的功能]
类别(网页类学习笔记) | 评论(1) | 阅读(66) | 发表于 00:04

安装QQ以后,在Delphi的菜单Project | Import type Libary
能够看到QQ注册了几组COM组件

QQApi 1.0 Type library
QQIEHelper 1.0 Type library
....

<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=80000816&Exe=QQ&Site=im.qq.com&Menu=No>
<img border="0" SRC=http://wpa.qq.com/pa?p=1:80000816:1 alt="给我发消息"></a>

 1、取状态图片接口:
    接口样例:http://wpa.qq.com/pa?p=1:80000816:1

    说明:Web网页中可引用此接口,来获得指定QQ用户的在线状态;该接口返回一张图片来表示用户当前的在线状态;目前,系统只支持“在线”和“离线”两种状态;
    CGI URL:http://wpa.qq.com/pa?
参数:

2007/08/13 | 突然间迷茫了[已解决]
类别(语言类学习笔记) | 评论(0) | 阅读(61) | 发表于 21:58

用了这么长时间,delphi 字符中&符号怎么这么恐怖.

最近写一个以exe文件为户端(其实还是利用asp)访问远程数据库access,然后添加记录代码如下:

procedure TfmMain.GfSpeedButton1Click(Sender: TObject);
var
 Url,s : string;
 Response : TStringStream;
 Request : TStrings;
 idHttp1:tidhttp;
 Doc: IHTMLDocument2;
 doc2:variant;
begin
  //Doc := wb1.Document as IHTMLDocument2;
 //Memo1.Lines.Add(Doc.body.outertext);
   idHttp1:=TIdHTTP.Create(Self);
   Response := TStringStream.Create('');
   try
     Request := TStringList.Create ;
     try
       s := 'cname='+trim(GfEdit1.text)+
            ''&''+'tqq='+trim(gfedit2.text)+
            ''&''+'phone='+trim(gfedit3.text)+
            ''&''+'dz='+trim(gfedit4.text)+
            ''&''+'je='+trim(gfedit5.text)+
            ''&''+'zh='+trim(gfedit6.text)+
            ''&''+'lx='+trim(self.GfComboBox1.Text); //这里构造一个串 有问题

//而直接这样的话就可以

s:='usr=UU&pas=pa';

       s:=StringReplace(s,' ','',[rfReplaceAll, rfIgnoreCase]);
       //s:='user=wwle&pass=wwle';
      

2007/08/13 | ASP 练习题 2007-08-13
类别(教程习题) | 评论(3) | 阅读(660) | 发表于 17:53
 

ASP 练习题()
一、填空题
1
、网页通常可分为静态网页和__静态___网页,静态网页是由(HTML

2007/08/09 | 具有edit功能的select [vbasp学习文摘 ]
类别(网页类学习笔记) | 评论(0) | 阅读(16) | 发表于 23:52

具有edit功能的select

http://vbasp.blog.phoenixtv.com

2007/08/09 | 结合asp创建弹出菜单[待验证]
类别(网页类学习笔记) | 评论(0) | 阅读(123) | 发表于 23:46
文章页数:[1] 
< !-- #include virtual=include/database.asp -->
< %
set rs=server.createobject("adodb.recordset")

sql="select menu_name, menu_link, menu_bgcolor, menu_color,id from enter_individual where (parent_id = (select id from enter_individual where menu_flag = root )) " 查询得到根节点
rs.open sql,conn,1,1
response.write "< table width=100% border=0 cellspacing=1 cellpadding=0 align=center>< tr bgcolor=#3399cc valign=bottom align=center>"
sumnum=rs.recordcount
myarray=rs.getrows()
rs.close ()
widd=780/sumnum 从一级子菜单数目判断弹出菜单x坐标的递增像素
dim i
2007/08/09 | 关于创建树形菜单的一些代码[待验证]
类别(网页类学习笔记) | 评论(0) | 阅读(123) | 发表于 23:36

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset="utf-8">
<style type="text/css">
.blur1 { filter:blur(Add=true,Direction=134,Strength=10)}
.style1 {filter: blur(Add=true,Direction=134,Strength=10); font-size: 36px; }
</style>
</head>

<BODY>
<div style="filter:Blur(add=ture,direction=135,strength=100);">pppppppppp</Div>
<p style=filter:blur(add=ture,direction=135,strength=10)><font

size="+3">欢迎来在线!</font></p>
<table>
<tr>
<TD style="FILTER: blur(add=ture,direction=135,strength=10)"><B><FONT
size=+3>欢迎来在线</FONT></B></TD>
</tr>
</table>
<script lanauge=jscript>

var   treebase   =   {  
  rootnum                 :   0  
  };  
   
        function   treeview(nodetxt,nodehref,nodetag){  
            this.childNodes=[];  
    this.txt=nodetxt;  
    if(nodehref==null)  
    this.href="";  
    else 

2007/08/09 | 淘到社区中的宝
类别(网页类学习笔记) | 评论(0) | 阅读(14) | 发表于 13:49

我们程序共享社区人也太少了吧.

不过还是淘到了宝哦.

<style type="text/css">
 <!-- li { width:200px;white-space:nowrap; text-overflow:ellipsis; -o-text-overflow:ellipsis;overflow: hidden; } div { width:200px;white-space:nowrap; text-overflow:ellipsis; -o-text-overflow:ellipsis;overflow: hidden; }   -->            
</style>       
<ul>            
<li><a href="#">w3c-标准网页组件库w3c-标准网页组件库</a></li>            
<li><a href="#">w3c-标准网页组件库w3c-标准网页组件库</a></li>       
<li><a href="#">w3c-标准网页组件库w3c-标准网页组件库</a></li>            
<li><a href="#">w3c-标准网页组件库w3c-标准网页组件库</a></li>            
<li><a href="#">w3c-标准网页组件库w3c-标准网页组件库</a></li>
</ul>            
<div><a href="#">w3c-标准网页组件库w3c-标准网页组件库</a></div>

现在比较忙,回头研究一下,转到asp显示记录集重复的时候使用.

2007/08/08 | 网页中如何控制音乐
类别(网页类学习笔记) | 评论(1) | 阅读(557) | 发表于 23:14

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> 在网页中插入音乐</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<script language=jscript>
 
 function runCode(obj)  //定义一个运行代码的函数,

{
  var code=obj.value;//即要运行的代码。
  var newwin=window.open('','','');  //打开一个窗口并赋给变量newwin。
  newwin.opener = null // 防止代码对论谈页面修改
  newwin.document.write(code);  //向这个打开的窗口中写入代码code,这样就实现了运行代码功能。
  newwin.document.close();
  //newwin.close();
}
</script>

</script>
</HEAD>

<BODY topmargin=0>
<bgsound id='bgsnd' src="" autostart=false >
<table border="1" width="100%" id="table1">
 <tr>
  <td>可以在网页中插入音乐播放器:</td>
  <td><textarea cols="99" rows="11" name="em" tabindex="1">
<html>
<body>
<embed src="yssa.mp3" width=200 height=50 type=audio/mpeg loop="true" autostart="true"> </embed>
支持的音乐格式: wma、mp3、rm、ra、ram、asf,尽量选用可连接性高的音乐链接,保证音乐可以顺利播放; <br>
width和height表示播放器宽度和高度,可以灵活设置; <br>
autostart="true"

2007/08/08 | 网页反序输出及其他
类别(网页类学习笔记) | 评论(0) | 阅读(29) | 发表于 01:51

★反续排列

  代码:在需要处加入

 
  < bdo dir="rtl">反续列

  特点:当你需要把一段话反起来排列时,你怎么办呢?反起来一个一个地输入吗?只要使用以上代码,即可实现。

★自动刷新

  代码:在网页的和之间加入

  < meta http-equiv="refresh"content="15;url=cesi.htm">

  解释:如果你的主页有一个欢迎页面,你希望它在显示15秒后转入你的首页,你可以使用以上的代码,时间可改为你想要的时间。

★动态字幕

  代码:在需要处加入

  < marquee onmouseover=this.stop() onmouseout=this.start()>动态字幕</marquee>特点:当你把鼠标指向字幕时字幕停止并有链接、移开鼠标指针字幕又滚动了,运用以上代码即可实现。

  延伸:动态字幕有一个属性“direction”,它是控制字幕滚动方向的,把“direction”的属性改为“up”,就可以实现向上滚动,同理当改为“down”时就向下滚动,那么“left”和“right”自然就是向左和向右了。

2007/08/08 | action 中的函数
类别(网页类学习笔记) | 评论(0) | 阅读(40) | 发表于 01:39

- getUTCMilliseconds 获取UTC格式的当前毫秒数
    - getUTCMinutes 获取UTC格式的当前分钟数
    - getUTCMonth 获取UTC格式的当前月份(注意从0开始:0-Jan,1-Feb...)
    - getUTCSeconds 获取UTC格式的当前秒数
    - getYear 获取当前缩写年份(当前年份减去1900)
    - new Date 新建日期时间对象
    - setDate 设置当前日期(本月的几号)
    - setFullYear 设置当前年份(四位数字)
    - setHours 设置当前小时数(24小时制,0-23)
    - setMilliseconds 设置当前毫秒数
    - setMinutes 设置当前分钟数
    - setMonth 设置当前月份(注意从0开始:0-Jan,1-Feb...)
    - setSeconds 设置当前秒数
    - setTime 设置UTC格式的从1970.1.1 0:00以来的秒数
    - setUTCDate 设置UTC格式的当前日期(本月的几号)
    - setUTCFullYear 设置UTC格式的当前年份(四位数字)
    - setUTCHours 设置UTC格式的当前小时数(24小时制,0-23)
    - setUTCMilliseconds 设置UTC格式的当前毫秒数
    - setUTCMinutes 设置UTC格式的当前分钟数
    - setUTCMonth 设置UTC格式的当前月份(注意从0开始:0-Jan,1-Feb...)
    - setUTCSeconds 设置UTC格式的当前秒数
    - setYear 设置当前缩写年份(当前年份减去1900)
    - toString 将日期时间值转换成"日期/时间"形式的字符串值
    - UTC 返回指定的UTC格式日期时间的固定时间值
   + Key 键盘对象
    - BACKSPACE Backspace(<-)键
    - CAPSLOCK CapsLock键
    - CONTROL Ctrl键
    - DELETEKEY Delete(Del)键
    - DOWN 方向下键
    - END End键
    - ENTER Enter(回车)键
    - ESCAPE Esc键
    - getAscii 获取最后一个按下或松开的键的对应字符的Ascii码
    - getCode 获取最后一个被按下的键的键盘扫描码
    - HOME Home键
    - INSERT Insert(Ins)键
    - isDown 当指定键被按下时返回True值
    - isToggled 当Caps lock或者Num Lock键被锁定时返回真(True)
    - LEFT 方向左键
    - PGDN PageDown(PGDN)键
    - PGUP PageUp(PGUP)键
    - RIGHT 方向右键
    - SHIFT Shift键
    - SPACE 空格键
    - TAB Tab键
    - UP 方向上键
   + Math 数学函数对象
    - abs abs(n) 取n的绝对值
   

2007/08/07 | vbscript和javascript互相调用方法
类别(网页类学习笔记) | 评论(0) | 阅读(473) | 发表于 21:17
vbscript和javascript互相调用方法 (转载)   
    ASP具备管理不同语言脚本程序的能力,能够自动调用合适的脚本引擎以解释脚本代码和执行内置函数。ASP开发环境提供了两种脚本引擎,即VBScript(缺省)和JScript。不过,开发者并没有被限制于只能使用这两种语言,只要能够提供合适的ActiveX脚本引擎就能使用任何脚本语言。    
    脚本语言的选择往往基于许多不同原因:它可能是开发者最为熟悉的语言,可能是对给定工程来说能够提供最多特色支持的,也有可能是最具效率的。不同的环境和要求使得我们在选择脚本语言时注重不同的因素,同时也使得我们在某些时候面临选定的脚本语言不能直接提供其它语言固有的函数这一问题,或某个脚本已经写成但用的却是另外一种脚本语言。    
    此时应该怎么办?是否需要用当前所用的脚本语言重写这些脚本?或者说,是否有可能在一种脚本语言中调用其它脚本语言的内置函数?本文要说明的就是在ASP应用中如何让VBScript脚本和JScript脚本交互以最大限度地获得两种脚本语言的特色支持。    
    一、VBScript和JScript的内置函数    
    在VBScript和JScript中,有大量的内置函数功能是相同或类似的。然而,在一种脚本语言中内置的函数并非总是在另外一种脚本语言中也有对应的函数。例如,VBScript提供了许多用于操作字符串和格式化数据的函数,这些函数在JScript中并不存在。这些函数包括StrReverse()、Filter()以及FormatCurrency()等。在另一方面,JScript所提供的用于管理数组、字符串编码等的函数在VBScript中也没有定义,如join()、reverse()、pow()、位操作、escape()和unescape()等。    
    那么,如果在JScript程序中需要一个VBscript函数该怎么办呢?    
    二、异种脚本的互相调用    
    如果需要在JScript脚本中调用一个VBScript中内置的函数,则应该写一个VBScript用户定义函数(在这里调用VBScript内置函数),然后在JScript脚本中象调用公用JScript函数一样调用这个用户定义函数。    
    例如,如果要调用的VBSCript内置函数是FormatCurrency(),则可以声明如下自定义函数:    
    <SCRIPT   LANGUAGE="VBSCRIPT"   RUNAT="SERVER">  
    Function   Formatvalue(value)    
      Formatvalue   =   FormatCurrency(value)  
    End   Function  
    </SCRIPT>  
    接下来在JScript代码中就可以象普通JScript函数一样调用Formatvalue()了。用类似的方法也可以实现VBScript代码调用JScript函数。    
    应用同样的规则,我们可以在任何脚本内调用任何用户定义函数。不过,从JScript脚本内调用一个不带参数的VBScript过程(Sub)时应略加注意,此时在JS