宝刀未老的ASP....

现在都已经9102年了，转眼就到0202年。。现在如果还用ASP进行开发，要么念旧，要么不肯进步。。本尊也已经几年没用ASP进行开发多年了。基本都转向.NET或Java的开发了，虽然ASP曾经牛B过，但被时代遗弃连再见也无法打。。。不过好在ASP是微软的亲生儿子，不是说遗弃就遗弃；在IIS的环境里还是保留向下兼容，所以ASP还是可以继续安稳的过退休的日志。

好了我们说了一堆ASP的事情，我说一下我这边用ASP解决的一个项目问题吧。由于项目是PHP+MYSQL以前的人写的，开发文档和源码早就去无踪了；目前的需求是进行一个大屏数据显示及从MYSQL中获取相应的数据源，如果修改其PHP不知道又会暴露什么BUG，真是引一发牵动全身。。好在他们是用IIS+PHP的方式进行项目的发布。那行吧，写个外挂给他们就是了，但是因为IIS上面也布有一个.net的应用没法，这个应用也没源码。那怎么好呢，只能在挂一个单页的ASP对进行数据源获取。单页ASP需要解决的是链接MYSQL的问题，以往我不是MYSQL都留一个ODBC的连，但这丫的没有、没有、没有。。。

解决方法：安装MYSQL的ODBC连接

以上就是MYSQL的ODBC连接（32位）。

安装后，需要启动ODBC的32连接器。

C:\Users\Administrator> cd   \windows\SysWOW64

C:\windows\SysWOW64> odbcad32

然后就在odbc的界面里面用户DSN加入MYSQL的连接。

保存就可以了，但有可能会出现Access denied for user 'root'@'localhost' (using password）什么的，这个不要紧重启通过MYSQL管理器建立多一个用户即可。

好了，数据的DSN已经建立，那ASP就可以直接连MYSQL，代码如下：

<% set conn=Server.Createobject("adodb.Connection") str="dsn=conn;Driver={mysql driver};server=127.0.0.1;uid=root;pwd=123456;database=test" conn.open(str) response.Write(conn.state) '显示连接状态，若为1表示连接成功，若为0连接失败。 %> <% set rs=server.CreateObject("Adodb.recordset") sql = "SELECT id,biaoti FROM xtx_article WHERE biaoti LIKE '%周艳希%' ORDER BY addtimes DESC LIMIT 10" 'SQL查询语句 rs.open sql,conn,1,1 if not rs.bof then %> <% do while not rs.eof %> <%=rs("id")%>|<%=rs("biaoti")%><br /> <%   rs.movenext loop %> <% rs.close else response.write("对不起，没有找到数据。") end if set rs = nothing conn.close set conn = nothing %> 

写到最后，ASP虽然已经被历史遗忘，但是它以其独特的方式仍被微软所接纳和支持，可能这就是微软强大的地方。ASP其实一直都被低估了，据知道一些硬件平台还是继续用ASP作为用户界面设置的。在学习WEB编程的时候我也纠结是学PHP和是ASP；最后，我选择了ASP为主力，PHP为副业。