📄 link.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/inc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=SiteName%>-友情链接</title>
<link href="index.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.STYLE1 {
color: #3A82C4;
font-weight: bold;
}
.STYLE2 {color: #FF0000}
-->
</style>
</head>
<body>
<!--#include file="top.asp"-->
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td height="4" colspan="2" background="images/index_11.gif"></td>
</tr>
<tr>
<td width="200" align="center" valign="top">
<table width="200" border="0" cellpadding="0" cellspacing="0" bgcolor="#EEFFFF">
<tr>
<td height="20" align="left" background="images/Lv2/adminbg2.gif"> ※ 申请友情链接协议...</td>
</tr>
<tr>
<td height="20" align="left"> 1,请将本站加入贵站友情链接本站管理员确认后通过审核。</td>
</tr>
<tr>
<td height="20" align="left"> 2,本站对所申请的链接保留处置权。</td>
</tr>
<tr>
<td height="20" align="left"> 3,请勿将含有违法、反动内容的网站加入链接。</td>
</tr>
<tr>
<td height="20" align="left"> 4.图标的大小一律为88*31。</td>
</tr>
<tr>
<td height="20" align="left" background="images/Lv2/adminbg2.gif"> ※ 本站资料...</td>
</tr>
<tr>
<td height="20" align="center"><p><span class="STYLE1">蓝焰设计站 </span><img src="images/logo.gif" width="81" height="33" /> </p></td>
</tr>
<tr>
<td height="20" align="left">
logo:
<input name="textfield" type="text" class="wubian" value="http://www.designz.cn/images/logo.gif" size="24" /></td>
</tr>
<tr>
<td height="20" align="left"> 网址:
<input name="textfield2" type="text" class="wubian" value="http://www.designz.cn" size="24" /></td>
</tr>
<tr>
<td height="20" align="left"> 简介:
<textarea name="textfield22" cols="26" rows="3" class="wubian">设计最新潮流,平面,网页,3维,动画,设计联盟,企业找设计...</textarea></td>
</tr>
<tr>
<td height="20" align="left" background="images/Lv2/adminbg2.gif"> ※ 填表申请友情链接...</td>
</tr>
<% if request("submit")<>"" then
webname=trim(HTMLEncode(request.form("webname")))
url=trim(HTMLEncode(request.form("url")))
adminname=trim(HTMLEncode(request.form("adminname")))
logo=trim(HTMLEncode(request.form("logo")))
content=trim(HTMLEncode(request.form("content")))
if logo="" then
logo="null"
end if
if webName ="" or url="" then
Response.Write "<tr><td><script language=javascript>{window.alert('网站名称和链接地址不能为空,请返回');window.location.href='javascript:history.go(-1)';}</script></td></tr>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from link where url='"&url&"'"
rs.open sql,cn,3,3
if not (rs.eof and rs.eof) then
Response.Write "<tr><td><script language=javascript>{window.alert('此网站已申请过,请返回!');window.location.href='javascript:history.go(-1)';}</script></td></tr>"
else
rs.addnew
rs("webname")=webname
rs("url")=url
rs("adminname")=adminname
rs("logo")=logo
rs("content")=content
rs.update
response.write "<tr><td>"&webname&"<br/>"&url&"</td></tr>"
if logo<>"null" then
response.write "<tr><td><img width='88' height='31' border='0' src='"&logo&"'/></td></tr>"
end if
response.write "<tr><td>申请成功!</td></tr>"
set rs=nothing
end if end if
else%>
<form id="form1" name="form1" method="post" action="link.asp">
<tr>
<td height="20" align="left"> 站名:
<input name="webname" type="text" class="wubian" id="webname" size="24" /></td>
</tr>
<tr>
<td height="20" align="left"> 网址:
<input name="url" type="text" class="wubian" id="url" size="24" /></td>
</tr>
<tr>
<td height="20" align="left"> 站长名称:
<input name="adminname" type="text" class="wubian" id="adminname" size="19" /></td>
</tr>
<tr>
<td height="20" align="left"> logo:地址: (<span class="STYLE2">文字链接的请保留"null"</span>) </td>
</tr>
<tr>
<td height="20" align="left">
<input name="logo" type="text" class="wubian" id="logo" value="null" size="29" /></td>
</tr>
<tr>
<td height="20" align="left"> 简介:
<textarea name="content" cols="26" rows="3" class="wubian" id="content"></textarea></td>
</tr>
<tr>
<td height="20" align="center">
<label>
<input name="Submit" type="submit" class="wubian" value="确定申请" />
</label>
<label>
<input name="Submit2" type="reset" class="wubian" value="重 写" />
</label> </td>
</tr>
<tr>
<td height="20" align="left"> </td>
</tr>
<tr>
<td height="20" align="left"> </td>
</tr></form>
<%end if%>
</table></td>
<td width="580" align="center" valign="top"><table width="580" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td height="20" align="left"> ※ logo友情链接...</td>
</tr>
<tr>
<td width="580"><table border="1" bordercolor="#CCCCCC" >
<%sql="select * from link where logo<>'null' and pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
do while not rs.eof
Response.Write "<tr>"
Response.Write "<td width='90' height='40'><a href='"&rs("url")&"' target='_blank'> <img border='0' src='"&rs("logo")&"' width='88' height='31' alt='"&rs("webname")&" ----"&rs("content")&" '/></a></td>"
rs.movenext
if rs.eof then exit do
Response.Write "<td width='90' height='40'><a href='"&rs("url")&"' target='_blank'> <img border='0' src='"&rs("logo")&"' width='88' height='31' alt='"&rs("webname")&" ----"&rs("content")&" '/></a></td>"
rs.movenext
if rs.eof then exit do
Response.Write "<td width='90' height='40'><a href='"&rs("url")&"' target='_blank'> <img border='0' src='"&rs("logo")&"' width='88' height='31' alt='"&rs("webname")&" ----"&rs("content")&" '/></a></td>"
rs.movenext
if rs.eof then exit do
Response.Write "<td width='90' height='40'><a href='"&rs("url")&"' target='_blank'> <img border='0' src='"&rs("logo")&"' width='88' height='31' alt='"&rs("webname")&" ----"&rs("content")&" '/></a></td>"
rs.movenext
if rs.eof then exit do
Response.Write "<td width='90' height='40'><a href='"&rs("url")&"' target='_blank'> <img border='0' src='"&rs("logo")&"' width='88' height='31' alt='"&rs("webname")&" ----"&rs("content")&" '/></a></td>"
rs.movenext
if rs.eof then exit do
Response.Write "<td width='90' height='40'><a href='"&rs("url")&"' target='_blank'> <img border='0' src='"&rs("logo")&"' width='88' height='31' alt='"&rs("webname")&" ----"&rs("content")&" '/></a></td>"
Response.Write "</tr>"
rs.movenext
loop
rs.close
set rs=nothing%> </table></td>
</tr>
<tr>
<td height="20" align="left"> ※ 文字友情链接...</td>
</tr>
<tr>
<td align="left"><table border="1" bordercolor="#CCCCCC" >
<%sql="select * from link where logo='null' and pass=true order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,cn,1,1
do while not rs.eof
Response.Write "<tr>"
Response.Write "<td width='90' height='20' align='center'><a href='"&rs("url")&"' target='_blank' title='"&rs("webname")&" ----"&rs("content")&" '> "&rs("webname")&"</a></td>"
rs.movenext
if rs.eof then exit do
Response.Write "<td width='90' height='20' align='center'><a href='"&rs("url")&"' target='_blank' target='_blank' title='"&rs("webname")&" ----"&rs("content")&" '> "&rs("webname")&"</a></td>"
rs.movenext
if rs.eof then exit do
Response.Write "<td width='90' height='20' align='center'><a href='"&rs("url")&"' target='_blank' target='_blank' title='"&rs("webname")&" ----"&rs("content")&" '> "&rs("webname")&"</a></td>"
rs.movenext
if rs.eof then exit do
Response.Write "<td width='90' height='20' align='center'><a href='"&rs("url")&"' target='_blank' target='_blank' title='"&rs("webname")&" ----"&rs("content")&" '> "&rs("webname")&"</a></td>"
rs.movenext
if rs.eof then exit do
Response.Write "<td width='90' height='20' align='center'><a href='"&rs("url")&"' target='_blank' target='_blank' title='"&rs("webname")&" ----"&rs("content")&" '> "&rs("webname")&"</a></td>"
rs.movenext
if rs.eof then exit do
Response.Write "<td width='90' height='20' align='center'><a href='"&rs("url")&"' target='_blank' target='_blank' title='"&rs("webname")&" ----"&rs("content")&" '> "&rs("webname")&"</a></td>"
Response.Write "</tr>"
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -