⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ads_txt_dim.asp

📁 打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx
💻 ASP
字号:
<%

dim ndim,nnum,nsort_name
nnum=2
'call dim_ndim()

function nsort_type(ns,nn)
  dim ni,nss
  nss=ns
  for ni=1 to nnum
    if nss=ndim(0,ni) then
      nsort_type=nss
      exit function
    end if
  next
  nsort_type=ndim(0,nn)
end function

function nsort_value(ns)
  dim ni,nss
  nss=ns
  for ni=1 to nnum
    if nss=ndim(0,ni) then
      nsort_value=ndim(1,ni)
      exit function
    end if
  next
  nsort_value=ndim(1,0)
end function

function nsort_select(ns,ntt)
  dim ni,nss
  nss=ns
  nsort_select="<select name=nsort size=1>"
  for ni=1 to nnum
    nsort_select=nsort_select&"<option value='"&ndim(0,ni)&"'"
    if nss=ndim(0,ni) then nsort_select=nsort_select&" selected"
    nsort_select=nsort_select&">"&ndim(1,ni)&ntt&"</option>"
  next
  nsort_select=nsort_select&"</select>"
end function

sub dim_ndim()
  '分类中不可出现:function
  redim ndim(1,nnum)
  ndim(0,0)=""
  ndim(1,0)="所有"
  ndim(0,1)="forum"
  ndim(0,2)="other"
  ndim(1,1)="论坛"
  ndim(1,2)="其它"
  
  nsort=nsort_type(trim(request.querystring("nsort")),0)
  nsort_name=nsort_value(nsort)
end sub

sub erase_ndim()
  if isarray(ndim) then erase ndim
end sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -