<%@language=VBscript%>
<%
dimconn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
setconn=server.createobject("adodb.connection")
conn.open"driver={microsoftaccessdriver(*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile

%>

<%@language=VBscript%>
<%
dimconn
setconn=server.createobject("ADODB.connection")
con.open"PROVIDER=SQLOLEDB;DATASOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>

"Driver={MicrosoftAccessDriver(*.mdb)};DBQ=数据库的绝对路径"

等做完后再打开数据库服务器，把

"Driver={MicrosoftAccessDriver(*.mdb)};DBQ=数据库的绝对路径"

换成

"Provider=Microsoft.Jet.OLEDB.4.0;datasource="&server.mappath("服务器根目录下所在数据库路径")

并把本地服务器修改成测试服务器

<!--#includefile="页面的路径和名称"-->

<%=rs("字段")%>

Response.Write("文字或者字符串");

setconn=server.CreateObject("ADODB.connection")
conn.open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&server.MapPath("***/photodata.mdb")'更改您的数据库文件存放路径
setrs=server.createobject("ADODB.recordset")'建立数据集
sql="SELECT*FROMdata"'更改您的数据库表名
rs.Opensql,conn,1,1

 <%=now()%>

 <%=request.serverVariables("remote_host")%>

<%randomize%>
<%=(int(rnd()*n)+1)%>
N为可改变数

Response.Redirect("页面")

Response.Write("<script>alert('消息框！')</script>")

 <%formmethod="post"action="mynextpage.asp">
<%foreachiteminrequest.form%>
<inputnamee="<%=item%>"type="HIDDEN"
value="<%=server.HTMLEncode(Request.form(item))%>">
<%next%>
</form>

 (1)数据记录筛选：

sql="select*from数据表where字段名=字段值orderby字段名[desc]"

sql="select*from数据表where字段名like''%字段值%''orderby字段名[desc]"

sql="selecttop10*from数据表where字段名orderby字段名[desc]"

sql="select*from数据表where字段名in(''值1'',''值2'',''值3'')"

sql="select*from数据表where字段名between值1and值2"

(2)更新数据记录：

sql="update数据表set字段名=字段值where条件表达式"

sql="update数据表set字段1=值1,字段2=值2……字段n=值nwhere条件表达式"

(3)删除数据记录：

sql="deletefrom数据表where条件表达式"

sql="deletefrom数据表"(将数据表所有记录删除)

(4)添加数据记录：

sql="insertinto数据表(字段1,字段2,字段3…)valuess(值1,值2,值3…)"

sql="insertinto目标数据表select*from源数据表"(把源数据表的记录添加到目标数据表)

(5)数据记录统计函数：

AVG(字段名)得出一个表格栏平均值
COUNT(*|字段名)对数据行数的统计或对某一栏有值的数据行数统计
MAX(字段名)取得一个表格栏最大的值
MIN(字段名)取得一个表格栏最小的值
SUM(字段名)把数据栏的值相加

引用以上函数的方法：

sql="selectsum(字段名)as别名from数据表where条件表达式"
setrs=conn.excute(sql)

用rs("别名")获取统的计值，其它函数运用同上。

(5)数据表的建立和删除：

CREATETABLE数据表名称(字段1类型1(长度),字段2类型2(长度)……)

例：CREATETABLEtab01(namevarchar(50),datetimedefaultnow())

DROPTABLE数据表名称(永久性删除一个数据表)

。

page=request.querystring("page")

ifpage=emptythenpage=1

rs.open"select.......",conn,1,1

rs.pagesize=每页记录数

ifnotrs.eofthenrs.absolutepage=page

 fori=1tors.pagecount

   ifi=cint(page)then

     response.write"<b>"&i&"</b>"

   else

     response.write"<ahref=本页.asp?page="&i&">"&i&"</a>"

   endif

 next

fori=1tors.pagesize

 ifnotrs.eofthen

   response.writers(0)&rs(1)&.......

   rs.movenext

  endif

next

response.write"<ahref=本页.asp?page=1>首页</a>"

response.write"<ahref=本页.asp?page="&page-1&">上一页</a>"

response.write"<ahref=本页.asp?page="&page+1&">下一页</a>"

response.write"<ahref=本页.asp?page="&rs.pagecount&">尾页</a>"