save.asp

来自「网络程序-学生课表生成系统。运用了模块化思想组织代码」· ASP 代码 · 共 34 行

<!--#include file="../database/opendb.asp"-->
<%
'此函数修改某属性对应的值
Function changevalue(id,value)
  strsql="select * from info where ID="& id
  rst.open strsql,my_conn,1,3  
  rst("content")=value
  rst.update
rst.close
End Function
%>

<%
set rst1 = Server.CreateObject("ADODB.Recordset") 
    rst1.ActiveConnection=my_conn
sql="select ID from info order by ID "  
rst1.Open sql,my_conn,1,1 

if rst1.EOF and  rst1.BOF then
'若为空,不做处理
else
    rst1.movefirst 
    do while not rst1.EOF or rst1.BOF
        call changevalue(rst1("ID"),request(rst1("ID")))
    rst1.movenext 
    loop 
end if
rst1.close'rst1记录集得到所有的可能ID

%>
<!--#include file="../database/closedb.asp"-->
<%response.redirect "sysedit.asp"%>