supdate.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 37 行

<!-- #include file="adoconn.asp" -->
<%
 Dim RecordsetArray 
 Dim LocalArray(100) 
 Dim fi
 Dim Rs 
     
    Session("SNo")=Request.form("T1")    
    Session("EditFlag")="MODIFY" 
 
    set RS=GetRecordset("select * from Students where SNo='" & Session("SNo") & "' and Spw='" & Request.form("T2") & "'") 
    If Rs.recordcount = 1 Then
       RecordArray=RS.GetRows() 
         
       for fi=0 to RS.FIELDS.COUNT-1 
           LocalArray(fi)=RecordArray(fi,0) 
       next  
         
       session("DataArray")=LocalArray 
       
       Set RS=nothing 
       Set Adoconn=nothing
       
       Response.Redirect ("Sedit.asp") 
    Else
       Set RS=nothing 
       Set Adoconn=nothing
%>
  <script language="vbscript">
        MsgBox "输入了错误信息！"
        History.back
  </script>
<%
 
    End if        
%>