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

📄 list.asp

📁 三鸟个人网站源码。
💻 ASP
字号:
🔍 
<!--#include file="dbinc/dbpath.asp" -->

<%
siteid=CLng(request.querystring("id"))
sername=request.ServerVariables("server_name")
scrname=request.ServerVariables("script_name")
scrname=left(scrname,len(scrname)-8)

set rs=server.createobject("adodb.recordset")
rs.open "Select * from zkpick where zkpick.pickid="&siteid,conn,1,3
if not (rs.bof and rs.eof) then
  linkpath="http://"&sername&scrname&"show.asp?id="&rs("pickid")
  iconpath="http://"&sername&scrname&"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 7: typestr="体育生活"
    case 8: typestr="程序设计"
    case 9: typestr="商贸金融"
    case 10: typestr="科技咨讯"
    case 11: typestr="社会公益"
    case 12: typestr="另类其它"
    case else: typestr="电脑网络"
  end select
  
    
  diyustr=rs("pickdiyu")
  select case diyustr
    case 1: diyustr="海口"
    case 2: diyustr="琼山"
    case 3: diyustr="澄迈"
    case 4: diyustr="临高"
    case 5: diyustr="儋州"
	case 6: diyustr="琼海"
    case 7: diyustr="定安"
    case 8: diyustr="万宁"
    case 9: diyustr="屯昌"
    case 10: diyustr="文昌"
	case 11: diyustr="昌江"
    case 12: diyustr="东方"
    case 13: diyustr="三亚"
    case 14: diyustr="陵水"
    case 15: diyustr="保亭"
	case 16: diyustr="琼中"
    case 17: diyustr="白沙"
    case 18: diyustr="乐东"
    case 19: diyustr="五指山"
    case 20: diyustr="其它"
    case else: diyustr="海口"
  end select

  altstr="&#13&#10  〓 3鸟设社网站评测 〓  "
  
  altstr=altstr&"&#13&#10  网聚海南的网络力量"
  altstr=altstr&"&#13&#10 "
  altstr=altstr&"&#13&#10  网站编号："&rs("pickid")
  altstr=altstr&"&#13&#10  网站得票："&rs("pickvote")
  altstr=altstr&"&#13&#10  浏览人数："&(rs("pickvisitor")+1)
  
  altstr=altstr&"&#13&#10  网长大名："&rs("pickname")&"  "
  altstr=altstr&"&#13&#10  网站地域：海南"&diyustr
  altstr=altstr&"&#13&#10  网站名称："&rs("picksite")&"  "
  altstr=altstr&"&#13&#10  网站类型："&typestr
  altstr=altstr&"&#13&#10"
%>
document.write ('<a href="<%=linkpath%>" target="_blank"><font color="#cc3366">系统升级，请尽快登录更新代码</font></a>') 
<%
  rs("pickvisitor")=rs("pickvisitor")+1
  rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

<html><script language="JavaScript"></script></html>

⌨️ 快捷键说明

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