<%
Dim Action
Action = Trim(Request("Action"))
If Action = "Save" Then
Call SaveStu
Else
Call Main
End If
Sub Main()
%>
<%
End Sub
Sub SaveStu()
Dim Rs,Sql,I
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From Student"
Rs.Open Sql,Conn,1,3
Rs.AddNew
For I = 1 To 10
Rs("Stu" & I) = Trim(Request("Stu" & I))
Next
Rs.Update
Rs.Close
Set Rs = Nothing
Response.write ""
End Sub
%>
我厂是集生产、销售、租赁为一体的综合性公司我厂生产的
扣件质量安全耐久。其中
碗扣式脚手架,现有全新生产流水线两条,年产脚手架3000吨,技术力量雄厚。产品质量通过国家建筑工程质量监督检验中心检验,均符合检验标准要求!