barriers / 阅读 / 详情

asp命令如何查询access数据库中昨天或前天的数据?

2023-09-09 07:03:46
共1条回复
meira

给你看个例子

sj_1是你数据库中的时间

function cnmaisj(sj_1)

dim sj

sj=DateDiff("D",sj_1,now())

if sj<1 then

response.write "<font color=""#FF0000"">今天</font><img src=""image/news.gif"">"

elseif sj<2 and sj>=1 then

response.write "<font color=""#0000FF"">昨天"&timevalue(sj_1)&"</font>"

elseif sj>=2 and sj<3 then

response.write "<font color=""#008080"">前天"&timevalue(sj_1)&"</font>"

elseif sj>=3 then

response.write "<font color=#353535>"&datevalue(sj_1)&"</font>"

end if

end function

相关推荐

ASP+ACCESS 是什么?

Conn.Execute("[表名]")这中写法是错误,execute方法执行的是一条sql语句,你只写一条表明,当然是报sql语句错了,里面带一条完整的sql语句就可以了
2023-09-01 14:17:243

asp怎么连接access数据库(asp连接access数据库不成功)

它的各步骤及参数意义如下:第一行程序:利用Server对象的MapPath函数,取得要打开数据库的完整的文件路径,并存储在变量DbPath中。这其中,数据库名是我们需要指定的参数,应该用我们要打开的数据库的实际名称替代。如果数据库名是直接作为常量出现,要用引号将其括起来,并且不能丢掉扩展名。例如数据库是Test.mdb,则该行程序成为:DbPath=Server.MapPath(“Test.mdb”)。第二行程序:建立一个ADO对象集中的Connection对象,也即连接对象。这是建立数据库连接的初始步骤。执行这行程序后,Conn成为一个连接对象。第三行程序:利用连接对象Conn的Open方法打开一个指定的数据库。因为我们要打开的是Aess数据库,所以要指定ODBC驱动程序参数,表示要透过Aess的ODBC驱动程序来访问数据库:driver={MicrosoftAessDriver(*.mdb)};。另一个参数dbq=&DbPath,运算后等效于dbq=Server.MapPath(数据库名),是利用了第一行的Server.MapPath(数据库名)函数,用来指定要打开的数据库文件。到这里,就已经打开了数据库名指定的数据库。如果数据库名是“test.mdb”,则打开Aess数据库Test.mdb。在这一行里指定的参数,要严格按照格式原样写出,不能省略或改动,也没有可变参数。
2023-09-01 14:17:311

asp连接access数据库怎么实现的

它的各步骤及参数意义如下:  第一行程序:利用Server对象的MapPath函数,取得要打开数据库的完整的文件路径,并存储在变量DbPath中。这其中,数据库名是我们需要指定的参数,应该用我们要打开的数据库的实际名称替代。如果数据库名是直接作为常量出现,要用引号将其括起来,并且不能丢掉扩展名。例如数据库是Test.mdb,则该行程序成为:DbPath=Server.MapPath(“Test.mdb”)。  第二行程序:建立一个ADO对象集中的Connection对象,也即连接对象。这是建立数据库连接的初始步骤。执行这行程序后,Conn成为一个连接对象。  第三行程序:利用连接对象Conn的Open方法打开一个指定的数据库。因为我们要打开的是Access数据库,所以要指定ODBC驱动程序参数,表示要透过Access的ODBC驱动程序来访问数据库:driver={MicrosoftAccessDriver(*.mdb)};。另一个参数dbq=&DbPath,运算后等效于dbq=Server.MapPath(数据库名),是利用了第一行的Server.MapPath(数据库名)函数,用来指定要打开的数据库文件。到这里,就已经打开了数据库名指定的数据库。如果数据库名是“test.mdb”,则打开Access数据库Test.mdb。在这一行里指定的参数,要严格按照格式原样写出,不能省略或改动,也没有可变参数。
2023-09-01 14:17:424

