1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188150
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188151
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188152
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188153
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188154
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188145
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188156
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188157
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188158
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188159
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188160
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188161
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188162
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188163
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188164
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188165
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188166
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188167
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188168
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188169
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188160
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188171
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188172
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
- 博客访问： 26188173
- 博文数量： 2065
- 博客积分： 10377
- 博客等级： 上将
- 技术积分： 21525
- 用 户 组： 普通用户
- 注册时间： 2008-11-04 17:50
文章存档
2012年（2）
2011年（19）
2010年（1160）
2009年（969）
2008年（153）
分类： 系统运维
2009-05-21 10:55:09
1.
XML
在XML文档中的所有文本都会被解析器解析。只有在CDATA部件之内的文本会被解析器忽略。我理解：不被解析就是你写的是什么就显示什么。比如你写的是 2 < 3 就打印出来2 < 3出来了。如果被解析了的话就会报错的。如果文本包含了很多的"<"字符和"&"字符——就象程序代码一样，那么最好把他们都放到CDATA部件中。一个 CDATA 部件以""
标记开始，以"]]>"标记结束:
2. 编写DBConnection.asp 连接DB的代码
<%
'返回连接DB对象
Function ConnOpenNewConnectionClub
Dim
Conn
Set Conn
= Server.CreateObject("ADODB.Connection")
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Exit Function
End
If
login_user
= Application("Connection_RuntimeMyTianyaUserName") '定义到了asa文件中去了。
login_passwd
= Application("Connection_RuntimeMyTianyaPassword")
conn.ConnectionTimeout
= Application("Connection_ConnectionTimeout")
conn.CommandTimeout
= Application("Connection_CommandTimeout") '设置游标属性
conn.Open
"DSN=hkebao;PASSWORD="&login_passwd&";USER="&login_user&";",login_user
, login_passwd '密码存在文件中
If
Err.Number <> 0 Then
Set ConnOpenNewConnectionClub = Nothing
Else
Set ConnOpenNewConnectionClub = conn '返回回来一个连接对象
End
If
End Function
Dim oConn
Set oConn =
ConnOpenNewConnectionClub()
'引用此函数得到一个连接对象
%> 返回出来一个连接对象
3. 开始编写XML数据生成
ASP生成XML数据-hkebao-ChinaUnix博客
