duanqi2.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 =2
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("归还日期"))+" WHERE  借款人='"+cstr(rs("借款人"))+"'"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
Response.Redirect "duanqi.asp?Page=" & PageNo
%>
<%
rs.Close()
Set rs = Nothing
%>