📄 adminshow.asp
字号:
<!--#include file="dbinc/dbpath.asp" -->
<%
response.expires=0
if session("zkpicksysuser")="" then
response.redirect "syslist.asp"
response.end
end if
%>
<html>
<head>
<title>[媒体中国(设计联盟)]====[http://www.3niao.com/pick/]=============</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="link.css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body bgcolor="#CCCCCC">
<!--#include file="bof.asp" -->
<TABLE WIDTH=778 height="400" BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0 bgcolor="#CCCCCC">
<TR>
<TD width="714" rowspan="2" valign="middle"> <div align="left"> <br>
<%
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="700" height="492" border="0" align="center">
<tr>
<td width="700" height="488" align="center" valign="middle" bgcolor="f4f4f4">
<p> </p>
<p> </p>
<table width="680" height="47%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="f4f4f4" bgcolor="#CCCCCC" class="9p">
<tr>
<td height="18" bgcolor="#FFFFFF"> <div align="center"><font color="#cc0011"><strong>叁鸟设社(中国)联
盟 -- 网 站 鉴 定</strong></font></div></td>
</tr>
<tr>
<td height="350" valign="middle" bgcolor="#FFFFFF"> <div align="left">
<%
siteid=CLng(request.querystring("id"))
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
%>
<table width="100%" height="379" border="1" cellpadding="0" cellspacing="0" bordercolor="f4f4f4">
<tr>
<td width="42%" valign="middle"> <table width="120" border="1" bordercolor="#FFFFFF" bgcolor="f4f4f4">
<tr>
<td width="120" height="60" valign="middle">
<%
if (rs("pickimg")<>" ") and (rs("pickimg")<>"http://") then
response.write ("<a href='"&rs("pickurl")&"' target='_blank'><img src='"&rs("pickimg")&"' border='0' width='120' height='90' ></a>")
else
response.write " "
end if
%>
</td>
</tr>
</table>
<p>网站缩略图<font size="2">（无法显示请输入）：</font></p>
<p>http://www.3niao.com/pick/images/ipwc.gif</p>
<p><font size="2">
<input name="pickimg" type="text" id="pickimg" value="<%=rs("pickimg")%>" size="50" maxlength="100" class="a">
</font><a href="#" onClick="MM_openBrWindow('image_upload.asp','','width=400,height=50')"><font color="#999999"><br>
上传图片</font></a> </p></td>
<td width="58%" height="100" valign="middle"> <div align="left">
<p>网站名称：<%=rs("picksite")%></p>
<p>荣誉等级：
<%
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
response.write gradestr
%>
</p>
<p>加盟时间：<%=rs("pickdate")%> </p>
<p>网站热度：<font color="#FF0000"><%=rs("pickvisitor")%>℃</font></p>
<p>网站得分：
<% =rs("pickvote") %>
分，共
<% votecount=rs("votecount")
Response.Write(votecount)
%>
人参与投票 ，平均得分
<%if votecount=0 then
votecount=votecount+1
pcount=rs("pickvote") /votecount
Response.Write(pcount)
end if%>
</p>
<p>网站简介：属于<font size="2">
<select name="picktype" class="smallsel">
<%
for i=1 to 6
dim typestr
select case i
case 1: typestr="个性突破"
case 2: typestr="艺术设计"
case 3: typestr="建站资源"
case 4: typestr="商业咨讯"
case 5: typestr="娱乐生活"
case 6: typestr="另类其他"
case else: typestr="另类其他"
end select
if rs("picktype")=i then
response.write ("<option value='"&i&"' selected>"&typestr&"</option>")
else
response.write ("<option value='"&i&"'>"&typestr&"</option>")
end if
next
%>
</select>
</font> 类网站，<%=rs("pickmemo")%></p>
<p>站长的话：<%=rs("usermemo")%>——
<%response.write ("<a href='mailto:"&rs("pickemail")&"' target='_blank'>"&rs("pickuser")&"</a>")%>
</p>
</div></td>
</tr>
<tr>
<td height="80" colspan="2" valign="middle"> <div align="left">
<p> </p>
</div>
<div align="left">
<p><font color="#FF9900">评委意见</font>： <font size="2">
<textarea name="adminmemo" cols="50" rows="3" wrap="VIRTUAL"><%=rs("adminmemo")%></textarea>
(100字) </font></p>
<p> <%=rs("adminmemo")%></p>
</div></td>
</tr>
<tr>
<td height="80" colspan="2"> <div align="left">
<div align="left">
<p> </p>
</div>
</div>
<table width="500" border="0" cellspacing="1" cellpadding="0" bordercolorlight="#FF6633" bordercolordark="#FFFFFF" class="9p" bgcolor="f4f4f4">
<tr bgcolor="f4f4f4">
<td height="18"> <div align="center"><font size="2">网站鉴定</font></div></td>
<td height="18"> <div align="center"><font size="2">内容</font></div></td>
<td height="18"> <div align="center"><font size="2">排版</font></div></td>
<td height="18"> <div align="center"><font size="2">美工</font></div></td>
<td height="18"> <div align="center"><font size="2">速度</font></div></td>
<td height="18"> <div align="center"><font size="2">创意</font></div></td>
<td height="18"> <div align="center"><font size="2">总评</font></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22"> <div align="center"> <font size="2">
<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>
</font></div></td>
<td height="22"> <div align="center"> <font size="2">
<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>
</font></div></td>
<td height="22"> <div align="center"> <font size="2">
<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>
</font></div></td>
<td height="22"> <div align="center"> <font size="2">
<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>
</font></div></td>
<td height="22"> <div align="center"> <font size="2">
<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>
</font></div></td>
<td height="22"> <div align="center"> <font size="2">
<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>
</font></div></td>
<td height="22"> <div align="center"> <font size="2">
<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>
</font></div></td>
</tr>
</table></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="20" valign="middle" bgcolor="#FFFFFF"> <p align="right">
<input type="submit" name="Submit" value="修改" class="b" style='font:10pt Arial; color:#ffffff;border:0 solid darkblue;cursor:hand;background:#660033'>
<input type="button" name="Submit2" value="关闭" onclick="javascript:window.close()" class="b" style='font:10pt Arial; color:#ffffff;border:0 solid darkblue;cursor:hand;background:#660033'>
<%response.write ("<input type='hidden' name='sysid' value='"&rs("pickid")&"'>")%>
</p></td>
</tr>
</table></td>
</tr>
</table>
<% else %>
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center" class="9p">
<tr bgcolor="#FF6633">
<td bgcolor="f4f4f4"> <div align="center">
<p> </p>
<p>对不起，数据在处理中发生错误，请重试！</p>
<p> </p>
</div></td>
</tr>
</table>
<%
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</form>
</div></TD>
</TR>
<TR> </TR>
</TABLE>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" background="images/bj-foot.gif">
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -