postwrite.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 20 行

<!--#Include File=conn.asp -->
<%
'接收表单控件的内容
Name=request("Name")
Sex=request("Sex")
Tel=request("Tel")
Birthday=request("Birthday")
Address=request("Address")
Email=request("Email")
'对输入数据进行校验
if trim(Name)="" then 
  response.write "姓名不能为空，请重新输入！"
  response.end
end if  
SqlStr="Insert Into Userlist(姓名,性别,电话,出生日期,地址,Email) Values('" & Name & "','" & Sex & "','" & Tel & "',#" & Birthday & "#,'" & Address & "','" & Email & "')"
'Response.write SqlStr    '打印出SQL语句，看看语法是否正确
Conn.Execute(SqlStr)  	  执行SQL语句，插入数据
response.redirect "show.asp"    '修改完毕，返回show.asp页面
%>