一个出错程序,有人能解决吗?功能很简单 查询+更新

[kv_faq]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim RS
Dim RS_numRows
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = MM_conn_STRING
RS.Source = "SELECT A.id,A.s_num,B.stock_v,A.zj,A.USERID,b.stock_name,zj FROM gszj A,stock B WHERE A.stockid = B.stockid ORDER BY userid"
RS.CursorType = 0
RS.CursorLocation = 2
RS.LockType = 1
RS.Open()

RS_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
RS_numRows = RS_numRows + Repeat1__numRows
%>
<table border="1" cellpadding="0">
<tr>
<td>编号</td>
<td>用户编号</td>
<td>今日收盘价</td>
<td>股票数量</td>
<td>该股资金</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT RS.EOF)) %>
<tr>
<td><%=(RS.Fields.Item("id").Value)%></td>
<td><%=(RS.Fields.Item("USERID").Value)%></td>
<td><%=(RS.Fields.Item("stock_v").Value)%></td>
<td><%=(RS.Fields.Item("s_num").Value)%></td>
<td><p><%=FormatNumber(csng(rs("s_num"))*rs("stock_v"),2)%></p>
<p>
<%dim zijin
zijin=(rs("s_num"))*(rs("stock_v"))
rs("zj")="zijin"
rs.update

%>

</p></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RS.MoveNext()
Wend
%>
<%
RS.Close()
Set RS = Nothing
%>

[kv_faq]

没人么
真的需要解决
麻烦大家了

[lnboy1003]

UPDATE gszj
SET gszj = nn.NewPrice
FROM (SELECT gszj.STOCKID, gszj.S_NUM * STOCK.STOCK_V AS NewPrice
FROM gszj INNER JOIN
STOCK ON gszj.STOCKID = STOCK.STOCKID) nn
WHERE gszj.STOCKID = nn.STOCKID

[lnboy1003]

是不是和你在那个体问里的一样啊我已经在那里给你回复了兄弟

[basanovic]

好像是dw生成的代码吧，看的头晕……而且我不懂股票

[kv_faq]

INBOY1003
我的MSN是[e-mail]
我的QQ是63898623
帮帮我