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

2006-04-27 04:35:34 216 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Spring Boot下Spring MVC框架的启动原理——SpringBoot应用的启动过程——万字长文文章目录1：创建 SpringApplication1.1 创建 SpringApplication过程的源码调试1.2 创建 SpringApplication过程的源码解读1.2.1 推断是否是Web环境1.2.2 通过spring工厂设置应用组件1.2.3 推断main方法所在的启动类2：运行 SpringApplication2.1 应用环境的创建与准备2.2 应用上下文的创建（创建IOC容器）2.3 应用上下文的准备（准备IOC容器的基本信息）2.4 应用上下文的刷新（刷新IOC容器） Spr 阅读详情

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
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
%>

...全文