SET Conn= Server.CreateObject("ADODB.Connection") '创建ADO连接对象
conn.provider="Microsoft.jet.oledb.4.0" '设置连接对象的连接方式
conn.open server.mappath("english.mdb") '使用连接对象打开现有数据源Set rs=server.CreateObject("adodb.recordset") '创建一个记录集对象(用来读取数据库表信息)
rs.open "select * from sentence order",conn,1,1 '执行一个sql查询(使用现有的活动连接conn)'此时,asp已经成功连接到english.mdb,并且已经把表sentence的记录读取到rs对象里面, 如果需要输出表里面的内容,只需输出rs记录集即可.'输出(默认第一条记录,如果要输出全部记录,请学习循环输出语句):response.write rs("id")&rs("chinese")&rs("english")%>
<%Sub AddIndex()
CityName = CreateHeader()
'在这一步如何获取CreateHeader函数的值,使得值传给CityName变量,以便在下一步调用这个CityName值
Call Create(CityName,htmlName)
End Sub
Function CreateHeader()
set rs =conn.execute("select * from city where rec='y'")
do while not rs.eof
CityName=CityName&rs("cityname")&" "
rs.movenext
loop
CreateHeader=CityName
End Function
%>
楼主仔细看我的代码,建议复制我的代码测试,不要对比修改,如果你能很快察觉修改了哪里,估计你自己检查早改好了。提示下:函数的返回值是通过函数名来返回的
或者修改成:
<%
Sub AddIndex()
Call CreateHeader
'在这一步如何获取CreateHeader函数的值,使得值传给CityName变量,以便在下一步调用这个CityName值
Call Create(CityName,htmlName)
End Sub
sub CreateHeader()
set rs =conn.execute("select * from city where rec='y'")
do while not rs.eof
CityName=CityName&rs("cityname")&" "
rs.movenext
loop
CityName=CityName
End sub
%>
-------------------- 新增
给你一个简单的 funcition 和sub
function jisuan()
dim a,b,c
a=100
b=105
c=a+b 'c保存的是a b的和
jisuan=c '函数返回值需要赋值给函数名才行,这个是必须的
end function
调用时:
dim ab
ab = jisuan()
response.write ab
----
sub 来说只是把一部分代码做成块来分开而已,sub没有返回值
例如:
sub jisuan()
dim a,b
a=100
b=105
c=a+b
end sub
调用时
dim c
call jisuan()
response.write c
-----------------------
楼主刚学吧,基础是有点儿薄弱
还有一点儿,你确认数据库中有相应的数据吗?
回楼上的,function 和sub 不需要顺序,代码可以放置在任意地方,不懂不要误导人!!!!!
1\最好把相关的代码贴出来!不然我们不能帮你找出问题所在!2数据库路径错误,你的IIS设置中肯定添加了新的目录站点,然后你的这个网站就放在这个目录下,而你的网站中数据库路径使用的是根目录,所以不能访问
解决方法:
第一种方法:修改网站数据库的访问路径为相对目录,一般是在conn.asp中修改
第二种方法:把你的网站拷贝到C:\Inetpub\wwwroot里面,(不要在这里再建个目录,而是直接把网站全部文件放进去)
让后设置IIS的“默认网站”属性,默认首页设为你网站的首页文件的名字。
ok
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)