源于生活

标题: 十天学会ASP [打印本页]

作者: vingoo    时间: 2016-1-26 03:45
标题: 十天学会ASP
学习目的:安装调试asp的环境,写出第一个HELLO WORLD程序。
    首先我们来安装WINSOWS2000自带的IIS作为服务器。(WINSOWS98的PWS也可以,但是不推荐,安装大致和2000相同,这里就不详细说了。)
[attach]1301[/attach]

先是控制面板-添加或删除程序。
[attach]1302[/attach]

然后是添加删除windows组件-选中IIS组件前面的勾
[attach]1303[/attach]

装好以后打开控制面板中的管理工具,会发现多了两个图标,打开IIS管理器
[attach]1304[/attach]

选择默认WEB站点,然后右键属性或者直接按快捷键
[attach]1305[/attach]

大家不要头痛,里面只有三个页面需要修改,先是WEB站点,如果用户有固定ip,可以分配一个IP
[attach]1306[/attach]

接下来在注目录中选择一个自己硬盘上面的文件夹存放网站,选中读取、写入

[attach]1307[/attach]


在文档中添加默认的页面,比如打www.sina.com.cn新浪就是调用了一个默认文档
[attach]1308[/attach]

接下来也是最关键的:1、在刚才你定义的一个文件夹里面新建一个文件,可以用记事本建立一个TXT文件然后改名为ASP,里面的内容如下
<%response.write "hello world!"%>
response.write就是显示的意思,前后的<%%>是asp的标记符号,在这里面的信息都由服务器处理。保存以后就可以在浏览器里面运行这个文件了。127.0.0.1(=localhost)是本机的IP,后面再直接加上建立的那个文件名字就可以了,之所以我图片上面还有一个example,那是因为我建立了一个虚拟目录,这个不知道不要紧,我们往下走,具体深入的东西大家自己慢慢研究,必尽我们的目的就是快速掌握嘛。


作者: vingoo    时间: 2016-1-26 03:47
学习目的:学会用表单元素向服务器传送变量,然后显示变量在客户端的浏览器。
    首先,让我们来看一下DREAMWEAVER的表单元素。

此主题相关图片如下:
[attach]1309[/attach]
表单元素要放在一个表单域里面,建立一个表单域。然后修改动作里面的文件为要接受这个表单变量的ASP文件。方法有两种,一种是POST,这个方法传送的变量不会在浏览器的地址栏里面显示,可以大批量传送数据;GET则是会在浏览器地址栏里面显示的,等一会举例子。

此主题相关图片如下:
[attach]1310[/attach]


   下面我们来一个一个看表单元素。1、文本域,这个是最基本的,传送的是文本信息,一般用户名,密码都要用这个传送,不过要是密码的话要在类型里面选择密码,这样就会以*代替显示出来的字符,文本域的名字很重要,以后会用到这个名字所以一般不用默认的名字。现在举一个例子:如果文本域的名字是name的话,用来传送网上用户登记的名字,在表单域里面,传送到reg.asp,用POST方法,那么在reg.asp里面这样得到变量<%name=request.form("name")%>如果要显示变量再家加一句,response.write name,这样就形成了一个从客户端到浏览器再回到客户端的过程。如果方法用的是GET的话,那么就改为name=request.querystring("name")实际上两者可以统一为name=request("name")。下面看看按钮,按钮里面无非两种,一种是提交表单的按钮,一种是重新输入的按钮。单选按钮,一个按钮有一个值。在列表里面同样,添加列表选项和值。下面举一个例子,实际上各种表单元素都是差不多的。下面是DREAMWEAVER里面的代码:

姓名:
//文本域,名字叫name


密码:
//文本域,用来输入密码,名字叫psw




性别:
//单选,名字叫sex,数值是"男"

//单选,名字叫sex,数值是"女"




城市:
上海 //复选,大家自己分析一下北京


//提交按钮

下面是reg.asp的代码,用来显示出刚才受到的信息:
<%
name=request.form("name")
psw=request.form("psw")
sex=request.form("sex")
city=request.form("city")
response.write name
response.write psw
response.write sex
response.write city
%>
[attach]1311[/attach]
等学会了数据库以后,是不是觉得做一个留言簿很简单?



作者: vingoo    时间: 2016-1-26 03:48
学习目的:学会ACCEES数据库的使用,并建立一个将来要用的留言簿数据库。
    首先,大家要安装OFFICE里面的ACCEES(我的演示是OFFICE XP版本),安装过程这里就不说了,安装好以后会出现下图的菜单。
[attach]1312[/attach]
单击打开ACCEES

[attach]1313[/attach]
安空数据库,新建一个数据库,文件名字可以叫gustbook.mdb,我这里叫example3.mdb
(为了安全期间,文件名复杂一点好,因为ACCESS数据库可以被下载的!!)
此主题相关图片如下:
[attach]1314[/attach]
使用设计器创建新的表,一个数据库MDB文件里面可以有多个表
此主题相关图片如下:
[attach]1315[/attach]
填写字段名字然后选择字段类型,一条记录可以有很多字段,可以有很多字段类型,字段大小的意思就是这个字段最多可以容纳的字符树,当这个字段没有任何信息是,ACCEES会用默认值代替(没有任何信息不是空的意思),一般必填字段和允许空字符串分别设置为否、是,以防止出错

此主题相关图片如下:
[attach]1316[/attach]
按照上图大家分别建立几个字段,在时间中默认值为=now()就是这个字段不需要填写,系统直接以当前时间代替
此主题相关图片如下:
[attach]1317[/attach]
所以的字段都建立以后,关闭这个窗口,系统会出现上图的提示,选择是,主键是记录的标识,为了以后简单,大家可以把编号改为ID,还有在ACCEES里面尽量不要用中文表示字段名字

此主题相关图片如下:
[attach]1318[/attach]
最后,把这个表的名字设置为guestbook,然后双击打开这个表,观看表里面的记录3b
好了,大家不要急,这个数据库以后有用的,大家不要删除。


作者: vingoo    时间: 2016-1-26 03:50
学习目的:掌握ACCESS数据库的连接和读取记录
    今天要学习的内容有一点枯燥,但是很重要。在这里大家不需要知道命令具体的运行情况,外面的很多书籍之所以不适合入门就是因为介绍了太多的理论知识,让初学者一头雾水。
    下面开门见山,看两句话:
[AppleScript] 纯文本查看 复制代码
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
%>

第一句话定义了一个adodb数据库连接组件,第二句连接了数据库,大家只要修改后面的数据库名字就可以了。是不是很简单?
下面再看三句:
[AppleScript] 纯文本查看 复制代码
<%
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

这三句加在前面两句的后面,第一句:设置查询数据库的命令,select后面加的是字段,如果都要查询的话就用*,from后面再加上表的名字,我们前面建立的是不是一个gustbook表阿?第二句:定义一个记录集组件,所有搜索到的记录都放在这里面,第三句是打开这个记录集,exec就是前面定义的查询命令,conn就是前面定义的数据库连接组件,后面参数“1,1”,这是读取,后面讲到修改记录就把参数设置为1,3,好了接下来我们读取记录。
[AppleScript] 纯文本查看 复制代码
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr><%
rs.movenext
loop
%>
</table>

在一个表格中,我们用4列分别显示了上次建立的表里面的四个字段,用do循环,not rs.eof的意思是条件为没有读到记录集的最后,rs.movenext的意思是显示完一条转到下面一条记录,<%=%>就等于<%response.write%>用于在html代码里面插入asp代码,主要用于显示变量。
    好了今天就结束了,大家可以多实践,可以先下载我的示例看一下,调试一下。下面是我机器上面的结果图片。

