21,891
社区成员
发帖
与我相关
我的任务
分享那位高人帮个忙!!!在线等... ...
刚学ASP不久,发现此问题请高人指导:
问题概要:
在学习中发现将取得数据集的ASP代码与HTML代码放在一起, 在编辑时实在不方便, 所以想将ASP代码与HTML代码分开, 于是写一sub view_table()存于view.inc文件, 可是问题出来了, 这时在sub view_table()中只能用Set Rs=Conn.Execute("select... ...")方式获得记录集, 如果改成rs.open sql, conn则不会产生记录,
请高人指教,谢谢!
文件如下:
1. 数据库连接
conn.asp
<%@ LANGUAGE=VBScript CodePage=936%>
<%
Option Explicit
Response.Buffer=true
Response.Expires = 0
Dim SqlNowString,Conn
'定义数据库类别，1为SQL数据库，0为Access数据库
Const IsSqlDataBase=0
Dim ConnStr
If IsSqlDataBase=1 Then
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName=""
SqlPassword=""
SqlUsername="sa"
SqlLocalName="(local)"
ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
Else
Dim Db
Db="data#123\data2003.mdb"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
End If
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End
%>
2. view.inc
sub view_table(ByRef str,maxrecoder)
... ...
if str="doc" then
sql = "select top "&maxrecoder&" id,filename,date from Documents order by date desc"
end if
Set Rs=Conn.Execute(sql)
... ...
3.记录显示页 index.asp
<html>
... ...
<% call view_table(doc,6) %>
.....
问题概要:
在学习中发现将取得数据集的ASP代码与HTML代码放在一起, 在编辑时实在不方便, 所以想将ASP代码与HTML代码分开, 于是写一sub view_table()存于view.inc文件, 可是问题出来了, 这时在sub view_table()中只能用Set Rs=Conn.Execute("select... ...")方式获得记录集, 如果改成rs.open sql, conn则不会产生记录,
请高人指教,谢谢!
文件如下:
1. 数据库连接
conn.asp
<%@ LANGUAGE=VBScript CodePage=936%>
<%
Option Explicit
Response.Buffer=true
Response.Expires = 0
Dim SqlNowString,Conn
'定义数据库类别，1为SQL数据库，0为Access数据库
Const IsSqlDataBase=0
Dim ConnStr
If IsSqlDataBase=1 Then
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName=""
SqlPassword=""
SqlUsername="sa"
SqlLocalName="(local)"
ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
Else
Dim Db
Db="data#123\data2003.mdb"
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
End If
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End
%>
2. view.inc
sub view_table(ByRef str,maxrecoder)
... ...
if str="doc" then
sql = "select top "&maxrecoder&" id,filename,date from Documents order by date desc"
end if
Set Rs=Conn.Execute(sql)
... ...
3.记录显示页 index.asp
<html>
... ...
<% call view_table(doc,6) %>
.....
...全文
请发表友善的回复…
发表回复
qyct 2004-01-14
- 打赏
- 举报
楼上的朋友们，我怎么没法给分啊？？郁闷!
qyct 2004-01-14
- 打赏
- 举报
以上两位谢谢你们了,不好意思,是我太笨,竟没发现是我自己的错,是过早的释放系统资源造成的．he.he!!!.......
tzgpxl 2004-01-14
- 打赏
- 举报
问题不能解决，继续关注，不过给个建议
因为conn.execute(sql)和rs.open sql,conn,1,1这样两种方法是不同的，
我看过但是没有留意。我想应该从这两个语句的区别着手，
呵呵，继续关注
因为conn.execute(sql)和rs.open sql,conn,1,1这样两种方法是不同的，
我看过但是没有留意。我想应该从这两个语句的区别着手，
呵呵，继续关注
qyct 2004-01-14
- 打赏
- 举报
xieyj 你方法刚试过,还是不行啊!还是谢你了.
qyct 2004-01-14
- 打赏
- 举报
要将文件包含进来，如:
3.记录显示页 index.asp
<!--#include file="view.inc" -->
<html>
... ...
<% call view_table(doc,6) %>
.....
---------------------------------------------------------
原文中是包含进来了的
3.记录显示页 index.asp
<!--#include file="view.inc" -->
<html>
... ...
<% call view_table(doc,6) %>
.....
---------------------------------------------------------
原文中是包含进来了的
jacklinchen 2004-01-14
- 打赏
- 举报
要将文件包含进来，如:
3.记录显示页 index.asp
<!--#include file="view.inc" -->
<html>
... ...
<% call view_table(doc,6) %>
.....
3.记录显示页 index.asp
<!--#include file="view.inc" -->
<html>
... ...
<% call view_table(doc,6) %>
.....
xieyj 2004-01-14
- 打赏
- 举报
改成：rs.open sql, conn, 1, 3 试试
