实现目标：
   利用iptabels给局域网做NAT透明代理，比如网吧或公司企业的上网代理服务器！同时实现了内网WEB服务器的端口映射！并且解决了WEB服务器访问者IP都为代理服务器IP的问题！同时内外网皆可正常通过公网IP访问内网的WEB服务器！（加了SQUID后还没有成功，努力中！）

软硬件环境如下：
   操作系统为 RHEL 4 ，3COM网卡两张，eth0为外网网卡，IP为：221.222.111.10;   eth1为内网网卡，IP为：192.168.0.1;  内网WEB服务器IP为：192.168.0.200 。网络环境为：中国电信10M光纤，固定IP！

方法为如下：
   首先我注释掉了iptables文件原始的全部内容，然后在iptables文件中写入如下内容！

##################################### Nat段开始 #########################################
*nat
:PREROUTING ACCEPT [0:0]
:OUTPUT ACCEPT [0:0]
:POSTROUTING ACCEPT [0:0]
#
#------------------------------ Web Server 端口映射 ------------------------------
# 192.168.0.200 端口80
######################
# 用DNAT作端口映射！注意以下指令一定要在NAT透明代理的前面，否则无效！
-A PREROUTING -i eth1 -p tcp -d 221.222.111.10 --dport 80 -j DNAT --to-destination 192.168.0.200:80
-A PREROUTING -i eth0 -p tcp -d 221.222.111.10 --dport 80 -j DNAT --to-destination 192.168.0.200:80
#
#------------------------------ Iptables NAT 透明代理 ------------------------------
#
-A POSTROUTING -s 192.168.0.0/255.255.255.0 -j SNAT --to 221.222.111.10
#
COMMIT
##################################### Nat段结束 #########################################

###################################### Filter段开始 #####################################
#
*filter
:INPUT ACCEPT [0:0]
:FORWARD ACCEPT [0:0]
:OUTPUT ACCEPT [0:0]
#
#防止网络上其它计算机使用Ping命令探测本机：
-A INPUT -p icmp --icmp-type echo-request -i eth0 -j DROP
#
# 防止广播包从IP代理服务器进入局域网：
-A INPUT -s 255.255.255.255 -i eth0 -j DROP
-A INPUT -s 224.0.0.0/224.0.0.0 -i eth0 -j DROP
-A INPUT -d 0.0.0.0 -i eth0 -j DROP
# 屏蔽掉以下的TCP和UDP端口：
-A INPUT -i eth1 -p udp -m udp --dport 3 -j DROP
-A INPUT -i eth1 -p tcp -m tcp --dport 3 -j DROP
-A INPUT -i eth1 -p tcp -m tcp --dport 111 -j DROP
-A INPUT -i eth1 -p udp -m udp --dport 111 -j DROP
-A INPUT -i eth1 -p udp -m udp --dport 587 -j DROP
-A INPUT -i eth1 -p tcp -m tcp --dport 587 -j DROP
#
COMMIT
###################################### Filter段结束 #####################################

修改完以上的文件后，再将/etc/sysctl.conf 文件里面修改成 net.ipv4.ip_forward = 1 ，这个很重要，不然NAT代理不能生效的！

然后用#: service iptables restart 这个指令重起iptables 服务！！OK，你再试试看代理服务和WEB能否则正常访问，我想一定可以的！


附：
   Web Server 端口映射一定要在 Iptables NAT透明代理指令前面，否则内网用户将无法通过公网IP或域名访问内网的Web服务器！
   如果有需要做一些过协议过滤，比如公司的要过滤掉QQ等，请搜索CU论坛的其它帖子，这就不在本帖的讨论范围了

先解释为什么要配置透明代理。
其实只配置squid就可以实现代理功能，但是对于客户端，就必须在浏览器中设置proxy server，对于其他的工具，比如FlashGet, CuteFTP等等，也必须一一设置，这一点非常麻烦。但是如果设置了透明代理，那么在客户端只需要在网络配置中设置一个网关就可以了，其他的任何程序都不用另行设置。这是设置透明代理最大的诱惑，当然这只是对我而言，其实iptables有更强大的防火墙功能，这才是它最大的用处。但是，此次配置不涉及防火墙，如果有兴趣的请查找iptables howto,了解更多。

1。假设我们的linux内已经将防火墙支持选项编译进去，这一点可以进入kernel source目录，用make menuconfig确认。

2。安装squid，一般对于各个Linux发行版，完全安装的话应该已经安装过了，当然也可以从以下网址下载安装：
http://www.squid-cache.org/

3。无论是重新安装的还是系统中原来就有的，因为对于各个发行版可能squid的配置文件所在的位置各不相同，用find命令确认squid.conf文件的确切位置。如果是rpm安装，也可以用rpm命令来确认：rpm -ql [squidrpmname.rpm] | grep squid.conf

4。在这之前，你有件事不要忘了做件事，你最好把/etc/squid/squid.conf.default CP 到/etc/squid/squid.conf，不然可能会不成功的！ 编辑squid.conf文件，确保以下内容存在：
httpd_accel_host virtual
httpd_accel_port 80
httpd_accel_with_proxy on
httpd_accel_uses_host_header on
cache_effective_user nobody
cache_effective_group nobody
http_access allow all
cache_dir ufs /usr/local/squid/cache 100 16 256
注：最后一句为cache目录，需要在下面创建，可以改为你本机squid的所在目录。倒数第二句，表示我们允许所有的请求，这是很不安全的，可以自己创建一个组，然后allow这个组，并且deny all，具体的设置仔细看一下squid.conf就可以了，有很详细的解释和例子

5。创建cache目录（如果没有的话），修改该目录所有者为nobody
chown nobody:nobody /pathname/cache

6。查看配置文件中默认的log目录，将那个目录的所有者修改为nobody，以确保log可以写入

7。创建cache： squid -z

8。启动squid： service squid start
squid的站点维护了一份很详细的FAQ，基本上你需要问的问题都有答案，比如你可以先用squid -NCd1来以debug模式启动，这样如果有错误会报出来，一般如果是ADSL拨号的，那么在没有拨号之前就启动squid的话是会出错的(FATAL: ipcache_init: DNS name lookup tests failed)，因为squid启动时会去检查一些常用的DNS，但是这时候你并没有接入internet，自然就出错了，所以我们需要在启动的时候不检查DNS，这就需要用加上-D选项来启动squid

9。启动成功之后，我们就可以去客户端的浏览器里面设置proxy来测试一下了，如果可以接入internet，那么squid就算设置成功了

10。还有一个后续工作，就是确认squid是不是开机就自动启动了，一般在/etc/init.d中已经有了squid脚本，我们需要做的就是将它ln到适当的rc.d目录中，比如我默认是runlevel5启动的，那么我执行:
ln -s /etc/init.d/squid /etc/init.d/rc5.d/S99squid
ln -s /etc/init.d/squid /etc/init.d/rc5.d/K01squid
这是在SuSE下面，如果是RedHat，那么rc.d目录是在/etc下面，而不是在/etc/init.d下面。

OK，squid设置结束了，下面我们开始配置iptables
可以用前面所提到的配置工具，但是我没有试过，所以是直接用iptables命令来做的。
可以man iptables来查看帮助

我们把iptables的设置命令存在一个脚本文件中，假设脚本文件名为firewall，然后将此文件存放在/etc/init.d中，并且在启动文件中运行此脚本。以下为操作步骤

1。touch /etc/init.d

2。vi /etc/init.d
加入以下内容：
#!/bin/sh
echo "Enabling IP Forwarding..."
echo 1 > /proc/sys/net/ipv4/ip_forward
echo "Starting iptables rules..."
#Refresh all chains
/sbin/iptables -F -t nat
iptables -t nat -A PREROUTING -i eth0 -p tcp -m tcp
--dport 80 -j REDIRECT --to-ports 3128

iptables -t nat -A POSTROUTING -s 192.168.1.0/24 -o
ppp0 -j MASQUERADE

对于以上命令的解释如下：
/proc/sys/net/ipv4/ip_forward必须设置为1（默认是0）才可以使用路由功能。
/sbin/iptables -F -t nat将nat table中的所有现存规则清空。
eth0：为Linux机器中的网卡。
3128：为squid中默认的监听端口。
ppp0：为linux中的ADSL设备（在SuSE中为ppp0，在redhat中可能是dsl0）。
MASQUERADE：适用于拨号上网的服务器，因为没有静态IP地址，对于有静态IP的服务器，可以用SNAT --to-source ipadress来替代。

注：以上的命令没有涉及防火墙，请自行参考配置，以上命令也没有删除filter table中的规则，也就是如果以前设置过防火墙，那么不会受到影响。

3。chmod u+x firewall，更改文件属性，使其可以被执行

4。编辑/etc/init.d/boot.local文件，在最后加上/etc/init.d/firewall这一句，确保开机就执行此脚本。
注：SuSE中是boot.local，对于redhat，则需要编辑/etc/rc.d/rc.local文件。

5。运行firewall，规则立刻生效。

到此为止，所有配置结束

　　1. 什么是NAT

　　在传统的标准的TCP/IP通信过程中，所有的路由器仅仅是充当一个中间人的角色，也就是通常所说的存储转发，路由器并不会对转发的数据包进行修改，更为确切的说，除了将源MAC地址换成自己的MAC地址以外，路由器不会对转发的数据包做任何修改。NAT(Network Address Translation网络地址翻译)恰恰是出于某种特殊需要而对数据包的源ip地址、目的ip地址、源端口、目的端口进行改写的操作。

　　2. 为什么要进行NAT

　　我们来看看再什么情况下我们需要做NAT。

　　假设有一家ISP提供园区Internet接入服务，为了方便管理，该ISP分配给园区用户的IP地址都是伪IP，但是部分用户要求建立自己的WWW服务器对外发布信息，这时候我们就可以通过NAT来提供这种服务了。我们可以在防火墙的外部网卡上绑定多个合法IP地址，然后通过NAT技术使发给其中某一个IP地址的包转发至内部某一用户的WWW服务器上，然后再将该内部WWW服务器响应包伪装成该合法IP发出的包。

　　再比如使用拨号上网的网吧，因为只有一个合法的IP地址，必须采用某种手段让其他机器也可以上网，通常是采用代理服务器的方式，但是代理服务器，尤其是应用层代理服务器，只能支持有限的协议，如果过了一段时间后又有新的服务出来，则只能等待代理服务器支持该新应用的升级版本。如果采用NAT来解决这个问题，

　　因为是在应用层以下进行处理，NAT不但可以获得很高的访问速度，而且可以无缝的支持任何新的服务或应用。

　　还有一个方面的应用就是重定向，也就是当接收到一个包后，不是转发这个包，而是将其重定向到系统上的某一个应用程序。最常见的应用就是和squid配合使用成为透明代理，在对http流量进行缓存的同时，可以提供对Internet的无缝访问。

　　3. NAT的类型

　　在linux2.4的NAT-HOWTO中，作者从原理的角度将NAT分成了两种类型，即源NAT(SNAT)和目的NAT(DNAT)，顾名思义，所谓SNAT就是改变转发数据包的源地址，所谓DNAT就是改变转发数据包的目的地址。 

　　二、原理

　　在“用iptales实现包过虑型防火墙”一文中我们说过，netfilter是Linux 核心中一个通用架构，它提供了一系列的"表"(tables)，每个表由若干"链"(chains)组成，而每条链中可以有一条或数条规则(rule)组成。并且系统缺省的表是"filter"。但是在使用NAT的时候，我们所使用的表不再是"filter"，而是"nat"表，所以我们必须使用"-t nat"选项来显式地指明这一点。因为系统缺省的表是"filter"，所以在使用filter功能时，我们没有必要显式的指明"-t filter"。

　　同filter表一样，nat表也有三条缺省的"链"(chains)，这三条链也是规则的容器，它们分别是:

　　PREROUTING:可以在这里定义进行目的NAT的规则，因为路由器进行路由时只检查数据包的目的ip地址，所以为了使数据包得以正确路由，我们必须在路由之前就进行目的NAT;

　　POSTROUTING:可以在这里定义进行源NAT的规则，系统在决定了数据包的路由以后在执行该链中的规则。

　　OUTPUT:定义对本地产生的数据包的目的NAT规则。

    三、操作语法

　　如前所述，在使用iptables的NAT功能时，我们必须在每一条规则中使用"-t nat"显示的指明使用nat表。然后使用以下的选项:

　　1. 对规则的操作

　　加入(append) 一个新规则到一个链 (-A)的最后。

　　在链内某个位置插入(insert) 一个新规则(-I)，通常是插在最前面。

　　在链内某个位置替换(replace) 一条规则 (-R)。

　　在链内某个位置删除(delete) 一条规则 (-D)。

　　删除(delete) 链内第一条规则 (-D)。

　　2. 指定源地址和目的地址

　　通过--source/--src/-s来指定源地址(这里的/表示或者的意思，下同)，通过--destination/--dst/-s来指定目的地址。可以使用以下四中方法来指定ip地址:

　　a. 使用完整的域名，如“www.linuxaid.com.cn”;

　　b. 使用ip地址，如“192.168.1.1”;

　　c. 用x.x.x.x/x.x.x.x指定一个网络地址，如“192.168.1.0/255.255.255.0”;

　　d. 用x.x.x.x/x指定一个网络地址，如“192.168.1.0/24”这里的24表明了子网掩码的有效位数，这是 UNIX环境中通常使用的表示方法。

　　缺省的子网掩码数是32，也就是说指定192.168.1.1等效于192.168.1.1/32。

　　3. 指定网络接口

　　可以使用--in-interface/-i或--out-interface/-o来指定网络接口。从NAT的原理可以看出，对于PREROUTING链，我们只能用-i指定进来的网络接口;而对于POSTROUTING和OUTPUT我们只能用-o指定出去的网络接口。

　　4. 指定协议及端口

　　可以通过--protocol/-p选项来指定协议，如果是udp和tcp协议，还可--source-port/--sport和 --destination-port/--dport来指明端口。
四、准备工作

　　1. 编译内核，编译时选中以下选项，具体可参看“用iptales实现包过虑型防火墙”一文:

　　 Full NAT

　　 MASQUERADE target support

　　 REDIRECT target support

　　2. 要使用NAT表时，必须首先载入相关模块:

　　modprobe ip_tables

　　modprobe ip_nat_ftp

　　iptable_nat 模块会在运行时自动载入。

    五、使用实例

　　1. 源NAT(SNAT)

　　比如，更改所有来自192.168.1.0/24的数据包的源ip地址为1.2.3.4:

　　iptables -t nat -A POSTROUTING -s 192.168.1.0/24 -o eth0 -j SNAT --to 1.2.3.4

　　这里需要注意的是，系统在路由及过虑等处理直到数据包要被送出时才进行SNAT。

　　有一种SNAT的特殊情况是ip欺骗，也就是所谓的Masquerading，通常建议在使用拨号上网的时候使用，或者说在合法ip地址不固定的情况下使用。比如

　　# iptables -t nat -A POSTROUTING -o ppp0 -j MASQUERADE

　　可以看出，这时候我们没有必要显式的指定源ip地址等信息。

　　2. 目的SNAT(DNAT)

　　比如，更改所有来自192.168.1.0/24的数据包的目的ip地址为1.2.3.4:

　　iptables -t nat -A PREROUTING -s 192.168.1.0/24 -i eth1 -j DNAT --to 1.2.3.4

　　这里需要注意的是，系统是先进行DNAT，然后才进行路由及过虑等操作。

　　有一种DNAT的特殊情况是重定向，也就是所谓的Redirection，这时候就相当于将符合条件的数据包的目的ip地址改为数据包进入系统时的网络接口的ip地址。通常是在与squid配置形成透明代理时使用，假设squid的监听端口是3128，我 们可以通过以下语句来将来自192.168.1.0/24，目的端口为80的数据包重定向到squid监听

　　端口:

　　iptables -t nat -A PREROUTING -i eth1 -p tcp -s 192.168.1.0/24 --dport 80

　　-j REDIRECT --to-port 3128

  　　六、综合例子

　　1. 使用拨号带动局域网上网

　　小型企业、网吧等多使用拨号网络上网，通常可能使用代理，但是考虑到成本、对协议的支持等因素，建议使用ip欺骗方式带动区域网上网。

　　成功升级内核后安装iptables，然后执行以下脚本:

　　#载入相关模块

　　modprobe ip_tables

　　modprobe ip_nat_ftp

　　#进行ip伪装

　　iptables -t nat -A POSTROUTING -o ppp0 -j MASQUERADE

　　2. ip映射

　　假设有一家ISP提供园区Internet接入服务，为了方便管理，该ISP分配给园区用户的IP地址都是伪IP，但是部分用户要求建立自己的WWW服务器对外发布信息。我们可以再防火墙的外部网卡上绑定多个合法IP地址，然后通过ip映射使发给其中某一 个IP地址的包转发至内部某一用户的WWW服务器上，然后再将该内部WWW服务器响应包伪装成该合法IP发出的包。

　　我们假设以下情景:

　　该ISP分配给A单位www服务器的ip为:

　　伪ip:192.168.1.100

　　真实ip:202.110.123.100

　　该ISP分配给B单位www服务器的ip为:

　　伪ip:192.168.1.200

　　真实ip:202.110.123.200

　　linux防火墙的ip地址分别为:

　　内网接口eth1:192.168.1.1

　　外网接口eth0:202.110.123.1

　　然后我们将分配给A、B单位的真实ip绑定到防火墙的外网接口，以root权限执行以下命令:

　　ifconfig eth0 add 202.110.123.100 netmask 255.255.255.0

　　ifconfig eth0 add 202.110.123.200 netmask 255.255.255.0

　　成功升级内核后安装iptables，然后执行以下脚本:

　　#载入相关模块

　　modprobe ip_tables

　　modprobe ip_nat_ftp

　　首先，对防火墙接收到的目的ip为202.110.123.100和202.110.123.200的所有数据包进行目的NAT(DNAT):

　　iptables -A PREROUTING -i eth0 -d 202.110.123.100 -j DNAT --to 192.168.1.100

　　iptables -A PREROUTING -i eth0 -d 202.110.123.200 -j DNAT --to 192.168.1.200

　　其次，对防火墙接收到的源ip地址为192.168.1.100和192.168.1.200的数据包进行源NAT(SNAT):

　　iptables -A POSTROUTING -o eth0 -s 192.168.1.100 -j SNAT --to 202.110.123.100

　　iptables -A POSTROUTING -o eth0 -s 192.168.1.200 -j SNAT --to 202.110.123.200

　　这样，所有目的ip为202.110.123.100和202.110.123.200的数据包都将分别被转发给192.168.1.100和192.168.1.200;而所有来自192.168.1.100和192.168.1.200的数据包都将分 别被伪装成由202.110.123.100和202.110.123.200，从而也就实现了ip映射。

文件GetCode.asp
<%
Const nMaxSaturation = 100   ' 最大色彩饱和度
Const nBlankNoisyDotOdds = 0.2  ' 空白处噪点率
Const nColorNoisyDotOdds = 0.1 ' 有色处噪点率
Const nCharCount = 4      ' 产生的字符个数
Const nPixelWidth = 20     ' 单个字符位图的宽度
Const nPixelHeight = 20       ' 单个字符位图的高度
Const nColorHue = 220      ' 显示验证码的色调(-1表示随机色调, -2表示灰度色调)
Const nAngleRandom = 10         ' 角度随机量
Const nLengthRandom = 10        ' 长度随机量(百分比)
Const cCharSet = "0123456789"
                                ' 构成验证码的字符集
                                ' 如果扩充了下边的字母矢量库，则可以相应扩充这个字符集

Dim Buf(), DigtalStr
Dim Lines(), LineCount
Dim CursorX, CursorY, DirX, DirY

Randomize
Call CreatValidCode("GetCode")

Sub CDGen_Reset()
 ' 复位矢量笔和环境变量
 LineCount = 0
 CursorX = 0
 CursorY = 0
 ' 初始的光笔方向是垂直向下
 DirX = 0
 DirY = 1
End Sub

Sub CDGen_Clear()
 ' 清空位图阵列
 Dim i, j
 ReDim Buf(nPixelHeight - 1, nCharCount * nPixelWidth - 1)

 For j = 0 To nPixelHeight - 1
  For i = 0 To nCharCount * nPixelWidth - 1
   Buf(j, i) = 0
  Next
 Next
End Sub

Sub CDGen_PSet(X, Y)
 ' 在位图阵列上画点
 Buf(Y, X) = 1
End Sub

Sub CDGen_Line(X1, Y1, X2, Y2)
 ' 在位图阵列上画线
 Dim DX, DY, DeltaT, i
 
 DX = X2 - X1
 DY = Y2 - Y1
 If Abs(DX) > Abs(DY) Then DeltaT = Abs(DX) Else DeltaT = Abs(DY)
 For i = 0 To DeltaT
  CDGen_PSet X1 + DX * i / DeltaT, Y1 + DY * i / DeltaT
 Next
End Sub

Sub CDGen_FowardDraw(nLength)
 ' 按当前光笔方向绘制指定长度并移动光笔，正数表示从左向右/从上向下绘制，负数表示从右向左/从下向上绘制
 nLength = Sgn(nLength) * Abs(nLength) * (1 - nLengthRandom / 100 + Rnd * nLenghtRandom * 2 / 100)
 ReDim Preserve Lines(3, LineCount)
 Lines(0, LineCount) = CursorX
 Lines(1, LineCount) = CursorY
 CursorX = CursorX + DirX * nLength
 CursorY = CursorY + DirY * nLength
 Lines(2, LineCount) = CursorX
 Lines(3, LineCount) = CursorY
 LineCount = LineCount + 1
End Sub

Sub CDGen_SetDirection(nAngle)
 ' 按指定角度设定画笔方向, 正数表示相对当前方向顺时针改变方向，负数表示相对当前方向逆时针改变方向
 Dim DX, DY
 
 nAngle = Sgn(nAngle) * (Abs(nAngle) - nAngleRandom + Rnd * nAngleRandom * 2) / 180 * 3.1415926
 DX = DirX
 DY = DirY
 DirX = DX * Cos(nAngle) - DY * Sin(nAngle)
 DirY = DX * Sin(nAngle) + DY * Cos(nAngle)
End Sub

Sub CDGen_MoveToMiddle(nActionIndex, nPercent)
 ' 将画笔光标移动到指定动作的中间点上，nPercent为中间位置的百分比
 Dim DeltaX, DeltaY
 
 DeltaX = Lines(2, nActionIndex) - Lines(0, nActionIndex)
 DeltaY = Lines(3, nActionIndex) - Lines(1, nActionIndex)
 CursorX = Lines(0, nActionIndex) + Sgn(DeltaX) * Abs(DeltaX) * nPercent / 100
 CursorY = Lines(1, nActionIndex) + Sgn(DeltaY) * Abs(DeltaY) * nPercent / 100
End Sub

Sub CDGen_MoveCursor(nActionIndex)
 ' 将画笔光标移动到指定动作的起始点上
 CursorX = Lines(0, nActionIndex)
 CursorY = Lines(1, nActionIndex)
End Sub

Sub CDGen_Close(nActionIndex)
 ' 将当前光笔位置与指定动作的起始点闭合并移动光笔
 ReDim Preserve Lines(3, LineCount)
 Lines(0, LineCount) = CursorX
 Lines(1, LineCount) = CursorY
 CursorX = Lines(0, nActionIndex)
 CursorY = Lines(1, nActionIndex)
 Lines(2, LineCount) = CursorX
 Lines(3, LineCount) = CursorY
 LineCount = LineCount + 1
End Sub

Sub CDGen_CloseToMiddle(nActionIndex, nPercent)
 ' 将当前光笔位置与指定动作的中间点闭合并移动光笔，nPercent为中间位置的百分比
 Dim DeltaX, DeltaY
 
 ReDim Preserve Lines(3, LineCount)
 Lines(0, LineCount) = CursorX
 Lines(1, LineCount) = CursorY
 DeltaX = Lines(2, nActionIndex) - Lines(0, nActionIndex)
 DeltaY = Lines(3, nActionIndex) - Lines(1, nActionIndex)
 CursorX = Lines(0, nActionIndex) + Sgn(DeltaX) * Abs(DeltaX) * nPercent / 100
 CursorY = Lines(1, nActionIndex) + Sgn(DeltaY) * Abs(DeltaY) * nPercent / 100
 Lines(2, LineCount) = CursorX
 Lines(3, LineCount) = CursorY
 LineCount = LineCount + 1
End Sub

Sub CDGen_Flush(X0, Y0)
 ' 按照当前的画笔动作序列绘制位图点阵
 Dim MaxX, MinX, MaxY, MinY
 Dim DeltaX, DeltaY, StepX, StepY, OffsetX, OffsetY
 Dim i

 MaxX = MinX = MaxY = MinY = 0
 For i = 0 To LineCount - 1
  If MaxX < Lines(0, i) Then MaxX = Lines(0, i)
  If MaxX < Lines(2, i) Then MaxX = Lines(2, i)
  If MinX > Lines(0, i) Then MinX = Lines(0, i)
  If MinX > Lines(2, i) Then MinX = Lines(2, i)
  If MaxY < Lines(1, i) Then MaxY = Lines(1, i)
  If MaxY < Lines(3, i) Then MaxY = Lines(3, i)
  If MinY > Lines(1, i) Then MinY = Lines(1, i)
  If MinY > Lines(3, i) Then MinY = Lines(3, i)
 Next
 DeltaX = MaxX - MinX
 DeltaY = MaxY - MinY
 If DeltaX = 0 Then DeltaX = 1
 If DeltaY = 0 Then DeltaY = 1
 MaxX = MinX
 MaxY = MinY
 If DeltaX > DeltaY Then
  StepX = (nPixelWidth - 2) / DeltaX
  StepY = (nPixelHeight - 2) / DeltaX
  OffsetX = 0
  OffsetY = (DeltaX - DeltaY) / 2
 Else
  StepX = (nPixelWidth - 2) / DeltaY
  StepY = (nPixelHeight - 2) / DeltaY
  OffsetX = (DeltaY - DeltaX) / 2
  OffsetY = 0
 End If
 For i = 0 To LineCount - 1
  Lines(0, i) = Round((Lines(0, i) - MaxX + OffsetX) * StepX, 0)
  If Lines(0, i) < 0 Then Lines(0, i) = 0
  If Lines(0, i) >= nPixelWidth - 2 Then Lines(0, i) = nPixelWidth - 3
  Lines(1, i) = Round((Lines(1, i) - MaxY + OffsetY) * StepY, 0)
  If Lines(1, i) < 0 Then Lines(1, i) = 0
  If Lines(1, i) >= nPixelHeight - 2 Then Lines(1, i) = nPixelHeight - 3
  Lines(2, i) = Round((Lines(2, i) - MinX + OffsetX) * StepX, 0)
  If Lines(2, i) < 0 Then Lines(2, i) = 0
  If Lines(2, i) >= nPixelWidth - 2 Then Lines(2, i) = nPixelWidth - 3
  Lines(3, i) = Round((Lines(3, i) - MinY + OffsetY) * StepY, 0)
  If Lines(3, i) < 0 Then Lines(3, i) = 0
  If Lines(3, i) >= nPixelHeight - 2 Then Lines(3, i) = nPixelHeight - 3
  CDGen_Line Lines(0, i) + X0 + 1, Lines(1, i) + Y0 + 1, Lines(2, i) + X0 + 1, Lines(3, i) + Y0 + 1
 Next
End Sub

Sub CDGen_Char(cChar, X0, Y0)
 ' 在指定坐标处生成指定字符的位图阵列
 CDGen_Reset
 Select Case cChar
 Case "0"
  CDGen_SetDirection -60                            ' 逆时针60度(相对于垂直线)
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection -60                            ' 逆时针60度
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw 1.5                              ' 绘制1.5个单位
  CDGen_SetDirection -60                            ' 逆时针60度
  CDGen_FowardDraw 0.7                              ' 绘制0.7个单位
  CDGen_SetDirection -60                            ' 顺时针120度
  CDGen_FowardDraw 0.7                              ' 绘制0.7个单位
  CDGen_Close 0                                     ' 封闭当前笔与第0笔(0开始)
 Case "1"
  CDGen_SetDirection -90                            ' 逆时针90度(相对于垂直线)
  CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  CDGen_MoveToMiddle 0, 50                          ' 移动画笔的位置到第0笔(0开始)的50%处
  CDGen_SetDirection 90                             ' 逆时针90度
  CDGen_FowardDraw -1.4                             ' 反方向绘制1.4个单位
  CDGen_SetDirection 30                             ' 逆时针30度
  CDGen_FowardDraw 0.4                              ' 绘制0.4个单位
 Case "2"
  CDGen_SetDirection 45                             ' 顺时针45度(相对于垂直线)
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection -120                           ' 逆时针120度
  CDGen_FowardDraw 0.4                              ' 绘制0.4个单位
  CDGen_SetDirection 60                             ' 顺时针60度
  CDGen_FowardDraw 0.6                              ' 绘制0.6个单位
  CDGen_SetDirection 60                             ' 顺时针60度
  CDGen_FowardDraw 1.6                              ' 绘制1.6个单位
  CDGen_SetDirection -135                           ' 逆时针135度
  CDGen_FowardDraw 1.0                              ' 绘制1.0个单位
 Case "3"
  CDGen_SetDirection -90                            ' 逆时针90度(相对于垂直线)
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  CDGen_SetDirection 135                            ' 顺时针135度
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  CDGen_SetDirection -120                           ' 逆时针120度
  CDGen_FowardDraw 0.6                              ' 绘制0.6个单位
  CDGen_SetDirection 80                             ' 顺时针80度
  CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  CDGen_SetDirection 60                             ' 顺时针60度
  CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  CDGen_SetDirection 60                             ' 顺时针60度
  CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
 Case "4"
  CDGen_SetDirection 20                             ' 顺时针20度(相对于垂直线)
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  CDGen_SetDirection -110                           ' 逆时针110度
  CDGen_FowardDraw 1.2                              ' 绘制1.2个单位
  CDGen_MoveToMiddle 1, 60                          ' 移动画笔的位置到第1笔(0开始)的60%处
  CDGen_SetDirection 90                             ' 顺时针90度
  CDGen_FowardDraw 0.7                              ' 绘制0.7个单位
  CDGen_MoveCursor 2                                ' 移动画笔到第2笔(0开始)的开始处
  CDGen_FowardDraw -1.5                             ' 反方向绘制1.5个单位
 Case "5"
  CDGen_SetDirection 90                             ' 顺时针90度(相对于垂直线)
  CDGen_FowardDraw 1.0                              ' 绘制1.0个单位
  CDGen_SetDirection -90                            ' 逆时针90度
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  CDGen_SetDirection -90                            ' 逆时针90度
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  CDGen_SetDirection 30                             ' 顺时针30度
  CDGen_FowardDraw 0.4                              ' 绘制0.4个单位
  CDGen_SetDirection 60                             ' 顺时针60度
  CDGen_FowardDraw 0.4                              ' 绘制0.4个单位
  CDGen_SetDirection 30                             ' 顺时针30度
  CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  CDGen_SetDirection 60                             ' 顺时针60度
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
 Case "6"
  CDGen_SetDirection -60                            ' 逆时针60度(相对于垂直线)
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection -60                            ' 逆时针60度
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw 1.5                              ' 绘制1.5个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw 0.7                              ' 绘制0.7个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  CDGen_CloseToMiddle 2, 50                         ' 将当前画笔位置与第2笔(0开始)的50%处封闭
 Case "7"
  CDGen_SetDirection 180                            ' 顺时针180度(相对于垂直线)
  CDGen_FowardDraw 0.3                              ' 绘制0.3个单位
  CDGen_SetDirection 90                             ' 顺时针90度
  CDGen_FowardDraw 0.9                              ' 绘制0.9个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw 1.3                              ' 绘制1.3个单位
 Case "8"
  CDGen_SetDirection -60                            ' 逆时针60度(相对于垂直线)
  CDGen_FowardDraw -0.8                             ' 反方向绘制0.8个单位
  CDGen_SetDirection -60                            ' 逆时针60度
  CDGen_FowardDraw -0.8                             ' 反方向绘制0.8个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  CDGen_SetDirection 110                            ' 顺时针110度
  CDGen_FowardDraw -1.5                             ' 反方向绘制1.5个单位
  CDGen_SetDirection -110                           ' 逆时针110度
  CDGen_FowardDraw 0.9                              ' 绘制0.9个单位
  CDGen_SetDirection 60                             ' 顺时针60度
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  CDGen_SetDirection 60                             ' 顺时针60度
  CDGen_FowardDraw 0.8                              ' 绘制0.8个单位
  CDGen_SetDirection 60                             ' 顺时针60度
  CDGen_FowardDraw 0.9                              ' 绘制0.9个单位
  CDGen_SetDirection 70                             ' 顺时针70度
  CDGen_FowardDraw 1.5                             ' 绘制1.5个单位
  CDGen_Close 0                                     ' 封闭当前笔与第0笔(0开始)
 Case "9"
  CDGen_SetDirection 120                            ' 逆时针60度(相对于垂直线)
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection -60                            ' 逆时针60度
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection -60                            ' 顺时针120度
  CDGen_FowardDraw -1.5                              ' 绘制1.5个单位
  CDGen_SetDirection -60                            ' 顺时针120度
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection -60                            ' 顺时针120度
  CDGen_FowardDraw -0.7                              ' 绘制0.7个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw 0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection -60                            ' 顺时针120度
  CDGen_FowardDraw 0.5                              ' 绘制0.5个单位
  CDGen_CloseToMiddle 2, 50                         ' 将当前画笔位置与第2笔(0开始)的50%处封闭
 ' 以下为字母的矢量动作，有兴趣的可以继续
 Case "A"
  CDGen_SetDirection -(Rnd * 20 + 150)              ' 逆时针150-170度(相对于垂直线)
  CDGen_FowardDraw Rnd * 0.2 + 1.1                  ' 绘制1.1-1.3个单位
  CDGen_SetDirection Rnd * 20 + 140                 ' 顺时针140-160度
  CDGen_FowardDraw Rnd * 0.2 + 1.1                  ' 绘制1.1-1.3个单位
  CDGen_MoveToMiddle 0, 30                          ' 移动画笔的位置到第1笔(0开始)的30%处
  CDGen_CloseToMiddle 1, 70                         ' 将当前画笔位置与第1笔(0开始)的70%处封闭
 Case "B"
  CDGen_SetDirection -(Rnd * 20 + 50)               ' 逆时针50-70度(相对于垂直线)
  CDGen_FowardDraw Rnd * 0.4 + 0.8                  ' 绘制0.8-1.2个单位
  CDGen_SetDirection Rnd * 20 + 110                 ' 顺时针110-130度
  CDGen_FowardDraw Rnd * 0.2 + 0.6                  ' 绘制0.6-0.8个单位
  CDGen_SetDirection -(Rnd * 20 + 110)              ' 逆时针110-130度
  CDGen_FowardDraw Rnd * 0.2 + 0.6                  ' 绘制0.6-0.8个单位
  CDGen_SetDirection Rnd * 20 + 110                 ' 顺时针110-130度
  CDGen_FowardDraw Rnd * 0.4 + 0.8                  ' 绘制0.8-1.2个单位
  CDGen_Close 0                                     ' 封闭当前笔与第1笔(0开始)
 Case "C"
  CDGen_SetDirection -60                            ' 逆时针60度(相对于垂直线)
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection -60                            ' 逆时针60度
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw 1.5                              ' 绘制1.5个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw -0.7                             ' 反方向绘制0.7个单位
  CDGen_SetDirection 120                            ' 顺时针120度
  CDGen_FowardDraw 0.7                              ' 绘制0.7个单位
 End Select
 CDGen_Flush X0, Y0
End Sub

Sub CDGen_Blur()
 ' 对产生的位图进行柔化处理
 Dim i, j
 
 For j = 1 To nPixelHeight - 2
  For i = 1 To nCharCount * nPixelWidth - 2
   If Buf(j, i) = 0 Then
    If ((Buf(j, i - 1) Or Buf(j + 1, i)) And 1) <> 0 Then
     ' 如果当前点是空白点，且上下左右四个点中有一个点是有色点，则该点做柔化处理
     Buf(j, i) = 2
    End If
   End If
  Next
 Next
End Sub

Sub CDGen_NoisyDot()
 ' 对产生的位图进行噪点处理
 Dim i, j, NoisyDot, CurDot
 
 For j = 0 To nPixelHeight - 1
  For i = 0 To nCharCount * nPixelWidth - 1
   If Buf(j, i) <> 0 Then
    NoisyDot = Int(Rnd * Rnd * nMaxSaturation)
    Select Case nColorNoisyDotOdds
    Case 0
     CurDot = nMaxSaturation
    Case 1
     CurDot = 0
    Case Else
     CurDot = NoisyDot
    End Select
    If Rnd < nColorNoisyDotOdds Then Buf(j, i) = CurDot Else Buf(j, i) = nMaxSaturation
   Else
    NoisyDot = Int(Rnd * nMaxSaturation)
    Select Case nBlankNoisyDotOdds
    Case 0
     CurDot = 0
    Case 1
     CurDot = nMaxSaturation
    Case Else
     CurDot = NoisyDot
    End Select
    If Rnd < nBlankNoisyDotOdds Then Buf(j, i) = CurDot Else Buf(j, i) = 0
   End If
  Next
 Next
End Sub

Sub CDGen()
 ' 生成位图阵列
 Dim i, Ch
 
 DigtalStr = ""
 CDGen_Clear
 For i = 0 To nCharCount - 1
  Ch = Mid(cCharSet, Int(Rnd * Len(cCharSet)) + 1, 1)
  DigtalStr = DigtalStr + Ch
  CDGen_Char Ch, i * nPixelWidth, 0
 Next
 CDGen_Blur
 CDGen_NoisyDot
End Sub

Function HSBToRGB(vH, vS, vB)
 ' 将颜色值由HSB转换为RGB
 Dim aRGB(3), RGB1st, RGB2nd, RGB3rd
 Dim nH, nS, nB
 Dim lH, nF, nP, nQ, nT

 vH = (vH Mod 360)
 If vS > 100 Then
  vS = 100
 ElseIf vS < 0 Then
  vS = 0
 End If
 If vB > 100 Then
  vB = 100
 ElseIf vB < 0 Then
  vB = 0
 End If
 If vS > 0 Then
  nH = vH / 60
  nS = vS / 100
  nB = vB / 100
  lH = Int(nH)
  nF = nH - lH
  nP = nB * (1 - nS)
  nQ = nB * (1 - nS * nF)
  nT = nB * (1 - nS * (1 - nF))
  Select Case lH
  Case 0
   aRGB(0) = nB * 255
   aRGB(1) = nT * 255
   aRGB(2) = nP * 255
  Case 1
   aRGB(0) = nQ * 255
   aRGB(1) = nB * 255
   aRGB(2) = nP * 255
  Case 2
   aRGB(0) = nP * 255
   aRGB(1) = nB * 255 
   aRGB(2) = nT * 255
  Case 3
   aRGB(0) = nP * 255
   aRGB(1) = nQ * 255
   aRGB(2) = nB * 255
  Case 4
   aRGB(0) = nT * 255
   aRGB(1) = nP * 255
   aRGB(2) = nB * 255
  Case 5
   aRGB(0) = nB * 255
   aRGB(1) = nP * 255
   aRGB(2) = nQ * 255
  End Select  
 Else
  aRGB(0) = (vB * 255) / 100
  aRGB(1) = aRGB(0)
  aRGB(2) = aRGB(0)
 End If
 HSBToRGB = ChrB(Round(aRGB(2), 0)) & ChrB(Round(aRGB(1), 0)) & ChrB(Round(aRGB(0), 0))
End Function

Sub CreatValidCode(pSN)
 Dim i, j, CurColorHue
 
 ' 禁止缓存
 Response.Expires = -9999
 Response.AddHeader "pragma", "no-cache"
 Response.AddHeader "cache-ctrol", "no-cache"
 Response.ContentType = "image/bmp"
 
 Call CDGen
 Session(pSN) = DigtalStr '记录入Session

 Dim PicWidth, PicHeight, FileSize, PicDataSize
 PicWidth = nCharCount * nPixelWidth
 PicHeight = nPixelHeight
 PicDataSize = PicWidth * PicHeight * 3
 FileSize = PicDataSize + 54

 ' 输出BMP文件信息头
 Response.BinaryWrite ChrB(66) & ChrB(77) & _
  ChrB(FileSize Mod 256) & ChrB((FileSize \ 256) Mod 256) & ChrB((FileSize \ 256 \ 256) Mod 256) & ChrB(FileSize \ 256 \ 256 \ 256) & _
  ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & _
  ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0)

 ' 输出BMP位图信息头
 Response.BinaryWrite ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & _
  ChrB(PicWidth Mod 256) & ChrB((PicWidth \ 256) Mod 256) & ChrB((PicWidth \ 256 \ 256) Mod 256) & ChrB(PicWidth \ 256 \ 256 \ 256) & _
  ChrB(PicHeight Mod 256) & ChrB((PicHeight \ 256) Mod 256) & ChrB((PicHeight \ 256 \ 256) Mod 256) & ChrB(PicHeight \ 256 \ 256 \ 256) & _
  ChrB(1) & ChrB(0) & _
  ChrB(24) & ChrB(0) & _
  ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & _
  ChrB(PicDataSize Mod 256) & ChrB((PicDataSize \ 256) Mod 256) & ChrB((PicDataSize \ 256 \ 256) Mod 256) & ChrB(PicDataSize \ 256 \ 256 \ 256) & _
  ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & _
  ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & _
  ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & _
  ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)

 ' 逐点输出位图阵列
 If nColorHue = -1 Then
  CurColorHue = Int(Rnd * 360)
 ElseIf nColorHue = -2 Then
  CurColorHue = 0
 Else
  CurColorHue = nColorHue
 End If
 For j = 0 To nPixelHeight - 1
  For i = 0 To Len(DigtalStr) * nPixelWidth - 1
   If nColorHue = -2 Then
    Response.BinaryWrite HSBToRGB(CurColorHue, 0, 100 - Buf(nPixelHeight - 1 - j, i))
   Else
    Response.BinaryWrite HSBToRGB(CurColorHue, Buf(nPixelHeight - 1 - j, i), 100)
   End If
  Next
 Next
End Sub
%>

11. <input type=button value=查看网页源代码
onclick="window.location = "view-source:"+ "http://www.pconline.com.cn"">
12. 删除时确认
<a href="javascript:if(confirm("确实要删除吗?"))location="boos.asp?&areyou=删除&page=1"">删除</a>
13. 取得控件的绝对位置
//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>

14. 光标是停在文本框文字的最后
<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()">
15. 判断上一页的来源
javascript:
document.referrer
16. 最小化、最大化、关闭窗口
<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

17. 屏蔽功能键Shift,Alt,Ctrl
<script>
function look(){
if(event.shiftKey)
alert("禁止按Shift键!"); //可以换成ALT　CTRL
}
document.onkeydown=look;
</script>
18. 网页不会被缓存
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">

或者

<META HTTP-EQUIV="expires" CONTENT="0">

19. 怎样让表单没有凹凸感？
<input type=text style="border:1 solid #000000">
或<input type=text style="border-left:none; border-right:none; border-top:none; border-bottom:1 solid #000000"></textarea>
20.
<div><span>&<layer>
的区别？
(division)用来定义大段的页面元素，会产生转行
用来定义同一行内的元素，跟
的唯一区别是不产生转行
是ns的标记，ie不支持，相当于
21. 让弹出窗口总是在最上面:
<body onblur="this.focus();">
22. 不要滚动条?
让竖条没有:
<body style="overflow:scroll;overflow-y:hidden">
</body>
让横条没有:
<body style="overflow:scroll;overflow-x:hidden">
</body>
两个都去掉？更简单了
<body scroll="no">
</body>

23. 怎样去掉图片链接点击后，图片周围的虚线？
<a href="#" onFocus="this.blur()"><img src="logo.jpg" border=0></a>

24. 电子邮件处理提交表单
<form name="form1" method="post" action="mailto:****@***.com" enctype="text/plain">
<input type=submit>
</form>

25. 在打开的子窗口刷新父窗口的代码里如何写？
window.opener.location.reload()

26. 如何设定打开页面的大小
<body onload="top.resizeTo(300,200);">
打开页面的位置
<body onload="top.moveBy(300,200);">

27. 在页面中如何加入不是满铺的背景图片,拉动页面时背景图不动
<STYLE>
body
{background-image:url(logo.gif); background-repeat:no-repeat;
background-position:center;background-attachment: fixed}
</STYLE>

28. 检查一段字符串是否全由数字组成
<script language="Javascript"><!--
function checkNum(str){return str.match(//D/)==null}
alert(checkNum("1232142141"))
alert(checkNum("123214214a1"))
// --></script>

29. 获得一个窗口的大小
document.body.clientWidth; document.body.clientHeight

30. 怎么判断是否是字符
if (/[^/x00-/xff]/g.test(s)) alert("含有汉字");
else alert("全是字符");

31. TEXTAREA自适应文字行数的多少
<textarea rows=1 name=s1 cols=27 onpropertychange="this.style.posHeight=this.scrollHeight">
</textarea>

32. 日期减去天数等于第二个日期
<script language=Javascript>
function cc(dd,dadd)
{
//可以加上错误处理
var a = new Date(dd)
a = a.valueOf()
a = a - dadd * 24 * 60 * 60 * 1000
a = new Date(a)
alert(a.getFullYear() + "年" + (a.getMonth() + 1) + "月" + a.getDate() + "日")
}
cc("12/23/2002",2)
</script>

33. 选择了哪一个Radio
<HTML><script language="vbscript">
function checkme()
for each ob in radio1
if ob.checked then window.alert ob.value
next
end function
</script><BODY>
<INPUT name="radio1" type="radio" value="style" checked>Style
<INPUT name="radio1" type="radio" value="barcode">Barcode
<INPUT type="button" value="check" onclick="checkme()">
</BODY></HTML>

34. 脚本永不出错
<SCRIPT LANGUAGE="JavaScript">
<!-- Hide
function killErrors() {
return true;
}
window.onerror = killErrors;
// -->
</SCRIPT>

35. ENTER键可以让光标移到下一个输入框
<input onkeydown="if(event.keyCode==13)event.keyCode=9">

36. 检测某个网站的链接速度：
把如下代码加入
<body>
区域中:
<script language=Javascript>
tim=1
setInterval("tim++",100)
b=1
var autourl=new Array()
autourl[1]="www.njcatv.net"
autourl[2]="javacool.3322.net"
autourl[3]="www.sina.com.cn"
autourl[4]="www.nuaa.edu.cn"
autourl[5]="www.cctv.com"
function butt(){
document.write("<form name=autof>")
for(var i=1;i<autourl.length;i++)
document.write("<input type=text name=txt"+i+" size=10 value=测试中……> =》<input type=text
name=url"+i+" size=40> =》<input type=button value=GO

onclick=window.open(this.form.url"+i+".value)><br>")
document.write("<input type=submit value=刷新></form>")
}
butt()
function auto(url){
document.forms[0]["url"+b].value=url
if(tim>200)
{document.forms[0]["txt"+b].value="链接超时"}
else
{document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}
b++
}
function run(){for(var i=1;i<autourl.length;i++)document.write("<img src=http://"+autourl+"/"+Math.random()+" width=1 height=1

onerror=auto("http://"+autourl+"")>")}
run()</script>

37. 各种样式的光标
auto ：标准光标
default ：标准箭头
hand ：手形光标
wait ：等待光标
text ：I形光标
vertical-text ：水平I形光标
no-drop ：不可拖动光标
not-allowed ：无效光标
help ：?帮助光标
all-scroll ：三角方向标
move ：移动标
crosshair ：十字标
e-resize
n-resize
nw-resize
w-resize
s-resize
se-resize
sw-resize

38. 页面进入和退出的特效
进入页面

<meta http-equiv="Page-Enter" content="revealTrans(duration=x, transition=y)">

推出页面

<meta http-equiv="Page-Exit" content="revealTrans(duration=x, transition=y)"> 

这个是页面被载入和调出时的一些特效。duration表示特效的持续时间，以秒为单位。transition表示使用哪种特效，取值为1-23:
　　0 矩形缩小
　　1 矩形扩大
　　2 圆形缩小
　　3 圆形扩大
　　4 下到上刷新
　　5 上到下刷新
　　6 左到右刷新
　　7 右到左刷新
　　8 竖百叶窗
　　9 横百叶窗
　　10 错位横百叶窗
　　11 错位竖百叶窗
　　12 点扩散
　　13 左右到中间刷新
　　14 中间到左右刷新
　　15 中间到上下
　　16 上下到中间
　　17 右下到左上
　　18 右上到左下
　　19 左上到右下
　　20 左下到右上
　　21 横条
　　22 竖条
　　23 以上22种随机选择一种

39. 在规定时间内跳转
<META http-equiv=V="REFRESH" content="5;URL=http://www.51js.com">

40. 网页是否被检索
<meta name="ROBOTS" content="属性值">
　　其中属性值有以下一些:
　　属性值为"all": 文件将被检索，且页上链接可被查询；
　　属性值为"none": 文件不被检索，而且不查询页上的链接；
　　属性值为"index": 文件将被检索；
　　属性值为"follow": 查询页上的链接；
　　属性值为"noindex": 文件不检索，但可被查询链接；
　　属性值为"nofollow": 文件不被检索，但可查询页上的链接。

为什么要将文件保存到数据库呢？理由很多，最直接的就是，将文件放入数据库以后，可以对文件进行更好的管理，特别是文本文件、图片等，如果不使用数据库，数量巨大的时候，很难做到有效的管理和区别。特别是需要作一些与文字密切相关的应用的时候，将文件全部放入数据库是最好的选择，对文字的处理、检索等，都可以直接利用数据库的一些功能，可以做到真正的有效管理。本文举例主要针对以文字为基础的文件，比如WORD等，但是，实际上对程序稍微修改，就可以上传所有文件类型。

数据表结构

　　现在，我们来看存放文件的数据库表结构，这里，我们给出建立表的标准SQL语句：

　　CREATE TABLE tblBooksUpload

　　(

　　DocID int NOT NULL IDENTITY Primary Key ,

　　DocTitle varchar (200) ,

　　Doc image,

　　DocType varchar (50) ,

　　Entrydate datetime Default GetDate()

　　)

　　以上的语句中，我们看到数据表tblBooksUpload包含五个字段：

　　字段DocID是表的关键字段，数据记录编号；

　　字段DocTitle是用来简单说明上传文件的，如果上传文本文件，我们一般将其设置为文件标题，图像、程序等，就设置为图像、程序的简单介绍；

　　字段Doc是用来存放我们上传的文件的字段，注意，这里将Doc字段的设置为Image类别；

　　字段DocType用来保存我们上传文件的类型，可能我们奇怪为什么要这个字段呢？其实，这个字段是很重要的，在用户从数据库取得数据的时候，这个字段将用来指定数据字段Doc中数据的类别，然后，浏览器根据这个字段来决定呈现给用户的数据；

　　字段DateTime是一个时间字段，我们可以看到该字段的值取自服务器的当前日期。

　　下面是插入数据的存储过程，我们来看具体代码：

　　CREATE PROCEDURE uSP_BooksUploadFile

　　@Title varchar(200),

　　@Doc image,

　　@DocType varchar(4)

　　AS

　　INSERT tblBooksUpload(DocTitle,Doc,DocType)

　　VALUES (@Title,@Doc,@DocType)

　　GO

　　上传文件的步骤

　　现在，我们先从文字上了解一下上传文件到数据库的具体步骤，再从代码上来实现：

　　首先，从客户端取得上传的文件，然后，我们将它放入数据流；

　　第二，服务器端读取数据流，然后将其保存到缓存；

　　第三，将缓存数据保存到数据库；

　　现在，我们一步步来看怎样在程序中实现这些功能。

　　第一步

　　当然，首先我们要实现用户在浏览器端自由选择文件，然后上传，这里用户选择文件，当然是要求标准的Windows方式，所以，我们在这里使用Form的File文件组件来给用户选择文件。注意，因为上传文件，所以，在Form的属性设置的时候，我们应该设置为：multipart/form-data，这样，才可以正确上传文件。

第二步

　　我们可以将上传的文件通过数据流保存到缓存，缓存的大小和文件的具体大小相同，我们可以使用以下的代码来取得文件的具体大小：

　　int intDocLen = txtFileContents.PostedFile.ContentLength;

　　然后，我们可以设置缓存的具体大小了：

　　byte[] Docbuffer = new byte[intDoclen];

　　这样设置以后，我们可以将上传文件的内容保存到缓存中：

　　Stream objStream;

　　objStream = txtFileContents.PostedFile.InputStream;

　　objStream.Read(Docbuffer,0,intDocLen);

　　在以上代码中，读取缓存的时候，从缓存的0位置开始，直到整个文件的长度，其实，这就是整个文件或者整个缓存的大小。

　　第三步

　　现在我们需要做的就是将缓存数据保存到数据库，我们已经直到数据表结构，这样，我们通过编写简单的SQL语句就可以实现这个功能。在上面的内容中，我们编写了一个存储过程，在程序中，我们只要建立SqlCommand对象并且将这个存储过程传递给它，并设置“@Doc”参数取得缓存数据就可以了：

　　cmdUploadDoc = new SqlCommand("uSP_BooksUploadFile",BooksConn);

　　cmdUploadDoc.CommandType = CommandType.StoredProcedure;

　　cmdUploadDoc.Parameters.Add("@Title ",SqlDbType.VarChar,200);

　　cmdUploadDoc.Parameters.Add("@Doc",SqlDbType.Image);

　　cmdUploadDoc.Parameters.Add("@DocType",SqlDbType.VarChar,4);

　　cmdUploadDoc.Parameters[0].Value = txtTitle.Text;

　　cmdUploadDoc.Parameters[1].Value = Docbuffer;

　　cmdUploadDoc.Parameters[2].Value = strDocType;

　　点击按钮处理代码

　　private void btnSubmit_Click(object sender, System.EventArgs e)

　　{

　　string strDocExt;

　　//strDocType用于保存上传文件的类型

　　string strDocType;

　　//用于保存文件大小

　　int intDocLen;

　　//Stream用于读取上传数据

　　Stream objStream;

　　SqlConnection BooksConn;

　　SqlCommand cmdUploadDoc;

　　if(IsValid)

　　{

　　if(txtFileContents.PostedFile != null)

　　{

　　//文件类型

　　strDocExt = CString.Right

　　(txtFileContents.PostedFile.FileName,4).ToLower();

　　switch(strDocExt)

　{

　　case ".doc":

　　strDocType = "doc";

　　break;

　　case ".ppt":

　　strDocType = "ppt";

　　break;

　　case ".htm":

　　strDocType = "htm";

　　break;

　　case ".html":

　　strDocType = "htm";

　　break;

　　case ".jpg":

　　strDocType = "jpg";

　　break;

　　case ".gif":

　　strDocType = "gif";

　　break;

　　default:

　　strDocType = "txt";

　　break;

　　}

　　//上传文件具体内容

　　intDocLen = txtFileContents.PostedFile.ContentLength;

　　byte[] Docbuffer = new byte[intDocLen];

　　objStream = txtFileContents.PostedFile.InputStream;

　　//文件保存到缓存

　　//缓存将保存到数据库

　　objStream.Read(Docbuffer ,0,intDocLen);

　　BooksConn = new 

　　SqlConnection("Server=Server;UID=sa;Database=Books");

　　cmdUploadDoc = new 

　　SqlCommand("uSP_BooksUploadFile",BooksConn);

　　cmdUploadDoc.CommandType = CommandType.StoredProcedure;

　　cmdUploadDoc.Parameters.Add("@Title ",SqlDbType.VarChar,200);

　　cmdUploadDoc.Parameters.Add("@Doc",SqlDbType.Image);

　　cmdUploadDoc.Parameters.Add("@DocType",SqlDbType.VarChar,4);

　　cmdUploadDoc.Parameters[0].Value = txtTitle.Text;

　　cmdUploadDoc.Parameters[1].Value = Docbuffer ;

　　cmdUploadDoc.Parameters[2].Value = strDocType;

　　BooksConn.Open();

　　cmdUploadDoc.ExecuteNonQuery();

　　BooksConn.Close();

　　}

　　}

　　}

　　总结

　　以上我们提到的方法，适合所有类型的文件，对以上代码作适当修改，我们就可以建立一个完全基于数据库的文件管理系统。

set nocount on

select @v_LowerStr = LTRIM(RTRIM(STR(@n_LowerMoney,20,2))) --四舍五入为指定的
精
度并删除数据左右空格

select @i_I = 1
select @v_UpperStr = ''

while ( @i_I <= len(@v_LowerStr))
begin
      select @v_UpperPart = case substring(@v_LowerStr,len(@v_LowerStr) -
@i_I
 + 1,1)
                            WHEN  '.' THEN  '元'
                            WHEN  '0' THEN  '零'
                            WHEN  '1' THEN  '壹'
                            WHEN  '2' THEN  '贰'
                            WHEN  '3' THEN  '叁'
                            WHEN  '4' THEN  '肆'
                            WHEN  '5' THEN  '伍'
                            WHEN  '6' THEN  '陆'
                            WHEN  '7' THEN  '柒'
                            WHEN  '8' THEN  '捌'
                            WHEN  '9' THEN  '玖'
                            END
                          +
                            case @i_I
                            WHEN  1  THEN  '分'
                            WHEN  2  THEN  '角'
                            WHEN  3  THEN  ''
                            WHEN  4  THEN  ''
                            WHEN  5  THEN  '拾'
                            WHEN  6  THEN  '佰'
                            WHEN  7  THEN  '仟'
                            WHEN  8  THEN  '万'
                            WHEN  9  THEN  '拾'
                            WHEN  10  THEN  '佰'
                            WHEN  11  THEN  '仟'
                            WHEN  12  THEN  '亿'
                            WHEN  13  THEN  '拾'
                            WHEN  14  THEN  '佰'
                            WHEN  15  THEN  '仟'
                            WHEN  16  THEN  '万'
                            ELSE ''
                            END
select @v_UpperStr = @v_UpperPart + @v_UpperStr
select @i_I = @i_I + 1
end

--------print  '//v_UpperStr ='+@v_UpperStr +'//'

if ( @v_TransType=0 )
begin
select @v_UpperStr = REPLACE(@v_UpperStr,'零拾','零')
select @v_UpperStr = REPLACE(@v_UpperStr,'零佰','零')
select @v_UpperStr = REPLACE(@v_UpperStr,'零仟','零')
select @v_UpperStr = REPLACE(@v_UpperStr,'零零零','零')
select @v_UpperStr = REPLACE(@v_UpperStr,'零零','零')
select @v_UpperStr = REPLACE(@v_UpperStr,'零角零分','整')
select @v_UpperStr = REPLACE(@v_UpperStr,'零分','整')
select @v_UpperStr = REPLACE(@v_UpperStr,'零角','零')
select @v_UpperStr = REPLACE(@v_UpperStr,'零亿零万零元','亿元')
select @v_UpperStr = REPLACE(@v_UpperStr,'亿零万零元','亿元')
select @v_UpperStr = REPLACE(@v_UpperStr,'零亿零万','亿')
select @v_UpperStr = REPLACE(@v_UpperStr,'零万零元','万元')
select @v_UpperStr = REPLACE(@v_UpperStr,'万零元','万元')
select @v_UpperStr = REPLACE(@v_UpperStr,'零亿','亿')
select @v_UpperStr = REPLACE(@v_UpperStr,'零万','万')
select @v_UpperStr = REPLACE(@v_UpperStr,'零元','元')
select @v_UpperStr = REPLACE(@v_UpperStr,'零零','零')
end

-- 对壹元以下的金额的处理
if ( substring(@v_UpperStr,1,1)='元' )
begin
     select @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))
end

if (substring(@v_UpperStr,1,1)= '零')
begin
     select @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))
end

if (substring(@v_UpperStr,1,1)='角')
begin
     select @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))
end

if ( substring(@v_UpperStr,1,1)='分')
begin
     select @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))
end

if (substring(@v_UpperStr,1,1)='整')
begin
     select @v_UpperStr = '零元整'
end

select @ret=@v_UpperStr

GO

调用过程：

declare @ret varchar(200)

exec L2U 567983.897,1,@ret output

select @ret

　　OWC（Microsoft Office Web Components）是 Microsoft Office 使用的数据绑定 ActiveX 控件，用于向 Web 页添加图表功能。OWC支持Microsoft Excel 2000中大部分的二维图表(如折线图、柱形图、股价图等)和极坐标图表(如饼图和雷达图)，并支持组合图表，如两轴线-柱图，数据表会随同图表发布，图表随着数据的变化而改变。OWC能将处理结果做为标准GIF输出并下载到浏览器中显示。

　　首先，使用ADODB.Recordset读出数据集合，并与OWC组件进行数据绑定：

Dim owcChartSpace As OWC.ChartSpace = New OWC.ChartSpace()
Dim owcChart As OWC.WCChart = owcChartSpace.Charts.Add
Dim ConnADO As New ADODB.Connection()
Dim RecordsetADO As New ADODB.Recordset()
Dim connectionString As String
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Grades.mdb")
ConnADO.Open(connectionString)

RecordsetADO.ActiveConnection = ConnADO
RecordsetADO.CursorType = ADODB.CursorTypeEnum.adOpenStatic
RecordsetADO.CursorLocation = ADODB.CursorLocationEnum.adUseClient
Dim strSQL As String
strSQL = "Select city, month, temperature From test order by city,ids"
RecordsetADO.Open(strSQL, ConnADO)
owcChartSpace.DataSource = RecordsetADO

　　然后，指定OWC的显示类型：

owcChart.Type = OWC.ChartChartTypeEnum.chChartTypeSmoothLineMarkers

　　在运行时向OWC中输入数据有多种方法。所有这些方法都要用到 SetData 方法来真正将数据写入 Chart 组件，因此将详细介绍此方法。SetData 方法应用于 WCChart、WCErrorBars 和 WCSeries 对象并能向这三种对象输入数据。

　　SetData 方法有三个参数：Dimension、DataSourceIndex 和 DataReference。Dimension 参数引用图表中被填充数据的一部分。可用的维度常数为 SeriesNames、Categories、Values、YValues、XValues、OpenValues、CloseValues、HighValues、LowValues、BubbleValues、RValues 和 ThetaValues。这些常数每一种都引用了图表的一部分；例如，SeriesNames 常数引用了每个序列名，OpenValues 和 CloseValues 常数引用股票图的开盘价和收盘价等等。每个常数都是作为诸如 chDimSeriesNames、chDimCategories、chDimValues等窗体中的枚举常数而传递给该方法的。

　　这里，我们使用SetData 方法给OWC赋值：

owcChart.SetData(OWC.ChartDimensionsEnum.chDimSeriesNames, 0, "city")
Dim owcSeries As OWC.WCSeries
For Each owcSeries In owcChart.SeriesCollection
owcSeries.SetData(OWC.ChartDimensionsEnum.chDimCategories, 0, "month")
owcSeries.SetData(OWC.ChartDimensionsEnum.chDimValues, 0, "temperature")
Next

　　最后，将OWC处理结果转换成Gif图象输出到浏览器中显示：

Randomize()
Dim nfilenameSuffix As Integer
Dim sfilenamesuffix As String
nfilenameSuffix = 100000 * Rnd()
sfilenamesuffix = System.Convert.ToString(nfilenameSuffix)
owcChartSpace.ExportPicture(MapPath("owc/price_")
　　　　+ sfilenamesuffix + ".gif", "gif", 800, 600)
Image1.ImageUrl = "owc/price_" + sfilenamesuffix + ".gif"

　　如果变换OWC的显示类型，即修改一下owcChart.Type，使之变成：

owcChart.Type = OWC.ChartChartTypeEnum.chChartTypeColumnClustered

　　
　　在ASP.net中使用OWC可以帮助我们快速构造统计图表，而且由于OWC生成的结果是Gif图象，可以兼容客户端所有版本的浏览器，适用范围很广。本程序在Windows 2000 server、IIS5.0和IE6.0环境下运行成功。

if (window.screen) {
var ah = screen.availHeight - 30;
var aw = screen.availWidth - 10;
str += ",height=" + ah;
str += ",innerHeight=" + ah;
str += ",width=" + aw;
str += ",innerWidth=" + aw;
} else {
str += ",resizable"; // 对于不支持screen属性的浏览器，可以手工进行最大化。 manually
}

function launchFull(url, name) {
return window.open(url, name, str);
}

var win = launchFull("", "full");

// -->
</SCRIPT>

<% @Import Namespace="System.Data" %>
<% @Import Namespace="System.Data.OleDb" %>
<HTML>
 <HEAD>
  <title>如何读取Excel表格中的数据</title>
  <script language="C#" runat="server">
 
   void SubmitBtn_Click(object sender, System.EventArgs e)
   {
    // 获取Excep文件的完整路径
    string source = File1.Value;

    string ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + source + ";Extended Properties=Excel 8.0";
    string query = "SELECT * FROM [Sheet1$]";

    OleDbCommand oleCommand = new OleDbCommand(query, new OleDbConnection(ConnStr));
    OleDbDataAdapter oleAdapter = new OleDbDataAdapter(oleCommand);
    DataSet myDataSet = new DataSet();

    // 将 Excel 的[Sheet1]表内容填充到 DataSet 对象
    oleAdapter.Fill(myDataSet, "[Sheet1$]");

    // 数据绑定
    DataGrid1.DataSource = myDataSet;
    DataGrid1.DataMember = "[Sheet1$]";
    DataGrid1.DataBind();
   }
 
  </script>
 </HEAD>
 <body>
  <form id="Form1" method="post" runat="server">
   <H3>如何读取Excel表格中的数据</H3>
   请选择Excel表格：<BR>
   <INPUT type="file" id="File1" name="File1" runat="server" size="26"><br>
   <asp:Button
    id="SubmitBtn"
    runat="server"
    Text="开始显示"
    OnClick="SubmitBtn_Click">
   </asp:Button><br>
   <br>
   <asp:DataGrid id="DataGrid1" runat="server"></asp:DataGrid>
  </form>
 </body>
</HTML>

数据库导入以后，自动增加字段需要重写，所有的数字类型需要增加长度，最好用decimal。

所有的默认值都丢失了。主要是数字类型和日期类型。

所有now()，time()，date()要改成getdate()。

所有datediff('d', time1, time2)要改成datediff(day, time1, time2)

有可能一些true/false类型不能使用，要变为1/0。

备注类型要通过cast(column as varchar)来使用。

CursorType要改成1,也就是打开数据库时要给出第一个数字参数为1，否则记录可能显示不完整。

isnull(rowname)要改成rowname = null

ACCESS的数据库中的自动编号类型在转化时，sql server并没有将它设为自动编号型，我们需在SQL创建语句中加上identity，表示自动编号！

转化时，跟日期有关的字段，SQL SERVER默认为smalldatetime型，我们最好将它变为datetime型，因为datetime型的范围比smalldatetime型大。有时用smalldatetime型时，转化失败，而用datetime型时，转化成功。

对此两种数据库进行操作的sql语句不全相同，例如：在对ACCESS数据库进行删除纪录时用："delete * from user where id=10",而对SQL SERVER数据库进行删除是用："delete user where id=10".

日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对SQL SERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。

在对ACCESS数据库处理中,sql语句中直接可以用一些VB的函数，像cstr()函数，而对SQL SERVER数据库处理中，却不能用。

USE Master
GO

IF EXISTS (SELECT NAME FROM SYSOBJECTS WHERE XTYPE = 'U' AND NAME = '卷烟库存表')
    DROP TABLE 卷烟库存表
GO
IF EXISTS (SELECT NAME FROM SYSOBJECTS WHERE XTYPE = 'U' AND NAME = '卷烟销售表')
    DROP TABLE 卷烟销售表
GO

--业务规则：销售金额 = 销售数量 * 销售单价 业务规则。

CREATE TABLE 卷烟销售表
(
    卷烟品牌        VARCHAR(40) PRIMARY KEY NOT NULL,
    购货商          VARCHAR(40) NULL,
    销售数量        INT NULL,
    销售单价        MONEY NULL,
    销售金额        MONEY NULL
)
GO

--业务规则：库存金额 = 库存数量 * 库存单价 业务规则。

CREATE TABLE 卷烟库存表
(
    卷烟品牌        VARCHAR(40) PRIMARY KEY NOT NULL,
    库存数量        INT NULL,
    库存单价        MONEY NULL,
    库存金额        MONEY NULL
)
GO

--创建触发器，示例1

