定义数据库连接 <% '============定义变量========================= dim conn,db,connstr 'On Error Resume Next '容错声明 '================填写数据库具体参数============ db="liuyan.mdb" '数据库文件位置 mima="ceshi" '数据库密码, 如果数据库没有密码,这里的值随便写,一般为空值。注意数据库读写权限 '===================数据库连接================== Set conn = Server.CreateObject("ADODB.Connection") connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(""&db&"")&";Jet Oledb:database password="&mima&"" if err then err.clear else conn.open connstr 'response.Write("数据库连接成功!") end if '============结束程序========================= %> 插入操作1 H_title = request.Form("H_title") H_sort = request.Form("H_sort") H_font = request.Form("H_font") H_Mood = request.Form("H_Mood") H_Content = request.Form("H_Content") H_uid = session("uid") sql = "insert into H_Bless(UID,H_title,H_Content,H_sort,H_font,H_Mood)" sql = sql&"values("&H_uid&",'"&H_title&"','"&H_Content&"',"&H_sort&","&H_font&","&H_Mood&")" conn.Execute(sql) conn.close set conn = nothing response.Write("<mce:script type="text/javascript"><!-- alert('添加成功') // --></script>") response.Write("<mce:script type="text/javascript"><!-- window.location.href='../Bless.asp' // --></script>") 插入操作2 dim rs set rs=server.createobject("adodb.recordset") sql="select * from book" rs.open sql,conn,1,3 '打开数据库,进行更改操作 rs.addnew 'rs数据库表添加新内容 rs("name")=request("title") rs.update '更新表 rs.close '关闭 asp循环 <% for i=2 to 6 %> <font size="<%=i%>"> hello world! </font> <br /> <% next %> asp 查询: <% set rs=server.CreateObject("adodb.recordset") sql="select * from book" rs.open sql,conn,1,1 if not (rs.eof and rs.bof) then do while not rs.eof %> <tr> <td><%=rs("name")%></td> <td><a href="fledit.asp?id=<%=rs(" mce_href="fledit.asp?id=<%=rs("id")%>">修改</a></td> <td><a href="fldel.asp?id=<%=rs(" mce_href="fldel.asp?id=<%=rs("id")%>">删除</a></td> </tr> <% rs.movenext loop end if %> 操作成功后跳转代码: Response.Write("<script type="text/javascript"> alert('添加成功!');window.location='insbook.asp' </script>") response.End()