add.asp

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

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

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