在asp中怎么连接Access数据库

<%response.Charset="GB2312"Dim ConnStr,DataTypeDim ServerName,UserName,PassWord,DatabaseNameServerName = "127.0.0.1" "设置数据库服务器地址,当为Access数据库时忽略UserName = "sa" "设置数据库服务器用户名,当为Access数据库时忽略PassWord = "" "设置数据库服务器密码,当为Access数据库时忽略DatabaseName = "dbname" "设置数据库服务器数据库名,当为Access数据库时设置路径及文件名DataType="SqlServer" "设置数据库类型 (SqlServer,Mysql,Access)if DataType="SqlServer" thenConnStr = "Provider=Sqloledb;Data Source="&ServerName&";User ID="&UserName&";Password="&PassWord&";Initial Catalog="&DatabaseName&";"elseif DataType="Mysql" thenConnstr="Driver={Mysql ODBC 3.51 Driver};Server="&ServerName&";UID="&UserName&";PassWord="&PassWord&";Database="&DatabaseName&";"elseif DataType="Access" thenConnstr="DBQ="+Server.Mappath(""&DatabaseName&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};""Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(""&DatabaseName&"")end ifOn Error Resume NextSet Conn = Server.CreateObject("Adodb.Connection")Conn.Open ConnStrIf Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接错误,请稍后再试!" Response.EndEnd If%>
2023-09-01 14:17:522

asp 如何连接access数据库

<%dbstring ="db/guestbook.mdb" "数据库文件的位置Set conn = Server.CreateObject("ADODB.Connection")connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbstring)conn.Open connstr%> 把第一行代码 按照自己的改下就可以了 其余的不用变 2014的ACC的后缀应该是 其他的
2023-09-01 14:18:022

ASP与Access数据库连接出错 如何解决?

报什么错呢?路径会不会写错了,亦或者是相对路径与绝对路径的问题
2023-09-01 14:18:243

如何用asp给access数据库插入数据?

Set conn=Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("这里写上数据库的地址") set rs=server.CreateObject("adodb.recordset") sel="insert into 表名(这里写上字段名,如果是多个用“,”分割) value(字段对应的值)" rs.open sel,conn
2023-09-01 14:18:342

ASP与 Access 数据库连接

【答案】:<%@ language=VBs cript%><%dim conn,mdbfilemdbfile=server.mappath("数据库名称.mdb")set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd= 数 据 库 密码;dbq="&mdbfile%>
2023-09-01 14:18:421

ASP ACCESS 和ASP SQL 有什么区别??

主要是MSsql与access的区别,语法上差不多,但Mssql功能更强大
2023-09-01 14:18:515

asp怎么连接access数据库?

http://blog.csdn.net/tao19801112/archive/2004/10/15/138237.aspx
2023-09-01 14:19:084

简单的asp加access读取数据库怎么做?

ok 你去网上搜一个叫10天学会asp,基本这些连接数据库啊,插入删除修改,都有。你会asp。一个小时就可以把那个文档看完。他里面又一个留言板的源码,你直接二次修改就醒了。希望可以帮到你
2023-09-01 14:19:303

关于ASP如何与ACCESS数据库连接问题

<%Dim conn,dbDim connstrDim SqlNowString,FalseType,TrueTypeon error resume nextIsSqlDataBase= 0"主数据库类型(1=SQL,0=AC)"db="Databases/0791idc_Html.mdb" "数据库文件位置db="Databases/shuju.mdb" "数据库文件位置if IsSqlDataBase=1 thenTrueType= "1"FalseType= "0"SqlNowString= "GetDate()"elseTrueType= "True"FalseType= "False"SqlNowString= "Now()"end ifconnstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set conn=server.createobject("ADODB.CONNECTION")if err thenerr.clearelseconn.open connstrend ifsub CloseConn()conn.closeset conn=nothingend sub%>
2023-09-01 14:19:533

Asp+Access 最大支持多少连接数??

最大连接数 256
2023-09-01 14:20:033

ASP如何读取ACCESS中字段说明?

字段说明? 要读这个干嘛? ado引擎也许不读这个信息
2023-09-01 14:20:144

使用asp连接access数据库不行??

Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 "Temporary (volatile) Jet DSN for process 0xc2c Thread 0xda8 DBC 0x11c85ac Jet"。 经过网上查询说是两个原因1。微软已经不更新ODBC,需要改用JET的方式连接ACCESS数据库文件; 2。系统目录的权限发生的变更。解决方式如下:1、如果自己有操作服务器的权限: 在自己的2003服务器上测试,把windows emp目录增加everyone用户读写权限,然后再重启计算机可以解决故障。2、自己没有服务器操作权限:但是联通的idc服务器都在济南,我们是登录不上的因此只有想办法改变数据库联接方式,经过多次测试,原联接<% set conn = Server.CreateObject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("xxx.mdb") %>修改为<% dim conn dim connstr set conn = Server.CreateObject("ADODB.Connection")connstr="provider=microsoft.jet.oledb.4.0;data source=" &server.mappath ("xxx.mdb") "connstr="DBQ="+server.mappath("../data/jf.asa") +";provider=microsoft.jet.oledb.4.0;" conn.open connstr %> 测试成功!!我是在网上找的,不过你可以试试
2023-09-01 14:20:221

在ASP中如何向ACCESS中添加数据

没有分或
2023-09-01 14:20:315

如何用asp做access数据库备份

用asp做access数据库备份<% SQL="backup database 数据库名 to disk=""&Server.MapPath("backup")&""&"backuptext.dat"&""" set cnn=Server.createobject("adodb.connection") cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd=" cnn.execute SQL on error resume next if err<>0 then response.write "错误:"&err.Descripting else response.write "数据备份成功!" end if %>
2023-09-01 14:20:481

Asp如何连接Access2010数据库

asp连接access数据库的方法:1、设置数据库连接方式: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) 2、设置连接数据库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 3、建立odbc数据源set conn=server.createobject("Adodb.connection") conn.open "DSN=xxx;UID=;PWD=;Database=customer 4、附上一个经常用的sqlserver与access通用的连接数据库代码:<% 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 %>
2023-09-01 14:20:582

asp可以显示access某一字段中的某一行么?具体方法。谢谢

那你直接<%response.write "张三"%>不就完了,根本用不着数据库了
2023-09-01 14:21:064

ASP+ACCESS数据库多条件查询语句问题,SOS!

select * from shopxp_News where shopxpnst_id="&shopxpnst_id &" order by adddate desc",conn,1,1
2023-09-01 14:21:363

asp连接access数据库代码

