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怎么调用他呢

你这有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

<% 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 %> 这样写能看懂不？

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

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息