Question

html怎么调用asp文件里面的方法

asp页面的方法代码.高手看看有错吗,
<!--#include file="conn_oa.asp" -->
<%
sub xinwen()
dim i
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 7 * from [xinWen] order by xw_id desc "
rs.open sql,conn,1,1
for i=1 to rs.recordcount
if rs.eof or rs.bof then exit for
response.write"<tr>
<td class='hs_lm' vAlign='top' width='10'><img alt='普通文章'
src='images/Article_common2.gif'></TD>
<td class='hs_lm'><a href='#'>"&rs("xw_title")&"</a></TD>
<td class='hs_lm' width='40' align='right'>"&rs("xw_time")"</td>
</tr>"
rs.movenext
next
end if
rs.close
Set conn=Nothing

%>
然后我在html怎么调用他呢

Answer 1

不能直接调用，可以在另一个asp页里面用include包含，如果要在html页里面调用则要用js调用
<script laugurge="javascript" src="被调用的页面.asp"></script>
但是这样被调用的话有可能显示不正确，上面的代码输出部分需要按js输出格式进行改写

追问

我在html页调用.就是用scrtpt调用的.提示我语法错误.要怎么改啊,我把write后面加上document.write也没用

Answer 2

你这有2个错误，一个是子程序没有结束标签 End Sub
二一个是你的asp输出不符合js规范

response.write" var HTML=""<tr><td class='hs_lm' vAlign='top' width='10'><img alt='普通文章' src='images/Article_common2.gif'></TD><td class='hs_lm'><a href='#'>"&rs("xw_title")&"</a></TD><td class='hs_lm' width='40' align='right'>"&rs("xw_time")"</td></tr>"";"

response.write "document.writeln(HTML);"

这样你试试，
其实还有一种简单的方法，就是Jquery

Answer 3

rs.open sql,conn,1,1
在这句后面要加句IF NOT RS.EOF THEN
要有记录集的情况下才进行循环，不然你直接循环，数据库里当然没有值了，当然要报错的

Answer 4

<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 7 * from [xinWen] order by xw_time desc "
rs.open sql,conn,0,1
while not rs.eof
%>
<a href="xinwen.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
这样写能看懂不？