adddate.asp

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

<%
FunCtion AddDate(TableName)

	Set Rss = Server.CreateObject("Adodb.RecordSet")
	Sqls = "Select * From " & TableName
	Rss.Open Sqls,Conn,1,3
	Rss.AddNew

	For Each Item In Request.Form
	
		If FieldssTrueFalse(TableName,Item) = True Then
			If Item = "PassWord" Then
			Rss(Item) = MD5(RequestTxt(Request.Form(Item)))
			Else
			Rss(Item) = RequestTxt(Request.Form(Item))
			End If
		End If

	Next
	
	Rss.UpDate
	Rss.Close
	  
End FunCtion
%>