28,409
社区成员




...
conn.Open connstr
If Err.Number<>0 Then
Set Conn = Nothing
Response.Write Err.Description
Response.End
End If
<!--#include file="conn.asp"-->
<body>
<%
sql = "INSERT INTO 读取表(名称) SELECT 产品编号 FROM 材料清单;" &_
"INSERT INTO 读取表(名称) SELECT 名称 FROM 材料清单;" &_
"INSERT INTO 读取表(名称) SELECT 类型 FROM 材料清单;" &_
"INSERT INTO 读取表(名称) SELECT 规格 FROM 材料清单;" &_
"INSERT INTO 读取表(名称) SELECT 材质 FROM 材料清单;" &_
"INSERT INTO 读取表(名称) SELECT 单位 FROM 材料清单;"
conn.execute sql
conn.close
%>
</body>