add.asp

大一下学期

<% Option Explicit %>
<% 
'如果上面的信息填全了，就添加记录，否则给出错误信息
If Request.Form("name")<>"" Then
	'以下连上数据库，建立一个Connection对象实例db
	Dim db 
	Set db=Server.CreateObject("ADODB.Connection") 
	db.Open "Dbq="&Server.Mappath("tongxunlu.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"    
	'以下建立记录集
	
	 '以下添加新记录
	Dim strSql,varname,varsex,varsushe,varsushetel,vartel,varbirthday,varemail,varqq,varjiguan                 '声明几个变量
	 
	varname=Request.Form("name")
	varsex=Request.Form("sex")
	varsushe=Request.Form("sushe")
	varsushetel=Request.Form("sushetel")
	vartel=Request.Form("tel")
	varbirthday=Request.Form("birthday")
	varemail=Request.Form("email")
	varqq=Request.Form("qq")
	varjiguan=Request.Form("jiguan")
	
	StrSql="Insert Into tongxunlu( name,sex,sushe,sushetel,tel,birthday,email,qq,jiguan) Values('" & varname & "','" & varsex & "','" & varsushe & "','" & varsushetel & "','" & vartel & "','" & varbirthday & "','" & varemail & "','" & varqq & "','" & varjiguan & "')"  
	db.Execute(strSql)                  
	                   '添加成功，则返回首页

End If
Response.Redirect "admintongxunlu.asp"  
%>