list.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: [e-mail],[e-mail]
' 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
%>