<%
'=========================================================
'　　　　　　　　　　　飞　扬　网　络
' Copyright (C) 2003-2005 feiyang.Com. All Rights Reserved.
' Web: http://www.feiyang.com
' QQ: 99686532        E-mail: bgh_edu@126.com
'=========================================================
%>

<!--#include file="qqcf_conn.asp"-->
<!--#include file="qqcf_getcookie.asp"-->
<!--#include file="qqcf_confirmadmin.asp"-->
<!--#include file="qqcf_chkstr.asp"-->
<!--#include file="qqcf_myfunction.asp"-->

<%
If Request.Servervariables("SERVER_PORT")="80" Then
 Tmp = "http://" & request.servervariables("SERVER_NAME") & _            
  left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("qqcf_admin_manage.asp"))
Else
 Tmp = "http://" & request.servervariables("SERVER_NAME")&":"&request.servervariables("SERVER_PORT")& _            
  left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("qqcf_admin_manage.asp"))
End If
%>

<!--#include file="qqcf_admin_manage_do.asp"-->
<%response.expires= -1
response.addheader "pragma","no-cache"
response.AddHeader "cache-control","no-store"
%>

<html>
<head>
<title>飞扬网址　 程序制作：激情飞扬 QQ：99686532 http://www.feiyang.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="qqcf_css/style.css" rel="stylesheet" type="text/css">
<meta name="Keywords" content="飞扬网址　 程序制作：激情飞扬 QQ：99686532 http://www.feiyang.com">
</head>

<body>
<!--#include file="QQCF_Top.Asp"-->

<div align="center">
  <table width="760" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#000000" bgcolor="#000000">
    <tr bgcolor="#FFFFFF"> 
      <td><div align="center"><a href="?"><strong>类别管理</strong></a></div></td>
      <td><div align="center"><a href="?action=wzadmin"><strong>网址管理</strong></a></div></td>
      <td><div align="center"><a href="?action=tjview"><strong>点击报表</strong></a></div></td>
      <td><div align="center"><strong><a href="?action=modifyadmin">系统设置</a></strong></div></td>
      <td><div align="center"><a href="?Action=mdbdo"><strong>数据库操作</strong></a></div></td>
      <td><div align="center"><strong><a href="?Action=htmmake">更新静态页</a></strong></div></td>
      <td><div align="center"><strong><a href="?Action=usesys">使用说明</a></strong></div></td>
      <td><div align="center"><strong><a href="?action=adminlogout">退出管理</a></strong></div></td>
    </tr>
  </table>

<%If Request("Action")="lbadd" Then%>
<%
UpID=Int(Request("UpID"))%>
  <table width="760" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
    <tr bgcolor="#00CCFF"> 
      <td height="19"><div align="center"><strong>有无下级</strong></div></td>
      <td><div align="center"><strong>类别名称</strong></div></td>
      <td><div align="center"><strong>类别排序</strong></div></td>
      <td><div align="center"><strong>是否有效</strong></div></td>
      <td><div align="center"><strong>描述</strong></div></td>
      <td><div align="center"><strong>操作</strong></div></td>
    </tr>
    <form name="form1" method="post" action="?action=lbaddsave">
      <tr bgcolor="#FFFFFF"> 
        <td><div align="center"> 
            <select name="Menu">
              <option value="-1" <%if Menu=-1 then response.write "selected"%>>有</option>
              <option value="0" <%if Menu=0 then response.write "selected"%>>无</option>
            </select>
          </div></td>
        <td><div align="center"> 
            <input name="ClassName" type="text" id="lbpx5" value="" size="20">
          </div></td>
        <td><div align="center"> 
            <input name="ListID" type="text" id="lburl" size="10">
          </div></td>
        <td><div align="center"> 
            <select name="state">
              <option value="-1" selected>有效</option>
              <option value="0">无效</option>
            </select>
          </div></td>
        <td width="20%"><div align="center"> 
            <input name="Memo" type="text" id="ListID" size="20">
          </div></td>
        <td width="19%"><div align="center"> 
            <input type="submit" name="Submit22" value="增加">
            <input name="UpID" type="hidden" value="<%=UpID%>">
          </div></td>
      </tr>
    </form>
  </table>
<%End If%>
<%If Request("Action")="lbmodify" Then%>
<%ClassID=Request("ClassID")%>
  <table width="760" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
    <form name="form2" method="post" action="?action=lbmodifysave&classid=<%=ClassID%>">
      <tr bgcolor="#00CCFF"> 
        <td width="92" height="19"><div align="center"><strong>有无下级</strong></div></td>
        <td> <div align="center"><strong>类别名称</strong></div></td>
        <td width="107"><div align="center"><strong>类别排序</strong></div></td>
        <td width="91"><div align="center"><strong>是否有效</strong></div></td>
        <td width="213"><div align="center"><strong>描述</strong></div></td>
        <td width="67"><div align="center"><strong>操作</strong></div></td>
      </tr>
      <%
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * From WWW_QQCF_COM_Class Where ClassID="&ClassID
Rs.Open Sql,Conn,1,1
%>
      <tr bgcolor="#FFFFFF"> 
        <td><div align="center"> 
            <select name="Menu">
              <option value="-1"<%if Rs("Menu")=-1 then response.write " selected"%>>有</option>
              <option value="0"<%if Rs("Menu")=0 then response.write " selected"%>>无</option>
            </select>
          </div></td>
        <td><div align="center"> 
            <input name="ClassName" type="text" id="ClassName2" value="<%=rs("ClassName")%>" size="20">
          </div></td>
        <td><div align="center"> 
            <input name="ListID" type="text" id="lbpx4" value="<%=rs("ListID")%>" size="10">
          </div></td>
        <td><div align="center"> 
            <select name="state">
              <option value="-1"<%if rs("State")=-1 then response.write " selected"%>>有效</option>
              <option value="0"<%if rs("State")=0 then response.write " selected"%>>无效</option>
            </select>
          </div></td>
        <td><input name="Memo" type="text" id="Memo" value="<%=rs("Memo")%>" size="20"></td>
        <td><div align="center"> 
            <input type="submit" name="Submit2" value="修改">
          </div></td>
      </tr>
    </form>
  </table>

  <%End If%>
  
  <%If Request("action")="" Or Request("Action")="lbsearch" Then%>
  <%
Action=Request("Action")
Px=Request("Px")
ClassName=Request("ClassName")
PageSizeNum=Request("PageSizeNum")

IF Px="" Then Px="ClassID"
IF PageSizeNum="" or Not IsNumeric(PageSizeNum) Then PageSizeNum=10
Sql="Select * From WWW_QQCF_COM_Class where UpID=0"

If Action="lbsearch" Then
 IF ClassName<>"" Then Sql=Sql&" And ClassName Like '%"&ClassName&"%'"
End If

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql=Sql&" Order By "&Px&" Desc"
Rs.Open Sql,Conn,1,1

If Not rs.eof then
 IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
  page=1
 Else
  Page=Int(Abs(Request("page")))
 End if
 rs.pagesize=PageSizeNum
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
    <a href="?action=lbadd&UpID=0"><strong>增加类别</strong></a>
  <table width="760" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
    <tr> 
      <td width="57" bgcolor="#00CCFF"><div align="center"><strong><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=ClassID">序号</a></strong></div></td>
      <td width="63" bgcolor="#00CCFF"><div align="center"><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=ClassID"><strong>类别ID</strong></a></div></td>
      <td bgcolor="#00CCFF"><div align="center"><strong><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=ClassName">类别名称</a></strong></div></td>
      <td bgcolor="#00CCFF"><div align="center"><strong><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=ListID">类别排序</a></strong></div></td>
      <td width="75" bgcolor="#00CCFF"><div align="center"><strong><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=State">是否有效</a></strong></div></td>
      <td width="120" bgcolor="#00CCFF"><div align="center"><strong><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=Memo">描述</a></strong></div></td>
      <td width="123" bgcolor="#00CCFF"><div align="center"><strong>操作</strong></div></td>
    </tr>
    <%
Do while Not Rs.Eof And MyPageSize>0
%>
    <tr> 
      <td bgcolor="#e8e8e8"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
      <td bgcolor="#e8e8e8"><div align="center"><%=Rs("ClassID")%></div></td>
      <td bgcolor="#e8e8e8"><div align="center"><%=Rs("ClassName")%></div></td>
      <td bgcolor="#e8e8e8"><div align="center"><%=Rs("ListID")%></div></td>
      <td bgcolor="#e8e8e8"><div align="center"> 
          <%If Rs("State")=-1 Then
			   Response.Write "有效"
			  ElseIf rs("state")=0 then
			   Response.Write "<font color=#ff0000>无效</font>"
			  End If%>
        </div></td>
      <td bgcolor="#e8e8e8"><div align="center"><%=Rs("Memo")%></div></td>
      <td bgcolor="#e8e8e8"><div align="center"><%If Rs("Menu")=-1 Then%><a href="?Action=lbadd&UpID=<%=Rs("ClassID")%>">增加子类别</a><%End If%> 
          <a href="?Action=lbmodify&ClassID=<%=Rs("ClassID")%>">修改</a> 
          <%Sql="Select Count(*) From WWW_QQCF_COM_Class Where UpID="&rs("ClassID")
			  Set RsCount=Conn.ExeCute(Sql)
			  If RsCount(0)=0 Then%>
          <a href="?Action=lbdel&ClassID=<%=Rs("ClassID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
      <%End If%>
    </tr>
    <%If Rs("Menu")=-1 Then%>
    <%
