大家注意一点，这个LX_STUDENTINFO索引，是四个索引字段，而他们的顺序studycenternumber,studentnumber,studentname,studentcrtificatenumber，在数据库设计中，如果查询采用的第一个字段和第二个字段组合，则该索引有效；如果查询采用第一个、第二个和第三个字段组合，该索引也有效；而如果第一个和第三个，或第四个组合，则该索引是无效的，等同的效果仍是在没有索引的数据库中进行查询。也就是说建立的索引中的字段，在查询使用时，不能隔字段使用。

    另外，索引中涉及到字段的顺序也会影响查询的性能，如果一个索引包含两个字段A1和A2，那么在查询时，一定要严格按索引中这两个字段的顺序设计查询，比如：select * from a where A1='A' and A2='B'。而如果程序员写成了select * from a where A2='B' and A1='A'的话，虽然不影响程序正常使用，但会增加数据库的压力，并且查询效能会降低。(注:这个,我觉得Mssql好像是能自动优化的)

树立的观念：一个SQL语句，如果在压力测试时CPU占有率达到100%，此语句肯定存在问题。

    在大多数程序员的心里，一直认为数据库加索引，在查询中使用索引，就可以提高数据库性能。其实这种观点有一点的局限性，如果不好好的利用已经建立好的数据库索引，有时反倒给数据库增加更大的处理压力。现在我们举例说明一下：

    在现有的个人信息管理系统登录处的查询中，有这么一个SQL语句：

     Select StudentInfoID, StudentNumber, StudentName,UnifyExamInfoID,NetSchoolID from StudentInfo

     where StudentCrtificateNumber ='130425831217494' and rtrim(ltrim(StudentNumber)) = 'D0462382001'

     此SQL语句的目的是查找这个考生是否存在，验证登录的效果，就是这么一个简单的SQL语句，在压力测试时，10个用户同时登录，就会造成数据库服务器（2CPU，4G内存，IBM专用服务器）CPU占有率达到100%。而这张表也建立了StudentCrtificateNumber 和 StudentNumber 两个字段的索引， 问题出在哪呢？原因如下：

     （1）在studentinfo表中，建立了一个索引LX_STUDENTINFO，包括了四个字段，顺序为：studycenternumber,studentnumber,studentname,studentcrtificatenumber。

    （2）程序员理解的是，这个索引中包括了这两个字段，那么查询时就应该很快。实际不是。

    大家注意一点，这个LX_STUDENTINFO索引，是四个索引字段，而他们的顺序studycenternumber,studentnumber,studentname,studentcrtificatenumber，在数据库设计中，如果查询采用的第一个字段和第二个字段组合，则该索引有效；如果查询采用第一个、第二个和第三个字段组合，该索引也有效；而如果第一个和第三个，或第四个组合，则该索引是无效的，等同的效果仍是在没有索引的数据库中进行查询。也就是说建立的索引中的字段，在查询使用时，不能隔字段使用。

    另外，索引中涉及到字段的顺序也会影响查询的性能，如果一个索引包含两个字段A1和A2，那么在查询时，一定要严格按索引中这两个字段的顺序设计查询，比如：select * from a where A1='A' and A2='B'。而如果程序员写成了select * from a where A2='B' and A1='A'的话，虽然不影响程序正常使用，但会增加数据库的压力，并且查询效能会降低。(注:这个,我觉得Mssql好像是能自动优化的)

    根据这种思路，重新调整了一下这个表的索引，在这个表中增加了一个新的索引，只包括这两个字段，并且按StudentCrtificateNumber 和StudentNumber先后顺序排序。经过300人同时登录的压力测试，CPU占有率才只占2-3%，证明调整结果有效。

    (如果一个表的数据是查少入多的话,还是少建的好)

   合理的设计索引,正确的使用索引.

1.         使用存储过程可以对所执行的SQL语句进行封装，在接口保持不变的情况下不影响调用程序。

2.         最大限度的重用已缓存的执行计划。

3.         减少网络流量。

4.         提供更好的数据库安全控制，防止直接对表的操作。

存储过程的编译占用CPU，因此我们应该防止存储过程不必要的重新编译。
正常的编译发生于：

1.         所引用的表中大部分的数据发生了的更改，导致统计信息变化过大。

2.         所引用的表的架构被修改，包括添加或取消约束、默认值或规则。

3.         明确使用WITH RECOMPILE强制每次执行过程时重新编译或sp_recompile使用过程缓存无效。

4.         由于服务器内存不足或长期不使用，使缓存过程被清除。

转自:http://www.cnblogs.com/tom-fu/archive/2008/03/09/1096993.html

在以下情况下，过程会被不必要的重新编译：

1.         在调用过程时，不指定架构所有者。
这时为了找到正确的缓存计划，SQLServer会按照如下顺序查找过程所属的架构：
①sys
②调用此过程所属于的架构，如果是被其它过程所包含，则首先查询包含过程的架构
③dbo
为了能重新编译此过程，必须要对过程施加编译锁，因此在很多用户并行访问时可能会带来额外的等待时间。可通过sys.dm_exec_requests动态视图或master.dbo.sysprocesses系统表进行观察，如果lastwaittypee出现LCK_M_X，则表示出现了编译锁。

2.         过程在临时表上执行了特定操作。
在过程中经常会用到临时表与表变量，一直有种误解是表变量只会存储于内存中。其实如果两者都足够小的话，是不会保存于磁盘中的，但是两者的架构是都会存在于tempdb定义中的。只有在内存不足时，才会把数据存储于磁盘中。以下示例可查看表变量也是存储于tempdb中：
DECLARE @employee TABLE(employeeId INT);

INSERT INTO @employee VALUES(1);

SELECT * FROM tempdb.INFORMATION_SCHEMA.TABLES

WHERE TABLE_NAME LIKE '%#%';

这时会看到TABLE_NAME有一#开头的记录
选择这两者的主要依据如下：
①对于小数据量的中间表优先使用表变量，反之如果数据量大且被用于连接，则使用临时表。因为在表变量中只能定义主键和约束，如果在进行联结时，必须在要联结的字段上建立索引，从而防止出现哈稀联结而占用过多的资源。联结的三种算法嵌套循环、合并与哈稀所占用的资源依次增加，而前两者的前提是在联结的字段上存在索引时，根据数据量多少而决定的。

②中间表对事务的影响，临时表的回滚会影响上层事务，而表变量不会。

③可见性问题。临时表对下次均可见，而表变量只在所声明的层次可见。

