<% 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=0 to i-1 topclassname=topclassname&rs(x)("classname")&"��" next fujia="" response.write ""&vbCrLf if i1 then Response.Write "
" Response.Write "��վ�����У���ʱֹͣ��վ��½�����Ժ�����....�ɴ˸��������IJ��㣬�������Ǹ�⣡" Response.Write "
" Response.End end if Function getcode1() Dim test On Error Resume Next Set test=Server.CreateObject("Adodb.Stream") Set test=Nothing If Err Then Dim zNum Randomize timer zNum = cint(8999*Rnd+1000) Session("GetCode") = zNum getcode1= Session("GetCode") Else getcode1= "" End If End Function %> ������վ��¼
������վĿ¼���ϸ��˹������¼����_����������վ��������վ����ƽ̨����վ��¼
��ַվ��ҳ �� ��վ��¼ �� <% 'ͳ�� Set ClassCount=Server.CreateObject("Adodb.Recordset") Sql= "Select * from feilei order by classid" ClassCount.open Sql,conn,1,1 Set QCount=Server.CreateObject("Adodb.Recordset") Q_Sql="Select * from detail" QCount.open Q_Sql,conn,1,1 Set WebCount=Server.CreateObject("Adodb.Recordset") Web_Sql="Select * from detail where verity=1" WebCount.open Web_Sql,conn,1,1 Set FCount=Server.CreateObject("Adodb.Recordset") F_Sql="Select * from detail where verity=0" FCount.open F_Sql,conn,1,1 Set HCount=Server.CreateObject("Adodb.Recordset") H_Sql="Select * from detail where hei=1" HCount.open H_Sql,conn,1,1 %> ��������:(<%=ClassCount.RecordCount%>)�� / ��վ����:(<%=QCount.RecordCount%>)�� / ������վ:(<%=WebCount.RecordCount%>)�� / δ����վ:(<%=FCount.RecordCount%>)��/ ������վ:(<%=HCount.RecordCount%>)�� <% ClassCount.close Set ClassCount = Nothing QCount.close Set QCount = Nothing WebCount.close Set WebCount = Nothing FCount.close Set FCount = Nothing HCount.close Set HCount = Nothing 'ͳ�ƽ��� %>

վ������

��վ���Ӵ���

�������ñ�վ���� �� <%=site%> �� �������

    <%=site%>ֻ��¼��Ʒ������վ�����˶���_�������ϡ�
    ��վ���Ӵ��룺����ѡ��һ��
    <a href="http://www.saogegood.com/test/mulu target=_blank>������վĿ¼</a>
    <a href="http://www.saogegood.com/ target=_blank>saogegood_��������</a>

�������ñ�վ���� �� ��д��վ������ϡ�

    ��վ����: ���7������
    ��վ��ַ:
    ��վ����:
    վ��QQ:
    ��վ���:
    ������150���������ڣ�ʣ���ֽڣ�300
    ��֤��: