📄 sysshow.asp
字号:
<%
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"> </td>
</tr>
<tr bgcolor="#FF6633">
<td class="2p"> </td>
</tr>
<tr>
<td class="4p"> </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 " "
end if
%>
</div>
</td>
<td colspan="4"> <%=rs("pickmemo")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="4p"> </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"> </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"> </td>
</tr>
<tr bgcolor="#FF6633">
<td class="2p"> </td>
</tr>
<tr>
<td class="4p"> </td>
</tr>
<tr bgcolor="#FF6633">
<td bgcolor="#003366">
<div align="center">
<p> </p>
<p><font color="#FFCC00">对不起，数据在处理中发生错误，请重试！</font></p>
<p> </p>
</div>
</td>
</tr>
<tr>
<td class="4p"> </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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -