asp 連接access數據庫

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  
<%
	dim conn,rs  
	set conn = server.createobject("adodb.connection") 
	conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=123;Data Source="&server.mapPath("getmblist.mdb")  '; User Id=admin; Password=" '鏈接數據庫
	conn.open '將數據庫打開
		set rs = server.createobject("adodb.recordset")'創建一個記錄表的實例指派給rs
		rs.open "mblist", conn,1,1 '打開表
		Response.CharSet = "GB2312"
%>
<%
	do while not rs.eof
		Response.write "bianhao:" & rs("bianhao") & "<br />"
		Response.write "image:" & rs("image") & "<br />"
		Response.write "mbid:" & rs("mbid") & "<br />"
		Response.write "title:" & rs("title") & "<br />"
		Response.write "utimes:" & rs("utimes") & "<br />"
		Response.write "ltimes:" & rs("ltimes") & "<br />"
		Response.write "<hr />"
		rs.movenext
	loop
	Response.write  request("username")
	Response.write  request("content")
	
 %>
<%
	rs.close  '關閉表
	set rs = nothing'銷燬表對像
	conn.close
	set conn = nothing '銷燬對像 
%>