环境要求
NT
1.Windows NT Server 4.0 + SP3
2.Client Access for Windows 95/NT V3R1M2 (PTF SF40828 或以上)
3. IIS 3.0 以上
4. 支持ASP
win95
1. PWS4.0 +Win95
试验环境
NT :NT 4.0 + SP3+ Option Pack 4
AS400: 操作系统版本4.2
Client Access :V3RM0
步骤:
1. 安装NT4 + SP3 +Option Pack
2. 确认IIS4.0 工作正常 ASP工作正常
3. 配置AS400,确认能通过TCP/IP访问
hostSever服务已启动
在AS400 QGPL 库中创建一表作为测试
表名：Temp
Column Name Data Type:
AAA char
BBB int
CCC char
4.安装Client Access
4.1选取通过TCP/IP访问
5.安装完毕
5.1 配置Client Access访问AS400 连接
连接名：例如取为S100290M
5.2 确认Clinet Access ODBC DRIVER (32 位）已经安装到NT上
6. 配置DSN （注意一定要系统DSN)
在 General页中
输入DSN名：例AS400
用户ID:例 User
在Server页中
输入缺省库：例 QGPL
7.启动应用程序
例如：Microsoft Access 或VB
通过ODBC 访问As400 QGPL中Temp表 并输入测试数据
(如果你用运行在WIN95上PWS访问则到目前为止已经能通过ASP去访问AS400）
8.由于IIS 是作为一个服务运行于NT上的
所以要配置通过服务访问AS400
在NT上运行命令
CWBCFG /HOST 主机名 /IPADDR IP地址 /S
在本例中：CWBCFG /HOST S100290M /IPADDR 129.19.10.40 /S
运行CWBCFG /S
将看到 CWBCFG..............
S100290M 129.19.10.40
信息，表明输入成功
9. 从新启动N TSERVER
10.编写Test.ASP文件放在IIS 中已配置好目录下
11.浏览Test.ASP观察结果
要点:
连接As400用TCP/IP
ODBC要配置成系统的
使用CWBCFG命令启动服务访问AS400
使用 PWS +win95 Client Access V3.2就可以
问题解决:
1.如果 出现 通讯链路故障 COMM =0x5
检查CWBCFG是否配置正确
2.如果 出现 通讯链路故障 COMM =0x17
检查Client Access访问AS400是否正常
3.打开ASP无响应
使用 AD400.Connection 由(Client Access提供的,但提供连接
不能和RS一起使用)
Set Conn = Server.CreateObject("AD400.Connection")
Conn.Open "S100290M","User","User"
测试Conn.Open 打开Client Access配置的连接名
如无错误,则启动NT在试多试几次,该部分很不稳定.
有错误,检查Client Access连接
附Test.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>TEST</title>
</head>
<BODY>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "as400","User","User"
Set RS = Conn.Execute("SELECT * FROM temp")
%>
<P>
<TABLE BORDER=1>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<TD><B><% = RS(i).Name %></B></TD>
<% Next %>
</TR>
<% Do While Not RS.EOF %>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<TD VALIGN=TOP><% = RS.Fields(i).Value
%></TD>
<% Next %>
</TR>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
</TABLE>
<BR>
<BR>
</BODY>
</html> |
