revisiontruefalse.asp

asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内不带任何广告代码 弥补了ASP相对与PHP的功能缺陷

<%
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
%>