📄 save.asp
字号:
<!--#include file="../login/checklogin.asp"-->
<!--#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"%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -