关于include---自己的一些经验

关于include本论坛里已经有一些文章谈论过了，也有不少网友还在谈论这个问题，在这里想说一些自己在实践中曾经遇到过的问题和解决方式。
    先从include的运行方式说起，顾名思义，include――包含，它只是一个包含的作用，并不进行编译（翻译）
第一种错误
     举个例子
    例1：
conn.asp    
<%
    dim conn
    set conn=Server.CreateObject("adodb.connection")
     conn.open "Provider=SqlOledb;DataBase=Cos;Uid=jielon;Pwd=123Z"
response.Write "ok"
%>
conn1.asp
<%
    dim conn
    set conn=Server.CreateObject("adodb.connection")
     conn.open "Provider=SqlOledb;DataBase=Cos;Uid=jielon;Pwd=123Z"
     dim rs
     set rs=server.CreateObject("adodb.recordset")
     rs.ActiveConnection=conn
     rs.Source="select * from ttt"
     rs.Open
     do while not rs.EOF
     response.Write rs(1)
     rs.MoveNext
     loop
     rs.Close
%>
运行conn1.asp时会提示：
Microsoft VBScript 编译器错误 错误 '800a0411'
名称重定义
/conn.asp，行2
dim conn
----^
出错原因：
执行conn1.asp的步骤是：
1．包含：<%
    dim conn
    set conn=Server.CreateObject("adodb.connection")
     conn.open "Provider=SqlOledb;DataBase=Cos;Uid=jielon;Pwd=123Z"
     dim rs