/*
创建触发器[T_INSERT_卷烟库存表]，这个触发器较简单。
说明：      每当[卷烟库存表]发生 INSERT 动作，则引发该触发器。
触发器功能：    强制执行业务规则，保证插入的数据中，库存金额 = 库存数量 * 库存单价。
注意：      [INSERTED]、[DELETED]为系统表，不可创建、修改、删除，但可以调用。
重要：      这两个系统表的结构同插入数据的表的结构。
*/
IF EXISTS (SELECT NAME FROM SYSOBJECTS WHERE XTYPE = 'TR' AND NAME = 'T_INSERT_卷烟库存表')
    DROP TRIGGER T_INSERT_卷烟库存表
GO

CREATE TRIGGER T_INSERT_卷烟库存表
ON 卷烟库存表
FOR INSERT
AS
--提交事务处理
BEGIN TRANSACTION
    --强制执行下列语句，保证业务规则
    UPDATE 卷烟库存表
    SET 库存金额 = 库存数量 * 库存单价
    WHERE 卷烟品牌 IN (SELECT 卷烟品牌 from INSERTED)
COMMIT TRANSACTION
GO

/* 
针对[卷烟库存表]，插入测试数据：
注意，第一条数据（红塔山新势力）中的数据符合业务规则，
第二条数据（红塔山人为峰）中，[库存金额]空，不符合业务规则，
第三条数据（云南映像）中，[库存金额]不等于[库存数量]乘以[库存单价]，不符合业务规则。
第四条数据库存数量为0。
请注意在插入数据后，检查[卷烟库存表]中的数据是否 库存金额 = 库存数量 * 库存单价。
*/

INSERT INTO 卷烟库存表(卷烟品牌,库存数量,库存单价,库存金额)
    SELECT '红塔山新势力',100,12,1200 UNION ALL
    SELECT '红塔山人为峰',100,22,NULL UNION ALL
    SELECT '云南映像',100,60,500      UNION ALL
    SELECT '玉溪',0,30,0
GO

--查询数据

SELECT * FROM 卷烟库存表
GO
/*

结果集

RecordId  卷烟品牌       库存数量  库存单价  库存金额
--------  ------------  --------  -------  ---------
1         红塔山新势力   100       12.0000  1200.0000
2         红塔山人为峰   100       22.0000  2200.0000
3         云南映像       100       60.0000  6000.0000
4         玉溪           0         30.0000  .0000

（所影响的行数为 4 行）

*/

--触发器示例2

/*
创建触发器[T_INSERT_卷烟销售表]，该触发器较复杂。
说明:       每当[卷烟库存表]发生 INSERT 动作，则引发该触发器。
触发器功能：    实现业务规则。
业务规则:   如果销售的卷烟品牌不存在库存或者库存为零，则返回错误。
            否则则自动减少[卷烟库存表]中对应品牌卷烟的库存数量和库存金额。
*/
IF EXISTS (SELECT NAME FROM SYSOBJECTS WHERE XTYPE = 'TR' AND NAME = 'T_INSERT_卷烟销售表')
    DROP TRIGGER T_INSERT_卷烟销售表
GO

CREATE TRIGGER T_INSERT_卷烟销售表
ON 卷烟销售表
FOR INSERT
AS
BEGIN TRANSACTION
    --检查数据的合法性：销售的卷烟是否有库存，或者库存是否大于零
    IF NOT EXISTS (
        SELECT 库存数量
        FROM 卷烟库存表
        WHERE 卷烟品牌 IN (SELECT 卷烟品牌 FROM INSERTED)
    )
        BEGIN
            --返回错误提示
            RAISERROR('错误！该卷烟不存在库存，不能销售。',16,1)
            --回滚事务
            ROLLBACK
            RETURN
        END

    IF EXISTS (
        SELECT 库存数量
        FROM 卷烟库存表
        WHERE 卷烟品牌 IN (SELECT 卷烟品牌 FROM INSERTED) AND
        库存数量 <= 0          
    )
        BEGIN
            --返回错误提示
            RAISERROR('错误！该卷烟库存小于等于0，不能销售。',16,1)
            --回滚事务
            ROLLBACK
            RETURN
        END
   
    --对合法的数据进行处理

    --强制执行下列语句，保证业务规则
    UPDATE 卷烟销售表
    SET 销售金额 = 销售数量 * 销售单价
    WHERE 卷烟品牌 IN (SELECT 卷烟品牌 FROM INSERTED)

    DECLARE @卷烟品牌 VARCHAR(40)
    SET @卷烟品牌 = (SELECT 卷烟品牌 FROM INSERTED)

    DECLARE @销售数量 MONEY
    SET @销售数量 = (SELECT 销售数量 FROM INSERTED)

    UPDATE 卷烟库存表
    SET 库存数量 = 库存数量 - @销售数量,
        库存金额 = (库存数量 - @销售数量)*库存单价
    WHERE 卷烟品牌 = @卷烟品牌
COMMIT TRANSACTION
GO

--请大家自行跟踪[卷烟库存表]和[卷烟销售表]的数据变化。
--针对[卷烟销售表]，插入第一条测试数据，该数据是正常的。

INSERT INTO 卷烟销售表(卷烟品牌,购货商,销售数量,销售单价,销售金额)
    SELECT '红塔山新势力','某购货商',10,12,1200
GO

--针对[卷烟销售表]，插入第二条测试数据，该数据 销售金额 不等于 销售单价 * 销售数量。
--触发器将自动更正数据，使 销售金额 等于 销售单价 * 销售数量。

INSERT INTO 卷烟销售表(卷烟品牌,购货商,销售数量,销售单价,销售金额)
    SELECT '红塔山人为峰','某购货商',10,22,2000
GO

--针对[卷烟销售表]，插入第三条测试数据，该数据中的卷烟品牌在 卷烟库存表中找不到对应。
--触发器将报错。

INSERT INTO 卷烟销售表(卷烟品牌,购货商,销售数量,销售单价,销售金额)
    SELECT '红河V8','某购货商',10,60,600
GO

/*
结果集
服务器: 消息 50000，级别 16，状态 1，过程 T_INSERT_卷烟销售表，行 15
错误！该卷烟不存在库存，不能销售。
*/

--针对[卷烟销售表]，插入第三条测试数据，该数据中的卷烟品牌在 卷烟库存表中库存为0。
--触发器将报错。

INSERT INTO 卷烟销售表(卷烟品牌,购货商,销售数量,销售单价,销售金额)
    SELECT '玉溪','某购货商',10,30,300
GO

/*
结果集
服务器: 消息 50000，级别 16，状态 1，过程 T_INSERT_卷烟销售表，行 29
错误！该卷烟库存小于等于0，不能销售。
*/
--查询数据
SELECT * FROM 卷烟库存表

SELECT * FROM 卷烟销售表
GO

/*
补充：
1、本示例主要通过一个简单的业务规则实现来进行触发器使用的说明，具体的要根据需要灵活处理；
2、关于触发器要理解并运用好 INSERTED ，DELETED 两个系统表；
3、本示例创建的触发器都是 FOR INSERT ,具体的语法可参考：

    Trigger语法

    CREATE TRIGGER trigger_name
    ON { table | view }
    [ WITH ENCRYPTION ] --用于加密触发器
    {
        { { FOR | AFTER | INSTEAD OF } { [ INSERT ] [ , ] [ UPDATE ] }
            [ WITH APPEND ]
            [ NOT FOR REPLICATION ]
            AS
            [ { IF UPDATE ( column )
                [ { AND | OR } UPDATE ( column ) ]
                    [ ...n ]
            | IF ( COLUMNS_UPDATED ( ) { bitwise_operator } updated_bitmask )
                    { comparison_operator } column_bitmask [ ...n ]
            } ]
            sql_statement [ ...n ]
        }
    }

4、关于触发器，还应该注意
(1)、DELETE 触发器不能捕获 TRUNCATE TABLE 语句。
(2)、触发器中不允许以下 Transact-SQL 语句：
        ALTER DATABASE CREATE DATABASE DISK INIT
        DISK RESIZE DROP DATABASE LOAD DATABASE
        LOAD LOG RECONFIGURE RESTORE DATABASE
        RESTORE LOG
(3)、触发器最多可以嵌套 32 层。

*/

--修改触发器
--实质上，是将 CREATE TRIGGER ... 修改为 ALTER TRIGGER ...即可。

--删除触发器
DROP TRIGGER xxx
GO

--删除测试环境
DROP TABLE 卷烟库存表
GO
DROP TABLE 卷烟销售表
GO
DROP TRIGGER T_INSERT_卷烟库存表
GO
DROP TRIGGER T_INSERT_卷烟销售表
GO
##################################################################
触发器的基础知识和例子
：create trigger tr_name
   on table/view
{for | after | instead of } [update][,][insert][,][delete]
[with encryption]
as {batch | if update (col_name) [{and|or} update (col_name)] }

说明：
1  tr_name ：触发器名称
2 on table/view ：触发器所作用的表。一个触发器只能作用于一个表
3 for 和after ：同义
4 after 与instead of :sql 2000新增项目afrer 与 instead of 的区别
After                    
在触发事件发生以后才被激活,只可以建立在表上 
Instead of
代替了相应的触发事件而被执行,既可以建立在表上也可以建立在视图上
5 insert、update、delete：激活触发器的三种操作，可以同时执行，也可选其一
6 if update (col_name)：表明所作的操作对指定列是否有影响，有影响，则激活触发器。此外，因为delete 操作只对行有影响，
所以如果使用delete操作就不能用这条语句了(虽然使用也不出错，但是不能激活触发器，没意义)。
7 触发器执行时用到的两个特殊表：deleted ,inserted
 deleted 和inserted 可以说是一种特殊的临时表，是在进行激活触发器时由系统自动生成的，其结构与触发器作用的表结构是一
样的，只是存放 的数据有差异。

续
下面表格说明deleted 与inserted 数据的差异
deleted 与inserted 数据的差异
Inserted                           
存放进行insert和update 操作后的数据 
Deleted
存放进行delete 和update操作前的数据
注意：update 操作相当于先进行delete 再进行insert ,所以在进行update操作时，修改前的数据拷贝一条到deleted 表中，修改后
的数据在存到触发器作用的表的同时，也同时生成一条拷贝到insered表中