📄 addurl.asp
字号:
<!--#include file="config.asp"-->
<html>
<head>
<title><%=webtitle%> -> 网址登录</title>
<meta name="description" content="<%=webdescription%>">
<meta name="keywords" content="<%=webkeywords%>"><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="shortcut icon" href="favicon.ico">
<link rel="Bookmark" href="favicon.ico">
<link href='int/index.css' rel='stylesheet' type='text/css'>
</head>
<script language=jascript>
function formCheck()
{
if (document.form1.web.value == "")
{
alert("请填写站点名称!")
document.form1.web.focus()
return false
}
if (document.form1.web.value.length>8)
{
alert("站点简介不能超过8个汉字!")
document.form1.txtcontent.focus()
return false
}
if (document.form1.url.value == "")
{
alert("请填写站点地址!")
document.form1.url.focus()
return false
}
if (document.form1.url.value == "http://")
{
alert("请填写正确的站点地址!")
document.form1.url.focus()
return false
}
if (document.form1.txtcontent.value == "")
{
alert("请填写站点简介!")
document.form1.txtcontent.focus()
return false
}
if (document.form1.txtcontent.value.length>30)
{
alert("站点简介不能超过30个汉字!")
document.form1.txtcontent.focus()
return false
}
return true
}
</script>
</head>
<body topmargin="0" leftmargin="0">
<TABLE cellSpacing=0 cellPadding=0 width=773 border=0 align="center">
<TBODY>
<TR>
<TD width=180 height="60"><a href="<%=weburl%>"><img src="<%=weblogo2%>" border=0></img></a></TD>
<TD><iframe id="baiduframe" border="0" vspace="0" hspace="0" marginwidth="0" marginheight="0"
framespacing="0" frameborder="0" scrolling="no" width="510" height="60"
src="http://unstat.baidu.com/bdun.bsc?tn=xs20&cv=1&cid=61150&csid=&rkcs=16&bgcr=FFFFFF&ftcr=000000&rk=1&bd=0&tbsz=14&tbst=1&sropls=1,4,6,2&wd=510&ht=60&kwnm=6&kwgp=1&sropst=2&bdas=0">
</iframe></TD>
<TD width=81>
<TABLE height=57 cellSpacing=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=right width="100%" height=22><A onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=weburl%>');"
href="#"><FONT color=#008000>[ 设为首页
]</FONT></A></TD></TR>
<TR>
<TD align=right width="100%"><A title=将本站添加到您的收藏夹
onclick="javascript:window.external.AddFavorite('<%=weburl%>','<%=webtitle%>')"
href="#"
;><FONT
color=#800080>[ 加入收藏 ]</FONT></A></TD></TR>
<TR>
<TD vAlign=bottom align=right width="100%"><A href="mailto:<%=webemail%>">[ 联系我们 ]</A></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE style="MARGIN-TOP: 3px" height=28 cellSpacing=4 cellPadding=0 width=773
background=images/bg_qyxc.gif border=0 align="center">
<TBODY>
<TR>
<TD align="center">| <%
set rs_u=server.createobject("adodb.recordset")
sql_u="select title,url from happywz_URL where space=5 order by id"
rs_u.open sql_u,conn,1,1
while not rs_u.eof
%><a class='Channel' href='<%=rs_u("url")%>'><%=rs_u("title")%></a> | <%rs_u.movenext
wend
rs_u.close
set rs_u=nothing%></TD></TR></TBODY></TABLE>
<%if webupopen=false then
Response.Write "<div align=center><br><br>目前不开放自助登录网址，请用信箱登录!<br>"
Response.Write webtitle
Response.Write "信箱:"
Response.Write webemail
Response.Write "<br>加入网站,请先加入本站的链接"
Response.Write "<br>由于信件太多,有些信件可能会丢失,或者未能回复.请谅.<br><br></div>>"
else%>
<TABLE width=760 bgColor=#ffffff border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=5></TD>
<TD align="center" vAlign=top
width=740><table class=td1111 border="0" width="744" cellspacing="0" cellpadding="0" align="center" bgcolor="#ffffff">
<tr align="center">
<td height=30 colspan="2"><b><font color=#ff0000>登录本站的步骤</font></b> </td>
</tr>
<tr>
<td width="49%" height="315"><table class=td1111 width="96%" border=0 align="center" cellpadding=5 cellspacing=1>
<tbody>
<tr>
<td class=main_title><span class="style1">一、先决条件</span></td>
</tr>
<tr>
<td bgcolor=#ffffff>提交前必须你登陆网站首页明显处做上本站连接，代码如下：<br>
<textarea name=textfield cols=43 rows="4"><a href="<%=weburl%>" target="_blank"><img src="<%=weblogo%>"></a></textarea> </td>
</tr>
<tr>
<td class=main_title><span class="style1">二、本站服务条款</span></td>
</tr>
<tr>
<td align=middle bgcolor=#ffffff><textarea name=textfield2 rows=8 cols=43>1. [<%=webtitle%>]不收录有反动、色情、赌博等不良内容或提供不良内容链接的网站，以及网站名称或内容违反国家有关法规的网站，如您的网站有上述内容或链接，请您不要登录；
2. 有些提供主页空间的网站含有色情等不良内容的广告(包括弹出窗口)或链接，[<%=webtitle%>]不收录此类主页空间下的网站。如果您的主页使用的恰好是此类主页空间，您可以更换主页空间之后再来登陆；
3. [<%=webtitle%>]收录的网站必须有一定有益内容，如您的网站正在建设中，尚无完整内容，请不必现在登录，欢迎您在网站建设完成后再来[<%=webtitle%>]网址登录；
4. [<%=webtitle%>]保留是否收录您的网站的权力以及在<%=webtitle%>数据库中的相关内容的编辑决定权；
5. [<%=webtitle%>]对挂靠别人的网站下的网站(即没有自己单独域名的网站)，本站将不予收录。 </textarea> </td>
</tr>
</tbody>
</table></td>
<td align="center" width="51%" valign="top"><table class=td1111 width="96%" border="0" align="center" cellpadding="5" cellspacing="1">
<form method="POST" action="addurlsave.asp" name="form1" onSubmit="return formCheck();">
<tr>
<td colspan=2 class=main_title><span class="style1">三、填写贵站相关资料</span></td>
</tr>
<tr>
<td colspan=2 height="6"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" class="tdbg" height="30"><b>网站分类：</b></td>
<td width="77%" height="30" class="tdbg"><select name="sort">
<%
sql="select * from happywz_SORT order by bigid,orders"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("sort")%>"<%if Request.QueryString("sort")<>"" and Request.QueryString("sort")=rs("sort") then%>selected<%end if%>>
<%if rs("sortstep")>0 then
for i=1 to rs("sortstep")%>
→
<%next
end if%>
<%=rs("sort")%></option>
<%
rs.movenext
loop
rs.Close()
set rs=nothing
%>
</select>
<font color="#FF0000">必填</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" height="30" class="tdbg"><b>网站名称：</b></td>
<td width="77%" height="30" class="tdbg"><input type="text" name="web" size="18" maxlength="20" value="">
<font color="#FF0000">必填</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" height="30" class="tdbg"><b>网站地址：</b></td>
<td width="77%" height="30" class="tdbg"><input type="text" name="url" size="18" maxlength="60" value="http://">
<font color="#FF0000">必填</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" height="30" ><b>电子邮件：</b></td>
<td width="77%"><input type="text" name="mail" size="18" value="">
<font color="#FF0000">必填</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" valign="top" class="tdbg"><b>网站简介：</b></td>
<td width="77%" class="tdbg"> **[不要超过30个汉字]<font color="#FF0000">必填</font><br>
<textarea rows="5" name="txtcontent" cols="30" type="text"></textarea> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" class="tdbg" align="center"><input type="submit" value="提交" name="cmdok" >
<input type="reset" value="重置" name="cmdcancel"></td>
</tr>
</form>
</table></td>
</tr>
</table></TD>
<TD width=1></TD>
</TR>
<TR>
<TD colSpan=3></TD>
</TR>
</TBODY>
</TABLE>
<%end if%>
</td>
</tr>
</table></td>
</tr>
</table>
</td>
<td width=5></td>
</tr>
</table>
<table height=5 cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff border=0>
<tr>
<td><IMG height=5 border=0></td>
</tr>
</table>
<table height=5 cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff border=0>
<tr>
<td><IMG height=5 border=0></td>
</tr>
</table>
<table cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<tr>
<td class=bottom align=middle><table cellSpacing=0 cellPadding=0 width=560 align=center border=0>
<tr vAlign=bottom>
<td vAlign=center align=middle><%=webstat%></td>
</tr>
<tr vAlign=bottom>
<td align=middle height=3></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -