<!--#include file= "conn.asp"-->
<title>untitled document</title>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<body>
<%dim Rs,sql,rsname
Set Rs=server.createobject ("Adodb.recordset")
On Error Resume Next
Sql= "SELECT * from Your_table"
Rs. Open SQL, Conn
Rsname=rs (0). Name
For i = 1 to RS. Fields.count-1
' RSNAME=RSNAME&CHR (9) &rs (i). Name
rsname=rsname& "," &rs (i). Name
Next
RSNAME=RSNAME&CHR (13)
Rs.close
Set rs=nothing
Conn.close
Set conn=nothing
Function E (W)
Dim h
Dim My_array,my_array1
My_array=split (W, ",")
My_array1=split (W, ",")
Dim I
For i=0 to UBound (My_array)
My_array (i) =my_array (i) & "=" &CHR (i) &CHR (a) &chr (a) &my_array (i) &CHR (i) &CHR (34) &CHR (39)
Next
For i=0 to UBound (My_array)
My_array1 (i) =CHR (&CHR) &CHR (a) &my_array1 (i) &CHR (a) &chr (a) &CHR (39)
Next
E= "<P>" &w& "<p>" & "Update:" & "<br>" & "Update your_table Set" & Join (My_array , ",") & "Where Condition" & "<p>" & "Insert:" & "<br>" & "INSERT INTO Your_table (" &w& ") VALUES ("&join (My_array1,", ") &") "
End Function
Response.Write E (rsname)%>
</body>
