add.asp

来自「大一下学期」· ASP 代码 · 共 21 行

<% Option Explicit %>
<% 
'如果上面的信息填全了，就添加记录，否则给出错误信息
If Request.Form("name")<>"" And  Request.Form("liuyan")<>"" Then
	'以下连上数据库，建立一个Connection对象实例db
	Dim db 
	Set db=Server.CreateObject("ADODB.Connection") 
	db.Open "Dbq="&Server.Mappath("liuyan.mdb")&";Driver={Microsoft Access Driver (*.mdb)};" 
	 '以下添加新记录
	Dim strSql,varName, varliuyan              '声明几个变量
	varName=Request.Form("name") 
	varliuyan=Request.Form("liuyan")
	StrSql="Insert Into liuyan(name,liuyan) Values('" & varName & "','" & varliuyan & "' )"  
	db.Execute(strSql)                  
	Response.Redirect "liuyan.asp"                     '添加成功，则返回首页
Else
	Response.Write "请将所有信息填写完整，"
	Response.Write "<a href='liuyan.asp'>重新添加</a>"
End If
%>