另一个重要的选择依据就是在对临时表会创建相应的统计信息，因此在过程中引用临时表是可能会迫使语句因为引用的表的统计变化而被重新编译多次。以下示例演示了此过程，为了能看到被重新编译的事件，请在跟踪事件中选择SP:Starting、SP:StmtStarting、SP:Recompile 和 SP:Completed，注意SP:StmtStarting与SP:StmtCompleted 事件，最好不要同时包含这两个事件，因为这样会将需要查询的信息量加倍。
USE AdventureWorks;

GO

CREATE PROCEDURE GetCustomerOrder

AS

CREATE TABLE #t (SalesOrderID int, CustomerID int)

SELECT * FROM #t

INSERT #t

SELECT SalesOrderID, CustomerID

FROM Sales.SalesOrderHeader

SELECT COUNT(*) FROM #t

WHERE CustomerID = 40

GO

EXEC GetCustomerOrder
通过上面的结果我们看到，每次在对临时表进行操作时，都会引起一次过程的重新编译。在查询CustomerID = 40时，可以看到有一SELECT语句正是为了能获得所需的统计信息而发生的。可以使用sp_executesql

来防止这种额外的编译，修改过程如下，再次跟踪事件：
USE AdventureWorks;

GO

ALTER PROCEDURE GetCustomerOrder

AS

CREATE TABLE #t (SalesOrderID int, CustomerID int)

SELECT * FROM #t

EXEC sp_executesql N'

INSERT #t

SELECT SalesOrderID, CustomerID

FROM Sales.SalesOrderHeader'

EXEC sp_executesql N'SELECT COUNT(*) FROM #t WHERE CustomerID = @CustomerID',

                   N'@CustomerID int', @CustomerID = 40

GO

EXEC GetCustomerOrder

    此时我们发现只要是使用sp_executesql执行的语句都没有引起语句的重新编译。虽然此处演示的是使用临时表，但对永久表而言同样也存在这种问题。另一种做法是使用KEEP PLAN，不推荐使用。因此，我们应该优先使用sp_executesql，使用它所执行的语句在缓存中只会存在一条语句，而使用EXEC会根据具体的参数为每条不同的语句生成一个缓存计划。从而占用过多的缓存。

3.   过程定义中出现DDL和DML的交错。以下示例演示引起重新编译：
USE AdventureWorks;

GO

CREATE PROCEDURE GetOrderInfo

AS

-- DDL

CREATE TABLE #CompleteOrder(SalesOrderID int, CustomerID int)

-- DML

SELECT * FROM #CompleteOrder

-- DDL

CREATE INDEX idx_#CompleteOrder ON #CompleteOrder(SalesOrderID)

-- DML

SELECT * FROM #CompleteOrder

-- DDL

CREATE TABLE #ProcOrder (a int)

-- DML

SELECT * FROM #ProcOrder

GO

EXEC GetOrderInfo

SQL2005引入了新的语句级重新编译技术，有效的防止了因为部分语句引起的整个过程或批的重新编译。因此在SQL2000中跟踪到的内容会与图示所示存在不同之处。
另一个对临时表的命名问题，请慎记不要随便起一个#T1作为临时表的名称。这在过程不调用其它过程时不会造成问题，但在调用的另一过程中也存在一个#T1的临时表时，就会造成问题。以上示例演示：
SET NOCOUNT ON;

USE tempdb;

GO

IF OBJECT_ID('dbo.proc1') IS NOT NULL

  DROP PROC dbo.proc1;

GO

IF OBJECT_ID('dbo.proc2') IS NOT NULL

  DROP PROC dbo.proc2;

GO

CREATE PROC dbo.proc1

AS

CREATE TABLE #T1(col1 INT NOT NULL);

INSERT INTO #T1 VALUES(1);

SELECT * FROM #T1;

EXEC dbo.proc2;

GO

CREATE PROC dbo.proc2

AS

CREATE TABLE #T1(col1 INT NULL, col2 INT NOT NULL);

INSERT INTO #T1 VALUES(2, 2);

SELECT * FROM #T1;

GO

EXEC dbo.proc1;

因此，请在对临时表命名时使用过程名称与临时表名称的组，如#proc_T1。这样会有效的防止此类问题的出现。

4.   另一个值得注意的问题是，我们不应该使用sp_作为自定义存储过程的前缀。这是微软用作系统存储过程的前缘。在调用以sp_开头的过程时，会首先在master数据库中进行查找，如果找不到才会在用户数据库中查找。如果要使过程真正成为系统过程要使用sp_MS_marksystemobject过程，如下所示：
USE master;

GO

EXEC sp_MS_marksystemobject 'dbo.sp_Proc1';
同样对表或其它对象的命名时也不要以sp_作为前缀。

5.   另一个问题是安全方面的，因为传入的参数可能会引起脚本注入的危险，因此应该对每个参数进行一些判断，以下是一种通用的判断语句，可应用于每个参数：
IF UPPER(@cols) LIKE UPPER(N'%0x%')

  OR UPPER(@cols) LIKE UPPER(N'%;%')

  OR UPPER(@cols) LIKE UPPER(N'%''%')

  OR UPPER(@cols) LIKE UPPER(N'%--%')

  OR UPPER(@cols) LIKE UPPER(N'%/*%*/%')

  OR UPPER(@cols) LIKE UPPER(N'%EXEC%')

  OR UPPER(@cols) LIKE UPPER(N'%xp_%')

  OR UPPER(@cols) LIKE UPPER(N'%sp_%')

  OR UPPER(@cols) LIKE UPPER(N'%SELECT%')

  OR UPPER(@cols) LIKE UPPER(N'%INSERT%')

  OR UPPER(@cols) LIKE UPPER(N'%UPDATE%')

  OR UPPER(@cols) LIKE UPPER(N'%DELETE%')

  OR UPPER(@cols) LIKE UPPER(N'%TRUNCATE%')

  OR UPPER(@cols) LIKE UPPER(N'%CREATE%')

  OR UPPER(@cols) LIKE UPPER(N'%ALTER%')

  OR UPPER(@cols) LIKE UPPER(N'%DROP%')

BEGIN

  SET @msg = N'Possible SQL injection attempt.';

  RAISERROR(@msg, 16, 1);

RETURN;

END

以上是个人的一点看法，如果有任何异议请与我一同分享！

原文：http://www.cnblogs.com/unruledboy/archive/2005/02/04/98604.html

开源世界真是太奇妙了，虽然不排除卑鄙无耻的直接盗用并贯为自己的产品，但开源可以无私到随便你怎样用。

接触开源有很长的一段时间了，先是学习别人的，然后还参与了开源，在sf.net上，我主持和参与了数个开源项目，当然，都不是大型的项目，只是尝试一下。

我所关注的开源项目方面很多，每方面都有很多优秀的作品，我将会在接下来的系列随笔中介绍，这次介绍数据库。

