aspaccess源碼
Ⅰ asp access里是編碼的，如何解碼的問題
if not rs.eof then
do while not rs.eof
rs("NeiRong") = replace(rs("NeiRong"),"<BR>","<br>")
rs.update
rs.movenext
loop
Ⅱ 用ASP寫的連接ACCESS資料庫網站的源代碼
給你提供一個我自己寫的吧,三行，從做ASP那天起我就用這三行打遍天下了。希望對你有所參考，網上那些編的連接都是由網路公司出的，有他們的優點，但不夠簡潔，以下是代碼和注釋。
<%
Set conn=Server.CreateObject("ADODB.Connection") //創建資料庫連接對象 conn
conn.provider="Microsoft.Jet.OLEDB.4.0" //指定資料庫驅動類型
conn.Open Server.MapPath("cooshlion.mdb") //打開資料庫，請注意與你的資料庫位置對應，如果不在當前目錄下，請用../相對路徑方式
%>
試試吧，將這行代碼保存成一個ASP文件，然後建立一個空資料庫cooshlion.mdb，再執行一下這個文件，不報錯，那就可以了，成功連上，至於關不關閉對象，說老實話，VBScript檢測不是那麼嚴格的。
Ⅲ 誰有 圖書管理系統的 asp+access 源碼
下面很多，兄弟慢慢找吧。嘿嘿。。找到後記得頂
asp類型
· 校園交易系統
· 學生信息管理系統ASP+sql
· 畢業生信息管理ASP+ACCESS
· 新聞發布系統
· 基於ASP的合同管理系統
· 網路參考咨詢系統
· 圖書館閱覽系統
· ASP+ACCESS聊天室
· 網上圖書管理系統
· 網上動態同學錄系統
jsp類型
· 校友錄sql server
· 網路超市SQL Server
· 搜索引擎的研究與實現
· 基於WEB的考務管理系統的設計與實現（J...
· 基於WEB的開放性實驗管理系統(JSP+SQL2...
· 基於JSP的學生信息管理系統
· 機房自由上機收費管理軟體的設計與實現...
· 辦公自動化之公文運轉系統(JSP+SQL2000...
· JSP學生網上選課系統
· JSP教師辦公管理系統
Ⅳ 做一個學生信息管理系統（ASP+Access），要有源代碼,登錄頁面最好有注冊選項，分普通人員和管理員兩類
1. 單位是元都少了點
2. 你還不如去網站下一個，有源碼網，不過你能不能看懂就難說了，沒有基礎有的配置不一定會
3. 網路吧，沒什麼空，就是有空也只會給你寫一個簡單測試功能
Ⅳ asp連接access資料庫怎麼實現的
通過ASP與ACCESS資料庫建立連接（附源碼）(1)
前言：
如何通過ASP與資料庫建立連接是一個非常現實的問題，我盡量寫得非常詳細。相信看了這篇文章相信您已經能夠寫出類似的比較簡單和實用的程序了。
（一）資料庫的選擇：
有許多的資料庫你可以選擇，SQL SERVER、ACCESS(*.mdb)、EXCEL(*.xls)、FOXPRO(*.dbf)甚至普通的文本文件(*.txt)都可以達到存儲數據的功能。那麼到底選擇什麼資料庫最合適呢？其中SQL SERVER是伺服器級的，足以應付每天上萬次的訪問量。對於非伺服器級的資料庫建議使用ACCESS97。因為：（1）只要安裝了PWS或IIS4肯定有ACCESS的ODBC驅動，即你的系統肯定支持ACCESS資料庫的存取。（2）ACCESS支持的SQL指令非常齊全。（3）ACCESS ODBC驅動程序的效率非常高。雖然它不是伺服器級的資料庫，但是作為中小型企業內部網的資料庫支持還是綽綽有餘的。（4）ACCESS97在OFFICE97中就有，非常方便得到和使用。
本文就以ACCESS資料庫為准介紹基於WEB的資料庫存取方法。
（二）例子：我們建立一個「客戶」資料庫，需要保存如下的客戶資料：客戶名稱、聯絡人姓名、所在城市、電話號碼。
（1）首先建立ACCESS資料庫customer.mdb(今後有用的)。建立如下欄位：客戶名稱、聯絡人姓名、所在城市、電話號碼、客戶編號、時間。將表保存為"客戶"(今後有用的,===>看看圖)。注意：建立欄位時多作了2個(客戶編號、時間)，因為在今後排序時要用到它們。建議今後做資料庫時最好都加上這2項，不會沒用的。此外，在保存表時ACCESS會詢問是否建立一個住關鍵字，我們不需要它所以不必建立。還有：時間欄位的"默認值"設成"now()"，即去系統當時的時間。同時將索引項設成"有(允許重復)"，含義：WEB上極有可能同時存取數據，所以允許重復，索引設成"有"可以加快排序速度。===>看看圖
（2）建立遞交表單add.htm：
源代碼如下：
<html>
<head>
<title>添加資料庫記錄</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<p align="center"><font size="5">添加資料庫記錄</font></p>
<form method="post" action="adddatabase.asp">
<div align="center">
<table width="46%" border="0">
<tr>
<td width="28%">
<div align="right">公司名稱： </div>
</td>
<td width="72%">
<input type="text" name="CompanyName">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">聯絡人姓名： </div>
</td>
<td width="72%">
<input type="text" name="CName">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">所在城市： </div>
</td>
<td width="72%">
<input type="text" name="City">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">電話號碼：</div>
</td>
<td width="72%">
<input type="text" name="Tel">
</td>
</tr>
<tr>
<td width="28%">
<div align="right"> </div>
</td>
<td width="72%">
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="reset" value="Reset">
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
這與普通的HTML沒有任何區別，關鍵部分已經用黃色標記了。遞交方法用POST，遞交後處理的程序是adddatabase.asp（下一步就重點討論它）。還有就是給每一個項目取一個名字（NAME，後面有用）。
通過ASP與ACCESS資料庫建立連接（附源碼）(2)
瀏覽選項： 大中小 顏色 默認 灰度 橄欖色 綠色 藍色 褐色 紅色
（三）關鍵部分：建立與資料庫的聯系並將表單中收集到的信息添加到ACCESS資料庫中。
ASP代碼放在〈%和%>之間。
<%
CompanyName = Request("CompanyName")
CName = Request("CName")
City = Request("City")
Tel = Request("Tel")
以上，首先取得表單中填寫的數據，使用ASP的Request對象非常容易可以實現數據的收集。雙引號中的就是上一步建立的各個項目的名字（NAME）。所以今後為每個項目起名字是個好習慣，盡管有時候並不一定用得到。這樣取得的數據就保存在等號坐側的變數中了。
If CompanyName = "" Or CName = "" Or City = "" Or Tel = "" Then
'Response.Write "<html><body><center><font size=5>請將資料填寫完整。</font></center></body></html>"
Response.Redirect "error.htm"
Response.End
End If
這里是檢測各個項目是否輸入了東西，如果為空則不往下繼續執行，顯示錯誤信息。注意：你可以使用兩種方法。我都列出了。方法一：使用Response.Write方法寫一個出錯頁面，類似於javascripts的document.write寫法，只是ASP使用Response.write罷了。方法二：使用Response.Redirect方法導向出錯頁面error.htm。我在方法一的代碼前加上單引號表示注釋。（ASP中表示注釋用單引號'）。
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
（1）建立Connection對象：dbconnection，建立一個連接(Connection)是資料庫存取的開始。我們使用ASP的內建對象方法Server.Createobject建立與資料庫的連接。ADODB是ASP的資料庫存取組件，不必擔心只要有ASP就有它了，是內置的。
（2）使用dbconnection.open方法打開資料庫customer.mdb。driver參數語法： driver={Microsoft Access Driver (*.mdb)}必須這么寫。告訴系統使用ACCESS ODBC驅動處理。dbq參數用來指定打開的資料庫文件，它必須是完整的路徑。例如"c:.mdb"，我們使用Server.MapPath的方法取得資料庫的完整路徑。
Set rs = Server.CreateObject("ADODB.Recordset")
建立Recordset對象rs。Connection僅僅是建立了與資料庫間的連接，要存取數據還應該再建立Recordset對象。
rs.Open "客戶", dbconnection, adOpenDynamic, 3
打開資料庫中的表"客戶"（客戶是表名）。 語法：
rs.open 數據表名或SQL指令，已經建立的Connection對象（這里是dbconnection）, 鎖定類型
rs.AddNew
rs("公司名稱") = CompanyName
rs("聯絡人姓名") = CName
rs("所在城市") = City
rs("電話號碼") = Tel
rs.Update
用AddNew向資料庫請求添加數據。最後用Update寫入。注意：等號右側的變數保存著用Request取得的表單數據。雙引號內的就是資料庫的欄位，應該與資料庫的一致啊。否則會出錯的。這樣變數內的數據就寫入了資料庫對應的欄位內了。
Response.Write "<html><body><center><font size=5>祝賀，您的數據已經添加進資料庫了！<p>"
Response.Write "<a href='viewdatabase.asp'>查看數據</a>"
Response.Write "</font></center></body></html>"
寫入成功後顯示祝賀信息並建立查看資料庫記錄的連接。
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
通過ASP與ACCESS資料庫建立連接（附源碼）(3)
瀏覽選項： 大中小 顏色 默認 灰度 橄欖色 綠色 藍色 褐色 紅色
（三）顯示/查看資料庫記錄：
<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
建立與資料庫的連接，與上同。
SQL="select * from 客戶 Order By 時間 DESC"
SET CustomerList=dbconnection.EXECUTE(SQL)
%>
建立SQL查詢語句，表示從"客戶"表中查詢所有記錄，Order By 時間 DESC表示"按時間降序排序，"這樣最後添加的信息再最上面顯示。下面一句執行SQL查詢並將結果返回給Recordset對象CustomerList。
<html>
<body>
<FONT SIZE="5"><center>資料庫記錄</center></FONT>
<CENTER>
<TABLE BORDER=1>
<tr>
<td>編號</td>
<td>公司名稱</td>
<td>聯絡人姓名</td>
<td>所在城市</td>
<td>電話號碼</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>
檢測記錄是否到了最後一條。EOF表示End of File。
<TR>
<TD><% =CustomerList("客戶編號") %></TD>
<TD><% =CustomerList("公司名稱") %></TD>
<TD><% =CustomerList("聯絡人姓名") %></TD>
<TD><% =CustomerList("所在城市") %></TD>
<TD><% =CustomerList("電話號碼") %></TD>
</TR>
<% =CustomerList("客戶編號") %>可以說是Response.Write方法的簡寫。將"客戶編號"欄位內的數據寫入TD標簽間。
<% CustomerList.movenext
loop
%>
如果還沒有到最後一條則指針移動到下一條。用Do While ... Loop循環逐一取得所有的記錄。
</TABLE>
</CENTER>
<center>
<input type="button" onclick="javascript:location.href='add.htm'" value="添加數據">
</center>
</BODY>
</HTML>
缺陷：僅僅實現了最基本的功能。先不說其它功能，僅就數據的添加和查看功能來看，比較完美的還應該加入「分頁功能」。否則數據大到一定程度顯示全部數據基本上是不可能的。
本期至此全部完畢。
Ⅵ 有asp+access源碼怎樣做網站
一個網站至少要包括域名和主機空間，域名是平時所說的網址，空間是用來放網頁文件的。
1、申請域名：域名需要便於記憶、了解，越短越好，可以是您品牌的名稱的英文或中文拼音。
2、申請主機空間：如果會用DW等軟體設計網頁就用虛擬主機，如果不會設計就用速成網站做，會打字就可以做網站，操作簡單，功能強大，可以先免費試用一下。
注意：國內主機必須備案成功後才能用您自己的域名訪問，網站備案一般需要10個工作日左右；個人網站備案後，不能放企業或產品類的內容。速成網站國際版不需要備案，可直接使用。
希望可以幫到您，可加一下我。
Ⅶ ASP ACCESS
資料庫鏈接代碼
set conn=Server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("user.mdb")
conn.open connstr
1.如果你資料庫Database/user.mdb不存在，則會顯示"找不到文件...."
2.如果資料庫user.mdb中沒有表或查詢user，則會顯示"資料庫引擎找不到輸入表或查詢 'user'..."
所以從你的情況來看，應該是第二種情況。可以再資料庫user.mdb中建個表名為user，然後在試試。
還有需要可以網路hi留言。
Ⅷ 求asp網頁查詢access資料庫的編程代碼
<%『連接資料庫
db = "md.mdb" '前提時保證資料庫文件和本文件在統一目錄
connstr = "DBQ=" + server.mappath(""&db&"") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn = server.CreateObject("ADODB.CONNECTION")
conn.Open connstr
set rs = server.CreateObject("adodb.recordset")
'分頁函數
sub pcfinal_page(pageMark)'以pageMark作為分頁標志
action = "http://" & request.servervariables("http_host") & request.servervariables("script_name")
query = Split(request.servervariables("query_string"), "&")
For Each x in query
a = Split(x, "=")
If StrComp(a(0), pageMark, vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
response.Write("<div style=""text-align:center;clear:both;""><form method='get' onsubmit=""document.location ='"&action&"?"&temp&pageMark&"='+ this."&pageMark&".value;return false;"">")
If page<= 1 Then
response.Write ("首頁 上一頁 ")
Else
response.Write("<a href='"&action&"?"&temp&pageMark&"=1'>首頁</a> <a href='"&action&"?"&temp&pageMark&"="&(page -1)&"'>上一頁</a> ")
End If
If page>= maxpage Then
response.Write ("下一頁 尾頁 ")
Else
response.Write("<a href='"&action&"?"&temp&pageMark&"="&(page+1)&"'>下一頁</a> <a href='"&action&"?"&temp&pageMark&"="&maxpage&"'>尾頁</a> ")
End If
response.Write("["&page&"/"&maxpage&"頁] [共"&allpage&"條記錄] 轉到第 <input type='text' name='"&pageMark&"' size='3' value='"&page&"'> 頁 <input type='submit' value='跳轉'/></form></div>")
end sub
'列出信息
sql = "select * from mingdan order by id"
rs.open sql,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr class="specialLineCont">
<th>序號</th>
<th>姓名</th>
<th>性別</th>
<th>身份證號碼</th>
<th>年齡</th>
</tr>
<%
page = request("page")
If Not IsNumeric(page) Or page = "" Then
page = 1
Else
page = CInt(page)
rs.pagesize = 25
maxpage=rs.pagecount
allpage=rs.Recordcount
End If
If page<1 Then
page = 1
ElseIf page>maxpage Then
page = maxpage
End If
if page = 1 then
specialID = 1
else
specialID = (page-1)*rs.pagesize
end if
rs.AbsolutePage = Page
If page = maxpage Then
x = allpage - (maxpage -1) * iPageSize
Else
x = iPageSize
End If
if rs.eof then
response.Write("暫無內容！")
else
rs.absolutepage = page
for q=1 to rs.pagesize
if not rs.eof then
%>
<tr align="center">
<td><%=rs("ID")%></td>
<td><%=rs("xm")%></td>
<td><%=Rs("xb")%></td>
<td><%=Rs("sfzh")%></td>
<td><%=Rs("nl")%></td>
</tr>
<%Rs.movenext
end if
next%>
</table>
<%
call pcfinal_page("page")
end if
%>
Ⅸ ASP上傳圖片並保存到access資料庫某個表中的源碼，能詳細解釋一下源碼的意思
給你個例子：
1、access表有以下幾個欄位：
id 自動編號,
filename 文本,
type 文本,
what OLE對象,
size 數字
2、上傳頁面（upfile.htm):
文件上傳<br />
<form action="upload.asp" method="post" enctype="multipart/form-data">
文件 <input type="file" name="file1" /> <input type="submit" value="上傳" />
</form>
3、提交頁面(upload.asp):
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#include file="UpLoad_Class.asp"-->
<%
dim upload
set upload = new AnUpLoad
upload.Exe = "*"
upload.MaxSize = 2 * 1024 * 1024 '2M
upload.charset = "utf-8"
upload.GetData()
if upload.ErrorID>0 then
response.Write upload.Description
else
dim file
for each frm in upload.forms("-1")
response.Write frm & "=" & upload.forms(frm) & "<br />"
next
set file = upload.files("file1")
if not(file is nothing) then
set conn = server.CreateObject("ADODB.connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("./")&"\db.mdb"
set rs = server.createobject("adodb.recordset")
rs.Open "pic", conn, 1, 3, 2
rs.addnew
rs.fields("filename") = file.LocalName
rs.fields("type") = file.ContentType
rs.fields("what") = file.GetBytes()
rs.fields("size") = file.Size
rs.update
Response.Redirect "listpic.asp"
end if
end if
set upload = nothing
%>
4、其中引用了UpLoad_Class.asp文件，是艾恩無組件上傳類，網上搜一下就能找到。
Ⅹ 學生選課系統登錄的源代碼(asp+access)要怎麼寫
string ls_uname,ls_pwd1,ls_pwd2,ls_sno,ls_s1
ls_uname=sle_userid.text
ls_pwd1=sle_password.text
select userName
into :ls_sno
from userTB
where userName=:ls_uname;
if sle_userid.text="" or sle_password.text="" then
messagebox("提示","用戶名或密碼不能為空,請輸入用戶名或密碼！")
//sle_userid.text=""
//sle_password.text=""
return
end if
select password
into :ls_pwd2
from userTB
where userName = :ls_uname ;
//sle_1.text=ls_sno
//sle_2.text=ls_pwd2
if ls_pwd1 = ls_pwd2 then
open(w_main)
close(w_login)
else
messagebox("錯誤","用戶名或密碼錯誤，請重新輸入!")
sle_password.text=""
return
end if
大概的形式就是這樣的