
Dreamweaver中CafeTownsend的(数据源名称)DSN怎么显示不出来呢(配置ASP站点)?
Dreamweaver的help文件里提到,在windows上安装Dreamweaver,会自动建一个CafeTownsend的DSN。我在按照帮助文件设置ASP站点的时...
Dreamweaver的help文件里提到,在windows上安装Dreamweaver,会自动建一个Cafe Townsend的DSN。我在按照帮助文件设置ASP站点的时候,没这个DSN,请问这是怎么回事啊?是安装问题,权限问题?上面说复查DSN,怎么查啊,我在系统管理工具里的数据源上也没找到这个所谓的DSN,咋回事呢?实在找不到的话,是不是就得自己添加了呀?
展开
1个回答
展开全部
晕,要DSN干吗?链接数据库直接写代码就行了
<%
Response.Charset = "GB2312"
Server.ScriptTimeOut = 10 * 60
Dim SQLServer, strSQLServ, strSQLUser, strSQLPass, strSQLData, Connstr, Conn
SQLServer = True '使用ACESS的时候,改成False
'数据库连接字
If SQLServer Then '使用MSSQL
strSQLServ = "(local)" '服务器
strSQLUser = "sa" '用户名
strSQLPass = "123456" '密码
strSQLData = "sqldemo" '数据库
Connstr = "Provider=SQLOLEDB;Server=" & strSQLServ & ";UID=" & strSQLUser & ";PWD=" & strSQLPass & ";DataBase=" & strSQLData & ""
Else '使用ACCESS
Connstr = "DBQ=" + Server.MapPath("/data/mydata.mdb") + ";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};"
End If
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open Connstr
%>
保存为conn.asp
在需要的页面头部写<!--#include file="conn.asp"-->
完后conn.execute(执行sql)或
sql="select * from Demo"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
Title=rs("title")
......(略)
rs.close
set rs=nothing
就样就OK了。用DSN的话,你得有服务器的管理权限,而且还不灵活。
个人建议,使用DW做个布局和界面还行,如果用来写ASP的话不是太好,一般用EditPlus或者直接记事本,我现在在用ASP Studio,还行,支持断点、单步、调试以及IntelliSense,可以输出变量值,不过我都没怎么用这些功能调试的那些功能。使用Microsoft Visual Studio 2008习惯了,这些软件的这些功能感觉很鸡肋。
总的说ASP很简单的,入门很容易,用不了几天就能摆脱工具,不过要把ASP写的好那就不是太容易,很多功能用ASP实现很难,慢慢学吧。
补充:循环输出数据库中的数据
<%
Dim sql,rs
sql="select title,time,writer from news order by time desc"
set rs=Server.CreateObject("ADODB.RecordSet") ‘创建一个实例
rs.Open sql,conn,1,1
if not (rs.bof or rs.eof) then
%>
<table>
<%do while not rs.eof%>
<tr>
<td><%=rs("title")%></td><!--//输出新闻标题-->
<td><%=rs("time")%></td><!--//输出新闻发布日期-->
<td><%=rs("writer")%></td><!--//输出新闻发布者-->
</tr>
<%
rs.MoveNext ’移到下条记录,这句非常重要,要不然就会死循环
loop '循环
%>
</table>
<%
else
Respanse.Write("暂无新闻!")
end if
rs.close '关闭rs对象
set rs=nothing ’删除rs对象
%>
我也是才学的,上面的这个是我手写的,也没测试有没有错误,看了下应该没什么问题,就怕某个单词有拼写错误。希望可以帮你
<%
Response.Charset = "GB2312"
Server.ScriptTimeOut = 10 * 60
Dim SQLServer, strSQLServ, strSQLUser, strSQLPass, strSQLData, Connstr, Conn
SQLServer = True '使用ACESS的时候,改成False
'数据库连接字
If SQLServer Then '使用MSSQL
strSQLServ = "(local)" '服务器
strSQLUser = "sa" '用户名
strSQLPass = "123456" '密码
strSQLData = "sqldemo" '数据库
Connstr = "Provider=SQLOLEDB;Server=" & strSQLServ & ";UID=" & strSQLUser & ";PWD=" & strSQLPass & ";DataBase=" & strSQLData & ""
Else '使用ACCESS
Connstr = "DBQ=" + Server.MapPath("/data/mydata.mdb") + ";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};"
End If
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open Connstr
%>
保存为conn.asp
在需要的页面头部写<!--#include file="conn.asp"-->
完后conn.execute(执行sql)或
sql="select * from Demo"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
Title=rs("title")
......(略)
rs.close
set rs=nothing
就样就OK了。用DSN的话,你得有服务器的管理权限,而且还不灵活。
个人建议,使用DW做个布局和界面还行,如果用来写ASP的话不是太好,一般用EditPlus或者直接记事本,我现在在用ASP Studio,还行,支持断点、单步、调试以及IntelliSense,可以输出变量值,不过我都没怎么用这些功能调试的那些功能。使用Microsoft Visual Studio 2008习惯了,这些软件的这些功能感觉很鸡肋。
总的说ASP很简单的,入门很容易,用不了几天就能摆脱工具,不过要把ASP写的好那就不是太容易,很多功能用ASP实现很难,慢慢学吧。
补充:循环输出数据库中的数据
<%
Dim sql,rs
sql="select title,time,writer from news order by time desc"
set rs=Server.CreateObject("ADODB.RecordSet") ‘创建一个实例
rs.Open sql,conn,1,1
if not (rs.bof or rs.eof) then
%>
<table>
<%do while not rs.eof%>
<tr>
<td><%=rs("title")%></td><!--//输出新闻标题-->
<td><%=rs("time")%></td><!--//输出新闻发布日期-->
<td><%=rs("writer")%></td><!--//输出新闻发布者-->
</tr>
<%
rs.MoveNext ’移到下条记录,这句非常重要,要不然就会死循环
loop '循环
%>
</table>
<%
else
Respanse.Write("暂无新闻!")
end if
rs.close '关闭rs对象
set rs=nothing ’删除rs对象
%>
我也是才学的,上面的这个是我手写的,也没测试有没有错误,看了下应该没什么问题,就怕某个单词有拼写错误。希望可以帮你
参考资料: http://www.yeation.cn,http://5dblog.me
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询