准备要弄个查询页,数据库是mysql,在网上搜索才看到两篇文章关于asp使用mysql数据库,都是很久以前的了
需要配置odbc,今天自己测试过,根本不需要,安装mysql的时候它会自己在系统dsn添加了,而且数据库连接语句也不需要写说明dsn=mysql之类的,这样就可以了:
connstr="driver={mysql odbc 3.51 driver};server=127.0.0.1;uid=root;pwd=wencui2006;database=JudgeData"
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
注意看安装的是那个odbc版本就行了
以下测试成功,使用了叶子的分页类0.13v20060524,点击下载此文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>MYSQL数据库分页测试</title>
</head>
<!--#include file="Cls_vbsPage.asp"-->
<body>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000" style="font-family:Geneva, Arial, Helvetica, sans-serif">
<tr bgcolor="#003366" style="color:#FFFFFF" >
<td>年名次</td>
<td>班名次</td>
<td>班级</td>
<td>座号</td>
<td>学号</td>
<td>姓名</td>
<td>考号</td>
<td>英语</td>
<td>生物</td>
<td>总分</td>
<td>平均分</td>
</tr>
<%
startime=timer()
connstr="driver={mysql odbc 3.51 driver};server=127.0.0.1;uid=root;pwd=wencui2006;database=JudgeData"
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
Set ors=new Cls_vbsPage '创建对象
Set ors.Conn=conn '得到数据库连接对象
With ors
.PageSize=20 '每页记录条数
.PageName="Pages" 'cookies名称
.DbType="mysql" '数据库类型,AC为access,MSSQL为sqlserver2000存储过程版,MYSQL为mysql,PGSQL为PostGreSql
.RecType=0 '记录总数(>0为另外取值再赋予或者固定值,0执行count设置存cookies,-1执行count不设置cookies)
.JsUrl="" 'Cls_jsPage.js的路径
.Pkey="StudentNum" '主键
.Field="GradeNum,ClassNum,ClassName,Seat,StudentNum,Name,UnionNum,Subject0,Subject1,TotalScore,AverageScore"'字段
.Table="arrangescore_temp" '表名
.Condition="" '条件,不需要where
.OrderBy="GradeNum asc" '排序,不需要order by,需要asc或者desc
End With
rstest=ors.ResultSet()
if isnull(rstest) then response.Write("无记录")
For i=0 To Ubound(rstest,2)
%>
<tr>
<td bgcolor="#FFFFFF"><%=rstest(0,i)%></td>
<td bgcolor="#FFFFFF"><%=rstest(1,i)%></td>
<td bgcolor="#FFFFFF"><%=rstest(2,i)%></td>
<td bgcolor="#FFFFFF"><%=rstest(3,i)%></td>
<td bgcolor="#FFFFFF"><%=rstest(4,i)%></td>
<td bgcolor="#FFFFFF"><%=rstest(5,i)%></td>
<td bgcolor="#FFFFFF"><%=rstest(6,i)%></td>
<td bgcolor="#FFFFFF"><%=rstest(7,i)%></td>
<td bgcolor="#FFFFFF"><%=rstest(8,i)%></td>
<td bgcolor="#FFFFFF"><%=rstest(9,i)%></td>
<td bgcolor="#FFFFFF"><%=rstest(10,i)%></td>
</tr>
<%next%>
</table>
<div align="center"><%=ors.ShowPage()%>耗时:<%=FormatNumber((timer()-startime)*1000,3)%>毫秒</div>
<%
ors=null
set ors=nothing
%>
</body>
</html>
这个分页类传说是速度最快的,还有个v0.04 Beta版更加快,ms access数据库100万记录才20多毫秒