此主题相关图片如下:
[attach]1319[/attach]


作者: vingoo    时间: 2016-1-26 03:52
学习目的:学会数据库的基本操作1(写入记录)
    数据库的基本操作无非是:查询记录,写入记录,删除记录,修改记录。今天我们先学习写入记录。
先建立一个表单:
[AppleScript] 纯文本查看 复制代码
<form name="form1" method="post" action="example5.asp">
name <input type="text" name="name"><br>
tel <input type="text" name="tel"><br>
message <input type="text" name="message" value=""><br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>

表单提交到example5.asp,下面是example5.asp的代码:
[AppleScript] 纯文本查看 复制代码
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
name=request.form("name")
tel=request.form("tel")
message=request.form("message")
exec="insert into guestbook(name,tel,message)values('"+name+"',"+tel+",'"+message+"')"
conn.execute exec
conn.close
set conn=nothing
response.write "记录添加成功!"
%>

在这里前面两句我不说了,后面三句我也不说了,前面说过exec里面的是执行的命令,添加记录的比较繁,大家要仔细看。insert into后面加的是表的名字,后面的括号里面是需要添加的字段,不用添加的或者字段的内容就是默认值的可以省略。注意,这里的变量一定要和ACCESS里面的字段名对应,否则就会出错。values后面加的是传送过来的变量。exec是一个字符串,"insert into guestbook(name,tel,message)values('"是第一段,在ASP里面不能嵌双引号,所以可以用'代替双引号,放在双引号里面,连接两个变量用+或者&所以"',"又是一段,中间夹了一个name就是表单传来的变量,这样就可以在这个变量外面加两个'',表示是字符串了,后面的tel是数字型变量所以不需要外面包围'',大家慢慢分析这句话,如果用表单传来的数据代替变量名字的话这句话为(假设name="aaa",tel=111,message="bbb"):"insert into guestbook(name,tel,message)values('aaa',111,'bbb')"。
接下来的conn.execute 就是执行这个exec命令,最后别忘记把打开的数据库关闭,把定义的组件设置为空,这样可以返回资源。上次的读取为了简单,我没有关闭,大家可以补充上去:
[AppleScript] 纯文本查看 复制代码
rs.close
set rs=nothing
conn.close
set conn=nothing

记住,次序不可以颠倒!
大家可以到数据库里面去看一看,或者用example4.asp读取看看是不是多了记录阿?

作者: vingoo    时间: 2016-1-26 03:53
学习目的:学会数据库的基本操作2(查询记录)
    在第四天中我们有这样一个程序:
[AppleScript] 纯文本查看 复制代码
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

我们查询的是所有的记录,但是我们要修改、删除记录的时候不可能是所有记录,所有我们要学习检索合适的记录。先看一条语句:
[AppleScript] 纯文本查看 复制代码
a="张三"
b=111
exec="select * from guestbook where name='"+a+"'and tel="+b

where后面加上的是条件,与是and,或是or,我想=,<=,>=,<,>的含义大家都知道吧。这句话的意思就是搜索name是张三的,并且电话是111的记录。还有一点就是如果要搜索一个字段里面是不是包含一个字符串就可以这么写:where instr(name,a)也就是搜索name里面有a(张三)这个字符串的人。
我这里的a,b,是常量,大家可以让a,b是表单提交过来的变量,这样就可以做一个搜索了。
下面大家看看这个代码,理解一下:

[AppleScript] 纯文本查看 复制代码
<form name="form1" method="post" action="example6.asp">
搜索:<br>
name =
<input type="text" name="name">
and tel=
<input type="text" name="tel">
<br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>


example6.asp:
[AppleScript] 纯文本查看 复制代码
<%
name=request.form("name")
tel=request.form("tel")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
exec="select * from guestbook where name='"+name+"' and tel="+tel
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
do while not rs.eof
%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</body>
</html>


