📄 linkcomm.asp
字号:
<%
'==================================
' 乘风网址 v3.1
' 制 作：乘 风
' 开发网站：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:
' 本软件系免费程序,提供给个人免费使用,除保留版权外无其它任何限制。
' 我们为付费版用户提供升级服务和技术支持。
' 在程序首页保留乘风原创程序版权和链接的免费用户我们也提供一些的升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风网址功能：
' 1.同时支持Access和Mssql数据库
' 2.完全生成静态页面，包括每个网址转向页面
' 3.支持修改模板，支持二级栏目
' 4.自带4000多条网址数据，支持系统放在网站子目录
' 乘风其它作品：乘风多用户计数器.net,php,access,MsSql版、乘风电影程序、
' 乘风网站推广系统、乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
' 2006年12月25日
'===================================
%>
<!--#include file="Conn.asp"-->
<!--#include file="QQCF_MyFunction.asp"-->
<%IF Request("Action")="save" Then%>
<%
title=GoBack(ChkStr(Request("title"),1),"请输入网站名称")
ClassID=GoBack(ChkStr(Request("ClassID"),2),"请选择网站分类")
Email=GoBack(ChkStr(Request("Email"),1),"请输入Email地址")
Url=GoBack(ChkStr(Request("Url"),1),"请输入网址")
memo=GoBack(ChkStr(Request("memo"),1),"请输入网站内容")
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * From WWW_QQCF_COM_CFWZ_Class Where ClassID="&ClassID
Rs.Open Sql,Conn,1,1
ClassName=Rs("ClassName")
Content="<b>网址推荐:</b><br>网站名称:"&Server.HTMLEncode(Title)&"<br>"
Content=Content&"网站分类:"&Server.HTMLEncode(ClassName)&"<br>"
Content=Content&"Email:"&Server.HTMLEncode(Email)&"<br>"
Content=Content&"网站网址:"&Server.HTMLEncode(Url)&"<br>"
Content=Content&"网站简介:"&Server.HTMLEncode(memo)
Content=Content&"<!--|Title="&title&"|ClassID="&ClassID&"|Url="&Url&"|Meno="&memo&"|-->"
Set Rs= Server.CreateObject("ADODB.Recordset")
Sql="Select Top 1 * From WWW_QQCF_COM_CFWZ_Gbook"
Rs.Open Sql,Conn,3,2
Rs.addnew
Rs("Content")=Content
Rs.update
Call AlertUrl("申请成功!","LinkComm.asp")
%>
<%End If%>
<html>
<head>
<title>推荐网址</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="QQCF_Pic/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="Top.asp"-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="?Action=save" method=POST name=form1><tr>
<td align="center" height="30" bgcolor="#FFFFFF" valign="middle"> <b><font color="#FF0000">网站登录</font></b>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td width="50%" valign="top">
<table width="98%" border="1" cellpadding="5" align="center" bgcolor="#FFFFFF" cellspacing="2" height="336" bordercolor="#BCBCBC">
<tr>
<td bgcolor="#F0F0F0">一、先决条件</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<p><font color="#FF0000">提交前请在您网站首页做上本站文字或LOGO的连接，否则本站不会收录</font>，代码如下<font color="#990099">【请勿做任何改动】</font><br>
<textarea name="textfield" cols="45" rows="3"><a href="http://www.whqy.com.cn" target="_blank">网海情缘——上网导航</a>
</textarea>
<br>
<font color="#FF0000"><b><font color="#6666FF">效果如下</font></b>：</font>
<font color="#FF0000"><a href="http://www.qqcf.com" target="_blank">网海情缘</a></font><br>
<br>
<font color="#FF0000">LOGO连接：</font><br>
图标 <a href="http://www.whqy.com.cn"><img src="QQCF_Pic/logo.gif" width="88" height="33" border="0"></a>
链接网址:http://www.whqy.com.cn
<br>
</p>
</td>
</tr>
<tr>
<td bgcolor="#F0F0F0">二、本站服务条款</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center" height="186">
<textarea name="textfield2" cols="45" rows="11">1. [本站]不收录有反动、色情、赌博等不良内容或提供不良内容链接的网站，以及网站名称或内容违反国家有关法规的网站，如您的网站有上述内容或链接，请您不要登录；
2. 有些提供主页空间的网站含有色情等不良内容的广告(包括弹出窗口)或链接，[本站]不收录此类主页空间下的网站。如果您的主页使用的恰好是此类主页空间，您可以更换主页空间之后再来登陆；
3. [本站]收录的网站必须有一定有益内容，如您的网站正在建设中，尚无完整内容，请不必现在登录，欢迎您在网站建设完成后再来[本站]网址登录；
4. [本站]保留是否收录您的网站的权力以及在溜达上网导航数据库中的相关内容的编辑决定权；
5. [本站]对挂靠别人的网站下的网站(即没有自己单独域名的网站)，本站将不予收录。 </textarea>
</td>
</tr>
</table>
<br>
</td>
<td width="50%" valign="top">
<p></p>
<p></p>
<p></p>
<table border="1" cellspacing="2" bordercolorlight="#C0C0C0" bgcolor="#FFFFFF" width="100%" align="center" cellpadding="5" bordercolor="#BCBCBC" height="378">
<tr bgcolor="#F0F0F0">
<td colspan="2"> 三、填写贵站相关资料</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="125" align="center">网站名称:</td>
<td width="407">
<input size="20" name="title" type="text" class="TDBorder">
<font color="#FF0000">*</font> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="125" bgcolor="#F0F0F0">
<div align="center">网站分类:</div>
</td>
<td width="407" bgcolor="#F0F0F0">
<select name="ClassID" id="ClassID">
<option selected value="">请选择栏目</option>
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CFWZ_Class Order By ClassID Desc"
Rs.Open Sql,Conn,1,1
%>
<%
Do While Not Rs.Eof
%>
<option value="<%=Trim(Rs("ClassID"))%>"><%=Trim(rs("ClassName"))%></option>
<%
Rs.MoveNext
Loop
%>
</select><font color="#FF0000">*</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="125">
<div align="center">E-mail:</div>
</td>
<td width="407">
<input
size="20" name="Email" type="text" class="TDBorder"><font color="#FF0000">*</font>
</td>
</tr>
<tr bgcolor="#F0F0F0">
<td width="125">
<div align="center">网站地址:</div>
</td>
<td width="407">
<input
size="27" name="url" type="text" value="http://" class="TDBorder"><font color="#FF0000">*</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="125">
<div align="center">网站简介:</div>
</td>
<td width="407">
<textarea cols="30" id="MsgForm" name="memo" rows="5" ></textarea>
<font color="#FF0000">*</font> <br>
介绍在100个汉字以内 </td>
</tr>
<tr bgcolor="#F0F0F0">
<td align="center" colspan=2 height="33">
<input type="submit" value="提交" style="FONT-SIZE: 9pt">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr></form>
</table>
<div align="center">
<center>
<table width="600" border="0" cellpadding="1" cellspacing="0">
<tr>
<td>作为交换连接,请在贵站首页加上本站的链接HTML代码：</td>
</tr>
</table>
</div>
<div align="center">
<center>
</center>
</div>
<!--#include file="Bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -