asp搜索页面制作

<%@ CODEPAGE = "936" %>

<%
dim conn
dim DBOath
dim rs
dim sql
Set conn=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("Digest.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs=Server.CreateObject("ADODB.Recordset")
'从Web页获取标题、日期、作者、关键词的值
dim title
dim dateandtime
dim writer
dim Nclassid
dim content
title=request("title")
dateandtime=request("dateandtime")
writer=request("writer")
Nclassidr=request("Nclassid")
content=request("content")

title=replace(title," ","%")
dateandtime=replace(dateandtime," ","%")
writer=replace(writer," ","%")
Nclassidr=replace(Nclassid," ","%")
content=replace(co