📄 rework.asp
字号:
</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="232" height="30">
<div align="center">链接网址</div></td>
<td height="30"> <font size="2">
<input type="text" name="pickurl" size="50" value="<%=rs("pickurl")%>" maxlength="200" class=an>
</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="232" height="30">
<div align="center">网站缩图</div></td>
<td height="30"> <font size="2">
<input name="pickimg" type="text" id="pickimg" onClick="alert('注意：贵站缩图大小为 120×90 像素，可别丢了印象分哦！;" value="<%=rs("pickimg")%>" size="50" maxlength="100" class=an>
</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="232" height="30">
<div align="center">网站类型</div></td>
<td height="30"> <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></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="232" height="78">
<div align="center">网站说明</div></td>
<td height="78"> <font size="2">
<textarea name="pickmemo" cols="50" rows="3" wrap="VIRTUAL"><%=rs("pickmemo")%></textarea>
</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="40">
<p>站长看法</p>
<p>（请谈谈您对中国网络各方面的看法，</p>
<p>100字以内，可别丢了印象分哦！）</p></td>
<td height="40"><font size="2">
<textarea name="usermemo" cols="50" rows="3" wrap="VIRTUAL" id="usermemo"><%=rs("usermemo")%></textarea>
</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="232" height="80">
<div align="center">联盟代码<br>
*不可修改</div></td>
<td height="80"> <font size="2">
<textarea name="textfield" cols="50" rows="4" wrap="VIRTUAL" readonly="true"><%
response.write ("<!-- 媒体中国(设计联盟) -->")
response.write ("<script src='http://"&sername&left(scrname,len(scrname)-10)&"list.asp?id="&rs("pickid")&"'></script>")
response.write ("<!-- 媒体中国(设计联盟) -->")%></textarea>
</font></td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" colspan="2">
<div align="center">
<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" class="b" value="返回" onClick="javascript:location.href='index.asp'" style='font:10pt Arial; color:#ffffff;border:0 solid darkblue;cursor:hand;background:#660033'>
<%response.write ("<input type='hidden' name='modiid' value='"&rs("pickid")&"'>")%>
</div></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<br> </td>
</tr>
</table>
</div></td>
<td width="1" valign="top" bgcolor="#000000"> </td>
<td width="174" valign="top"><table width="100%" border="0" cellspacing="0">
<tr>
<td><img src="images/pi11.gif" width="174" height="20"></td>
</tr>
<tr>
<td><div align="right">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><p align="left">
<%
set rs=createobject("adodb.recordset")
'rs.open "select pickid,picksite,pickvisitor from zkpick where pickgrade=1 order by pickid desc",conn
rs.open "select pickid,picksite,pickvisitor from zkpick order by pickid desc",conn
for i=1 to 5 step 1
response.write (" :: <a href='show.asp?id="&rs("pickid")&"'>"&rs("picksite")&"</a> <font color=#000000>"&rs("pickvisitor")&"℃</font>")
%>
</p>
<p align="left">
<%
rs.movenext
if rs.eof then exit for
next
rs.close
set rs=nothing
%>
</p></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td><div align="right"><a href="grade.asp">[更多站点...]<br>
<br>
</a> </div></td>
</tr>
<tr>
<td><img src="images/pi12.gif" width="174" height="20"></td>
</tr>
<tr>
<td><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><p align="left">
<%
strSql="select pickid,picksite,pickvisitor from zkpick "
strSql=strSql&" order by pickvisitor desc,pickvote desc,pickid asc"
set rs=createobject("adodb.recordset")
rs.open strSql,conn
for i=1 to 5 step 1
response.write (" :: <a href='show.asp?id="&rs("pickid")&"'>"&rs("picksite")&"</a> <font color=#000000>"&rs("pickvisitor")&"℃</font>")
%>
</p>
<p align="left">
<%
rs.movenext
if rs.eof then exit for
next
rs.close
set rs=nothing
%>
</p></td>
</tr>
</table></td>
</tr>
<tr>
<td><div align="right"><a href="gtop.asp">[更多站点...]<br>
<br>
</a></div></td>
</tr>
<tr>
<td><img src="images/pi14.gif" width="174" height="20"></td>
</tr>
<tr>
<td><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><p align="left">
<%
set rs=createobject("adodb.recordset")
rs.open "select pickid,picksite,pickvisitor from zkpick where pickgrade=1 order by pickid desc",conn
for i=1 to 5 step 1
response.write (" :: <a href='show.asp?id="&rs("pickid")&"'>"&rs("picksite")&"</a> <font color=#000000>"&rs("pickvisitor")&"℃</font>")
%>
</p>
<p align="left">
<%
rs.movenext
if rs.eof then exit for
next
rs.close
set rs=nothing
%>
</p></td>
</tr>
</table></td>
</tr>
<tr>
<td><div align="right"><a href="grade.asp?gd=1">[更多站点...]<br>
<br>
</a></div></td>
</tr>
<tr>
<td><img src="images/pi16.gif" width="174" height="20"></td>
</tr>
<tr>
<td align="center" valign="middle"> <div align="center"><a href="login.asp"><font color="#FF9900"> <font color="#000000"><a href="join.asp">
<font color="#993300">申请加盟</font></a> 用户登录</font></font></a> <font color="#000000"><a href="news.asp">发布新闻</a>
</font> </div></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><img src="images/pi13.gif" width="174" height="20"></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><a href="mailto:webmaster@3niao.com">联系我们成为合作伙伴</a></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<!--#include file=eof.asp-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -