gupiao2.asp

来自「实现个人资产的系统管理,用ASP+ACCESS开发」· ASP 代码 · 共 41 行

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "股票表"
rs.CursorType =0
rs.CursorLocation =3
rs.LockType = 1
rs.Open()


If rs Is Nothing Then
    Response.Write "连接失败"
    Response.End
else 
if rs.bof or rs.eof then
response.Write("abc")
end if	
End If

RecNo = Request( "RecNo" )
PageNo = (RecNo-1) \ 10 + 1
rs.AbsolutePosition = RecNo
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_conn_STRING
Command1.CommandText=  "UPDATE 股票表 SET  股票代号="+cstr(Request("股票代号"))+",股票名称='"+Request("股票名称")+"',现价="+cstr(Request("现价"))+",买入价="+cstr(Request("买入价"))+",成交量="+cstr(Request("成交量"))+" WHERE  股票代号="+cstr(rs("股票代号"))
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
Response.Redirect "gupiao.asp?Page=" & PageNo
%>
<%
rs.Close()
Set rs = Nothing
%>