这个星球上的数据库实在不胜枚举，这里只列一些我接触过的常见的。

可以稍微夸张点说，有交互的应用，起码得用一下数据保存，即便是自定义结构的数据保存，还是最常见的INI、XML等，都可以算是“数据库”，真正点的，如DBase系列、FoxBase、FoxPro、MSAccess、InterBase、MS SQL Server、Oracle、DB2等，这些是商业化的数据库，前面几个只能算是数据库，后面几个是RMDBS（关系型数据库管理系统）。

对应商业化的，有开源的：SQLite、SimpleSQL、Berkely DB、Minosse、Firebird( 前身是是Borland公司的InterBase)、PostgreSQL、MySQL等。

□SQLite：大家可以看我的SQLite系列随笔，C编写的，可以跨操作平台，支持大部分ANSI SQL 92，它是嵌入式的轻量级关系形数据库引擎，只需要一个DLL，体积为250k，数据库也只是一个文件，零配置，便可工作。既然开源，你甚至可以把它嵌入你的程序中。核心开发人员只有一个，最近加入了另外一个，也就是2个人而已，实在佩服，目前发展到3.1.0，相当高效稳定，有开源驱动在sourceforge.net上有其ADO.NET Data Provider for SQLite ：https://sourceforge.net/projects/adodotnetsqlite/ 。

□SimpleSQL：相对SQLite要大几倍，但也是轻量级的，功能稍微强大一点，C++编写，有OLE、Java等版本。

□Berkely DB：C++编写的大型关系型数据库系统，还额外地支持XML(把XML当成数据库)，号称2百万的安装量，MySQL也只不过号称5百万安装量而已，跨平台。

□Minosse：纯C#编写的大型关系型数据库系统，理想是超越MS SQL Server！最新版本：0.2.0，真难得，纯Java写的看得多了，纯C#的，不是移植别人的，还是第一个，佩服作者：包含C/S和嵌入式版本，并可跨越大部分平台，因为它不用Windows的东西，可以在Mono下编译。

□Firebird：这个东西太牛了，目前有1.5稳定版本已经拥有大量特性，完全支持ANSI SQL92、98等，一些超酷的特性让人疯狂(1.0特性、1.5特性，从这里开始研究)，主要开发人员是一个俄罗斯人，目前开发队伍已经扩大到近100人，有3种模式，单机独立，典型C/S，超级服务器。2.0版本和3.0版本将在近期推出，看完其路线图(2.0、3.0)你就会疯掉。有.NET驱动，目前是1.7beta版。主要特性： 
    ◆A.C.I.D； 
    ◆MGA(任何版本的引擎都可以处理同一数据库记录)； 
    ◆PSQL(存储过程)超级强大，ms sql相对的太次，它啥都能在服务器端实现并推送到客户端成为强大的报表，存储过程； 
    ◆触发器都可以在客户端获取监控追踪； 
    ◆自动只读模式； 
    ◆创新的事务保证绝对不会出错； 
    ◆24*7运行中仍然可以随时备份数据库； 
    ◆统一触发器：任何操作都可以让某表唯一的触发器来总控； 
    ◆大部分语言都可以写plug-in，并直接在存储过程中调用函数； 
    ◆c->c++，更加少的代码但更加快的速度； 
    ◆3种运行模式，甚至可以嵌入式； 
    ◆主流语言都可以调用它； 
    ◆动态sql执行； 
    ◆事务保存点；

□PostgreSQL：POSTGRES数据库的后开源版本，号称拥有任何其他数据库没有的大量新特性，似乎目标是要做超大型的OO关系型数据库系统，目前已经发展到8.0，有.NET驱动，中文官方网站有详细介绍。

□MySQL：这个，不用说了吧？号称全球最受欢迎的开源数据库，但让我奇怪的是，PostgreSQL都有简体中文的支持：包括内核、管理工具、QA等等，在最新版本MySQL中，我却没有发现... ，有.NET驱动，其中MySQL Connector/Net就是原来在sf.net上的ByteFX.Data项目，作者已经加入了MySQL团队，参看《感慨 20 之开源的前途/钱图？（１数据库）》。

很多时候，您可能都没注意到，在 XML 中所做的更改影响着您访问 XML 文档中数据的方式。例如：

<Author><FirstName>John</FirstName><LastName>Smith</LastName></Author>

完全不同于

<Author>
<FirstName>John</FirstName>
<LastName>Smith</LastName>
</Author>

原文地址：http://www.oracle.com/technology/global/cn/pub/articles/wang-whitespace.html

以下是一个完整的示例（请参阅示例代码中的示例 1）：假设您希望使用 DOM API 获取 <Author> 的第一个子元素，如下所示：

XMLDocument doc = parser.getDocument();
Element elem = doc.getDocumentElement();
Node node = elem.getFirstChild();

利用 Oracle XDK DOM 分析器的默认设置，第一个文档返回 <FirstName> 的同时，第二个文档返回一个为空白字符节点的文本节点。

同样，有时 XSLT 转换不会生成您预期的结果。（请参阅示例 2。）XML 文档需要使用 XSLT 进行转换。XSL 样式表使用 position() 函数来为 <Chapter> 和 <Section> 元素创建排序信息：

<?xml version="1.0"?>
<Book>
<Chapter>
<Section/>
<Section/>
<Section/>
</Chapter>
<Chapter>
<Section/>
<Section/>
<Section/>
</Chapter>
</Book>

然而，以下 XSL 样式表：

<?xml version="1.0"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" indent="yes"/>

<xsl:template match="*">
<xsl:element name="{local-name()}">
<xsl:attribute name="Position">
<xsl:value-of select="position()"/>
</xsl:attribute>
<xsl:apply-templates select="@*|node()"/>
</xsl:element>
</xsl:template>
</xsl:stylesheet>

并不会按期望运行，它将产生以下结果：

<?xml version = '1.0' encoding = 'UTF-8'?>
<Book Position="1">
<Chapter Position="2">
<Section Position="2"/>
<Section Position="4"/>
<Section Position="6"/>
</Chapter>
<Chapter Position="4">
<Section Position="2"/>
<Section Position="4"/>
<Section Position="6"/>
</Chapter>
</Book>

位置不正确是由空白字符造成的。如果在 XSLT 转换中调用 position() 函数删除之前使用以下样式表删除空白字符：

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:output method="xml" omit-xml-declaration="yes"/> 
<xsl:strip-space elements="*"/>
<xsl:template match="@*|node()">
<xsl:copy>
<xsl:apply-templates select="@*|node()"/>
</xsl:copy>
</xsl:template>
</xsl:stylesheet>

将生成期望的结果：

<?xml version = '1.0' encoding = 'UTF-8'?>
<Book Position="1">
<Chapter Position="1">
<Section Position="1"/>
<Section Position="2"/>
<Section Position="3"/>
</Chapter>
<Chapter Position="2">
<Section Position="1"/>
<Section Position="2"/>
<Section Position="3"/>
</Chapter>
</Book>

对于此例，如果不希望删去所有 XML 元素的空白字符，可使用 <xsl:strip-space element="Book,Chapter, Section"> 代替。

以下部分将介绍 XML 空白字符的概念以及避免此类问题的技巧。

什么是 XML 空白字符？

XML 将以下四种字符归为空白字符：回车符（\r 或 ch(13)）、换行符（\n 或 ch(10)）、制表符 (\t) 以及空格 (' ')。在 XML 文档中，空白字符分为两类：

• 有意义空白字符 是文档内容的一部分，应予以保留。
• 无意义空白字符 在编辑 XML 文档时使用，以增加可读性。这些空白字符一般在文档交付时不予保留。

通常，若没有 DTD 或 XML 模式定义，所有空白字符都是有意义空白字符，应当保留。然而，如果有 DTD 或 XML 模式定义，则只有以下内容中的空白字符有意义：

<sig>
   ------------------   
John Smith
Product Manager   
Example.com   
   --------------------
</sig>

XML 处理器如何处理 XML 空白字符

XML 标准详细说明了 XML 处理器应如何处理空白字符。

XML 分析：XML 规范提供了一个内置属性 xml:space 来告知 XML 分析器其是否应忽略空白字符。该属性由其根元素的子元素来继承。声明时，必须将其指定为枚举类型，其可能的值只能是“default”和“preserve”。如果指定为“preserve”，则所定义元素内的空白字符必须保留。

根据 W3C XML 规范，默认情况下，Oracle XML 开发人员工具包 (XDK) XML 分析器将保留所有空白字符。因此，xml:space =“default”或 xml:space =“preserve ”将具有相同的作用：保留空白字符。若要避免保留空白字符，需要按如下所示设置 Oracle XDK 分析器：

XDK DOM Parser：

DOMParser parser = new DOMParser();
parser.setPreserveWhitespace(false);

SAX Parser：

SAXParser parser = new SAXParser();
parser.setPreserveWhitespace(false);

XSLT 转换。W3C XSLT 规范提供了两个元素（即 xsl:strip-space 和 xsl:preserve-spacea€”）来处理空白字符。xsl:strip-space 指定了应删除空白字符文本节点（即文本节点完全由空白字符组成）的 XML 元素。请注意，xsl:strip-space 只有影响纯空白字符的节点。xsl:strip-space 可以列为一组由空白字符或使用通配符（例如 *）隔开的元素。xsl:preserve-space 具有类似的语法，但执行的结果却与 xsl:strip-space 正好相反。

以下示例（请参阅示例 3）应用了一个复制源文档的 XSL 样式表，但删去了空白字符文本节点：

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:output method="xml" omit-xml-declaration="yes"/> 
<xsl:strip-space elements="*"/>
<xsl:template match="@*|node()">
<xsl:copy>
<xsl:apply-templates select="@*|node()"/>
</xsl:copy>
</xsl:template>
</xsl:stylesheet>

对于如下所示的 XML 文档：

<rootElement> 
<childElement test="true"> 
Value 
</childElement>This is the test 
<childElement test="true" xml:space="preserve"> 
Value 
</childElement> 
<childElement xml:space="preserve"> 
</childElement> 
<childElement> 
</childElement> 
</rootElement>

XSLT 转换将生成以下结果：

<rootElement><childElement test="true"> 
Value 
</childElement>This is the test 
<childElement test="true" xml:space="preserve"> 
Value 
</childElement><childElement xml:space="preserve"> 
</childElement><childElement/></rootElement>

您可能注意到，如果 XML 元素中的 xml:space="preserved"，则不会删去空白字符。这种行为基于 XSLT 规范，该规范定义了保留空白字符的条件：

文本节点的父元素具有的 xml:space 属性值为 preserve，并且没有更近的父元素具有带有默认值的 xml:space。

XSLT 还提供 normalize-space() 函数，将包含多个空白字符的字符串转换为一个空白字符，从作为参数传递给它的字符串删除所有前导空白字符和尾随空白字符。

DOM 序列化。序列化 XML 文档时，输出缩进将添加无意义空白字符。默认情况下，Oracle XDK DOM 分析器将以缩进格式打印 XML DOM 文档。

要避免缩进，在 XDK 9i 中，可将 oracle.xml.parser.v2.XMLPrintDriver 类划分为子类，如下所示（请参阅示例 4）：

import oracle.xml.parser.v2.XMLPrintDriver;
import oracle.xml.parser.v2.XMLOutputStream;

class MyXMLPrintDriver extends XMLPrintDriver
   {
public MyXMLPrintDriver(java.io.OutputStream A)
   {
super(A);
out.setOutputStyle(XMLOutputStream.COMPACT);
   }
   }

在 Oracle XDK 10g 中，新增了一个函数 oracle.xml.parser.v2.XMLPrintDriver.setFormatPrettyPrint()，可用于避免执行子类划分操作。使用 Oracle XDK 10g，您可以打印不带缩进的 XML DOM 文档，如下所示（请参阅示例 5）：

XMLPrintDriver myprint = new XMLPrintDriver(System.out);
myprint.setFormatPrettyPrint(false);
Xml_doc.print(myprint);

结论

现在，利用这些基本知识，您可以成功避免由 XML 文档中的空白字符引发的问题。

大家存在5点误区：
1、sql注入比较难防，需要替换select,delete等一打字符
其实对于字符型替换再多都没有替换单引号为两个单引号来的好！对于数字型替换再多都没有用，一定要类型转换。

2、忽略DropDownList传来的东西
其实是不对的，一切客户端的东西都是不可信任的（IP都有可能），select下拉框也是！因为可以自己做一个htm提交到服务器。

3、access比sqlserver不安全
安全不安全关键看怎么用，如果sqlserver还是像access一样用，一个sa帐户的话，很明显，sqlserver比access不安全，可以直接得到表名和字段名！access反而倒安全点了，因为只能通过逐位猜解得到。

4、网站没有显示出错信息就说明网站是安全的
当有记录的时候显示记录，没有记录的时候显示找不到任何记录，通过这两种状态就可以猜解字段名了，所以网页不出错不能说明是安全的

5、忽略post提交的信息
很多人对url上传递的东西过滤严格，对于post的东西不理不睬是不对的，post的东西更加容易被注入，因为一般字段比较多

在asp.net中强烈建议通过参数来实现sql而不是sql拼接，因为就算你每一个都过滤百密难有疏
比如：

这样的代码看起来舒服而且又安全，何乐不为？

        [序言]

        在贴子数上百万的论坛系统中，性能是非常重要的指标，缺少优化的论坛，性能低下是不用说的，轻则拖慢服务器，重则破坏数据一致性，死锁、超时频繁发生，

甚至引起系统崩溃，导致用户的流失。所以，对论坛的优化是非常必要的，一般对ASP程序优化方法有：优化数据库结构、优化算法、将常用又不经常变动的数据存入

Application，其它的一些方法经试验证实对系统的作用很小，不列入此文讨论范围。

        [第一步  -  了解你的论坛]

        首先，我们要先了解论坛，知道论坛的瓶颈在什么地方，这些地方一般在1.访问量很大的页面、2.数据处理量比较大的页面，根据对我自己论坛一周统计的结果，

访问量最大的几个页面是：

        A.查看贴子(View.asp)      96万页

        B.主题列表(Board.asp)    73万页

        C.查看资料(Member.asp)  22万页

        D.论坛首页(Index.asp)    10万页

        再对前面两者进一步分析，发现50%以上的访问量都在第一页，在前三页的访问量占了90%以上。

        至于数据处理量方面，只要设计合理，论坛系统是不会进行过多的表的关联或很复杂的运算，所以不用担心这方面的问题。

        [第二步  -  优化的常识]

        一般我们用服务器处理时间(Process  Time)来衡量一个论坛的性能，计算方法：在开始处理时候用Timer()得出开始时间，处理结束时得出结束时间，两个时间

的差即是服务器端处理所需要的时间，单位是秒。一般来说，百万级的论坛都有着10万页面/天的访问量，假设访问量是平均的，而且服务器只有一个论坛在运行，每

个页面给你的处理时间也只有0.8秒(800ms)。加上一般高峰期流量是平均值的两倍左右，也就是说，你要控制在400ms以内，才能保证高峰期的正常访问。

        200-400ms的论坛，只能算是及格，60-200ms，算是良好，低于60ms的，才能算是一个优秀的论坛，想自己也设计出一个优秀的论坛吗？继续往下看吧。

        [第三步  -  优化方法导论]

        A.数据库方面

        1.列宽对速度影响很少，Select一个varchar(10)和Select十个varchar(1000)的字符，性能几乎没有差异。

        2.text(备注)类型字段的读取比其它类型要慢，特别是在数据量大的时候。

        3.数据库大小对速度影响不是很大，如果数据库有三个字段A、B、C，C=A*B，那么，直接读字段C比不建立字段C的时候去读A*B要快，也就是说，适当的冗余能

加快Select的速度。

        4.有人觉得读大表肯定是很耗时的操作，其实不然，只要经过Where条件Select出来的记录数不多，速度是很快的，这一点在两个大表的关联也同样适用。

        5.在用Select  Top  N的时候，Where条件尽量让它容易成立，数据库搜索到N个符合条件的记录会自动返回，条件越容易满足需要搜索的记录数越少。

        6.其他的类似于数字运算比字符运算快、系统自带函数比用户自定义函数快之类的基本知识就不多说了。

        B.索引方面

        1.粗略的说，索引能加速Select，拖慢Insert和Update(注:如果索引不是建立在你要Update的字段上是没有影响的)，永远都不要试图将索引建立在经常Insert

而很少Select的表上(比如事件日志表)。

        2.索引一般建在经常作为查询条件(即Where)、排序条件(即Order  by)的字段上

        3.in子查询不会使用索引，尽量使用exists优化

        4.like查询，如果第一位是通配符(%或_)，那么该语句也不会使用索引

        C.ADO方面

        1.对Access来说，把Adodb.Connection对象存在Application中会让程序加速不少，但在SQLServer却基本没差异，估计原因是SQLServer本身有连接池加速。

        2.conn.execute创建一个Recordset比rs.open会快一点，但缺点是无法读取text型字段，而且无法获取RecordCount等属性。

        3.一次返回一个包含200条记录的记录集，比分开两次返回两个包含100条记录的记录集要快。

        [第四步  -  优化前的数据库及算法分析]

        [第五步  -  着手优化]
]]> http://max.cszi.com/Blog/Blog.aspx?Id=241 一线风 程序开发 2006-4-6 10:50:22 http://max.cszi.com/Blog/Blog.aspx?Id=241 /Blog/Blog.aspx?Id=241#commentbox <%
'---------------------------------  Author  information  -------------------------------------------------------------
'File                        :                Function.asp
'Version                :                0.10.20060404b
'Revision                :                2006-4-4        14:08:14
'Author                :                Atwind(Atwind.Max    or      一线风)
'Content                :                Email:Itwind@163.com      BLoghttp://max.69sea.com      QQ:478779122       
'Company        :                Web: Http://www.cmfu.com          Tel:50504740-5060
'-----------------------------------------------------------------------------------------------------------------
'----有返回函数的类型的相关函数集合
'
''~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

        '''----------------------------------------------------------------↓转换字符串为数字，无法转换时结果为0
        Public  Function  GetNum(iStr)               
                Dim  s
                s=Trim(""&iStr)       
                If  IsNumeric(s)  Then  GetNum=Clng(s)  Else  GetNum=0  End  If
        End  Function

        '''----------------------------------------------------------------↓过虑用户提交的Get类型字符串
        Public  Function  GetStr(Str)                               
                If  Isnull(Str)  Then
                        GetStr  =  ""
                        Exit  Function 
                End  If
                Str  =  Replace(Str,Chr(0),"")
                GetStr  =  Replace(Str,"'","''")
        End  Function

        '''----------------------------------------------------------------↓  获得用户IP       
        Public          Function  GetIp()                                       
                dim  vip
                vip=Request.ServerVariables("http_x_forwarded_for")
                if  vip=""  or  Isnull(vip)  then        vip=Request.ServerVariables("remote_addr")
                GetIp=vip
        End  Function

        '''----------------------------------------------------------------↓过滤26个引起搜索溢出的日文片假名
        Public  Function  EncodeJP(StrHTML)
                If  StrHTML<>""  Then
                        StrHTML=Trim(StrHTML)
                        StrHTML=Replace(StrHTML,"ガ","&#12460;")
                        StrHTML=Replace(StrHTML,"ギ","&#12462;")
                        StrHTML=Replace(StrHTML,"グ","&#12450;")
                        StrHTML=Replace(StrHTML,"ゲ","&#12466;")
                        StrHTML=Replace(StrHTML,"ゴ","&#12468;")
                        StrHTML=Replace(StrHTML,"ザ","&#12470;")
                        StrHTML=Replace(StrHTML,"ジ","&#12472;")
                        StrHTML=Replace(StrHTML,"ズ","&#12474;")
                        StrHTML=Replace(StrHTML,"ゼ","&#12476;")
                        StrHTML=Replace(StrHTML,"ゾ","&#12478;")
                        StrHTML=Replace(StrHTML,"ダ","&#12480;")
                        StrHTML=Replace(StrHTML,"ヂ","&#12482;")
                        StrHTML=Replace(StrHTML,"ヅ","&#12485;")
                        StrHTML=Replace(StrHTML,"デ","&#12487;")
                        StrHTML=Replace(StrHTML,"ド","&#12489;")
                        StrHTML=Replace(StrHTML,"バ","&#12496;")
                        StrHTML=Replace(StrHTML,"パ","&#12497;")
                        StrHTML=Replace(StrHTML,"ビ","&#12499;")
                        StrHTML=Replace(StrHTML,"ピ","&#12500;")
                        StrHTML=Replace(StrHTML,"ブ","&#12502;")
                        StrHTML=Replace(StrHTML,"ブ","&#12502;")
                        StrHTML=Replace(StrHTML,"プ","&#12503;")
                        StrHTML=Replace(StrHTML,"ベ","&#12505;")
                        StrHTML=Replace(StrHTML,"ペ","&#12506;")
                        StrHTML=Replace(StrHTML,"ボ","&#12508;")
                        StrHTML=Replace(StrHTML,"ポ","&#12509;")
                        StrHTML=Replace(StrHTML,"ヴ","&#12532;")
                End  If
                EncodeJP=StrHTML
        End  Function

        '''----------------------------------------------------------------↓过滤HTML/UBB以纯文本显示，带长度参数
        Public  Function  FormatHTML(HtmCode,HtmLen)
                If  HtmCode<>""  Then
                        Dim  RegX
                        Set  RegX  =  new  RegExp
                        RegX.IgnoreCase  =  True
                        RegX.Global  =  True
                        RegX.Pattern  =  "<(a|select|option|script|style|title)(.*?)>((.|  )*?)</(a|select|option|script|style|title)>"
                        HtmCode  =  RegX.Replace(HtmCode,  "  ")
                        RegX.Pattern  =  "&(lt|gt|nbsp|quot|copy);"
                        HtmCode  =  RegX.Replace(HtmCode,  "  ")
                        RegX.Pattern  =  "<[^>]*>"
                        HtmCode  =  RegX.Replace(HtmCode,  "")
                        RegX.Pattern  =  "\[(img)(.*?)\]((.|  )*?)\[/(img)\]"
                        HtmCode  =  RegX.Replace(HtmCode,  "  ")
                        RegX.Pattern  =  "\[[^\]]*\]"
                        HtmCode  =  RegX.Replace(HtmCode,  "  ")
                        HtmCode  =  Replace(HtmCode,Chr(13)&Chr(10),"  ")
                        RegX.Pattern  =  "^http://[^  <>]+)"
                        HtmCode  =  RegX.Replace(HtmCode,  "")
                        RegX.Pattern  =  "(　|~|～|`|｀)"
                        HtmCode  =  RegX.Replace(HtmCode,  "  ")
                        Set  RegX=Nothing
                        FormatHTML  =  CutStr(HtmCode,HtmLen)
                Else
                        FormatHTML  =  ""
                End  If
        End  Function

        '''----------------------------------------------------------------↓过滤HTML左右标签
        Public  Function  UnHTML(Code)
                UnHTML  =  RTrim(Code)
                If  UnHTML<>Empty  Then
                        UnHTML=Replace(UnHTML,"<","&lt;")
                        UnHTML=Replace(UnHTML,">","&gt;")
                End  If
        End  Function

        '''----------------------------------------------------------------↓截取字符串特定长度
        Public  Function  CutStr(Str,StrLen)
                CutStr  =  Trim(Str)
                If  Len(CutStr)>=StrLen  Then  CutStr=Left(CutStr,StrLen-1)&"..."
        End  Function

        '''----------------------------------------------------------------↓转换数据库数据为发布时的格式
        Public  Function  HTMLEncode(str)       
                If  Isnull(str)  then  Exit  Function
                str  =  Replace(str,CHR(38),"&amp;")                '&
                str  =  Replace(str,CHR(32),"&nbsp;  ")        '&nbsp;
                str  =  Replace(str,CHR(39),"&#39;")
                str  =  Replace(str,CHR(36),"&#36;")
                str  =  Replace(str,  CHR(34),"&#34;")
                str  =  Replace(str,">","&gt;")
                str  =  Replace(str,"<","&lt;")
                str  =  Replace(str,  CHR(13),  "")
                str  =  Replace(str,  CHR(9),  "&nbsp;  &nbsp;  &nbsp;  &nbsp;  ")                '&TAB
                str  =  Replace(str,  CHR(10)  &  CHR(10),  "</P><P>  ")
                str  =  Replace(str,  CHR(10),  "<BR>  ")
                HTMLEncode  =  str
        End  Function

        '''----------------------------------------------------------------↓简化条件判断
        Public  Function  IIf(ByVal  blnBool,ByVal  strStr1,ByVal  strStr2)
                If  blnBool  Then  IIf=strStr1        Else  IIf=strStr2  End  If
        End  Function

        '''----------------------------------------------------------------↓通过时返回用户名，否则返回为空,传参过虑为Chr1|Chr2|Chr3
        Public  Function  IsPass(ByVal  str,ByVal  arr)
                Dim  s,arrChr,i
                s=str
                arrChr=Split(arr,"|")
                For  i=0  to  Ubound(arrChr)
                        If  Instr(s,arrChr(i))>0  Then 
                                Ispass="" 
                                Exit  Function
                        End  If
                Next
                IsPass=s
        End  Function

%>
[/Code]]]> http://max.cszi.com/Blog/Blog.aspx?Id=207 一线风 程序开发 2005-8-18 10:36:11 http://max.cszi.com/Blog/Blog.aspx?Id=207 /Blog/Blog.aspx?Id=207#commentbox dim  BadWords
BadWords="考,Fuck"

        '用于信息过滤
        Public  Function  HTMLEncode(strFilter)
                If  Not  IsNull(strFilter)  Then
                        strFilter  =  replace(strFilter,  ">",  "&gt;")
                        strFilter  =  replace(strFilter,  "<",  "&lt;")
                        strFilter  =  Replace(strFilter,  CHR(32),  "  ")                '&nbsp;

    strFileName  =  Request.Form("file1")
    Set  objStream  =  Server.CreateObject("ADODB.Stream")
    objStream.Type  =  1  '  adTypeBinary
    objStream.Open
    objStream.LoadFromFile  strFileName
    objStream.SaveToFile  Server.MapPath(GetFileName(strFileName)),2
    objStream.Close
    %>

    upload.htm文件
    <form  name="FORM"  action="upload.asp"  method="post">
　　<input  type="submit"  name="submit"  value="OK">
          <input  type="file"  name="file1"  style="width:400"    value="">
    </form>]]> http://max.cszi.com/Blog/Blog.aspx?Id=118 一线风 程序开发 2005-4-1 18:08:08 http://max.cszi.com/Blog/Blog.aspx?Id=118 /Blog/Blog.aspx?Id=118#commentbox

AddData:
Conn.Execute("INSERT  INTO  [Y_user](Username,UserPassword,Groups)  Values  ('"&Username&"','"&UserPassword&"','"&Groups&"')")

DelData:
  Conn.execute("delete    from  [Y_Gbook]  where  id="&id)

UpdateData:
  Conn.Execute("update  [Y_user]  set  usergroupid=1  ,  userclass='"&groupsname&"',titlepic='"&titlepic&"'  where  userid="&adminuserid&"  ")
[code]

AddData:
Conn.Execute("INSERT  INTO  [Y_user](Username,UserPassword,Groups)  Values  ('"&Username&"','"&UserPassword&"','"&Groups&"')")

DelData:
  Conn.execute("delete    from  [Y_Gbook]  where  id="&id)

UpdateData:
  Conn.Execute("update  [Y_user]  set  usergroupid=1  ,  userclass='"&groupsname&"',titlepic='"&titlepic&"'  where  userid="&adminuserid&"  ")

conn.execute("insert  into  Y_Troop  (userid,ishead,username,usersex)  select  userid,ishead,username,usersex  from  Y_user  where  userid="&id&"")

conn.execute("delete  From  Y_Troop  where  parentid=(select  id  from  Y_Troop  where  userid="&id&"  )")

That  is  very  important  sentence.

[/code]

[redface]

还有别的～嘿～

以下为SQL  SERVER7.0以上版本的字段类型说明。SQL  SERVER6.5的字段类型说明请参考SQL  SERVER提供的说明。

[redface]]]> http://max.cszi.com/Blog/Blog.aspx?Id=117 一线风 程序开发 2005-3-31 20:23:13 http://max.cszi.com/Blog/Blog.aspx?Id=117 /Blog/Blog.aspx?Id=117#commentbox

点击下载此文件

]]> http://max.cszi.com/Blog/Blog.aspx?Id=114 一线风 程序开发 2005-3-31 13:33:54 http://max.cszi.com/Blog/Blog.aspx?Id=114 /Blog/Blog.aspx?Id=114#commentbox   <%
    Set  conn  =  Server.CreateObject("ADODB.Connection")
    conn.Open  "DRIVER={Microsoft  Access  Driver  (*.mdb)};  DBQ="  &  Server.MapPath("\bbs\db1\user.mdb") 
  %>
(用来连接bbs\db1\目录下的user.mdb数据库)
<2>显示数据库记录
    原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录
                如果是从头到尾：用循环并判断指针是否到末            使用:  not  rs.eof
                如果是从尾到头：用循环并判断指针是否到开始        使用：not  rs.bof
               
                <!--#include  file=conn.asp-->        (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)
                <%
                  set  rs=server.CreateObject("adodb.recordset")    (建立recordset对象)
                  sqlstr="select  *  from  message"    ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
                  rs.open  sqlstr,conn,1,3                  ---->(表示打开数据库的方式)
                  rs.movefirst                                        ---->(将指针移到第一条记录)
                  while  not  rs.eof                                ---->(判断指针是否到末尾)
                  response.write(rs("name"))            ---->(显示数据表message中的name字段)
                  rs.movenext                                          ---->(将指针移动到下一条记录)
                  wend                                                        ---->(循环结束)
------------------------------------------------------                 
                  rs.close
                  conn.close                                        这几句是用来关闭数据库
                  set  rs=nothing
                  set  conn=nothing
-------------------------------------------------------
                %>
              其中response对象是服务器向客户端浏览器发送的信息
<3>增加数据库记录
  增加数据库记录用到rs.addnew,rs.update两个函数
                <!--#include  file=conn.asp-->        (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)
                <%
                  set  rs=server.CreateObject("adodb.recordset")    (建立recordset对象)
                  sqlstr="select  *  from  message"    ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
                  rs.open  sqlstr,conn,1,3                  ---->(表示打开数据库的方式)
                  rs.addnew                                            新增加一条记录
                  rs("name")="xx"                                将xx的值传给name字段
                  rs.update                                            刷新数据库 
------------------------------------------------------                 
                  rs.close
                  conn.close                                        这几句是用来关闭数据库
                  set  rs=nothing
                  set  conn=nothing
-------------------------------------------------------                   
                                       
                %>
<4>删除一条记录
    删除数据库记录主要用到rs.delete,rs.update
      <!--#include  file=conn.asp-->        (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)
                <%
                  dim  name
                  name="xx"
                  set  rs=server.CreateObject("adodb.recordset")    (建立recordset对象)
                  sqlstr="select  *  from  message"    ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)
                  rs.open  sqlstr,conn,1,3                  ---->(表示打开数据库的方式)
-------------------------------------------------------             
                  while  not  rs.eof
                    if  rs.("name")=name  then
                      rs.delete
                      rs.update                          查询数据表中的name字段的值是否等于变量name的值"xx"，如果符合就执行删除，
                    else                                      否则继续查询,直到指针到末尾为止
                      rs.movenext
                    emd  if
                  wend
------------------------------------------------------
------------------------------------------------------                 
                  rs.close
                  conn.close                                        这几句是用来关闭数据库
                  set  rs=nothing
                  set  conn=nothing
------------------------------------------------------- 
                %>
<5>关于数据库的查询
    (a)  查询字段为字符型
            <%
            dim  user,pass,qq,mail,message
            user=request.Form("user")
            pass=request.Form("pass")
            qq=request.Form("qq")
            mail=request.Form("mail")
            message=request.Form("message")
            if  trim(user)&"x"="x"  or  trim(pass)&"x"="x"  then          (检测user值和pass值是否为空，可以检测到空格)
                response.write("注册信息不能为空")
            else
            set  rs=server.CreateObject("adodb.recordset")
            sqlstr="select  *  from  user  where  user='"&user&"'"        (查询user数据表中的user字段其中user字段为字符型)
            rs.open  sqlstr,conn,1,3
            if    rs.eof  then
                rs.addnew
                rs("user")=user
                rs("pass")=pass
                rs("qq")=qq
                rs("mail")=mail
                rs("message")=message
                rs.update
                rs.close
                conn.close
                set  rs=nothing
                set  conn=nothing
                response.write("注册成功")
              end  if 
            rs.close
            conn.close
            set  rs=nothing
            set  conn=nothing
            response.write("注册重名")
          %>
    (b)查询字段为数字型
          <%
            dim  num
            num=request.Form("num")
            set  rs=server.CreateObject("adodb.recordset")
            sqlstr="select  *  from  message  where  id="&num      (查询message数据表中id字段的值是否与num相等，其中id为数字型)
            rs.open  sqlstr,conn,1,3
            if  not  rs.eof  then
            rs.delete
            rs.update
            rs.close
            conn.close
            set  rs=nothing
            set  conn=nothing
            response.write("删除成功")
            end  if
            rs.close
            conn.close
            set  rs=nothing
            set  conn=nothing
            response.write("删除失败")
          %>
<6>几个简单的asp对象的讲解
      response对象:服务器端向客户端发送的信息对象,包括直接发送信息给浏览器,重新定向URL，或设置cookie值
      request对象:客户端向服务器提出的请求
      session对象:作为一个全局变量，在整个站点都生效
      server对象：提供对服务器上方法和属性的访问                                                                                             
(a)  response对象的一般使用方法
        比如：
              <%
                resposne.write("hello,  welcome  to  asp!")
              %>
        在客户端浏览器就会看到    hello,  welcome  to  asp!  这一段文字
            <%
  response.Redirect(www.sohu.com")
            %>
        如果执行这一段，则浏览器就会自动连接到  “搜狐”  的网址
    关于response对象的用法还有很多，大家可以研究研究
    request对象的一般使用方法
比如客户端向服务器提出的请求就是通过request对象来传递的
列如  ：你在申请邮箱的所填写的个人信息就是通过该对象来将
            你所填写的信息传递给服务器的
比如：这是一段表单的代码，这是提供给客户填写信息的，填写完了按
          “提交”传递给request.asp文件处理后再存入服务器数据库
        <form  name="form1"  method="post"  action="request.asp">
            <p>
            <input  type="text"  name="user">
            </p>
            <p> 
            <input  type="text"  name="pass">
            </p>
            <p>
            <input  type="submit"  name="Submit"  value="提交">
            </p>
</form> 
那么request.asp该如何将其中的信息读入，在写入数据库，在这里就要用到
request对象了，下面我们就来分析request.asp的写法
<%
  dim  name,password        (定义user和password两个变量)
  name=request.form(“user”)    (将表单中的user信息传给变量name)
  password=request.form(“pass”)  (将表单中的pass信息传给变量password)
%>           
通过以上的几句代码我们就将表单中的数据读进来了，接下来我们要做的就是将
信息写入数据库了，写入数据库的方法上面都介绍了，这里就不一一复述了
]]> http://max.cszi.com/Blog/Blog.aspx?Id=112 一线风 程序开发 2005-3-30 16:57:52 http://max.cszi.com/Blog/Blog.aspx?Id=112 /Blog/Blog.aspx?Id=112#commentbox

把上句放在<Table>里就行了～还就是表格要是1的边框：）

其实做细线表格不一定用这种，比如让间距为1，然后用背景色填充，最后就改一下表格里的背景色，但是问题来了，如果这个表格里的数据是成千上万的乍办？我今天就碰到了这种情况，都快疯了，用上面的那种办法就能很好的解决问题～～

]]> http://max.cszi.com/Blog/Blog.aspx?Id=108 一线风 程序开发 2005-3-29 13:47:32 http://max.cszi.com/Blog/Blog.aspx?Id=108 /Blog/Blog.aspx?Id=108#commentbox //打开窗口
function  openScript(url,  width,  height){
        var  Win  =  window.open(url,"openScript",'width='  +  width  +  ',height='  +  height  +  ',resizable=1,scrollbars=yes,menubar=no,status=no'  );
}
</Script>

以下是调用方式：

<a  href="JavaScript:openScript('Openpage.htm',500,600)">发短信</a>
<Script  Language="Javascript">
//打开窗口
function  openScript(url,  width,  height){
        var  Win  =  window.open(url,"openScript",'width='  +  width  +  ',height='  +  height  +  ',resizable=1,scrollbars=yes,menubar=no,status=no'  );
}
</Script>

以下是调用方式：

<a  href="JavaScript:openScript('Openpage.htm',500,600)">发短信</a>

这样做的好处是OpenScrit  可以写在一个单独的文件里，而所以的弹出方式都可以通过传递的参数来固定窗口。

相关解说～～～～
<SCRIPT  LANGUAGE="javascript"> 
　　<!-- 
　　window.open  ('page.html',  'newwindow',  'height=100,  width=400,  top=0,  left=0,  toolbar=no,  menubar=no,  scrollbars=no,  resizable=no,location=no,  status=no')  　　--> 
　　</SCRIPT> 
   
　　参数解释： 
　　 
　　<SCRIPT  LANGUAGE="javascript">  js脚本开始； 
　　window.open  弹出新窗口的命令； 
　　'page.html'  弹出窗口的文件名； 
　　'newwindow'  弹出窗口的名字（不是文件名），非必须，可用空''代替；  　　
            height=100  窗口高度； 
　　width=400  窗口宽度； 
　　top=0  窗口距离屏幕上方的象素值； 
　　left=0  窗口距离屏幕左侧的象素值； 
　　toolbar=no  是否显示工具栏，yes为显示； 
　　menubar，scrollbars  表示菜单栏和滚动栏。 
　　resizable=no  是否允许改变窗口大小，yes为允许； 
　　location=no  是否显示地址栏，yes为允许； 
　　status=no  是否显示状态栏内的信息（通常是文件已经打开），yes为允许； 
　　</SCRIPT>  js脚本结束 

]]> http://max.cszi.com/Blog/Blog.aspx?Id=98 一线风 程序开发 2005-3-24 8:06:56 http://max.cszi.com/Blog/Blog.aspx?Id=98 /Blog/Blog.aspx?Id=98#commentbox 2006-3-9  重新修改Ver:0.31.20060304b

Conn.asp

[code]
<%@  LANGUAGE  =  VBScript%>
<%
'---------------------------------  Author  information  -------------------------------------------------------------
'File                        :                CONN.asp
'Version                :                0.31.20060304b2006-3-9  重新修改Ver:0.31.20060304b

Conn.asp

List.asp

使用Getrows可以提高效率，先写这儿，回头找找资料～

]]>