📄 friends.asp
字号:
<!-- #include file="conn.asp" -->
<%
if request("gn")="update" then
F_name=request("F_name")
F_addres=request("F_addres")
F_logo=request("F_logo")
F_readme=request("F_readme")
set rs=server.CreateObject("adodb.recordset")
sql="select * from friends"
rs.open sql,conn,1,3
rs.addnew
rs("F_name")=F_name
rs("F_addres")=F_addres
rs("F_logo")=F_logo
rs("F_readme")=F_readme
rs.update
Response.Write"<script language=JavaScript>"
Response.Write"alert(""恭喜！添加成功！请耐心等待管理员审核，并尽快做好本站的LOGO连接！"");"
Response.Write"window.location='friends.asp?gn=more'"
Response.Write"</script>"
end if
%>
<%
sql2="select * from counst"
set rs2=conn.execute(sql2)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% =rs2("W_name") %></title>
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT language="javascript">
<!--
function del_space(s)
{
for(i=0;i<s.length;++i)
{
if(s.charAt(i)!=" ")
break;
}
for(j=s.length-1;j>=0;--j)
{
if(s.charAt(j)!=" ")
break;
}
return s.substring(i,++j);
}
function VerifySubmit()
{
F_name = del_space(document.all("F_name").value);
if (F_name.length == 0)
{
alert("网站名称不能为空");
return false;
}
F_addres = del_space(document.all("F_addres").value);
if (F_addres=="http://")
{
alert("网站地址不能为空");
return false;
}
F_logo = del_space(document.all("F_logo").value);
if (F_logo=="http://")
{
alert("LOGO地址不能为空");
return false;
}
F_readme = del_space(document.all("F_readme").value);
if (F_readme.length == 0)
{
alert("网站简介不能为空");
return false;
}
return true;
}
//-->
</SCRIPT>
<body>
<table width="70%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="57%" valign="top"><font color="#3366CC">连接要求：</font><br>
贵站必须内容健康，不含恶意代码；<br>
制作不能太粗糙，完成度要在90％以上；<br>
不可以有明显的抄袭他人站点的痕迹。
<p>申请加入本站连接后，本站将在三日内对申请交换的站点进行验证，如果符合要求，连接即开始生效，生效后，请贵站及时做好本站的LOGO连接，如在三日内未做好者，我们将删除您在本站的连接！</p></td>
<td width="43%" align="right" valign="top"> <div align="center"> <font color="#3366CC">本站LOGO：</font><br>
<br>
<img name="LOGO" src="<% =rs2("W_logo") %>" width="88" height="31" alt=""> <br>
<br>
<font color="#3366CC">本站连接代码：</font><br>
<br>
<form name="form1" method="post" action="">
<textarea name="textarea"><a href=http://www.wzwxw.com target=_blank><img src=http://bbs.wzwxw.com/images/weblogo.GIF border=1 alt="常州维修网"></a></textarea>
</form>
</div></td>
</tr>
</table>
<% if request("gn")<>"more" then %>
<table style="border:1px dotted #666666" width=70% cellspacing=0 cellpadding=0 bgcolor=#999999 align=center border="0">
<tr bgcolor=#ffffff>
<td align=center><br> <b>填 写 网 站 信 息</b><br>
<form name="regform" onSubmit="return VerifySubmit()" method="post" action="friends.asp?gn=update">
<table align=center width=90% height=100% border=0 cellspacing=0 cellpadding=5 bgcolor=#666666>
<tr bgcolor=#ffffff>
<td width=100 nowrap>网站名称 :
<td> <input name=F_name id="F_name" style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" size=20 maxlength=14>
*
<tr bgcolor=#ffffff>
<td width=100 nowrap>网站地址 :
<td> <input name=F_addres id="F_addres" style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" value="http://" size=40 maxlength=50>
*
<tr bgcolor=#ffffff>
<td nowrap>LOGO地址 :
<td><input name=F_logo id="F_logo" style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" value="http://" size=40 maxlength=255>
*
<tr bgcolor=#ffffff>
<td width=100 nowrap>网站说明 :
<td> <input name=F_readme id="F_readme" style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" value="" size=50 maxlength=255>
*
<tr bgcolor=#ffffff>
<td colspan=2 align=center>
<tr bgcolor=#ffffff>
<td colspan=2 align=center> <input type=submit value="确 定 添 加" style="background:#ffffff;border:0px dotted #666666" name="submit">
</table>
<p> </form>
</table>
<% else
response.Write""
end if
%>
<br>
<% if request("gn")="more" then %>
<table cellspacing=0 cellpadding=0 border=0 align="center" width="75%">
<tbody>
<tr>
<td width=10 height=38><img height=38
src="images/left_001.gif" width=10 border=0></td>
<td align=left background=images/center_01.gif
height=38><img height=38 src="images/F_001.jpg"
width=56 border=0></td>
<td width=13 height=38><img height=38
src="images/right_01.gif" width=13 border=0></td>
</tr>
<tr>
<td width=10 background=images/left_002.gif><img height=8
src="images/left_002.gif" width=10 border=0></td>
<td align=middle bgcolor=#ffffff><table width="92%" border="0" cellspacing="0" cellpadding="5" align="center" bgcolor="#FFFFFF">
<% dim e
Set rsM=Server.Createobject("ADODB.Recordset")
rsMSrt="Select * From friends where F_pass='1' order by id desc"
rsM.Open rsMSrt,Conn,1,3
%>
<tr>
<%
e=0
while not rsM.eof
%>
<TD align=middle><a href="<% =rsM("F_addres") %>" target="_blank"><img src="<% =rsM("F_logo")%>" alt="网站名称：<% =rsM("F_name") %><br>网站介绍：<% =rsM("F_readme") %><br>加入日期：<% =rsM("date") %>" name="M" width="88" height="31" border="0"></a></td>
<%
e=e+1
if e=5 then
e=0
%>
</tr>
<%
end if
rsM.movenext
wend
%>
</table></td>
<td width=13 background=images/right_02.gif><img
height=1 src="images/right_02.gif" width=13
border=0></td>
</tr>
<tr>
<td width=10 height=14><img height=14
src="images/left_003.gif" width=10 border=0></td>
<td background=images/center_03.gif height=14><img
height=14 src="images/center_03.gif" width=1
border=0></td>
<td width=13 height=14><img height=14
src="images/right_03.gif" width=13
border=0></td>
</tr>
</tbody>
</table>
<% else
response.Write""
end if %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -