📄 link_add.asp
字号:
<!--#include file="conn.asp"-->
<%
dim rs3
dim sql
dim count
set rs3=server.createobject("adodb.recordset")
sql = "select * from city order by c_id asc"
rs3.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs3.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs3("city"))%>","<%= trim(rs3("a_id"))%>","<%= trim(rs3("c_id"))%>");
<%
count = count + 1
rs3.movenext
loop
rs3.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.c_id.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.c_id.options[document.myform.c_id.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<link rel="stylesheet" type="text/css" href="css/css.css">
</head>
<body topmargin="30" leftmargin="0">
<div align="center">
<center>
<table width="420" border="0" cellpadding="5" cellspacing="1" bgcolor="#990000" style="border-collapse: collapse">
<tr bgcolor="#CC0000">
<td height="30" colspan="2"><div align="center"><font color="#FFFFFF">※
提交前，请先做好本站连接！！！</font></div></td>
</tr>
<form name="myform" method="post" action="saveadd.asp">
<tr bgcolor="#F7F7F7">
<td width="70" bgcolor="#F7F7F7">所处地区： </td>
<td width="350" bgcolor="#F7F7F7">
<%
sql = "select * from area"
rs3.open sql,conn,1,1
if rs3.eof and rs3.bof then
response.write "请先添加栏目。"
response.end
else
%>
<select name="a_id" onChange="changelocation(document.myform.a_id.options[document.myform.a_id.selectedIndex].value)" size="1">
<option selected value="<%=trim(rs3("a_id"))%>"><%=trim(rs3("area"))%></option>
<% dim selarea
selarea=rs3("a_id")
rs3.movenext
do while not rs3.eof
%>
<option value="<%=trim(rs3("a_id"))%>"><%=trim(rs3("area"))%></option>
<%
rs3.movenext
loop
end if
rs3.close
%>
</select> <select name="c_id">
<%sql="select * from city where a_id="&selarea
rs3.open sql,conn,1,1
if not(rs3.eof and rs3.bof) then
%>
<option selected value="<%=rs3("c_id")%>"><%=rs3("city")%></option>
<% rs3.movenext
do while not rs3.eof%>
<option value="<%=rs3("c_id")%>"><%=rs3("city")%></option>
<% rs3.movenext
loop
end if
rs3.close
set rs3 = nothing
%>
</select>
</td>
</tr>
<tr bgcolor="#F7F7F7">
<td>网站类型： </td>
<td> <select name="t_id" id="select2">
<% set rs=server.createobject("adodb.recordset")
sql="select * from type"
rs.open sql,conn,1,1%>
<%if rs.eof and rs.bof then%>
<%else
while not rs.eof%>
<option value="<%=rs("t_id")%>"><%=rs("type")%></option>
<%rs.movenext
wend
end if%>
</select>
</td>
</tr>
<tr bgcolor="#F7F7F7">
<td>网站名称：</td>
<td> <input name="webname" type="text" id="webname" value="无" size="20">
<font color="#FF0000"> *必填</font></td>
</tr>
<tr bgcolor="#F7F7F7">
<td>网站地址： </td>
<td> <input name="url" type="text" id="url" value="http://" size="20">
<font color="#FF0000">*必填</font></td>
</tr>
<tr bgcolor="#F7F7F7">
<td>网站LOGO： </td>
<td> <input name="logo" type="text" id="logo" size="20"> <font color="#FF0000">*必填</font></td>
</tr>
<tr bgcolor="#F7F7F7">
<td>站长姓名： </td>
<td> <input name="name" type="text" id="name3" value="无" size="20">
<input type="hidden" name="pwd" value="666666">
<font color="#FF0000">*必填</font></td>
</tr>
<tr bgcolor="#F7F7F7">
<td>OICQ： </td>
<td> <input name="qq" type="text" id="qq" size="20" value="12345678"></td>
</tr>
<tr bgcolor="#F7F7F7">
<td>邮箱地址：</td>
<td> <input name="mail" type="text" id="mail" size="20"> <font color="#FF0000">*必填</font></td>
</tr>
<tr bgcolor="#F7F7F7">
<td>联系电话： </td>
<td> <input name="tel" type="text" id="tel" size="20" value="123456">
<input type="hidden" name="vouch" value="1"></td>
</tr>
<tr bgcolor="#F7F7F7">
<td>网站介绍： </td>
<td> <textarea name="intro" rows="4" id="textarea2" cols="30"></textarea>
<font color="#FF0000">*必填</font> (少于50字)</td>
</tr>
<tr bgcolor="#F7F7F7">
<td colspan="2"> <p align="center">
<input type="submit" name="Submit2" value="提交">
<input type="reset" name="Submit3" value="重置">
</td>
</tr>
<tr bgcolor="#CC0000">
<td height="36" colspan="2">
<div align="center"><font color="#FFFFFF">恭喜，网站添加成功！请把<font color="#FFFF00">本站连接</font>做好，然后等待管理人员验证通过
. .</font></div></td>
</tr>
</FORM>
</table>
</center></div></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -