[点晴永久免费OA]让ASP搭配MYSQL数据库

admin

2022年7月5日 1:32 本文热度 777

所需要工具：
   mysql-4.1.11-win32
   myodbc-3.51.11-1-dll
   myodbc-3.51.11-1-win
   mysqlcc-0.9.4-win32

-------------------------------------------------------------------

注册文件Mydbc.reg：

   REGEDIT4

   [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\myodbc driver]
   "UsageCount"=dword:00000002
   "Driver"="C:\\WINDOWS\\System\\myodbc.dll"
   "Setup"="C:\\WINDOWS\\System\\myodbc.dll"
   "SQLLevel"="1"
   "FileUsage"="0"
   "DriverODBCVer"="03.51"
   "ConnectFunctions"="YYY"
   "APILevel"="1"
   "CpTimeout"="120"
   [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers]
   "myodbc driver"="installed"

-------------------------------------------------------------------

建立ASP文件链接数据库，例子如下：
   Windows DSN name: 所要建立DSN的名称
   Mysql Host (name or ip):Mysql服务器的名称或者是IP地址，通常填localhost
   Mysql database name: admin
   Database: admin
   password: 000000
   Port(if not 3306):
   SQL command on connect:

下面两种链接数据库的ASP代码：

1. 使用DSN
   <%
  strConnection = "dsn=admin;driver={myodbd driver};server=localhost;uid=root;pwd=000000;database=admin"
  Set adoDataConn = Server.createObject("ADODB.Connection")
  adoDataConn.Open strConnection

  strQuery = "select * from user"
  Set rs = adoDataConn.execute(strQuery)
  If Not rs.BOF Then
  %>
  <TABLE>
  <TR>
  <TD<b>username</b></TD>
  <TD><b>password</b></TD>
  </TR>
  <%
  Do While Not rs.EOF
  %>
  <TR>
  <TD><%=rs("username")%></TD>
  <TD><%=rs("password")%></TD>
  </TR>
  <%
  rs.MoveNext
  Loop
  %>
  </TABLE>
  <%
  Else
  Response.Write("Sorry, no data found.")
  End If

  rs.Close
  adoDataConn.Close
  Set adoDataConn = Nothing
  Set rsEmailData = Nothing
  %>

2. 不使用DSN
   <%
  strconnection="DefaultDir=;Driver={myodbc driver};database=admin"
  Set adoDataConn = Server.createObject("ADODB.Connection")
  adoDataConn.Open strConnection

  strQuery = "select * from user"
  Set rs = adoDataConn.execute(strQuery)
  If Not rs.BOF Then
  %>
  <TABLE>
  <TR>
  <TD<b>username</b></TD>
  <TD><b>password</b></TD>
  </TR>
  <%
  Do While Not rs.EOF
  %>
  <TR>
  <TD><%=rs("username")%></TD>
  <TD><%=rs("password")%></TD>
  </TR>
  <%
  rs.MoveNext
  Loop
  %>
  </TABLE>
  <%
  Else
  Response.Write("Sorry, no data found.")
  End If

  rs.Close
  adoDataConn.Close
  Set adoDataConn = Nothing
  Set rsEmailData = Nothing
  %>

该文章在 2022/7/5 1:32:16 编辑过

关键字查询

数据库

sql

数据

正在查询...

点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。

点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。

点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。

点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。