今天实际上就讲了一个where,大家回去做做试验,把instr()做进去,明天见!


作者: vingoo    时间: 2016-1-26 03:54
学习目的:学会数据库的基本操作3(删除记录)
开门见山,大家直接看程序。
[AppleScript] 纯文本查看 复制代码
exec="delete * from guestbook where id="&request.form("id")

上面这句话完成了删除记录的操作,不过锁定记录用了记录唯一的表示id,我们前面建立数据库的时候用的是系统给我们的主键,名字是编号,由于是中文的名字不是很方便,大家可以修改为id,不修改的话就是
[AppleScript] 纯文本查看 复制代码
exec="delete * from guestbook where 编号="&request.form("id")

下面我们看完整的代码:一个表单传给ASP文件一个ID,然后这个ASP文件就删除了这个ID。
[AppleScript] 纯文本查看 复制代码
<form name="form1" method="post" action="example7.asp">
delete:
<input type="text" name="id">
<input type="submit" name="Submit" value="提交">
</form>


example7.asp:
[AppleScript] 纯文本查看 复制代码
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
exec="delete * from guestbook where 编号="&request.form("id")
conn.execute exec
%>

我在示例里面加了一个example72.asp,和example4.asp差不多,就是加了一个id字段,大家可以先运行这个文件看一下所有记录的ID和想删除记录的ID,删除记录以后也可以通过这个文件复查。等到最后一天,我们会把所有的这些东西整合的。大家就不会需要这么麻烦的操作。
example72.asp:
[AppleScript] 纯文本查看 复制代码
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
do while not rs.eof
%><tr>
<td><%=rs("编号")%></td>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</body>
</html>




作者: vingoo    时间: 2016-1-26 03:55
学习目的:学会数据库的基本操作4(修改记录)
    先来看代码:
[AppleScript] 纯文本查看 复制代码
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")//这不是以前的一个数据库,里面就aa,bb两个字段
exec="select * from test where id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
%>
<form name="form1" method="post" action="modifysave.asp">
<table width="748" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>aa</td>
<td>bb</td>
</tr>
<tr>
<td>
<input type="text" name="aa" value="<%=rs("aa")%>">
</td>
<td>
<input type="text" name="bb" value="<%=rs("bb")%>">
<input type="submit" name="Submit" value="提交">
<input type="hidden" name="id" value="<%=request.querystring("id")%>">
</td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

大家到现在应该分析这个代码没有什么问题,这个代码的作用是接受前面一个页面的ID然后显示这条记录,文本框即是输入的地方也是显示的地方,如果需要修改的话修改以后按提交;如果不需要修改就可以直接按提交按钮。这里还有一个东西以前没有说,那就是隐藏的表单元素:hidden元素,里面的value是不用用户输入的,会随着表单一起提交,用于传递变量。下面是modifysave.asp的代码:
[AppleScript] 纯文本查看 复制代码
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")
exec="select * from test where id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("aa")=request.form("aa")
rs("bb")=request.form("bb")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

在这里,rs.open exec,conn,1,3后面的参数是1,3,这我以前提过,修改记录就要用1,3。实际上修改记录很容易看懂,记录集是rs,rs("aa")就是当前记录aa字段的东西,让它等于新的数据request.form("aa")当然就修改了,不过最后别忘记保存,那就是rs.update!
说到这里,记录的搜索,读取,修改,插入都说了,通过这最基本的东西就可以作出复杂的东西了,外面的大型数据库:新闻系统,留言簿就是字段多一点罢了。今天的示例中的代码是结合以前的数据库的,大家DOWN了以后回去调试分析一下。(rar里面的那个example72.asp还是供大家查询记录ID和核对修改以后的记录用的)

作者: vingoo    时间: 2016-1-26 03:56
学习目的:基本的SESSION组件,总结response,request组件。
    首先,有会员系统的任何程序都会用到检测是不是用户已经登陆这个步骤。这就用到了SESSION组件,下面我们    看一个代码来说明。
[AppleScript] 纯文本查看 复制代码
<%
session("islogin")="yes"
%>

这句话的意思就是在session里面定义一个islogin字符串变量,值为"yes",直接可以赋值,不需要声明。是不是很简单?
如果我们做管理员登陆系统的话,首先是一段检测是不是管理员
if 是 then
[AppleScript] 纯文本查看 复制代码
session("isadmin")=yes"
else
session("isadmin")="no"
end if

在每一个需要管理员才能看的页面最前面加上
[AppleScript] 纯文本查看 复制代码
<%
if not session("isaadmin")="yes"then
response.redirect "login.htm"
%>

这样一般用户就无法打开这个页面。解释一下response.redirect,它是转向的意思,后面的"login.htm"就是转向的文件。这样没有登陆的管理员是无法看到后面的内容的。
    下面总结一下
response组件基本就是用到response.write (),response.redirect() 分别是写字符串和转向的作用
request基本就是request.form(),request.querystring() 分别是接受post,get方法传来的信息
今天就说到这里了,最后我的示范是一个登陆系统大家可以研究一下,基本就是上面的知识点比较简单的。

作者: vingoo    时间: 2016-1-26 03:57
学习目的:分页技术,总结
    今天最后一天我们学习一下ASP里面稍微难一点地分页技术,毕竟当我们有N条记录的时候我们不可能把所有记录显示在一个页面里面吧。
[AppleScript] 纯文本查看 复制代码
<%
exec="select * from test"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
rs.PageSize=3
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
%>

rs.pagesize设置一个页面里面显示的记录数,pagecount是我们自己定义的一个变量,rs.pagecount是记录的个数,page也是我们自己定义的一个变量,我们下一页的链接可以设置为list.asp?page=<%=page+1%>,下一页的链接可以设置为list.asp?page=<%=page-1%>,这样当按下链接的时候调用页面自己,page这个变量就+1或者-1了,最后我们让rs.absolutepage(当前页面)为第page页就可以了。
if request.QueryString("page")="" then page=1,这句话的作用就是我们打开list.asp的时候没有跟随page变量,自动设置为page=1,防止出错,还有当我们if....then...放在一行的时候end if可以省略。是不是分页也不难?
下面说一种特殊情况:
if page=1 and not page=pagecount,这个时候没有上一页,但是有下一页
elseif page=pagecount and not page=1,这个时候没有下一页,但是有上一页
elseif page<1,这个时候没有任何记录
elseif page>pagecount then,这个时候没有任何记录
elseif page=1 and page=pagecount,这个时候没有上一页,没有下一页
else,这个时候有上一页,也有下一页。
下面看一段显示1到n页,且每一个数字点击以后就出现这个数在代表的页面的代码,很常见哦。
[AppleScript] 纯文本查看 复制代码
<%for i=1 to pagecount%>
<a href="list.asp?page=<%=i%>"><%=i%></a><%next%>

for....next是循环从i=1开始,循环一次加1到pagecount为止。

最后我的实例里面包含了一个最简单的ASP程序,但是功能样样有,是ASP的精髓,每一个ASP大型程序都包含了它。
add.htm增加记录页面
add.asp增加记录操作
conn.asp数据库链接
del.asp删除记录操作
modify.asp修改记录页面
modifysave.asp修改记录操作
list.asp这个是这个程序的核心,通过这个页面实现记录的添加、修改、删除。
test.mdb数据库,里面有aa,bb两个字段:aa数字型只能接受数字,bb是字符型。

好了,十天到今天就结束了,我想我这个教程是让大家入门的,大家觉得写的浅也不要责怪必尽不可能初学者和高手都照顾到吧,最后我想说一句,今天的实例是ASP的精华,大家一定要好好研究,通了这个程序,你会发现你已经会ASP了。谢谢大家的支持!大家有问题可以在我的论坛里面留言,希望大家帮站长多多宣传本站,转贴本站文章的也请著名出处,谢谢合作。


