修改代码
这里有几个基本的代码修改你必须增加。
1.你必须移动一些代码，因为UltraDev是在记录集创建之前在页面的顶部创建所有的变量
的。但是这是JobID的数值在页面上并不是有效的，它只有到rsJobSearch记录集被创建才是有
效的。所以我们不得不移动一些代码。第一段代码需要移动的是上面一段ASP代码。剪切该段
代码将其粘贴到代码代码语句部分的最末尾，即在标志的上面。
2.再找到创建rsJobCatgories数据库连接的代码。如果你注意看，再这个代码的下面应该是为
Job Categories的重复区域写的代码。剪切这段代码将其粘贴到你第二步中移动的代码下面。
在VBScript区段末尾的新的代码如下：
< %
Dim rsJobCategories__JobID
rsJobCategories__JobID = "1"
if(Request("JobID") <> "") then rsJobCategories__JobID =
(rsJobSearch.Fields.Item("JobID").Value)
% >
< %
set rsJobCategories = Server.CreateObject("ADODB.Recordset")
rsJobCategories.ActiveConnection = "dsn=Jobs;"
rsJobCategories.Source = "{call dbo.spJobCategories(" +
Replace(rsJobCategories__JobID, "'", "''") + ")}" rsJobCategories.CursorType = 3
rsJobCategories.CursorLocation = 3
rsJobCategories.LockType = 1
rsJobCategories.Open rsJobCategories_numRows = 0
% >
< %
Dim Repeat1__numRows
Repeat1__numRows = -1 Dim
Repeat1__index Repeat1__index = 0
rsJobCategories_numRows = rsJobCategories_numRows + Repeat1__numRows
% >
< html >< head >...
这里值得指出的是，你可能会注意到我已经将CursorLocation 的缺省值2修改成3了。这
是因为我的工作数据库有ntext区域（这有点想Access的备忘录区域）以及当UltraDev代码想
阅读大量的文本区域的相后产生了一个ASP错误。所以要改变CursorLocation来修理它。
|
