Post Jobs

伟德体育使用ASP推出你自己网站的频道,怎样判断一个盘上是否有文件

这里是从 Access 中取随机记录,在 SQL Server
中,可以用另一种方法,请参阅:如何随机选取n条记录或者对记录作随机排序。
<%
‘cn为connection对象
‘rs为recordset对象
‘recordCount为记录总数
‘i代表记录数
‘j代表重试次数,防止进入死循环
dim i,j
randomize()
do while i<8 and j<30
    //8条记录
    sql=”select F1,F2 from T1 where id=”&rnd()*recordCount\1
    rs.open sql,cn,1,1
    if not (rs.bof and rs.eof) then
        i=i+1
        response.write(“….”)
    end if
    rs.close
    j=j+1
loop
%>
当记录数相对于所取记录数比较小时,易出现重复取某一记录,要克服这一点就得再加几句了…

<%
  dim objfolder
  dim objfso
  dim j
  
  set fso=server.CreateObject(“scripting.filesystemobject”)
  set objfolder=fso.GetFolder(“d:/”)
  if  objfolder.size>0 then
      j=0
      for each objfile in objfolder.files
          j=j+1   
      next
      if j>0 then  ’此盘上有文件,共有j个文件
         …..
      else
         ….. ’此盘上没有文件
      end if
  else
      …. ’此盘上没有文件
  end if
%>

想自己生成自己站点的频道文件吗,看看下面的代码把。
这只是个例子而已,但我想你完全可以根据它来建立你自己的频道。
以后只要用户下载该.cdf文件,用户就能够订阅你的站点的频道了。
<%
‘打开数据库连接,并定义用于格式化的变量.
Set DBConn = Server.CreateObject(“ADODB.Connection”)
DBConn.Open “DSN=YourDSN”

BR = Chr(10)
Quote = Chr(34)

发表评论

电子邮件地址不会被公开。 必填项已用*标注

相关文章

网站地图xml地图