revisiontruefalse.asp

来自「asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内」· ASP 代码 · 共 14 行

<%
FunCtion RevisionTrueFalse(TableName,ID,Fieldss)
	Set Rss = Server.CreateObject("Adodb.recordset")
	Sqls = "Select ID," & Fieldss & " From " & TableName & " Where ID=" & ID
	Rss.Open Sqls,Conn,1,3
	If Rss(Fieldss) = False Then
		Rss(Fieldss) = True
	Else
		Rss(Fieldss) = False
	End If
	Rss.Update
	Rss.Close
End FunCtion
%>