<%
response.expires=0

if session("zkpicksysuser")="" then
  response.redirect "index.asp"
  response.end
end if
%>
<!--#include file="dbinc/dbpath.asp" -->
<html>
<head>
<title>海南个人网站联盟—— 网站鉴定</title>
<link rel="stylesheet" href="link.css">
</head>
<body bgcolor="#FFFFFF" leftmargin="2" topmargin="2" marginwidth="2" marginheight="2">
<%
siteid=CLng(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open "Select * from zkpick where zkpick.pickid="&siteid,conn
if not (rs.bof and rs.eof) then
%>
<form name="sysshowform" method="post" action="sysedit.asp">
  <table width="515" border="0" cellspacing="0" cellpadding="0" align="center" class="9p">
    <tr bgcolor="#FF6633"> 
      <td height="20" bgcolor="#003366"> 
        <div align="center"><font color="#FFFFFF"><b><font color="#FFFF00">海南个人网站联盟—— 
          管理员鉴定</font></b></font></div>  
      </td> 
    </tr> 
    <tr>  
      <td class="2p">&nbsp;</td> 
    </tr> 
    <tr bgcolor="#FF6633">  
      <td class="2p">&nbsp;</td> 
    </tr> 
    <tr>  
      <td class="4p">&nbsp;</td> 
    </tr> 
    <tr>  
      <td>  
        <table width="515" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#9999CC" bordercolordark="#FFFFFF" class="9p">
          <tr bgcolor="#9999CC"> 
            <td height="20" width="144"> 
              <div align="center"><font color="#FFFF00"> 
                <%response.write ("<a href='"&rs("pickurl")&"' target='_blank'><b>"&rs("picksite")&"</b></a>")%>
                </font></div>
            </td>
            <td width="131"> 
              <div align="center"><font color="#FFFFFF">类型： 
                <% 
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 
response.write typestr 
%>
                </font></div>
            </td>
            <td width="79"> 
              <div align="center"><font color="#FFFFFF">地域： 
                <% 
typestr=rs("pickdiyu")   
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 13: typestr="三亚" 
  case 14: typestr="陵水"
  case 15: typestr="保亭" 
  case 16: typestr="琼中" 
  case 17: typestr="白沙" 
  case 18: typestr="乐东"
  case 19: typestr="五指山" 
  case 20: typestr="其它"    
  case else: typestr="海口" 
end select 
response.write typestr 
%>
                </font></div>
            </td>
            <td width="76"> 
              <div align="center"><font color="#FFFFFF">得票：<%=rs("pickvote")%></font></div>
            </td>
            <td width="73"> 
              <div align="center"><font color="#FFFFFF">浏览：<%=rs("pickvisitor")%></font></div>
            </td>
          </tr>
          <tr> 
            <td width="144"> 
              <div align="center"> 
                <% 
if (rs("pickicon")<>" ") and (rs("pickicon")<>"http://") then  
  response.write ("<img src='"&rs("pickicon")&"' width='88' height='31'>") 
else 
  response.write "&nbsp;" 
end if 
%>
              </div>
            </td>
            <td colspan="4">&nbsp;<%=rs("pickmemo")%></td>
          </tr>
        </table> 
      </td> 
    </tr> 
    <tr>  
      <td class="4p">&nbsp;</td> 
    </tr> 
    <tr>  
      <td>  
        <table width="515" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FF6633" bordercolordark="#FFFFFF" class="9p">
          <tr bgcolor="#EDB7D1"> 
            <td> 
              <div align="center"><font color="#FFFFCC">网站鉴定</font></div> 
            </td> 
            <td> 
              <div align="center"><font color="#FFFFCC">内容</font></div> 
            </td> 
            <td> 
              <div align="center"><font color="#FFFFCC">排版</font></div> 
            </td> 
            <td> 
              <div align="center"><font color="#FFFFCC">美工</font></div> 
            </td> 
            <td> 
              <div align="center"><font color="#FFFFCC">速度</font></div> 
            </td> 
            <td> 
              <div align="center"><font color="#FFFFCC">创意</font></div> 
            </td> 
            <td> 
              <div align="center"><font color="#FFFFCC">总评</font></div> 
            </td> 
          </tr> 
          <tr>  
            <td>  
              <div align="center">  
                <select name="sysgrade" class="smallsel"> 
                  <% 
for i=1 to 5 
  select case i 
    case 1: gradestr="加盟网站" 
    case 2: gradestr="认证网站" 
    case 3: gradestr="特色网站" 
    case 4: gradestr="推荐网站" 
    case 5: gradestr="精品网站" 
    case else: gradestr="加盟网站" 
  end select 
  if rs("pickgrade")=i then 
    response.write ("<option value='"&i&"' selected>"&gradestr&"</option>") 
  else 
    response.write ("<option value='"&i&"'>"&gradestr&"</option>") 
  end if 
next 
%>  
                </select> 
              </div> 
            </td> 
            <td>  
              <div align="center">  
                <select name="syscontext" class="smallsel"> 
                  <% 
for i=0 to 10 
  if rs("pickcontext")=i then 
    response.write ("<option value='"&i&"' selected>"&i&"</option>") 
  else 
    response.write ("<option value='"&i&"'>"&i&"</option>") 
  end if 
next 
%>  
                </select> 
              </div> 
            </td> 
            <td>  
              <div align="center">  
                <select name="sysprint" class="smallsel"> 
                  <% 
for i=0 to 10 
  if rs("pickprint")=i then 
    response.write ("<option value='"&i&"' selected>"&i&"</option>") 
  else 
    response.write ("<option value='"&i&"'>"&i&"</option>") 
  end if 
next 
%>  
                </select> 
              </div> 
            </td> 
            <td>  
              <div align="center">  
                <select name="sysart" class="smallsel"> 
                  <% 
for i=0 to 10 
  if rs("pickart")=i then 
    response.write ("<option value='"&i&"' selected>"&i&"</option>") 
  else 
    response.write ("<option value='"&i&"'>"&i&"</option>") 
  end if 
next 
%>  
                </select> 
              </div> 
            </td> 
            <td>  
              <div align="center">  
                <select name="sysfast" class="smallsel"> 
                  <% 
for i=0 to 10 
  if rs("pickfast")=i then 
    response.write ("<option value='"&i&"' selected>"&i&"</option>") 
  else 
    response.write ("<option value='"&i&"'>"&i&"</option>") 
  end if 
next 
%>  
                </select> 
              </div> 
            </td> 
            <td>  
              <div align="center">  
                <select name="sysidea" class="smallsel"> 
                  <% 
for i=0 to 10 
  if rs("pickidea")=i then 
    response.write ("<option value='"&i&"' selected>"&i&"</option>") 
  else 
    response.write ("<option value='"&i&"'>"&i&"</option>") 
  end if 
next 
%>  
                </select> 
              </div> 
            </td> 
            <td>  
              <div align="center">  
                <select name="syscount" class="smallsel"> 
                  <% 
for i=0 to 10 
  if rs("pickcount")=i then 
    response.write ("<option value='"&i&"' selected>"&i&"</option>") 
  else 
    response.write ("<option value='"&i&"'>"&i&"</option>") 
  end if 
next 
%>  
                </select> 
              </div> 
            </td> 
          </tr> 
        </table> 
      </td> 
    </tr> 
    <tr>  
      <td class="4p" height="2">&nbsp; </td> 
    </tr> 
    <tr bgcolor="#FF6633">  
      <td height="40" bgcolor="#003366"> 
        <div align="center"> 
          <input type="submit" name="Submit" value=" 修 改 " class="buttonface"> 
          <input type="button" name="Submit2" value=" 关 闭 " class="buttonface" onclick="javascript:window.close()"> 
          <%response.write ("<input type='hidden' name='sysid' value='"&rs("pickid")&"'>")%> 
        </div> 
      </td> 
    </tr> 
  </table> 
</form> 
<% else %> 
<table width="515" border="0" cellspacing="0" cellpadding="0" align="center" class="9p">
  <tr bgcolor="#FF6633">  
    <td height="20" bgcolor="#003366"> 
      <div align="center"><font color="#FFFFFF"><b>海南个人网站联盟—— 网站鉴定</b></font></div>  
    </td> 
  </tr> 
  <tr>  
    <td class="2p">&nbsp;</td> 
  </tr> 
  <tr bgcolor="#FF6633">  
    <td class="2p">&nbsp;</td> 
  </tr> 
  <tr>  
    <td class="4p">&nbsp;</td> 
  </tr> 
  <tr bgcolor="#FF6633">  
    <td bgcolor="#003366"> 
      <div align="center"> 
        <p>&nbsp;</p> 
        <p><font color="#FFCC00">对不起，数据在处理中发生错误，请重试！</font></p> 
        <p>&nbsp;</p> 
      </div> 
    </td> 
  </tr> 
  <tr>  
    <td class="4p">&nbsp;</td> 
  </tr> 
  <tr bgcolor="#FF6633">  
    <td height="20" bgcolor="#003366"> 
      <div align="center"><font color="#FFFFFF">版权所有： </font><a href="http://hainan.cn.st" target="_blank"><font color="#FFFFFF">海南个人网站联盟</font></a><font color="#FFFFFF"> 
        <!--webbot bot="HTMLMarkup" startspan -->
        <script>var tc_user="ango";var tc_class="1";</script>
        <script src="http://stat.t2t2.com/stat.js"></script>
        <!--webbot  
        bot="HTMLMarkup" endspan -->
        </font></div>
    </td>
  </tr>
  <tr> 
    <td height="20"> 
      <div align="center">　</div>
    </td>
  </tr>
</table>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
