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
大概的形式就是这样的