<% "定义变量 Dim Name, Password Dim objConn, objRS " 从FORM对象中获取用户输入的信息 Name = Trim(Request("Name")) Password = Trim(Request("Password")) if name<>"" and Password<>"" then " 检查用户是否输入信息 " 使用Connection对象打开数据库文件user.mdb Set objConn = Server.CreateObject("ADODB.Connection")objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &"Data Source=" & Server.MapPath("user.mdb") objConn.Open " 建立Recordset对象并查找满足Name和Password的记录 strSQL = "SELECT * FROM Student WHERE 编号="" Name & "" AND 口令="" & Password & """ Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, 1, 1 " 如果到了记录文件Exercize.mdb的尾部,则库里没有该用户信息。 If Not objRS.Eof Then response.write"找到了" else response.write"找不到" end if
2023-09-01 14:21:443

asp连接access数据库 绝对路径怎么写

Db = "D:\ABCDatabase.mdb" "数据库目录和名称,请使用绝对路径. SqlString = "Now()" ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & DbSet conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr
2023-09-01 14:21:541

asp查询access

联系邮箱toby_239@163.com我可以给你一段代码
2023-09-01 14:22:031

asp连接access数据库连接错误

IIS默认网站的路径改成你的网站根目录即可!,&Server.MapPath(""&SysRootDir&""&SiteDataPath&" 就是获取数据库的路径的
2023-09-01 14:22:155

asp+access 多条件(多字段)查询

dim xx="where id="&id单一条件查询sql="delete * from phone "&x多条件(假设字段为a、b、c、d)查询,id不为空if a<>"" then x=x& and a="&aif b<>"" then x=x& and b="&bif c<>"" then x=x& and c="&csql="delete * from phone "&x
2023-09-01 14:22:341

asp对access表格实现数据更新

这种问题以前我遇到过,检查权限,数据库连接文件……
2023-09-01 14:22:583

ASP 如何读取ACCESS数据库的字段类型!!?

你用VBSPRIT试一试
2023-09-01 14:23:062

ASP+ACCESS 修改记录问题

把xid改成id或者把 where id="& id &""改成where id="&xid就行了还有一个问题,你那个replace用的也太疯狂了吧,那么多- -#
2023-09-01 14:23:284

asp无法向access插入数据

while (rs.next()) {Bars bar = new Bars();bar.setId(rs.getLong("id"));bar.setName(rs.getString("name"));bar.setType(rs.getInt("type"));bar.setCreatorId(rs.getLong("creator_id"));resultList.add(bar);}
2023-09-01 14:23:351

关于asp读取access数据库里的数据

读取前10条记录:sqlstr = "Select top 10 * from news order by id desc"
2023-09-01 14:23:464

用asp向access插入数据出错

你这样写太麻烦了,建议以可写方式打开数据库再把字段加入到数据库里,这样写简单些。
2023-09-01 14:24:032

asp中怎样连接access数据库,并实现增删改查

"第一步:建立Connection对象set conn = Server.CreateObject("ADODB.Connection")"第二步:使用Connection对象的Open方法建立数据库链接conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_Server.MapPath("Access数据库"))"第三步:建立RecordSet对象set rs = Server.CreateObject("ADODB.Recordset")"第四步:利用RecordSet对象的Open方法打开数据库rs.Open "SQL语句", conn, 打开方式, 锁定类型
2023-09-01 14:24:112

asp 修改access数据类型文本改成备注

直接打开access文件,鼠标右击要修改字段所在的表,选择设计视图,直接点击将文本选择为备注,就可以了。不需要写什么语句的。
2023-09-01 14:24:221

asp如何连接带密码的的access数据库

假设你的 mdb 数据库的密码为:12345将你的constr定义如下:constr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("#khKEY.asp") & " ; User ID=admin; Password=; Jet OLEDB:Database Password=12345"就可以连接你的 mdb 数据库了
2023-09-01 14:24:291

asp 连接ACCESS数据库 未发现数据源名称并且未指定默认驱动程序

您好,这样的情况建议您下载最新版本的驱动精灵,或是直接在线升级一下驱动精灵。希望可以帮到您。
2023-09-01 14:24:413

asp如何连接Access数据库,还需要配置ODBC吗?

建议不用odbcconnstr="DBQ="+server.mappath("数据库名")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set conn=server.createobject("ADODB.CONNECTION")conn.open connstr
2023-09-01 14:24:511

asp如何连接access数据库

它的各步骤及参数意义如下:  第一行程序:利用Server对象的MapPath函数,取得要打开数据库的完整的文件路径,并存储在变量DbPath中。这其中,数据库名是我们需要指定的参数,应该用我们要打开的数据库的实际名称替代。如果数据库名是直接作为常量出现,要用引号将其括起来,并且不能丢掉扩展名。例如数据库是Test.mdb,则该行程序成为:DbPath=Server.MapPath(“Test.mdb”)。  第二行程序:建立一个ADO对象集中的Connection对象,也即连接对象。这是建立数据库连接的初始步骤。执行这行程序后,Conn成为一个连接对象。  第三行程序:利用连接对象Conn的Open方法打开一个指定的数据库。因为我们要打开的是Access数据库,所以要指定ODBC驱动程序参数,表示要透过Access的ODBC驱动程序来访问数据库:driver={MicrosoftAccessDriver(*.mdb)};。另一个参数dbq=&DbPath,运算后等效于dbq=Server.MapPath(数据库名),是利用了第一行的Server.MapPath(数据库名)函数,用来指定要打开的数据库文件。到这里,就已经打开了数据库名指定的数据库。如果数据库名是“test.mdb”,则打开Access数据库Test.mdb。在这一行里指定的参数,要严格按照格式原样写出,不能省略或改动,也没有可变参数。
2023-09-01 14:25:311

asp怎么连接access数据库?

它的各步骤及参数意义如下:   第一行程序:利用Server对象的MapPath函数,取得要打开数据库的完整的文件路径,并存储在变量DbPath中。这其中,数据库名是我们需要指定的参数,应该用我们要打开的数据库的实际名称替代。如果数据库名是直接作为常量出现,要用引号将其括起来,并且不能丢掉扩展名。例如数据库是Test.mdb,则该行程序成为:DbPath=Server.MapPath(“Test.mdb”)。   第二行程序:建立一个ADO对象集中的Connection对象,也即连接对象。这是建立数据库连接的初始步骤。执行这行程序后,Conn成为一个连接对象。   第三行程序:利用连接对象Conn的Open方法打开一个指定的数据库。因为我们要打开的是Access数据库,所以要指定ODBC驱动程序参数,表示要透过Access的ODBC驱动程序来访问数据库:driver={Microsoft Access Driver (*.mdb)};。另一个参数dbq= & DbPath,运算后等效于dbq=Server.MapPath(数据库名) ,是利用了第一行的Server.MapPath(数据库名)函数,用来指定要打开的数据库文件。到这里,就已经打开了数据库名指定的数据库。如果数据库名是“test.mdb”,则打开Access数据库Test.mdb。在这一行里指定的参数,要严格按照格式原样写出,不能省略或改动,也没有可变参数。
2023-09-01 14:25:381

asp怎么连接access数据库

asp连接access数据库的方法:1、设置数据库连接方式: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) 2、设置连接数据库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 3、建立odbc数据源set conn=server.createobject("Adodb.connection") conn.open "DSN=xxx;UID=;PWD=;Database=customer 4、附上一个经常用的sqlserver与access通用的连接数据库代码:<% 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
2023-09-01 14:25:481

aspaccess优缺点?

小网站就用access优点:方便、便宜,不用另外再买数据库缺点:大于50M打开就会慢,现在一般的空间都不允许上传超过50M的access数据库数据量非常大就用sqlserver优点:速度快,稳定,方便维护。缺点:第一次上传数据库时在单独设计主键,要另花钱买,除非你买大空间才会自带。
2023-09-01 14:25:561

asp用Access和SQL有什么大的区别

不错,当数据量比较多的时候~access 就不能胜任了.
2023-09-01 14:26:133

asp新建ACCESS数据库表

.........
2023-09-01 14:26:212

如何用ASP查询ACCESS数据库中表的名称?

<%"---------------读access库中的表名------------------------- SET Conn=Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("库名称") Set rs=Conn.OpenSchema(20) Do Until rstSchema.EOF Response.Write "表名:"& rs(2) &"<br><br>" rs.MoveNext Loop %>
2023-09-01 14:26:292

请教ASP如何连接Access2010的accdb数据库,万分

asp连接access数据库的方法:1、设置数据库连接方式: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) 2、设置连接数据库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 3、建立odbc数据源set conn=server.createobject("Adodb.connection") conn.open "DSN=xxx;UID=;PWD=;Database=customer 4、附上一个经常用的sqlserver与access通用的连接数据库代码:<% 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 %>
2023-09-01 14:26:392

谁能告诉我asp access 数据库备份代码

access,备份和恢复,完整,可用 <% if session("username_tyadmin")="" then response.redirect "index.asp" response.end end if %> <!--#include file="conn.asp" --> <style type="text/css"> <!-- body,td,th { font-size: 12px; } .STYLE1 { color: #FFFFFF; font-weight: bold; } .STYLE2 {color: #FF0000} --> </style><BODY topMargin=0 leftmargin="0" marginheight="0"> <% db="../xs_data/xs.mdb" If Request.QueryString("action")="back" Then currf=request.form("currf") currf=server.mappath(currf) backf=request.form("backf") backf=server.mappath(backf) backfy=request.form("backfy") On error resume next Set objfso = Server.CreateObject("Scripting.FileSystemObject") if err then err.clear response.write "<script>alert(""不能建立fso对象,请确保你的空间支持fso:!"");history.back();</script>" response.end end if if objfso.Folderexists(backf) = false then Set fy=objfso.CreateFolder(backf) end if objfso.copyfile currf,backf& ""& backfy response.write "<script>alert(""备份数据库成功"");history.back();</script>" End If If Request.QueryString("action")="ys" Then currf=request.form("currf") currf = server.mappath(currf) ys=request.form("ys") Const JET_3X = 4 strDBPath = left(currf,instrrev(currf,"")) on error resume next Set objfso = Server.CreateObject("Scripting.FileSystemObject") if err then err.clear response.write "<script>alert(""不能建立fso对象,请确保你的空间支持fso:!"");history.back();</script>" response.end end if if objfso.fileexists(currf) then Set Engine = CreateObject("JRO.JetEngine") response.write strDBPath on error resume next If ys = "1" Then Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tourtemp.mdb;" _ & "Jet OLEDB:Engine Type=" & JET_3X Else Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tourtemp.mdb" End If objfso.CopyFile strDBPath & "tourtemp.mdb",currf objfso.DeleteFile(strDBPath & "tourtemp.mdb") Set objfso = nothing Set Engine = nothing if err then err.clear response.write "<script>alert(""错误:"&err.description&""");history.back();</script>" response.end end if response.write "<script>alert(""压缩数据库成功"");history.back();</script>" response.end Else response.write "<script>alert(""错误:找不到数据库文件!"");history.back();</script>" response.end End If end if if Request.QueryString("action")="reload" then currf=request.form("currf") currf=server.mappath(currf) backf=request.form("backf") if backf="" then response.write "<script>alert(""请输入您要恢复的数据库全名"");history.back();</script>" else backf=server.mappath(backf) end if on error resume next Set objfso = Server.CreateObject("Scripting.FileSystemObject") if err then err.clear response.write "<script>alert(""不能建立fso对象,请确保你的空间支持fso:!"");history.back();</script>" response.end end if if objfso.fileexists(backf) then objfso.copyfile ""&backf&"",""&currf&"" response.write "<script>alert(""恢复数据库成功"");history.back();</script>" response.end else response.write "<script>alert(""错误:备份目录下无您的备份文件!"");history.back();</script>" response.end end if end if %> <form name="form1" method="POST" action="bak.asp?action=back"> <div align="center"> <center> <table border="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1" cellspacing="3"> <tr> <td width="100%" bgcolor="#125E03"><span class="STYLE1">备份数据库</span></td> </tr> <tr> <td width="100%" bgcolor="#FBFDFF">要求空间支持FSO</td> </tr> <tr> <td width="100%" bgcolor="#FBFDFF">数据库路径: <span style="background-color: #F7FFF7"> <input type="text" name="currf" size="20" value="<%=db%>" readonly></span> 备份数据目录: <span style="background-color: #F7FFF7"> <input type="text" name="backf" size="20" value="dbback"> </span></td> </tr> <tr> <td width="100%" bgcolor="#FBFDFF">数据库名称:<span style="background-color: #F7FFF7"> <input type="text" name="backfy" size="20" value="backup.mdb"> <input type="submit" name="Submit" value="备份" > <span class="STYLE2">注:尽量不要更改以上项</span></span></td> </tr> </table> </center> </div> </form> <form name="form1" method="POST" action="bak.asp?action=reload"> <div align="center"> <center> <table border="0" cellpadding="3" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber3"> <tr> <td width="100%" bgcolor="#125E03"> <span class="STYLE1">恢复数据库</span></td> </tr> <tr> <td width="100%">要求空间支持FSO</td> </tr> <tr> <td width="100%">当前数据库路径:<span style="background-color: #F7FFF7"> <input type="text" name="currf" size="20" value="<%=db%>" readonly> </span> 备份数据库路径:<span style="background-color: #F7FFF7"> <input type="text" name="backf" size="20" value="dbback/backup.mdb"></span> <span style="background-color: #F7FFF7"> <input type="submit" name="Submit" value="恢复" > </span> </td> </tr> </table> </center> </div> </form>
2023-09-01 14:26:471

ASP+Access数据库查询设置问题!

sql = "update from hyClub where Hyid = " & cint(HyID) 这句有问题,你是用update还是select,update语法不对要是select就改为sql = "select * from hyClub"-------------------------------------------------------改为<% id=Request("id") pageno=trim(Request("pageno")) findcontent=trim(request("findcontent")) Approved =Request("Approved") %> <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/#178mlm.mdb") conn.execute="update (Hyclub) set IsApproved=true where id =" & cint(id) %> <% set rs=nothing set rs=server.CreateObject("adodb.recordset") sql = "update from hyClub where " %> <script language="javascript"> window.location.href="hyman.asp?pageno=<%=pageno%>&findcontent=<%=findcontent%>" alert("◆≡≡≡系 统 提 示≡≡≡◆ 会员确认成功!"); </script> <% conn.close set conn=nothing %> 上一文件确认的连接地址是:<a href="hyConfirm.asp?findcontent=<%=content%>&approved=1">确认</a>
2023-09-01 14:27:061

asp access登陆页面权限问题

首先,将用户表里把权限保存进去。登录成功后检查用户的权限,如果是user则进Umain.asp或者进admin.asp步骤如下:1,在user 表中加入right字段2,根据用户情况将right值改变为user 或admin3,在用户登录时,将right一起取出来即:将MM_rsUser.Source = "SELECT username, password,right" 改成MM_rsUser.Source = "SELECT username, password" 4,登录成功后根据所得到的right值进行跳转
2023-09-01 14:27:141

asp 向access数据库写入数据

这段代码没问题。看下面代码,或者查数据库权限。
2023-09-01 14:27:235

asp连接access数据库的问题,conn.asp,总是连接不上.

你这句话是直接输出 conn is ok 这个字符段, 跟数据库连接成功与否没关系
2023-09-01 14:27:373

用ASP写的连接ACCESS数据库网站的源代码?

给你提供一个我自己写的吧,三行,从做ASP那天起我就用这三行打遍天下了。希望对你有所参考,网上那些编的连接都是由网络公司出的,有他们的优点,但不够简洁,以下是代码和注释。<%Set conn=Server.CreateObject("ADODB.Connection") //创建数据库连接对象 connconn.provider="Microsoft.Jet.OLEDB.4.0" //指定数据库驱动类型conn.Open Server.MapPath("cooshlion.mdb") //打开数据库,请注意与你的数据库位置对应,如果不在当前目录下,请用../相对路径方式%>试试吧,将这行代码保存成一个ASP文件,然后建立一个空数据库cooshlion.mdb,再执行一下这个文件,不报错,那就可以了,成功连上,至于关不关闭对象,说老实话,VBScript检测不是那么严格的。
2023-09-01 14:27:581