asp连接数据库代码实例参考.pdfVIP

连接数据库代码实例 1,连接数据库代码 文件名称 conn.asp 所有访问数据库的文件都调用此文件 !--#include file=\Conn.asp\-- % db=\data/data.mdb\ \ 数据库存放目录 on error resume next set conn=server.createobject(\adodb.connection\) conn.open \driver={microsoft access driver (*.mdb)};dbq=\server .mappath(db) if err then err.clear set conn = Nothing response.write \ 数据库连接出错，请检查 conn.asp 中的连接字符串。 \ response.end end if function CloseDB Conn.Close set Conn=Nothing End Function % % dim badword badword=\\|and|select|update|chr|delete|%20from|;|insert|mid|master .|set|c hr(37)|=\ if request.QueryString\\ then chk=split(badword,\|\) for each query_name in request.querystring for i=0 to ubound(chk) if instr(lcase(request.querystring(query_name)),chk(i))0 then response.write \script language=javascriptalert(\ 传 参 错 误 ！ 参 数 \query_name\ 的 值 中 包 含 非 法 字 符 串 ！ \\n\\n\);location=\\request.ServerVariables(\HTTP_REFERER\)\\/Script\ response.end end if next next end if % 2 。增加纪录 % if request(\action\)=\add\ then name=request.form(\name\) content=request.form(\content\) set rs=server.createobject(\adodb.recordset\) sql=\select * from biao\ rs.open sql,conn,3,2 rs.addnew rs(\name\)=name if content\\ then rs(\content\)=content else rs(\content\)=null end if rs(\date\)=date() rs.update rs.close set rs=nothing response.write \script language=javascriptalert(\ 添 加 成 功 ！ \);location.href(\index.asp\);/script\ end if % 3.显示记录 % set rs=server.createobject(\adodb.recordset\) sql=\select * from biao order by id desc\ \sql=\select top 10 * from biao order by id desc\ rs.open sql,conn,1,1 rs.pagesize=15 \设置每页显示的记录数 dim page page=request(\page\) if page\\ and IsNumeric(page) then page=clng(page) else page=1 end if n=rs.pagecount if pagen then page=clng(n) end if if rs.eof then response.write