领购物优惠券9块9包邮
首页 > 编程语言 > 其他教程 > asp

asp连接SQL和Access数据代码(asp里的随机函数)

   2015-06-26 0
核心提示：asp连接SQL和Access数据代码,asp里的随机函数,需要的朋友可以参考下
asp连接sql
第一种写法：
复制代码 代码如下:

MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3

常用的函数代码：
复制代码 代码如下:

DataServer = "jb51" '数据库服务器IP
DataUser = "jb51" '访问数据库用户名
DataBaseName = "jb51" '数据库名称
DataBasePsw = "www.lexue001.com" '访问数据库密码
Set conn = Server.CreateObject("ADODB.Connection")
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End


使用ASP连接MS SQL数据库，标准的连接，常用的多的是下面这种连接字符串：
复制代码 代码如下:

CONN.OPEN "Provider=SQLOLEDB.1;"&_
"Password='"&pass_word&"';"&_
"Persist Security Info=true;"&_
"User ID='"&User_ID&"';"&_
"Initial Catalog='"&db&"';"&_
"Data Source='"&Data_Source&"';"&_
"CONNect Timeout="&cntimeout&""

　　描述：
Provider=SQLOLEDB.1;数据库提供者,后面的 1 是表示版本信息，如果没有就会完全使用当前最新版功能
User ID=SQL帐号，数据库的帐号
Password=SQL帐号密码，数据库的帐号密码
Initial Catalog=数据库名字（只有名字，而ACCESS的是具体带路径的数据文件）
Data Source=数据源,SQL服务器名或其IP，通常用IP
上五个参数缺一不可

关于Data Source：

如果 IIS 和 SQL 同一台服务器，则 使用安装 IIS的 IP 或 主机名HostName 或 (local)
例如：
//Data Source=(Local) '' IIS 与 SQL 一起则第一选择它！
//Data Source=212.100.1.12
//Data Source=LSS
如果 SQLserver 是在另外的机器上，比如你连接到我机器上的的 SQLserver ，就用我机器的 IP
//Data Source=208.190.21.112 '我的SQL server IP
CONNect Timeout=连接超时，是整数，缺省是30秒，可以不用
Persist Security Info= true or false 可以不用

理解SQL和ACCESS的区别：

ACCESS是文件型的数据库，一个数据库就是一个具体的 MDB文件，所以ACCESS的连接需要给出具体的数据库路径 Data Source='c:\www\mdb\aaa.mdb'
　　而Server.mappath(aaa.mdb)即是将aaa.mdb 映射为 c:\www\mdb\aaa.mdb
SQLserver是S/C 客户端/服务器方式，与ACCESS完全不一样，所以访问SQL 2000的数据库需要建立客户端和服务器端的连接，注意这个客户端是针对 SQL数据库服务器来说的
服务器端的脚本 对 SQLserver 来说也是“客户端应用程序”。
　　SQL的数据库物理上也是一个.MDF数据文件，但这与MDB是天壤之别的，SQL的MDF 可以说是一个数据库的集合,里面包括了很多个数据库（里面的每个数据库有一个名字,每个数据库有相应的拥有者SchMa），而ACCESS的MDB是一个文件就是一个数据库。
故访问SQL 数据库要指定其服务器IP 数据库帐号密码 数据库名（当然无路径可言）
　　而访问 ACCESS 只要访问 ACCESS的文件就行了。
　　现在要做的是，进入企业管理器，建立一个数据库（比如为AAA），在数据库中，建立添加数据库用户和密码，然后就可以用上面的连接字符串来连接了！

//第二种写法：（DSN连接）

MM_conn_STRING="DSN=BBS;UID=SA;PWD=12345"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3 // 3,3是修改、删除、增加开关！

//第三种写法：

MM_conn_STRING_own = "Driver={SQL Server};server=(local);uid=sa;pwd=11111;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING_own

//第四种 - 这种方法用在ACCESS中
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("asp.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

我们常用的sqlserver与access都可以用的函数
复制代码 代码如下:

<%
Const DataBaseType=1
If DataBaseType=0 then
DBPath="/data/news.mdb" //mdb数据库路径
Else
'如果是SQL数据库，请认真修改好以下数据库选项
DataServer = "jb51" '数据库服务器IP
DataUser = "jb51" '访问数据库用户名
DataBaseName = "jb51" '数据库名称
DataBasePsw = "www.lexue001.com" '访问数据库密码
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
%>


连接MSSQL代码(附加判断代码)：
复制代码 代码如下:

<%
dim cn
set cn=server.createobject("adodb.connection")
cn.connectionstring="driver={SQL server};server=taihang;datebase=taihang;uid=sa;pwd=hacker"
cn.open
If cn.state=1 Then
response.write"数据库连接对象已打开"
Else
response.write"数据库连接对象未打开"
end If
cn.close
Set cn=nothing
%>


连接Access常用方法：

复制代码 代码如下:

Dim conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") '//定义数据库连接对象
strDataPath=server.MapPath("example.mdb") '//数据库路径字符串
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataPath '//数据库连接
conn.open connStr


也可以用：

复制代码 代码如下:

Dim conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") '//定义数据库连接对象
strDataPath=server.MapPath("example.mdb") '//数据库路径字符串
connStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & strDataPath '//数据库连接
conn.Open connStr


注解：
　　因为我们想打开的是Access(.mdb)数据库，所以我们要透过Access的ODBC驱动程序{Microsoft Access Driver (*.mdb)}来存取数据库，dbp参数则是用来指定想打开的数据库文件，因为它必须是完整路径名称，所以我们上一语句用了Server.MapPath 函数 。

　　上面常用方法中一般为简洁起见也可一用下面一句
　　conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/") & "xxx.mdb"

水寒意见>>
一般直接使用 Microsoft.Jet.OLEDB.4.0 一层接口:
adoConnection.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/") & "xxx.mdb"
避免使用 Microsoft OLEDB Provider for ODBC Drivers + Microsoft Access Driver (*.mdb)(Access 的 ODBC Driver)两层接口:
adoConnection.open "PROVIDER=MSDASQL.1;Driver=Microsoft Access Driver(*.mdb);DBQ=" & Server.MapPath ("/") & xxx.mdb"

ACCESS数据库连接代码（一）
复制代码 代码如下:

<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("数据库文件路径")
%>

ACCESS数据库连接代码（二）
复制代码 代码如下:

<%
dim conn,cqie
conn="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("数据库文件路径")
set cqie=server.createobject("adodb.connection")
cqie.open conn
%>

asp里的简单随机函数
复制代码 代码如下:

<%
dim a,b,c
a=1310:b=9215
randomize
c=int((b-a+1)*rnd+a)
%>

取出上次登陆时间记录本次登陆时间
复制代码 代码如下:

<%
session("onetime")=rs("上次登陆时间")
session.timeout=30
rs("上次登陆时间")=now()
%>
 
标签： SQL Access 数据库连接
反对 0举报 0 评论 0
 

免责声明：本文仅代表作者个人观点，与乐学笔记（本网）无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
    本网站有部分内容均转载自其它媒体，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责，若因作品内容、知识产权、版权和其他问题，请及时提供相关证明等材料并与我们留言联系，本网站将在规定时间内给予删除等相关处理.

  • Perl操作Mysql数据库 perl操作excel
    一. 安装DBI模块步骤1：从TOOLS栏目中下载DBI.zip,下载完后用winzip解开到一个temp目录,共有三个文件：ReadmeDBI.ppdDBI.tar.gz步骤2： 在DOS窗口下，temp目录中运行下面的DOS命令：ppm install DBI.ppd 如果提示无效命令,可在perl/bin目录下运行 二. 安装DBD
    02-09
  • 在OS X系统中配置Ruby on Rails使其可以访问Sql
    经过大半天的折腾，终于可以让RoR在OS X系统里访问Sql Server数据库了。这里记录一下操作的过程，免得以后忘了。第一步，安装FreeTDS从FreeTDS的官网上下载最新的稳定版的压缩包，然后，遵照这里的说明进行手工编译（好怀念微软的Setup.exe和*.msi啊），其中
    02-09
  • Nodejs+Express+Mysql实现简单用户管理增删改查
    Nodejs+Express+Mysql实现简单用户管理增删改查
     源码地址　　https://github.com/king-y/NodeJs/tree/master/user目录结构　　mysql.jsvar mysql = require('mysql');var pool = mysql.createPool({host : '127.0.0.1',user : 'root',password : '',database : 's79'});exports.que
    02-09
  • PHP 使用 Swoole - TaskWorker 实现异步操作 Mysql
    PHP 使用 Swoole - TaskWorker 实现异步操作 My
    在一般的 Server 程序中都会有一些耗时的任务，比如：发送邮件、聊天服务器发送广播等。如果我们采用同步阻塞的防水去执行这些任务，那么这肯定会非常的慢。Swoole 的 TaskWorker 进程池可以用来执行一些异步的任务，而且不会影响接下来的任务，很适合处理以
    02-09
  • Mysql数据库一个小程序实现自动创建分表。
    每当跨月的时候也是系统出问题最多的时候，没有表和字段缺失是两个最常见的错误。为了解决这个问题，研究了一下mysql的 information_schema 表：information_schema这张数据表保存了MySQL服务器所有数据库的信息。如数据库名，数据库的表，表栏的数据类型与访
    02-09
  • Rust 连接 SQLite 数据库
    Rust 连接 SQLite 数据库
    使用 Rust 语言连接操作 SQLite 数据库，我使用 rusqlite 这个 crate。看例子：首先，使用 cargo 创建一个 Rust 项目，然后添加依赖 rusqlite： 来到 main.rs，其余所有的代码都写在这里。首先引入 rusqlite 相关的类型，并建立一个 Person struct：Person
    02-09
  • Rust 连接 PostgreSQL 数据库
    Rust 连接 PostgreSQL 数据库
    这次，我们使用 postgres 这个 crate 来连接和操作 PostgreSQL 数据库。创建好项目后，在 cargo.toml 里添加 postgres 的依赖： 首先，导入相关的类型，并创建一个 Person struct： 再创建 create_db 函数，用来创建数据库和表，它返回一个 Result，里面可
    02-09
  • Delphi中多线程下使用使用 UniDAC+MSSQL 需要注
    一般解决方法是在线程开始启用 CoInitialize(nil)，线程结束调用 CoUninitialize 。如果你使用多种数据库连接，比如三层中经常切换到MSSQL和Oracle，我们只需在判断 TUniConnection 的连接前事件 OnBeforeConnect 写下如下代码：  [delphi] view plain co
    02-09
  • delphi10.3安装使用mySQL及遇到的问题(01)
    delphi10.3安装使用mySQL及遇到的问题(01)
    1】下载安装好mySQL环境2】FDConnection1的设置3】执行增删改SQL语句和查询Select语句4】客户端连接5]长文本类型，及SQLITE导出，导入到MySQL6】遇到过的问题及解决1】下载安装好mySQL环境，注意32位/64位。本篇为32位mysql32位下载链接: https://pan.baidu.c
    02-09
  • Delphi XE中使用dbExpress连接MySQL数据库疑难
    Delphi IDE中包含一个Data Explorer的组件，如下图所示：  该组件基于dbExpress（包含TSQLConnection、TSQLDataSet、TSQLQuery、TSQLStoredProc、TSQLTable、TsqlServerMethod、TSQLMonitor、TSimpleDataSet）。但是因为该组件只提供了各种数据库的抽象驱动
    02-09
更多>PHP教程
php-fpm进程管理的三种模式 phpfpm子进程 [PHP8] 我参加了PHP8工程师认证初学者考试beta考试
更多>C/C++教程
VScode运行C++中文终端乱码的解决方案 vscode错误提示中文 C++ LeetCode1945题解字符串转化后的各位数字之和
更多>Java教程
Java项目导出数据为 PDF 文件的操作代码 盘点Java中延时任务的多种实现方式 java 延时队列怎么实现
更多>ASP.NET
使用WebClient自动填写并提交ASP.NET页面表单的源代码 asp.net mvc多条件+分页查询解决方案 asp.net mvc多条件+分页查询解决方案
更多>JSP编程
JSP通用高大上分页代码(超管用) JSP验证码动态生成方法
点击排行
网站首页  |  关于我们  |  联系方式  |  使用协议  |  版权隐私  |  网站地图  |  网站留言  |  违规举报