coopdate.asp

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

<%
FunCtion CoopDate(TableName,ID)
	Set Rs=Server.CreateObject("Adodb.Recordset")
	Sql="Select * From "&TableName&" Where ID="&ID
	Rs.Open Sql,Conn,1,1
	For Each i In Rs.Fields
		If FieldText = "" Then
		FieldText = i.Name
		Else
		FieldText = FieldText & "," & i.Name
		End If
	Next
	FieldText = Replace(FieldText,"ID,","",1,1)
	Sql="Insert Into "&TableName&" Select "&FieldText&" From "&TableName&" Where ID="&ID
	Conn.ExeCute Sql
End FunCtion
%>