Sql="Select * From WWW_QQCF_COM_Class where UpID="&Rs("ClassID")
Set Rs1=Conn.ExeCute(Sql)
While Not Rs1.Eof
%>
    <tr bgcolor='#FFFFFF'> 
      <td><div align="center">[子类别]</div></td>
      <td><div align="center"><%=Rs1("ClassID")%></div></td>
      <td><div align="center"><%=Rs1("ClassName")%></div></td>
      <td><div align="center"><%=Rs1("ListID")%></div></td>
      <td><div align="center"> 
          <%If Rs1("state")=-1 Then
			  response.Write "有效"
			  ElseIf Rs1("state")=0 then
			  response.Write "<font color=#ff0000>无效</font>"
			  End If%>
        </div></td>
      <td><div align="center"><%=Rs1("Memo")%></div></td>
      <td><div align="center"><a href="?action=lbmodify&classid=<%=Rs1("classid")%>">修改</a> 
          <a href="?action=lbdel&classid=<%=Rs1("classid")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
    </tr>
    <%
Rs1.Movenext
Wend%>
    <%End IF%>
    <%
MyPageSize=MyPageSize-1
Rs.MoveNext
Loop%>
    <tr> 
      <td colspan="7" bgcolor="#FFFFFF">
<table border="0" align="center" cellpadding="2" cellspacing="1">
          <tr> 
            <td valign="top"><div align="right"><a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=1">第一页</a> 
                <%
If Page>1 Then%>
                <a href='?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a> 
                <%
End If
%>
                <%
If Page<Rs.PageCount Then%>
                <a href='?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a> 
                <%
End If
%>
                <a href="?Action=<%=Action%>&ClassName=<%=ClassName%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=<%=totalpage%>">最后一页</a> 
                页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
            <form name="form1" method="post" action="jczx.asp">
              <td> <Select  name="page" size="1" onChange="window.location=form.page.options[form.page.selectedIndex].value">
                  <%For I=1 To TotalPage    
   Response.Write "<option value="&filename&"?Action="&Action&"&ClassName="&ClassName&"&PageSizeNum="&PageSizeNum&"&Px="&Px&"&Page="&I     
   If Page=I Then     
    Response.Write " selected"    
   End If    
   Response.Write ">转到第"&I&"页</option>"    
Next    
%>
                </select> </td>
            </form>
          </tr>
        </table>
        <table border="0" align="center" cellpadding="2" cellspacing="0">
          <form name="form2" method="post" action="?Action=lbsearch">
            <tr> 
              <td><div align="center"><strong>搜 索</strong></div></td>
              <td><div align="center">类别名称:</div></td>
              <td><div align="center"> 
                  <input name="ClassName" type="text" id="ClassName" size="15">
                </div></td>
              <td><div align="center">每页显示:</div></td>
              <td><div align="center"> 
                  <input name="PageSizeNum" type="text" id="PageSizeNum2" size="5">
                  条</div></td>
              <td><div align="center"> 
                  <input type="submit" name="Submit332" value="搜索">
                </div></td>
          </form>
          <tr> 
            <td colspan="6"> </tr>
        </table></td>
    </tr>
  </table>
  <div align="left">
    <%end if%>
    <%if request("action")="wzadmin" or request("action")="wzsearch" then%>
    <%
Action=Request("Action")
Px=Request("Px")
ClassID=Request("ClassID")
Title=Request("Title")
State=Request("State")
PageSizeNum=Request("PageSizeNum")

IF Px="" Then Px="ID"
IF PageSizeNum="" or Not IsNumeric(PageSizeNum) Then PageSizeNum=10
Sql="Select * From WWW_QQCF_COM_WebSite where 1=1"

If Action="wzsearch" Then
 IF ClassID<>"" and ClassID<>"null" Then Sql=Sql&" And ClassID="&ClassID
 IF Title<>"" Then Sql=Sql&" And Title Like '%"&Title&"%'"
 IF State<>"" and State<>"null" Then Sql=Sql&" And State="&State
End If

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql=Sql&" Order By "&Px&" Desc"
Rs.Open Sql,Conn,1,1

If Not rs.eof then
 IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
  page=1
 Else
  Page=Int(Abs(Request("page")))
 End if
 rs.pagesize=PageSizeNum
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
    <a href="?action=wzadd"><strong>增加网址</strong></a> </div>
  <table width="760" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
    <tr bgcolor="#00CCFF"> 
      <td width="30"><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=ID">序号</a></strong></div></td>
      <td width="60"><div align="center"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=ClassID"><strong>类别</strong></a></div></td>
      <td width="120"><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=Title">网址名称</a></strong></div></td>
      <td width="60"><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=State">是否有效</a></strong></div></td>
      <td><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=Lastvisittime">最后访问时间</a></strong></div></td>
      <td width="60"><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=Total">点击总数</a></strong></div></td>
      <td width="30"><div align="center"><strong><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=ListID">排序</a></strong></div></td>
      <td width="60"><div align="center"><strong>操作</strong></div></td>
    </tr>
    <%
do while not rs.eof and mypagesize>0
%>
    <tr
  <%if mypagesize mod 2=0 then
  response.write " bgcolor='#ffffff'"
 else
  response.write " bgcolor='#e8e8e8'"
 end if
 %>> 
      <td><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(page)+mypagesize%> </div></td>
      <td><div align="center"><%=GetFieldValues("WWW_QQCF_COM_Class","ClassID",Rs("ClassID"),1,"classname")%> [<%=Rs("ClassID")%>]</div></td>
      <td><div align="center"><a href="<%=rs("url")%>" target="_blank"><%=Rs("Title")%></a></div></td>
      <td><div align="center"> 
          <%if rs("state")=-1 then
			  response.Write "有效"
			  elseif rs("state")=0 then
			  response.Write "<font color=#ff0000>无效</font>"
			  end if%>
        </div></td>
      <td><div align="center"><%=Rs("Lastvisittime")%></div></td>
      <td><div align="center"><%=Rs("Total")%></div></td>
      <td><div align="center"><%=Rs("ListID")%></div></td>
      <td><div align="center"><a href="?action=wzmodify&id=<%=rs("id")%>">修改</a>　<a href="?action=wzdel&id=<%=rs("id")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
    </tr>
    <%
mypagesize=mypagesize-1
rs.movenext
loop%>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="8"><table border="0" align="center" cellpadding="0" cellspacing="1">
          <tr> 
            <td valign="top"><div align="right"><a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=1">第一页</a> 
                <%
if page>1 then%>
                <a href='?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a> 
                <%
end if
%>
                <%
if page<rs.pagecount   then%>
                <a href='?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a> 
                <%
end if
%>
                <a href="?Action=<%=Action%>&ClassID=<%=ClassID%>&Title=<%=Title%>&State=<%=State%>&PageSizeNum=<%=PageSizeNum%>&Px=<%=Px%>&Page=<%=totalpage%>">最后一页</a> 
                页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
            <form name="form1" method="post" action="jczx.asp">
              <td> <Select  name="page" size="1" onChange="window.location=form.page.options[form.page.selectedIndex].value">
                  <%for i=1 to totalpage    
   response.write "<option value="&filename&"?Action="&Action&"&ClassID="&ClassID&"&Title="&Title&"&State="&State&"&PageSizeNum="&PageSizeNum&"&Px="&Px&"&Page="& i     
   if page=i then     
     response.write " selected"    
   end if    
   response.write ">转到第"& i &"页</option>"    
next    
%>
                </select> </td>
            </form>
          </tr>
        </table>
        <table width="95%" border="0" align="center" cellpadding="2" cellspacing="0">
          <form name="form2" method="post" action="?Action=wzsearch">
            <tr> 
              <td><div align="center"><strong>搜 索</strong></div></td>
              <td><div align="center">网址类别:</div></td>
              <td> <div align="center"> 
                  <%
			  set rs=server.createobject("adodb.recordset")
        sql = "select * from WWW_QQCF_COM_Class order by Classid desc"
        rs.open sql,conn,1,1
		if rs.eof and rs.bof then
			response.write "请先添加栏目。"
		else
		%>
                  <select name="ClassID">
                    <option selected value="">全部类别</option>
                    <%
		    do while not rs.eof
			%>
                    <option value="<%=trim(rs("Classid"))%>"><%=trim(rs("ClassName"))%></option>
                    <%
		        rs.movenext
    	    loop
		end if
        rs.close
			%>
                  </select>
                </div></td>
              <td><div align="center">网址名称:</div></td>
              <td><div align="center"> 
                  <input name="Title" type="text" id="Title3" size="10">
                </div></td>
              <td><div align="center">是否有效:</div></td>
              <td><div align="center"> 
                  <select name="State">
                    <option value="null" selected>全部</option>
                    <option value="-1">有效</option>
                    <option value="0">无效</option>
                  </select>
                </div></td>
              <td><div align="center">每页显示:</div></td>
              <td><div align="center"> 
                  <input name="PageSizeNum" type="text" id="PageSizeNum3" size="5">
                  条</div></td>
              <td><div align="center"> 
                  <input type="submit" name="Submit3322" value="搜索">
                </div></td>
          </form>
          <tr> 
            <td colspan="10"> </tr>
        </table></td>
    </tr>
  </table>
<%End If%>

<%If Request("Action")="wzadd" Then%>

<script language="JavaScript">
function check2()
{
if ((document.form2.title.value)=="")
{
window.alert ('网站名称必须填写');
document.form2.title.select();
document.form2.title.focus();
return false;
}
else if ((document.form2.url.value)=="")
{
window.alert ('网址必须填写');
document.form2.url.select();
document.form2.url.focus();
return false;
}
else if ((document.form2.classid.value)=="")
{
window.alert ('类别必须选择');
document.form2.url.select();
document.form2.url.focus();
return false;
}
else
return true;
}

</script>

<table width="760" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
  <form name="form2" method="post" action="?Action=wzaddsave" onsubmit="javascript:return check2()">
    <tr bgcolor="#00CCFF">
      <td colspan="2"><div align="center"><strong>增加网址</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="23%"><div align="right">网站名称：</div></td>
      <td><input name="title" type="text" id="name2" size="30">
          <font color="#FF0000">*</font></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><div align="right">网站网址：</div></td>
      <td><input name="url" type="text" id="password3" size="45">
          <font color="#FF0000">*</font></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td valign="top"><div align="right">网站说明：</div></td>
      <td><input name="Memo" id="Memo" size="30" rows="5">
        100字以内</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="21"><div align="right">网站浏览次数：</div></td>
      <td><input name="Total" type="text" id="Total" value="0" size="10">
      </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="21"><div align="right">排序数字：</div></td>
      <td><input name="ListID" type="text" id="ListID" value="0" size="10"></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="21"><div align="right">网站类别：</div></td>
      <td>
        <%
        Set Rs=Server.CreateObject("Adodb.RecordSet")
        Sql="Select * From WWW_QQCF_COM_Class Order By ClassID Desc"
        Rs.Open Sql,Conn,1,1
		If Rs.Eof And Rs.Bof Then
			Response.Write "请先添加栏目。"
		Else
		%>
        <select name="classid" id="ClassID">
          <option selected value="">请选择栏目</option>
          <%
		    Do While Not Rs.Eof
			%>
          <option value="<%=Trim(Rs("ClassID"))%>"><%=Trim(rs("ClassName"))%></option>
          <%
		        Rs.MoveNext
    	    Loop
		End If
			%>
      </select></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="21"><div align="right">有效:</div></td>
      <td><select name="State">
        <option value="-1" selected>有效</option>
        <option value="0">无效</option>
      </select></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="21">&nbsp;</td>
      <td>
        <input type="submit" name="Submit" value="加入">
          　
<input type="reset" name="Submit523" value="取消"></td>
    </tr>
  </form>
</table>
<%End If%>

<%If Request("Action")="wzmodify" Then%>
 <%
ID=Request("ID")
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * From WWW_QQCF_COM_WebSite Where ID="&ID
Rs.Open Sql,Conn,1,1
%>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
 
    <tr bgcolor="#00CCFF">
      <td colspan="2"><div align="center"><strong>修改网址</strong></div></td>
    </tr>
     <form name="form1" method="post" action="?Action=wzmodifysave&id=<%=ID%>"><tr bgcolor="#FFFFFF">
      <td width="23%"><div align="right">网站名称：</div></td>
      <td><input name="Title" type="text" id="Title2" value="<%=Rs("Title")%>" size="30">
          <font color="#FF0000">*</font></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><div align="right">网站网址：</div></td>
      <td><input name="Url" type="text" id="Url" value="<%=Rs("Url")%>" size="45">
          <font color="#FF0000">*</font></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td valign="top"><div align="right">网站说明：</div></td>
      <td><input name="Memo" id="Memo2" value="<%=Rs("Memo")%>" size="30" rows="5">
        100字以内</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="21"><div align="right">网站浏览次数：</div></td>
      <td><input name="Total" type="text" id="Total" value="<%=Rs("Total")%>" size="10">
      </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="21"><div align="right">排序数字：</div></td>
      <td><input name="ListID" type="text" id="ListID" value="<%=Rs("ListID")%>" size="10"></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="21"><div align="right">网站类别：</div></td>
      <td>
        <%
		Set Rs1=Server.CreateObject("Adodb.RecordSet")
        Sql="Select * From WWW_QQCF_COM_Class Order By ClassID Desc"
        Rs1.Open Sql,Conn,1,1
		If Rs1.Eof And Rs1.Bof Then
			Response.Write "请先添加栏目。"
		Else
		%>
        <select name="ClassID" id="select">
          <option selected value="">请选择栏目</option>
          <%
		    Do While Not Rs1.Eof
			%>
          <option value="<%=Trim(Rs1("ClassID"))%>"<%If Rs1("ClassID")=Rs("ClassID") Then Response.Write " Selected"%>><%=Trim(Rs1("ClassName"))%></option>
          <%
		    Rs1.MoveNext
    	    Loop
		End If
        Rs1.Close
			%>
      </select></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="21"><div align="right">有效:</div></td>
      <td><select name="State">
          <option value="-1"<%If Rs("State")=-1 Then Response.Write " selected"%>>有效</option>
          <option value="0"<%If Rs("State")=0 Then Response.Write " selected"%>>无效</option>
      </select></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="21">&nbsp;</td>
      <td>
        <input type="submit" name="Submit3" value="修改">
        　　
        <input type="reset" name="Submit5232" value="取消" onClick="javascript:history.go(-1)"></td>
    </tr>
  </form>
</table>
<%End If%>

<%If Request("Action")="tjview" Then%>
<%
Action=Request("Action")
Px=Request("Px")

If Px="" Then  Px="ID"


Sql="Select Sum(Counter) From WWW_QQCF_COM_Counter"
Set Rs=Conn.Execute(Sql)
TotalCount=Rs(0)
IF TotalCount=0 Then TotalCount=1

Sql="Select * From WWW_QQCF_COM_Counter Order By "&Px&" Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1

If Not rs.eof then
 IF not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
  Page=1
 Else
  Page=Int(Abs(Request("Page")))
 End if
 Rs.PageSize=10
 TotalRs=Rs.RecordCount
 TotalPage=Rs.pageCount
 MyPageSize=Rs.PageSize
 Rs.AbsolutePage=Page
End If
%>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
  <tr bgcolor="#00CCFF">
    <td colspan="3"><div align="center"><strong>每日点击网址报表</strong></div></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td width="60"><div align="center"><strong><a href="?Action=<%=Action%>&Px=AddDate">日　期</a></strong></div></td>
    <td><div align="center"><strong><a href="?Action=<%=Action%>&Px=Counter">比例</a></strong></div></td>
    <td width="60"><strong><a href="?Action=<%=Action%>&Px=Counter">点击数量</a></strong></td>
  </tr>
  <%
do while not rs.eof and mypagesize>0
%>
  <tr
  <%if mypagesize mod 2=0 then
  response.write " bgcolor='#ffffff'"
 else
  response.write " bgcolor='#e8e8e8'"
 end if
 %>>
    <td><div align="center"><%=Rs("AddDate")%></div></td>
    <td> <img src=qqcf_images/redbar.gif width=<%=Rs("Counter")/TotalCount*500%> height=10><%=int(Rs("Counter")/TotalCount*100)%>%</td>
    <td><%=Rs("Counter")%></td>
  </tr>
   <%
mypagesize=mypagesize-1
rs.movenext
loop%> <tr>
    <td>&nbsp;</td>
    <td colspan="2"><strong>总计点击</strong>:<%=TotalCount%>次</td>
  </tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td valign="top"><div align="right"><a href="?Action=<%=Action%>&Px=<%=Px%>&Page=1">第一页</a>
            <%
if page>1 then%>
            <a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page-1%>'>上一页</a>
            <%
end if
%>
            <%
if page<rs.pagecount   then%>
            <a href='?Action=<%=Action%>&Px=<%=Px%>&Page=<%=Page+1%>'>下一页</a>
            <%
end if
%>
            <a href="?Action=<%=Action%>&Px=<%=Px%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条</div></td>
    <form name="form1" method="post" action="jczx.asp">
      <td>
        <Select  name="select" size="1" onChange="window.location=form.page.options[form.page.selectedIndex].value">
          <%for i=1 to totalpage    
   response.write "<option value="&filename&"?action="&action&"px="&px&"&page="& i     
   if page=i then     
     response.write " selected"    
   end if    
   response.write ">转到第"& i &"页</option>"    
next    
%>
        </select>
      </td>
    </form>
  </tr>
</table>
注：点击上面标题可排序
<%end if%>
<%if request("action")="modifyadmin" then%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from WWW_QQCF_COM_Admin"
rs.open sql,conn,1,1%>
  <table width="760" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
    <form name="form1" method="post" action="?action=modifyadminsave">
      <tr> 
        <td colspan="2"><div align="center"><strong>系统设置</strong></div></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="39%"><div align="right"><font color="#000000">管理员名称：</font><font color="#FFFFFF">&nbsp;</font></div></td>
        <td width="61%"><input name="admin" type="text" id="admin" value="<%=rs("admin")%>" size="15"></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td><div align="right"><font color="#000000">管理员密码：</font><font color="#FFFFFF">&nbsp;</font></div></td>
        <td><input name="password" type="password" id="password" value="<%=rs("password")%>" size="15"></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td><div align="right"><font color="#000000">重复一次密码：</font></div></td>
        <td><input name="password2" type="password" id="password22" value="<%=rs("password")%>" size="15"></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td><div align="right">是否使用静态<font color="#000000">页网站：</font></div></td>
        <td><input type="radio" name="htm" value="-1" <%if rs("htm")=-1 then%>checked<%end if%>>
          是 
          <input name="htm" type="radio" value="0" <%if rs("htm")=0 then%>checked<%end if%>>
          否</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td><div align="right">打开网址后是否使用Banner：</div></td>
        <td><input type="radio" name="adbanner" value="-1" <%if rs("adbanner")=-1 then%>checked<%end if%>>
          是 
          <input name="adbanner" type="radio" value="0" <%if rs("adbanner")=0 then%>checked<%end if%>>
          否</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td><div align="right">是否使用QQ在线支持浮动面板：</div></td>
        <td><input type="radio" name="qqshow" value="-1" <%if rs("qqshow")=-1 then%>checked<%end if%>>
          是 
          <input name="qqshow" type="radio" value="0" <%if rs("qqshow")=0 then%>checked<%end if%>>
          否</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td><div align="right">在线支持QQ号码：</div></td>
        <td>
<input name="qqcode" type="text" id="qq" value="<%=rs("qqcode")%>" size="15"></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td colspan="2"><div align="center"> 
            <input type="submit" name="Submit4" value="修改">
            　 
            <input type="reset" name="Submit23" value="取消">
          </div></td>
      </tr>
    </form>
  </table>
<%end if%>
<%If request("action")="mdbdo" Then%>

  <table width="760" border=0 align=center cellPadding=3 cellSpacing=1 bordercolor="#00CCFF" bgcolor="#00CCFF" style="border-collapse: collapse">
          <tr align="center" bgcolor="#00CCFF">
        <td height=22 colspan="2"><strong>查看数据库文件大小</strong></td>
      </tr>
      <tr align="center" bgcolor="#FFFFFF"> 
        <td height=22 colspan="2">
<%
foldername=Request("foldername")
If foldername="" Then foldername=server.mappath("qqcf_data")
path=foldername
If Instr(path,"qqcf_data")=0 Then Call AlertBack("不能浏览这个目录！",1)
ShowFolderList(path) 



Function ShowFolderList(folderspec) 
temp=request.ServerVariables("HTTP_REFERER") 
temp=left(temp,Instrrev(temp,"/")) 
temp1=len(folderspec)-len(server.MapPath("./"))-1 
if temp1>0 then 
temp1=right(folderspec,cint(temp1)) 
elseif temp1=-1 then 
temp1="" 
end if 
tempurl=temp+replace(temp1,"\","/")+"/" 
Set fso = CreateObject("Scripting.FileSystemObject") 
upfolderspec=fso.GetParentfoldername(folderspec&"\") 
%>
<div align="center">| <a href="?Action=mdbdo&foldername=<%=upfolderspec%>">向上</a> 
  | <a href="?Action=mdbdo&">返回</a> | </div>
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6595D6">
    <tr bgcolor="#E4E8EF"> 
      <td width="455"><div align="center">名称</div></td>
      <td width="61"><div align="right">大小</div></td>
      <td width="54"><div align="center">类型</div></td>
      <td width="117"><div align="left">修改时间</div></td>
    </tr>
    <% 
'列出目录 
Set f = fso.GetFolder(folderspec) 
Set fc = f.SubFolders 
For Each f1 in fc 
%>
    <tr bgcolor="#E4E8EF" onMouseOut=this.bgColor='#E4E8EF'; onMouseOver=this.bgColor='#FFFFFF';> 
      <td><a href="<%= url%>?Action=mdbdo&foldername=<%= folderspec%>\<%= f1.name%>"><%= f1.name%></a></td>
      <td><div align="right">	  <%MySize=f1.size/1024
	  If MySize<1024 Then Response.write MySize&"K"
	  If MySize>=1024 Then Response.write MySize/1024&"M"%></div></td>
      <td><div align="center">文件夹</div></td>
      <td><div align="left"><%= f1.datelastmodified%></div></td>
    </tr>
    <% 
Next 
foldername=StrReverse(left(StrReverse(folderspec),instr(StrReverse(folderspec),"\")-1))&"/"
'列出文件 
Set fc = f.Files 
For Each f1 in fc 
%>
    <tr bgcolor="#E4E8EF"> 
      <td><%= f1.name%></td>
      <td><div align="right">
	  <%MySize=f1.size/1024
	  If MySize<1024 Then Response.write MySize&"K"
	  If MySize>=1024 Then Response.write MySize/1024&"M"%></div></td>
      <td><div align="left"></div></td>
      <td><div align="left"><%= f1.datelastmodified%></div></td>
    </tr>
    <% 
Next 
set fso=nothing 
%>
  </table> 
<%End Function %>
</td>
      </tr>
      <tr align="center"> 
        <td colspan="2" height=22> <strong>备份数据库</strong></td>
      </tr>
	  <form name="form1" method="POST" action="?Action=back">
      <tr align="center" bgcolor="#FFFFFF"> 
        <td height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动备份</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" height="26" align="right">数据库路径：</td>
        <td width="63%"> <input type="text" name="currf" size="50" value="qqcf_data/qqcf_wz #.mdb"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >备份数据目录：</td>
        <td > <input type="text" name="backf" size="50" value="qqcf_data/back"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >数据库名称：</td>
        <td class=tdc> <input type="text" name="backfy" size="50" value="qqcf_wz_back #.mdb"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >　</td>
        <td > <input type="submit" name="Submit" value="提交" class=bdtj> <input type="reset" name="Submit2" value="重置" class=bdtj> 
        </td>
      </tr>
    </form>
    <form name="form1" method="POST" action="?Action=ys">
      <tr align="center" bgcolor="#00CCFF"> 
        <td height=22 colspan="2" class=tdc1 <%=hColor2%>> 
          <strong>压缩及修复数据库</strong></td>
      </tr>
      <tr align="center" bgcolor="#FFFFFF"> 
        <td  height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动压缩</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >数据库路径：</td>
        <td > <input type="text" name="currf" size="50" value="qqcf_data/back/qqcf_wz_back #.mdb"> 
          <input name="assort" type="hidden" id="assort" value="2"> </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td  colspan="2" align="right"> <p align="left">（为了安全，请注意用备份的数据库文件来压缩，不要用当前正在运行的数据库文件）</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >　</td>
        <td > <input type="submit" name="Submit" value="提交" class=bdtj> <input type="reset" name="Submit2" value="重置" class=bdtj> 
        </td>
      </tr>
    </form>
    <form name="form1" method="POST" action="?Action=reload">
      <tr align="center" bgcolor="#00CCFF"> 
        <td height=22 colspan="2" class=tdc1 <%=hColor2%>> 
          <strong>恢复数据库</strong></td>
      </tr>
      <tr align="center" bgcolor="#FFFFFF"> 
        <td  height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动恢复</td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >当前数据库路径：</td>
        <td > <input type="text" name="currf" size="50" value="qqcf_data/qqcf_wz #.mdb"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >备份数据路径：</td>
        <td > <input type="text" name="backf" size="50" value="qqcf_data/back/qqcf_wz_back #.mdb"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="37%" align="right" >　</td>
        <td > <input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="重置"> 
        </td>
      </tr>
    </form>
  </table>

  <%end if%>
  
  <%if request("action")="htmmake" then%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from WWW_QQCF_COM_Admin"
rs.open sql,conn,1,1%>
  <table width="760" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
    <form name="form1" method="post" action="?action=modifyadminsave">
      <tr> 
        <td colspan="2"><div align="center"><strong>静态页更新</strong></div></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="39%"><div align="right">首页更新为静态页：</div></td>
        <td width="61%"><input type="reset" name="Submit523" value=" 点击这里更新首页 " onClick="window.location='?Action=indexhtmmake';return false"> 
        </td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td><div align="right">栏目页全部更新为静态页：</div></td>
        <td><input type="reset" name="Submit5233" value="点击这里更新栏目页" onClick="window.location='?Action=classhtmmake';return false"></td>
      </tr>
    </form>
  </table>
<%End If%>
  <%if request("action")="usesys" then%>
  <table width="760" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="#00CCFF" bgcolor="#00CCFF">
    <tr> 
      <td bgcolor="#00CCFF"> <div align="center"><strong>系统使用说明</strong></div></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><strong>使用范围:</strong></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF">　适合做一个网址网站，不需要花太多时间维护！<a href="http://www.qqcf.com" target="_blank"></a></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><strong>免费版本说明:</strong></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"> 　你正在使用乘风网址系统是免费版本，没有功能限制，但没有付费版的技术支持和升级服务，如果你确实需要本系统请付费支持，购买方法请浏览乘风网站<a href="http://www.qqcf.com" target="_blank">http://www.qqcf.com</a>,付费版将提供免费技术服务支持和免费升级服务!<br>
        　如果你保留页面最底面的一行版权,&quot;本系统采用原创程序-乘风网站推广系统V3.5构建&quot;,并做上http://www.qqcf.com的链接，你也可以获得作者的技术支持和升级服务.</td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><strong>付费版本说明:</strong></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF">　付费版本没有功能限制,付费个人版使用Access数据库,企业版本使用SqlServer数据库,结合存储过程编写,可以在超大流量的网站上稳定运行,购买方法请浏览乘风网站<a href="http://www.qqcf.com" target="_blank">http://www.qqcf.com</a></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><strong>疑难解答:</strong></td>
    </tr>
    <tr> 
      <td valign="top" bgcolor="#FFFFFF"><p align="left">1.无法生成静态页面？<br>
          　系统需要你的空间支持FSO和XMLHTTP,绝大多数空间都支持的，不行的话请询问你的空间商，还有系统里的文件名最好不要更换，替换了可能也会生成不了静态页面！<br>
          2.如何修改页面？<br>
          　系统里的静态页面都是由动态页面生成的，修改首页请修改QQCF_Index.asp文件，修改完后然后在&quot;更新静态页&quot;栏目里更新一下静态首页，修改二级页请修改QQCF_List.asp文件，修改完后然后在&quot;更新静态页&quot;栏目里更新一下静态栏目页<br>
          3.什么时候需要使用“更新静态页&quot;的功能<br>
          　增加或修改了类别的时候；修改了QQCF_Index.asp或QQCF_List.asp的时候</p></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><strong>系统功能：</strong></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF">生成静态页面，支持二级栏目，自带4000多条网址数据，点击报表，支持框架打开网址!</td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><strong>安全功能</strong></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF">1.完全防止Sql注入<br>
        2.完全防止Cookie值盗取,随机产生<br>
        3.数据库在线备份,压缩修复,保证数据即使出错了也可以迅速恢复正常状态</td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><strong>程序作者联系方式:</strong></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF">作 者:乘 风<br>
        网 址:<a href="http://www.qqcf.com" target="_blank">http://www.qqcf.com</a><br>
        E-Mail:<a href="mailto:showme99@126.com">showme99@126.com</a><br>
        Q Q:36599940<br>
        这里的信息请不要删除,因为对你系统升级和寻求技术支持一定有用的.</td>
    </tr>
    <form name="form4" method="post">
    </form>
  </table>
</div>

<%End If%>
<!--#include file="QQCF_Bottom.Asp"--> 
</body>
</html>
