我不懂

dadaxiang 2002-04-03 11:22:12

为什么下面的代码不会其作用
运行结果一直是系统发生0个错误
我对数据库链接怎么修改都是这样
<html>
<head>
<title></title>
</head>
<body>
<%
On Error Resume Next
const adCmdText = 1
const RecordsAffected = 0
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.connection= "driver={sql server};server=ljf;UID=sa;PWD=as;Database=pubs"
conn.Open 
CommandText = "delete emp2 where job_id < 12"

Conn.Execute CommandText,RecordsAffected,adCmdText

Set myErrors = Conn.Errors
Response.write "系统发生" & myErrors.Count & "个错误<br>"

Response.write "<table border=3>"
For I=0 To MyErrors.Count -1
Response.write "<tr><td>Description属性</td>"
Response.write "<td>" & MyErrors(I).Description & "</td></tr>"
Response.write "<tr><td>Number属性</td>"
Response.write "<td>" & MyErrors(I).Number & "</td></tr>"
Response.write "<tr><td>Source属性</td>"
Response.write "<td>" & MyErrors(I).Source & "</td></tr>"
Response.write "<tr><td>NativeError属性</td>"
Response.write "<td>" & MyErrors(I).NativeError & "</td></tr>"
Response.write "<tr><td>SQLState属性</td>"
Response.write "<td>" & MyErrors(I).SQLState & "</td></tr>"
Response.write "<tr><td>HelpContext属性</td>"
Response.write "<td>" & MyErrors(I).HelpContext & "</td></tr>"
Response.write "<tr><td>HelpFile属性</td>"
Response.write "<td>" & MyErrors(I).HelpFile & "</td></tr>"
Next
Response.write "</table>"
Set Conn = nothing
%>
</body>
</html>

...全文

51 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

dadaxiang 2002-04-03

打赏
举报

我是想让上面的程序出错一下，显示出来但是运行完后就是：系统发生0个错误

forestli 2002-04-03

打赏
举报

给你一个小例子。看看就会了！ASP连接数据库相关源代码参考
1. ASP连接Access数据库语句

Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("aaa/bbspp1.mdb")+";DefaultDir=;DRIVER={Microsoft
AccessDriver(*.mdb)};DriverId=25;FIL=MSAccess;ImplicitCommitSync=Yes;MaxBufferSize=5
12;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr

其中Set Conn=Server.CreateObject("ADODB.Connection")为建立一个访问数据的对象
server.mappath( aaa/bbspp1.mdb)是告诉服务器access 数据库访问的路径

2. ASP连接Sqlserver数据库语句

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open"driver={SQLServer};server=202.108.32.94;uid=wu77445;pwd=p780522;database=w
ww_panwei_com"
conn open 　　　　　　　　　　　　　　　　　　　
其中/Set conn = Server.CreateObject("ADODB.Connection")为设置一个数据库的连接对象
driver=（）告诉连接的设备名是SQL-SERVER
server是连接的服务器的ip地址，Uid是指用户的用户名，pwd是指的用户的password，
database是用户数据库在服务器端的数据库的名称

JDK发布新版本后，汉化的API要推迟很久才会出来，这对一些英语稍微差的同事来说非常不方便，我通过网络搜集，希望该资源能给大家工作带来便利！

spring+struts+mybatis+security+memcached+GBAC权限架构开源项目, 懂的自己下载看,不懂的就去问懂的,还有就是有的人说上一个版本的代码有点乱,我只能说你站在你的角度看,我站在我的角度写,说明我们有代沟,大概如此了...补充一点,因为security3对于分布式应用系统有限制,因为没有提供session共享的功能,所以建议大家自己扩展下,这里我就不累赘说

在此，将【源码】交出，提供给感兴趣的朋友，继续去完善，此源码还存在很多问题，还有很多需要优化与功能需要完善的地方；包括UI部分很多地方还没有优化和完善，更别说功能，此源码只实现了，基本的登录，查询，订票等功能，源码里带有注释，如果有什么不懂的地方可以联系我~~~(PS:想运行此程序，可能需要先到12306安装证书)

a站、b站、c站、d站、e站、f站、g站、h站、i站、j站、k站？你听过吗？00后的世界我不懂！

一、不懂技术，能运营微信公众号吗? 我不懂技术，自己能运营建微信公众号吗？你不会造车，你也不会修车，你可以开车吗？这是问得最多的一个问题，很多人在开始之前，总是感觉自己电脑水平不够高，不会编程，也不会设计，再被有些人忽悠之后，就更不敢相信自己了！实际上汽车司机早些年也是一个职业，而今天，男女老少，只要符合法定年龄