📄 chooseassort.asp

📁 中国114网搜索系统版　　本：文件大小：580 KB 软件语言：简体中文授权方式：免费版相关链接：程序演示开发商：运行环境：ASP源码
💻 ASP
字号:
<%
response.buffer=true
%>
<!-- Design and Edit By QianFengyun 2000-5-20 -->
<!-- #include file=../change.asp -->
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0041)http://www.china114net.com 中国114网 -->
<html>
<head>
<title><%=titlename%></title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<link rel="stylesheet" type="text/css" href="../html/style.css">
<script language=JavaScript>
<!--

function form_onsubmit(obj)
{
  ValidationPassed = true;

  if(obj.sitename.value=="")
  {
    alert("请输入网站名称!\n");
    ValidationPassed = false;
    obj.sitename.focus();
    return;
  }
  if(obj.url.value=="" || obj.url.value=="http://")
  {
    alert("请输入网址!\n");
    ValidationPassed = false;
    obj.url.focus();
    return;
  }
  return true;
}
-->
</script>
</head>
<%fid=request("fid")
if isNumeric(fid)=0 or fid="" then fid=0
if fid<0 then fid=0
%>
<!-- #include file=../database.asp -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from fenlei where id="&fid
rs.open sql,conn,1,1

if rs.eof or rs.bof then
  'response.write "没有这个分类!"
  rs.close
  fid=0
else

expediency=rs("expediency")
%>
<BODY vlink=0000ff leftmargin="0" topmargin="10" marginwidth="0" marginheight="0" bgcolor="#FFFFFF" <%if fid>0 then%>onload="JavaScript:form1.sitename.focus();"<%end if%>>
<table width=700 border="0" cellspacing="0" cellpadding="0" align="center" bgcolor=<%=tablebgcolor1%> height=20>
<TR align="center">
      <TD bgColor=<%=tablebgcolorbian%>><img src=../images/blank.gif height=1></TD>
    </TR>
        <TR align="center">
      <TD height=3><img src=images/blank.gif height=1></TD>
    </TR>
  <tr>
    <td>
    <a href=../index.htm>首页</a> &gt; 登记网站 &gt; <a href=chooseassort.asp?id=1&fid=0>总分类</a>
<%for i=1 to expediency-1
    response.write " &gt; <a href=chooseassort.asp?id="&id&"&fid="&rs(10+i)&">"&trim(rs(i))&"</a>"
  next
  response.write " &gt; "&trim(rs(i))
  rs.close
%>
    </td>
  </tr>
      <TR align="center">
      <TD bgColor=<%=tablebgcolorbian%>><img src=images/blank.gif height=1></TD>
</table>

<%
sql="select id,num,fenlei"&expediency+1&" from fenlei where father="&fid
rs.open sql,conn,1,1
if not rs.eof then
  response.write "<table width=700 border=0 cellspacing=0 cellpadding=0 align=center><tr>"
  response.write "<br>共有以下几个分类:"
  tnum=rs.recordcount
  num=int(tnum/3)
  if (tnum mod 3)<>0 then
    num=num+1
  end if
  do while not rs.eof
    response.write "<td valign=top>"
    if num<1 then
      response.write "<li><a href=chooseassort.asp?id="&id&"&fid="&rs("id")&">"&trim(rs(2))&"</a><i>("&rs("num")&")</i></li>"
      rs.movenext
    else
      for nn=1 to num
        if not rs.eof then
          response.write "<li><a href=chooseassort.asp?id="&id&"&fid="&rs("id")&">"&trim(rs(2))&"</a><i>("&rs("num")&")</i></li>"
          rs.movenext
        else
          exit for
        end if
      next
    end if
    response.write "</td>"
    'if rs.eof then exit do
  loop
  response.write "</tr></table>"
end if
rs.close

end if
%>


<%if fid=0 then%>
<!-- #include file=../inc/head.inc -->
<table width=700 border="0" cellspacing="0" cellpadding="0" align="center"  bgcolor=<%=tablebgcolor1%> height=20>
  <TR align="center">
      <TD bgColor=<%=tablebgcolorbian%>><img src=images/blank.gif height=1></TD>
    </TR>
        <TR align="center">
      <TD height=3><img src=images/blank.gif height=1></TD>
    </TR>
  <tr>
    <td>
    <a href=../index.htm>首页</a> &gt; 登记网站 &gt; 总分类
    </td>
  </tr>
  <TR align="center">
      <TD bgColor=<%=tablebgcolorbian%>><img src=images/blank.gif height=1></TD>
    </TR>
</table>
<table width=700 border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
<%
sql="select id,num,fenlei1 from fenlei where father=0 order by id"
rs.open sql,conn,1,1
if not rs.eof then 
  response.write "<br>共有以下几个分类:"
  tnum=rs.recordcount
  num=int(tnum/3)
  if (tnum mod 3)<>0 then
    num=num+1
  end if
end if
do while not rs.eof
    response.write "<td valign=top>"
    if num<1 then
      response.write "<li><a href=chooseassort.asp?id="&id&"&fid="&rs("id")&">"&trim(rs(2))&"</a><i>("&rs("num")&")</i></li>"
      rs.movenext
    else
      for nn=1 to num
        if not rs.eof then
          response.write "<li><a href=chooseassort.asp?id="&id&"&fid="&rs("id")&">"&trim(rs(2))&"</a><i>("&rs("num")&")</i></li>"
          rs.movenext
        else
          exit for
        end if
      next
    end if
    response.write "</td>"
    'if rs.eof then exit do
loop
response.write "</tr><tr><td colspan="&num&"><hr width=700 align=center size=1 color="&tablebgcolorbian&"></td></tr></table>"
rs.close
end if

if fid>0 then
%>
<br>
<FORM action=joinnow.asp?id=&amp;fid=<%=fid%> method=post name=form1 onsubmit="return ValidationPassed">
  <P align=center>在此分类下添加网站</P>
  <BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=320>
  <TBODY>
  <TR>
    <TD>注意:请选择所要添加的分类,如果是在本目录下了,请在最下面的表单输入即可</TD></TR></TBODY></TABLE><BR><BR>
  <TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=font 
style="MARGIN-TOP: -20px; POSITION: relative" width=320>
    <TBODY> 
    <TR align=middle> 
      <TD colSpan=2> 
        <TABLE border=0 cellPadding=0 cellSpacing=0 class=font width="100%">
          <TBODY> 
          <TR> 
            <TD bgColor=#ececff height=2><IMG height=1 src="" width=1></TD>
            <TD bgColor=#ececff height=2><IMG height=1 src="" width=1></TD>
          </TR>
          <TR> 
            <TD colSpan=2>3.*网站名称: 
              <INPUT class=input maxLength=40 name=sitename size=28>
            </TD>
          </TR>
          </TBODY> 
        </TABLE>
      </TD>
    </TR>
    <TR> 
      <TD colSpan=2>4.*网站地址: 
        <input class=input maxlength=100 name=url size=28 value="">
      </TD>
    </TR>
    <TR> 
      <TD colSpan=2>5.*网站简介: 
        <input class=input maxlength=200 name=jiji size=28>
      </TD>
    </TR>
    <TR> 
      <TD colSpan=2>&nbsp; </TD>
    </TR>
    <TR> 
      <TD width="5%">&nbsp; </TD>
      <TD align=middle height=30 width="95%"> 
        <INPUT class=p9 name=submit onclick=form_onsubmit(this.form) style="BACKGROUND-COLOR: rgb(145,148,195); COLOR: rgb(255,255,255)" type=submit value=" 添 加 ">
        <INPUT class=p9 name=b1 style="BACKGROUND-COLOR: rgb(145,148,195); COLOR: rgb(255,255,255)" type=reset value=" 重 写 ">
      </TD>
    </TR>
    <TR> 
      <TD bgColor=#ececff colSpan=2 height=2><IMG height=1 src="" 
  width=1></TD>
    </TR>
    </TBODY> 
  </TABLE>
</FORM>
<table width=700 border="0" cellspacing="0" cellpadding="0" align="center"  bgcolor=<%=tablebgcolor1%> height=20>
  <TR align="center">
      <TD bgColor=<%=tablebgcolorbian%>><img src=images/blank.gif height=1></TD>
    </TR>
        <TR align="center">
      <TD height=3><img src=images/blank.gif height=1></TD>
    </TR>
  <tr>
    <td>
    网站
    </td>
  </tr>
  <TR align="center">
      <TD bgColor=<%=tablebgcolorbian%>><img src=images/blank.gif height=1></TD>
    </TR>
</table>
<table width=700 align=center>
<tr><td>
<%
'sql="select * from linking where fenleiid="&fid
'rs.open sql,conn,1,1
'if not rs.eof then
'   response.write "<br>"
'   do while not rs.eof
'      response.write "<li><a href=../phone.asp?id="&rs("id")&" target=bottom>"&server.htmlencode(trim(rs("sitename")))&"</a></li>"
'      rs.movenext
'   loop
'else
'   response.write "还没有单位加入这个类别下!"
'end if
'rs.close
%></td></tr></table>
<%end if%>
</BODY>
</HTML>
<%set rs=nothing
conn.close
set conn=nothing
%>
💿 文件大小 566 K
👤 上传用户 lemon_zc1949
📂 所属分类其他
🏷️ 相关标签

#114 #580 #ASP #KB
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -