📄 add.asp
字号:
<!--#include file=conn.asp-->
<%
action=request("action")
memo=request("memo")
title=request("title")
email=request("email")
url=request("url")
classname=request("classname")
leibie=request("leibie")
if action="add_wz" then
if title="" or memo="" or url="" or email="" or leibie="" then
response.write "表单填写不完整！"
response.end
end if
if session("lastaddedwz")<>title then
set rss=server.createobject("adodb.recordset")
rss.open "select * from detail",conn,1,3
rss.addnew
rss("title")=title
rss("url")=url
rss("classid")=leibie
rss("email")=email
rss("memo")=memo
rss("verity")=0
rss.update
rss.close
set rss=nothing
session("lastaddedwz")=title
response.write "<table width=100% height=100%\><tr><td width=100% height=100% align=center>"
response.write "你的网站信息已经成功提交！我们会在72小时内审核你的网站是否收录！"
response.write "</td></tr></table>"
response.end
end if
end if
if action="add_leibie" then
if classname="" or leibie="" then
response.write "表单填写不完整！"
response.end
end if
if session("lastaddedleibie")<>classname then
set rss=server.createobject("adodb.recordset")
rss.open "select * from feilei",conn,1,3
rss.addnew
rss("classname")=classname
rss("topclass")=leibie
set r=server.createobject("adodb.recordset")
r.open "select * from feilei where classid="&leibie,conn,1,3
if not r.eof then
level=r("level")+1
else
level=1
end if
r.close
set r=nothing
rss("level")=level
if memo="" then memo=" "
rss("memo")=memo
rss("verity")=0
rss.update
rss.close
set rss=nothing
session("lastaddedleibie")=classname
response.write "<table width=100% height=100%\><tr><td width=100% height=100% align=center>"
response.write "新网站分类信息已经成功提交！我们会在72小时内审核（未审核通过的分类不在前台显示）！"
response.write "</td></tr></table>"
response.end
end if
end if
%>
<html>
<head>
<title>新站登录</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-size: 12px}
.style1 {color: #ffffff}
-->
</style>
</head>
<body bgcolor="#ffffff" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<script id=clienteventhandlersjs language=javascript>
<!--
function checkform()
{
if (document.form.title.value==""){
alert("网站标题不能为空！");
document.form.name.focus();
return false;
}
if (document.form.leibie.value=="0"){
alert("请选择网站类别！");
document.form.from.focus();
return false;
}
if (document.form.url.value==""){
alert("网站地址不能为空！");
document.form.homepage.focus();
return false;
}
if (document.form.memo.value==""){
alert("网站介绍不能为空！");
document.form.message.focus();
return false;
}
if (document.form.memo.value.length>=100){
alert("网站介绍请控制在50个字符以内！");
document.form.message.focus();
return false;
}
if (document.form.email.value==""){
alert("email不能为空！");
document.form.email.focus();
return false;
}
email=form.email.value
if (email!=null) {
if (email.charat(0)=="@") {
alert("请填入有效的email地址!")
return false
}
var j=0,k=0
for (i=0;i<email.length;i++) {
var onechar=email.charat(i)
if (onechar=="@") j=i
if (onechar==".") k=i
}
if (k<j || k==0 || j==0 || k==j+1) {
alert("请填入有效的email地址!")
return false;
}
}
return true;
}
-->
</script>
<br>
<br>
</div>
<table width="730" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="#009933">
<tr>
<td bgcolor="#009933" height="20"><font color="#ffffff">您的位置：</font><a href="http://www.meigui8.cn/wzdh" class="style1">首页</a><font color="#ffffff">-> 网站登录</font></td>
</tr>
</table>
<table width="730" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="add.asp" method=post name=form onsubmit="return checkform()"><tr>
<td align="center" height="30"> <b><font color="#ff0000">[玫瑰情缘网站导航]新站登录</font></b>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" valign="top">
<table width="96%" border="0" cellpadding="5" align="center" bgcolor="#009933" cellspacing="1">
<tr>
<td bgcolor="#009933">一、先决条件</td>
</tr>
<tr>
<td bgcolor="#ffffff">
<p><font color="#ff0000">提交前必须你登陆网站首页明显处做上本站连接，代码如下，一经收录将不仅出现在本站中，还将出现在一些友情网址站上，同时将很容易被搜索引擎收录：</font><br>
<textarea name="textfield" cols="45" rows="2"><a href="http://www.0575.in" target="_blank">[玫瑰情缘]</a></textarea>
</p>
</td>
</tr>
<tr>
<td bgcolor="#ffffff">
<p align=center><img border="0" src="../logo.gif"><br>
<textarea name="textfield" cols="45" rows="2"><a href=http://www.meigui8.cn/wzdh target="_blank"><img src=http://www.meigui8.cn/wzdh/logo.gif border=0></a></textarea>
</p>
</td>
</tr>
<tr>
<td bgcolor="#009933">二、本站服务条款</td>
</tr>
<tr>
<td bgcolor="#ffffff">
1. [玫瑰情缘]不收录有反动、色情、赌博等不良内容或提供不良内容链接的网站，以及网站名称或内容违反国家有关法规的网站! <br>
2. [玫瑰情缘]不接受2级域名或免费空间的网站!<br>
3. [玫瑰情缘]保留是否收录您的网站的权力以及在玫瑰情缘数据库中的相关内容的编辑决定权!
</td>
</tr>
</table>
<br>
</td>
<td width="50%" valign="top">
<p></p>
<p></p>
<p></p>
<p></p>
<p></p>
<table border="0" cellspacing="1" bordercolorlight="#c0c0c0" bgcolor="#009933" width="100%" align="center" cellpadding="5">
<tr bgcolor="b9e0f7">
<td colspan="2" bgcolor="#009933"> 三、填写贵站相关资料</td>
</tr>
<tr bgcolor="#ffffff">
<td width="125" align="center">网站名称:</td>
<td width="407">
<input size="20" name="title" type="text" class="tdborder">
</td>
</tr>
<tr bgcolor="#ffffff">
<td width="125">
<div align="center">网站分类:</div>
</td>
<td width="407">
<select name="leibie">
<option selected value='0'>请选择网址分类</option>
<%
dim rs(5)
function listunder(i)
set rs(i)=server.createobject("adodb.recordset")
rs(i).open "select classid,classname,verity from feilei where topclass="&rs(i-1)("classid"),conn,1,3
while not rs(i).eof
dim topclassname
topclassname=""
for x=1 to i
topclassname=topclassname&rs(x-1)("classname")&"＞"
next
fujia=""
if rs(i)("verity")<>1 then fujia="(未审核)"
response.write "<option value='"&rs(i)("classid")&"'>"&topclassname&rs(i)("classname")&fujia&"</option>"&vbcrlf
if i<ubound(rs) then
call listunder(i+1)
end if
rs(i).movenext
wend
end function
set rs(0)=server.createobject("adodb.recordset")
rs(0).open "select classid,classname,verity from feilei where topclass=0",conn,1,3
while not rs(0).eof
fujia=""
if rs(0)("verity")<>1 then fujia="(未审核)"
response.write "<option value='"&rs(0)("classid")&"'>"&rs(0)("classname")&fujia&"</option>"&vbcrlf
call listunder(1)
rs(0).movenext
wend
%>
</select>
</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">
</td>
</tr>
<tr bgcolor="#ffffff">
<td width="125">
<div align="center">网站地址:</div>
</td>
<td width="407">
<input
size="27" name="url" type="text" value="http://" class="tdborder">
</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>
<br>
介绍在100个汉字以内 </td>
</tr>
<tr bgcolor="#ffffff">
<td align="center" colspan=2>
<input type="hidden" name="action" value="add_wz">
<input type="submit" value="提交" style="font-size: 9pt">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr></form>
<tr><td> *未通过审核的类别不在前台显示（包括其下属分类及网站）</td></tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -