28,406
社区成员
发帖
与我相关
我的任务
分享
<%
dim names,stime,etime,users,manager,website,remark
names=request.form("names")
stime=request.form("stime")
etime=request.form("etime")
users=request.form("users")
manager=request.form("manager")
website=request.form("website")
remark=request.form("remark")
set adocon=Server.createobject("adodb.connection")
adocon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mosoukey.mdb")
sql="insert into [key]([Name],[Stime],[Etime],[Users],[Manager],[Website],[Remark])values('" & names & "',#" & stime & "#,#" & etime & "#,'" & users & "','" & manager & "','" & website & "','" & remark & "')"
' on error resume next
adocon.execute sql
if err.number=0 then
response.write("成功")
else
response.write err.description
response.write("失败")
end if
%>