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

📄 list.asp

📁 媒体中国-设计联盟
💻 ASP
字号:
<% 
'=========================================================
' File: list.asp
' Version:2.0test
' Date: 2002-12-21
' Script Written by Icyn
'=========================================================
' Copyright (C) 2002,2003 Icyn.Net All rights reserved.
' Web: http://pwc.net,http://bbs.icyn.net,http://icyn.net
' Email: webmaster@icyn.net,icystone@163.com
' QQ:15477885
'=========================================================
 %><!--#include file="dbinc/dbpath.asp" -->
<!--#include file="dbinc/char.inc" -->
<%
siteid=request.querystring("id")
Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "Select * from zkpick where pickid="&siteid,conn,1,3
  rs("pickvisitor")=rs("pickvisitor")+1
  rs.update
sername=request.ServerVariables("server_name")
scrname=request.ServerVariables("script_name")
scrname=left(scrname,len(scrname)-8)

if not (rs.bof and rs.eof) then
  linkpath="http://www.3niao.com/pick/show.asp?id="&rs("pickid")
  iconpath="http://www.3niao.com/pick/image/"&rs("pickgrade")&".gif"

  gradestr=rs("pickgrade")
  select case gradestr
    case 1: gradestr="设社联盟待审网站"
    case 2: gradestr="中级认证网站"
    case 3: gradestr="中级推荐网站"
    case 4: gradestr="高级推荐网站"
    case 5: gradestr="高级精品网站"
    case else: gradestr="设社联盟待审网站"
  end select

  typestr=rs("picktype")  
  select case typestr
    case 1: typestr="个性突破"
    case 2: typestr="艺术设计"
    case 3: typestr="建站资源"
    case 4: typestr="商业咨讯"
    case 5: typestr="娱乐生活"
    case 6: typestr="另类其他"
    case else: typestr="另类其他"
  end select

  altstr="&#13&#10  :::媒体中国(设计联盟):::  "
  altstr=altstr&"&#13&#10"
  altstr=altstr&"&#13&#10  网站名称:"&rs("picksite")&"  "
  altstr=altstr&"&#13&#10  网站总评:"&rs("pickcount")
  altstr=altstr&"&#13&#10  网站得票:"&rs("pickvote")
  altstr=altstr&"&#13&#10  浏览人数:"&(rs("pickvisitor"))
  altstr=altstr&"&#13&#10  网站级别:"&gradestr
  altstr=altstr&"&#13&#10  网站类型:"&typestr
  altstr=altstr&"&#13&#10  网站简介:"&rs("pickmemo")&"  "
  altstr=altstr&"&#13&#10"

end if
%>

  document.write ('<a href="<%=linkpath%>" target="_blank"><img src="<%=iconpath%>" alt="<%=altstr%>" width="88" height="31" border="0"></a>')
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

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