首页文字链接

  file_name=web_dim(6)&"style/data_link_cms.js"
  filetype=links_txt("txt",7)
  call create_file(file_name,filetype)



function links_txt(lt,nummer)
  dim temp1,nname,topic
  temp1="document.write (""<table border=0 width='100%' cellspacing=2 cellpadding=2>"");"
  sql="select top 14 * from links where sort='"<&"' and hidden=1 order by orders"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    temp1=temp1&vbcrlf&"document.write (""<tr align=center>"");"
    for i=1 to nummer
      if rs.eof then exit for
      temp1=temp1&vbcrlf&"document.write (""<td><a href='"&rs("url")&"' target=_blank>"
        temp1=temp1&joekoe_cms.code_js(joekoe_cms.code_html(rs("nname"),1,0),1)
      temp1=temp1&"</a></td>"");"
      rs.movenext
    next
    temp1=temp1&vbcrlf&"document.write (""</tr>"");"
  loop
  rs.close
  temp1=temp1&vbcrlf&"document.write (""</table>"");"
  links_txt=temp1
end function


sub main_center_link()
  dim tmp1
  tmp1="<script language=javascript src='style/data_link_cms.js'></script>"
  response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>" & _
                 vbcrlf&"<tr><td align=center>"&tmp1&"</td></tr>" & _
                 vbcrlf&"</table>"
end sub

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: