2 回答
TA贡献1827条经验 获得超8个赞
asp 连接Mysql数据:
第一步:配置ODBC数据源
在ODBC数据源中建立一个DSN。具体方法是:
1、打开控制面板中的ODBD数据源;
2、选择“系统DSN”,添加一个新的DSN驱动程序;
3、选择mysql odbc 3.51 driver,出现一个对话框供输入MySQL:
(1)Windows DSN name:所要建立DSN的名称,也就是数据库的名称;
(2)MySQL Host (name or ip):MySQL服务器的名称或IP地址。一般填LocalHost ;
(3)MySQL database name:需要使用数据库的名称。
4、在MySQL管理程序中建立数据库。
(1)user:连接数据库的用户名。可填root超级用户;
(2)password:连接数据库用户口令。可不填;
(3)Port(if not 3306):MySQL在服务器的端口。填默认为3306;
(4)SQL command on connect:使用SQL命令连接数据库。可不填。
全部填完后按OK保存。
第二步:编写数据库链接文件
例:有数据库db_ebookrelease,数据表tb_commondata,字段:序号FID,名称fTitle (程序如下:)
<%
dim driverName,chs
driverName="Driver={mysql odbc 3.51 driver};server=localhost;database=db_ebookrelease;uid=root;pwd=1;"
set conn=server.createobject("adodb.connection")
conn.open driverName
'查询之前先执行下面这一句,这句是解决读取数据库乱码问题的关键
set chs=conn.Execute("SET NAMES 'gb2312'")
'查询表
sql = "SELECT * FROM tb_commondata"
Set rs = conn.Execute(sql)
if not rs.eof then
%>
<html>
<head>
</head>
<body>
<TABLE width="400">
<TR>
<TD width="63"><strong>序号</strong></TD>
<TD width="87"><b>名称</b></TD>
</TR>
<%
Do While Not rs.EOF
%>
<TR>
<TD><%=rs("FID")%></TD>
<TD><%=rs("fTitle")%></TD>
</TR>
<%
rs.MoveNext
Loop
%>
</TABLE>
</body>
</html>
<%
Else
Response.Write("Sorry, no data found.")
End If
rs.Close
conn.Close
Set conn = Nothing
Set rsEmailData = Nothing
%>
添加回答
举报