refreshallq.asp

问答系统 很好用啊 代码都应有 毕业设计

<!--#include file="../../Conn.asp"-->
<%
'==================================================================================
'oASK问答系统静态页面版
'官方演示站点：http://ask.officexy.com/
'官方支持论坛：http://club.officexy.com/
'联系人：小杨
'联系EMail：[e-mail]
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、Office学院保留此软件的法律追究权利
'==================================================================================

dim i,rs
Call ask.OpenRS(rs, "select * from askQuestion", rsRead)
Response.write "共有 " & rs.RecordCount & " 个问题需要生成<br><br>"
i=0
while not rs.eof
  i=i+1
  Response.write "<b>第" & i & "个: </b>" & HTMLEncode(rs("title")) & " >>> "
  refreshq(rs("id"))
  response.flush
  rs.movenext
wend
%>