作者: vingoo    时间: 2016-1-26 05:00
本帖最后由 vingoo 于 2016-1-26 05:18 编辑

1. 相对与比较老的环境,建议使用第二个
[AppleScript] 纯文本查看 复制代码
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION") 
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SQL="select * from auth where id='" & user_id &"'"
SET uplist=dbconnection.EXECUTE(SQL)


2.win2003以上的机器,建议用此方法,效率更高
[AppleScript] 纯文本查看 复制代码
set dbconnection=Server.CreateObject("ADODB.Connection") 
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id='" & user_id &"'"
SET uplist=dbconnection.EXECUTE(SQL)


3.
[AppleScript] 纯文本查看 复制代码
DBPath = Server.MapPath("customer.mdb") 
set session("rs")=Server.CreateObject("ADODB.Recordset")
' rs=Server.CreateObject("ADODB.Recordset")
connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id='" & user_id &"'"
session("rs").Open sql,connstr,1,3


4.建odbc源xxx
[AppleScript] 纯文本查看 复制代码
set conn=server.createobject("Adodb.connection") 
conn.open "DSN=xxx;UID=;PWD=;Database=customer


5、附上一个经常用的sqlserver与access通用的连接数据库代码
[AppleScript] 纯文本查看 复制代码
<% 
Const DataBaseType=1
If DataBaseType=0 then
DBPath="/jb51/news.asp"
SqlNowString = "Now()"
ystr=true
nstr=false
suiji="rnd(id)"
Else
'如果是SQL数据库,请认真修改好以下数据库选项
DataServer = "wwwjb51net" '数据库服务器IP
DataUser = "jb51net" '访问数据库用户名
DataBaseName = "jb51net" '数据库名称
DataBasePsw = "密码" '访问数据库密码
SqlNowString = "getdate()"
ystr=1
nstr=0
suiji="newid()"
End if
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。":Response.End
%>




作者: vingoo    时间: 2016-1-26 05:12
MS Access数据库连接
用DSN连接并且没有用户名和密码:
[AppleScript] 纯文本查看 复制代码
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>


用DSN连接并且有用户名和密码:
[AppleScript] 纯文本查看 复制代码
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>


用实际的数据库绝对路径连接:
[AppleScript] 纯文本查看 复制代码
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:/yanhang/database.mdb"
conn.Open Strconn
%>


用实际的数据库相对路径连接:
[AppleScript] 纯文本查看 复制代码
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>



MS SQL Server数据库连接
用DSN连接:
[AppleScript] 纯文本查看 复制代码
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>


不用DSN连接:
[AppleScript] 纯文本查看 复制代码
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
conn.open DSNtemp
%>



FoxPro数据库连接
[AppleScript] 纯文本查看 复制代码
<%
Set Conn = Server.CreateObject("ADODB.connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:/yanhang/database.dbc"
Conn.Open ConnStr
%>



Oracle数据库连接:
[AppleScript] 纯文本查看 复制代码
<%
set conn=server.createobject("adodb.connection")
conn.cursorlocation=adUseClient
DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world"
conn.open DSNtemp
%>


请使用以下代码进行链接:
[AppleScript] 纯文本查看 复制代码
Set conn=Server.CreateObject("ADODB.Connection")
Params = "Provider=SQLOLEDB;data source=服务器地址;User ID=登录用户名;Password=登录密码;Initial Catalog=默认数据库"
conn.open params




作者: vingoo    时间: 2016-1-26 05:26
[AppleScript] 纯文本查看 复制代码
dim conn,db
dim connstr
db="/data/date.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
        conn.close
        set conn=nothing
end sub






欢迎光临 源于生活 (http://bbs.vingoo.info/) Powered by Discuz! X3.1