搜索
编程论坛 → WEB开发 → 『 ASP技术论坛 』 → 请问大虾
标题：请问大虾
只看楼主
yh1062
Rank: 1
等　级：新手上路
帖　子：1
专家分：0
注　册：2008-10-20
楼主
 问题点数：0 回复次数：2 
请问大虾
下了一个ASP，用Dreamweaver打开只有“对不起，你没有执行该操行的权限”，删了<!--#include file="char.inc"-->后用Dreamweaver能打开，但是又运行不了，为什么？？？
<%@ Language=VBScript%>
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="function.asp"-->
<!--#include file="char.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="作星工作室http://www.
<title><%=jjgn%></title>
<LINK href=news.css rel=stylesheet>

<SCRIPT>
<!--
window.defaultStatus="<%=gg1%>";
//-->
</SCRIPT>
<script language="JavaScript">
<!--
if (self != top) top.location.href = window.location.href
//-->
</script>
<script language=JavaScript>
<!--
//
var version = "other"
browserName = navigator.appName;   
browserVer = parseInt(navigator.appVersion);
if (browserName == "Netscape" && browserVer >= 3) version = "n3";
else if (browserName == "Netscape" && browserVer < 3) version = "n2";
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";
function marquee1()
{
    if (version == "e4" | version == "n3")
    {
        document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:160px;  TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
    }
}

function marquee2()
{
    if (version == "e4" | version == "n3")
    {
        document.write("</marquee>")
    }
}

function marquee_logo_news()
{
    if (version == "e4")
    {
        document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 1200px; HEIGHT:31px;  TEXT-ALIGN: left; TOP: 0px' id='link_map' scrollamount='2' scrolldelay='10' behavior='alternate' direction='right' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
    }
}

function marquee3()
{
    if (version == "e4" | version == "n3")
    {
        document.write("<marquee direction='left' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
    }
}

function marquee4()
{
    if (version == "e4" | version == "n3")
    {
        document.write("</marquee>")
    }
}

function marquee5()
{
    if (version == "e4" | version == "n3")
    {
        document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:100px;  TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
    }
}

function marquee6()
{
    if (version == "e4" | version == "n3")
    {
        document.write("</marquee>")
    }
}

//-->
</script>
<script language="JavaScript1.2">
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}
</script>

<script LANGUAGE="javascript">
<!--
function checkdata()
{
if (document.user.UserName.value=="")
    {
      alert("对不起，请输入您的论坛用户名！");
      document.user.UserName.focus();
      return false;
     }
else if (document.user.Password.value=="")
    {
      alert("对不起，请输入您的论坛密码！");
      document.user.Passwd.focus();
      return false;
     }
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
//-->
</script>

<style type="text/css">
</style>
</head>
<body topmargin="0" >
<!--#include file="top.asp"-->
<%
dim typeid
dim typename
dim typecontent
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_Type_Table &" where typeview=1 order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraytypeID(10000),ArraytypeName(10000)

rs.close
set rs=nothing

set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_Type_Table &" where typeview=1 order by typeorder"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraytyID(10000),ArraytyName(10000),Arraytyview(10000)
if not rs.EOF then
rseof=1

while not rs.EOF
RecordCount=rs.RecordCount
tyID=rs("typeID")
tyName=trim(rs("typeName"))
tycontent=rs("typecontent")
tyview=trim(rs("typeview"))
ArraytyID(i)=tyID
ArraytyName(i)=tyName
Arraytyview(i)=tyview
i=i+1

rs.MoveNext
wend
rs.close
%>

  
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr align="right" valign="middle">
    <td height="30" colspan="3" background="images/top4.gif">
      <table width="590" border="0" cellpadding="0" cellspacing="0">
      <tr>
          <TD width="440" height=19 valign="top">
            <script language="JavaScript">marquee3();</script>
          <%


set rs9=server.CreateObject("ADODB.RecordSet")
rs9.Source="select   * from "& db_News_Table &" where checkked=1  order by newsid desc"

rs9.Open rs9.Source,conn,1,1


bbb=0
do while not rs9.EOF and bbb<6
aaa=0
set rsgui=server.CreateObject("ADODB.RecordSet")
rsgui.Source="select * from "& db_Type_Table &" where mode=3 order by typeid"
rsgui.Open rsgui.Source,conn,1,1
  while not rsgui.eof and not rs9.eof and  not aaa=1
if rs9("typeid")=rsgui("typeid" ) then
rs9.movenext
aaa=1
end if


rsgui.movenext
wend
rsgui.close
set rsgui=nothing
if aaa=0 then
title=trim(rs9("title"))
newsurl="ReadNews.asp?NewsID=" & rs9("NewsID")
newswwwurl=rs9("titleface")
%>
          <a class=middle target="_blank" href="<%if rs9("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(title)%>">
            <img src="images/d.gif" width="13" height="10" border="0"><font color=<%=rs9("titlecolor")%>><%=CutStr(htmlencode4(rs9("title")),14)%></font>&nbsp;&nbsp;
            <%rs9.movenext
        bbb=bbb+1
end if
loop
rs9.close
set rs9=nothing%>
            
      <script language="JavaScript">marquee4();</script>
            </a> </TD>
        <TD width="150">&nbsp;</TD>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td width="160" rowspan="2" valign="top">
      <table width="100%" border="0" cellpadding="3" cellspacing="0" class="biankuang">
        <tr>
          <td valign="top"> </td>
        </tr>
        <tr >
          <td height="34" background="IMAGES/liuyan1.GIF">&nbsp;</td>
        </tr>
        <tr >
          <td> <!--#include file="ReviewIndex.asp"--> </td>
        </tr>
        <tr >
          <td height="34" background="images/left1-m1.gif">&nbsp;</td>
        </tr>
        <tr >
          <td align="center" valign=top  > <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="98%" id="AutoNumber5">
              <%
dim ii
ii = 0
set rs=server.CreateObject("ADODB.RecordSet")
if DbType = "MSSQL" then
        rs.Source="select top " & top_txt & " * from "& db_News_Table &" where updatetime>'"& now()-30 &"' and checkked=1 order by click DESC"   '选择本月
else
        rs.Source="select top " & top_txt & " * from "& db_News_Table &" where (updatetime>now()-30) and checkked=1 order by click DESC"   '选择本月
end if
rs.Open rs.Source,conn,1,1
if rs.bof and rs.eof then
    response.write "<tr><td align=center><br>暂 无<br><br></td></tr>"
else
    do while not rs.eof
    
    aaa=0
    set rsgui=server.CreateObject("ADODB.RecordSet")
rsgui.Source="select * from "& db_Type_Table &" where mode=3 order by typeid"
rsgui.Open rsgui.Source,conn,1,1
  while not rsgui.eof and not rs.eof and  not aaa=1
if rs("typeid")=rsgui("typeid" ) then
rs.movenext
aaa=1
end if
rsgui.movenext
wend
rsgui.close
set rsgui=nothing
if aaa=0 then    
    %>
              
              <tr>
                <td height=18> ·
                  <%if rs("picnews")=1 then%> <img src="images/news_img.gif"> <%end if%> <a class=middle href="ReadNews.asp?NewsID=<%=rs("NewsID")%>" title="<%=htmlencode4(rs("title"))%>" target="_blank" ><%=CutStr(htmlencode4(rs("title")),14)%></a> </td>
              </tr>
              <%
              
            
              ii = ii + 1
end if

    if ii>top_txt-1 then exit do
    rs.movenext     
    loop
end if  
rs.close   
set rs=nothing%>
              
            </table></td>
        </tr>
        <tr>
          <%if topfont=1 then%>
         
         
        </tr>
        <tr >
          <td align="center"  > </td>
        </tr>
        <tr >
          <td height="34" align="center" valign="middle" background="images/left1-m2.gif">&nbsp;</td>
        </tr>
        <tr >
          <td align="left"  > <div align="center"><br>
              <table width="98%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td> <script src=<%=BbsPath%>newtopic.asp?boardid=all&lock=0&bname=0&tlen=8&n=10&sdate=&orders=4&info=0&action=1&reply=0&showpic=0></script>
                  </td>
                </tr>
              </table>
              <br>
            </div></td>
        </tr>
        <%end if%>
        <tr >
          <%if showspecial="1" then%>
          <td height="34" background="images/left1-m4.gif" ></td>
        </tr>
        <tr>
          <td height="50" > <%if showspecial=1 then%> <%set rs2=server.CreateObject("ADODB.RecordSet")  '专题
rs2.Source="select Top " & top_sp & " * from "& db_Special_Table &"  order by SpecialID DESC "
rs2.Open rs2.Source,conn,1,1
if not rs2.EOF then
while not rs2.EOF

TrString="&nbsp;·&nbsp;<a class=class href='Special_News.asp?SpecialID=" & rs2("SpecialID") &"'>" & trim(CutStr(htmlencode4(rs2("SpecialName")),14)) & "</a><br>"
Response.Write TrString

rs2.MoveNext
wend
%> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a class=class href=Special.asp>更多专题...</a>
            <%
else
Response.Write "<tr><td width=100% align=center height=40>暂无专题</td></tr>"
end if
rs2.Close
set rs2=nothing

  
%> </td>
        </tr>
        <%end if%>
        <%end if%>
        <tr >
          <% if showdata=1 then%>
          <td height="34" align="center" background="images/left1-m5.gif">&nbsp;</td>
        </tr>
        <tr >
          <td > <br> <%                                
        function gettipnum()
            dim tmprs
            tmprs=conn.execute("Select Count(NewsID) from "& db_News_Table &" where checkked=1")
            gettipnum=tmprs(0)
            set tmprs=nothing
            if isnull(gettipnum) then gettipnum=0
        end function

        function todays()
            dim tmprs
            tmprs=conn.execute("Select count(NewsID) from "& db_News_Table &" Where checkked=1 and year(updatetime)="& year(date()) &" and month(updatetime)="& month(date()) &" and day(updatetime)="& day(date()) &"")
            todays=tmprs(0)
            set tmprs=nothing
            if isnull(todays) then todays=0
        end function

        function getusernum()
            dim rs
            rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &"")
            getusernum=rs(0)
            set rs=nothing
            if isnull(getusernum) then getusernum=0
        end function

        function getgg()
            dim rs
            if db_Sex_Select = "zuoxing" then
                rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where  "& db_User_Sex &"='男' ")
                getgg=rs(0)
                set rs=nothing
            else
                if db_Sex_Select = "Number" then
                    rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where  "& db_User_Sex &"=1")
                    getgg=rs(0)
                    set rs=nothing
                end if
            end if
            if isnull(getgg) then getgg=0
        end function

        function getmm()
            dim rs
            if db_Sex_Select = "zuoxing" then
                rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where  "& db_User_Sex &"='女' ")
                getmm=rs(0)
                set rs=nothing
            else
                if db_Sex_Select = "Number" then
                    rs=ConnUser.execute("Select Count("& db_User_Id &") from "& db_User_Table &" where  "& db_User_Sex &"=0")
                    getmm=rs(0)
                    set rs=nothing
                end if
            end if
            if isnull(getmm) then getmm=0
        end function

        function getother()
            dim rs
            if db_Sex_Select = "zuoxing" then
                rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &" where  "& db_User_Sex &" = '保密' ")
                getother=rs(0)
                set rs=nothing
            else
                if db_Sex_Select = "Number" then
                    rs=ConnUser.execute("Select Count("& db_User_ID &") from "& db_User_Table &" where  "& db_User_Sex &" <>1 and  "& db_User_Sex &"<>0 ")
                    getother=rs(0)
                    set rs=nothing
                end if
            end if
            if isnull(getother) then getother=0
        end function
        %> &nbsp;&nbsp;○- 今日文章：<font color=red><%=todays()%></font><br> &nbsp;&nbsp;○- 文章总数：<font color=red><%=gettipnum()%></font><br> &nbsp;&nbsp;○- 会员总数：<font color=red><%=getusernum()%></font><br>
            <!--#include file=LastMember.asp -->
            <br> <br> <%if showcount=1 then%> <script src=Cnt.asp></script>
            <!--#include file=zx.asp -->
            <br> &nbsp;&nbsp;○- 当前在线：<font color=red><%=i%></font><br> <br> <%end if%> </td>
        </tr>
        <%end if%>
        <tr>
          <td valign="top"> </td>
        </tr>
        <%if showuser=1 then%>
        <%end if%>
        
        <tr>
          <%if showvote="1" then%>
          <td height="34" background="images/left1-m7.gif"> <div align="center" class="style1"></div></td>
          <%
        set rs=conn.execute("SELECT * FROM " & db_Vote_Table & " where IsChecked=1")
        if rs.eof then
        %>
         
        <tr align="center">
          <TD height="30" valign="bottom">尚无任何投票</TD>
        </tr>
        <%else%>
        <TR>
          <TD width=100% align="center"><b><br>
            </b><%=rs("Title")%></TD>
        </TR>
        <FORM action="Vote.asp" target="newwindow" method=post name=research>
          <TR>
            <TD vAlign=top width="100%"> <%
for i=1 to 8
    if rs("Select"&i)<>"" then
%> <INPUT style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>>
              <%=i%>.<%=rs("Select"&i)%><BR> <%    end if
next
%> </TD>
          </TR>
          <TR>
            <TD width="100%" height=30 align=center> <INPUT style="cursor:hand" type=submit value="投它一票" id=submit1 name=submit1>
              <INPUT onclick="javascript:vote()" type="button" value="查看结果" id=button1 name=button1 style="cursor:hand">
            </TD>
          </TR>
        </FORM>
        <%end if%>
        <%end if%>
        
      </table>
</td>
    <td width="10" rowspan="2" background="images/left-s.gif"></td>
    <td width="590" align="center" valign="top">
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="450" height="34" valign="top" background="IMAGES/tjxw.jpg" bgcolor="#009999">&nbsp;
          </td>
          <td width="140" rowspan="2" align="right" valign="top" class="biankuang">
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td height="34" background="images/fast-2.gif">&nbsp;</td>
              </tr>
              <%
 dim  BDID1
set rsb=server.CreateObject("ADODB.RecordSet")
rsb.Source="select * from "& db_Board_Table &" order by ID DESC"
rsb.Open rsb.Source,conn,1,1
BDID1=rsb("id")
if not rsb.EOF then
%>
              
              <tr>
                <td height="118" align=center>
                  <table width="90%" height="90%" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td align="center"> <MARQUEE onmouseover=this.stop() onmouseout=this.start()
                        scrollAmount=1 scrollDelay=100 direction=up width="100%"
                        height=200 border="0">
                        <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                          <TBODY>
                            <% while not rsb.eof %>
                           
                            <TR>
                              <TD width="100%"> ·<A class=link2 HREF="BoardNews.asp?BDID=<%=BDID1%>" target="_blank" ><%=CutStr(htmlencode4(rsb("title")),100)%></A> </TD>
                            </TR>
                            <% rsb.movenext
                              BDID1=rsb("id")
                               wend %>
                           
                          </TBODY>
                        </TABLE>
                        </MARQUEE> </td>
                    </tr>
                  </table></td>
              </tr>
              <%else Response.Write "<tr><td align=center><br>暂  无</td></tr>"
        end if
     rsb.close
      set rsb=nothing%>
              
            </table>
          </td>
        </tr>
        <tr>
          <td width="450" valign="top" bgcolor="#FFFFFF">
            <!--#include file=DaoDu.asp -->
          </td>
        </tr>
        <tr>
          <td height="32" colspan="2" background="images/photonews.gif">&nbsp;</td>
        </tr>
        <tr>
          <td height="100" colspan="2" align="center" bgcolor="#FFFFFF"> <!--#include file="NewsTopPhoto.asp"--> </td>
        </tr>
        <tr>
          <td height="8" colspan="2" valign="top" background="images/t1.gif">&nbsp;</td>
        </tr>
        <tr>
          <td colspan="2" valign="top"> <%
for i=1 to RecordCount
typeID=Arraytyid(i)
typeName=ArraytyName(i)
%>
            <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#f0f8ff" id="AutoNumber6" style="border-collapse: collapse">
              <tbody>
                <tr>
                  <td width="292" valign="top">
                    <table width="100%" border="0" cellpadding="3" cellspacing="0" class="biankuangindex" id="AutoNumber12" style="border-collapse: collapse">
                      <tbody>
                        <tr>
                          <td  background="IMAGES/titlemain.gif" height="30" colspan="2">&nbsp;&nbsp;&nbsp;<img src="IMAGES/D_1.gif" width="13" height="13" align="absmiddle">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font><A class=top HREF="Type.asp?typeid=<%=typeid%>"><%=typeName%></A></font></td>
                        </tr>
                        <tr>
                          <td width="10%" align="left" valign="top"> <%
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
    if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
        rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
    end if
    if Request.cookies(Forcast_SN)("key")="" then
        rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and newslevel=0 and picnews=1 and picname is not null) order by newsid DESC"
    end if
    if Request.cookies(Forcast_SN)("key")="selfreg" then
        if Request.cookies(Forcast_SN)("reglevel")=3 then
            rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
        end if
        if Request.cookies(Forcast_SN)("reglevel")=2 then
            rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
        end if
        if Request.cookies(Forcast_SN)("reglevel")=1 then
            rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
        end if
    end if
else
    rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
rs.Open rs.Source,conn,1,1
if rs.EOF then
    Response.Write "<img src='images/notopic.gif' width=56 border=0 height=56>"
else
while not rs.EOF
    title=rs("title")
    fileExt=lcase(getFileExtName(rs("picname")))
    %> <a class="class" target="_blank" href="ReadNews.asp?newsid=<%=rs("newsid")%>" title="<%=htmlencode4(title)%>">
                            <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                            <img src="<%=FileUploadPath & rs("picname")%>" width="56" border=1 style=border-color:#ffffff height="56">
                            </a> <%end if%> <%if fileext="swf" then%> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.,0,0,0" width="56" height="56">
                              <param name="movie" value="<%=FileUploadPath & rs("picname")%>">
                              <param name="quality" value="high">
                              <param name="Play" value="-1">
                              <param name="Loop" value="0">
                              <param name="Menu" value="-1">
                              <embed src="<%=FileUploadPath & rs("picname")%>" width="56" pluginspage="http://www. type="application/x-shockwave-flash"></embed></object>
                            <%end if%> <%
    rs.MoveNext
wend
    end if
    rs.close
    set rs=nothing
    %> </td>
                          <td width="90%" valign="top"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber11">
                              <% dim rs3
    set rs3=server.CreateObject("ADODB.RecordSet")
    if uselevel=1 then
        if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
            rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
        end if
        if Request.cookies(Forcast_SN)("key")="" then
            rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
        end if
        if Request.cookies(Forcast_SN)("key")="selfreg" then
            if Request.cookies(Forcast_SN)("reglevel")=3 then
                rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
            end if
            if Request.cookies(Forcast_SN)("reglevel")=2 then
                rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
            end if
            if Request.cookies(Forcast_SN)("reglevel")=1 then
                rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
            end if
        end if
    else
        rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
    end if
    rs3.Open rs3.Source,conn,1,1
    while not rs3.EOF
        newsurl="ReadNews.asp?NewsID=" & rs3("NewsID")
        newswwwurl=rs3("titleface")
        fileExt=lcase(getFileExtName(rs3("picname")))
        if showyear=1 then
            datetime="<font class=middle>(" & year(rs3("UpdateTime"))  &"年"& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
        else
            datetime="<font class=middle>("& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
        end if
        if rs3("picnews")=1 then
            if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
            img=" <img src='images/news_img.gif' border='0'>"
                else
            img="<img src='images/news_media.gif' border='0'>"
            end if
        else
            img=""
        end if

        '增加小类名称程序开始
    if rs3("bigclassID")<>"" then
        B=rs3("bigclassID")
        set rs22=server.createobject("adodb.recordset")
        sql="SELECT bigclassID,bigclassname FROM "& db_BigClass_Table &" WHERE bigclassID="&B
        Set rs22=Conn.Execute(sql)
        A=rs22("bigclassname")
        rs22.close
        set rs22=Nothing
    else
        A="本栏"
    end if

        '增加小类名称程序结束
        %>
                              
                              <tbody>
                                <tr>
                                  <td> <table width="100%" border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
                                      <tbody>
                                        <tr>
                                          <td>[<%=A%>]<%=img%> <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank">
                                            <font color="<%=rs3("titlecolor")%>">
                                            <%=CutStr(htmlencode4(rs3("title")),14)%> </font> </a>
                                            <!--标题后评论提示-->
                                            <% if rs3("titlesize")>=1 then %> <A class=middle HREF="<%=path%>Review.asp?NewsID=<%=rs3("NewsID")%>" target="_blank" ><font color=red><b>评</b></font></A>
                                            <%end if %>
                                            <!--标题后评论提示-->
                                            <%''if showauthor="1" then%> <%''=rs3("Author")%> <%''end if%> </td>
                                        </tr>
                                      </tbody>
                                    </table></td>
                                </tr>
                                <%
                                rs3.MoveNext
wend
%>
                                
                              </tbody>
                            </table></td>
                        </tr>
                        <tr>
                          <td width="10%" align="right"></td>
                          <td width="90%" align="right"><a class="class" href="Type.asp?typeid=<%=typeid%>"><img src="images/more.gif" border="0" alt="更多<%=typeName%>" /></a></td>
                        </tr>
                      </tbody>
                    </table></td>
                  <%i=i+1
              typeID=Arraytyid(i)
              typeName=ArraytyName(i)
              if i<=RecordCount then
              %>
                  
                  <td width="1" valign="top" bgcolor="#D9D5D5"></td>
                  <td width="50%" valign="top">
                    <table width="100%" border="0" cellpadding="3" cellspacing="0" class="biankuangindex" id="AutoNumber13" style="border-collapse: collapse">
                      <tbody>
                        <tr >
                          <td background="IMAGES/titlemain.gif" height="30" colspan="2">&nbsp;&nbsp;<img src="IMAGES/D_1.gif" width="13" height="13" align="absmiddle">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font><a class=top href="Type.asp?typeid=<%=typeid%>"><%=typeName%></a></font></td>
                        </tr>
                        <tr>
                          <td width="10%" align="left" valign="top"> <%
set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="" then
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and newslevel=0 and picnews=1 and picname is not null) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="selfreg" then
    if Request.cookies(Forcast_SN)("reglevel")=3 then
    rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
    end if
    if Request.cookies(Forcast_SN)("reglevel")=2 then
    rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
    end if
    if Request.cookies(Forcast_SN)("reglevel")=1 then
    rs.Source="select top " & L_BG & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null) order by newsid DESC"
    end if
end if
else
rs.Source="select top " & L_BG & " * from "& db_News_Table &" where typeid=" & typeid &" and checkked=1 and picnews=1 and picname is not null order by newsid DESC"
end if
rs.Open rs.Source,conn,1,1
if rs.EOF then
Response.Write "<img src=images/notopic.gif width=56 border=0 height=56>"
else
while not rs.EOF
title=rs("title")
fileExt=lcase(getFileExtName(rs("picname")))
%> <a class="class" target="_blank" href="ReadNews.asp?newsid=<%=rs("newsid")%>" title="<%=htmlencode4(title)%>">
                            <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
                            <img src="<%=FileUploadPath & rs("picname")%>" width="56" border=1 style=border-color:#ffffff height="56" /></a>
                            <%end if%> <%if fileext="swf" then%> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.,0,0,0" width="56" height="56">
                              <param name="movie" value="<%=FileUploadPath & rs("picname")%>" />
                              <param name="quality" value="high" />
                              <param name="Play" value="-1" />
                              <param name="Loop" value="0" />
                              <param name="Menu" value="-1" />
                              <embed src="<%=FileUploadPath & rs("picname")%>" width="56" pluginspage="http://www. type="application/x-shockwave-flash"></embed>
                            </object> <%end if%> <%
                rs.MoveNext
wend
end if
rs.close
set rs=nothing
%> </td>
                          <td width="90%" valign="top"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber14">
                              <%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies(Forcast_SN)("key")="super" or Request.cookies(Forcast_SN)("key")="typemaster" or Request.cookies(Forcast_SN)("key")="bigmaster" or Request.cookies(Forcast_SN)("key")="smallmaster" or Request.cookies(Forcast_SN)("key")="check" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="" then
rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
if Request.cookies(Forcast_SN)("key")="selfreg" then
    if Request.cookies(Forcast_SN)("reglevel")=3 then
    rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
    end if
    if Request.cookies(Forcast_SN)("reglevel")=2 then
    rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
    end if
    if Request.cookies(Forcast_SN)("reglevel")=1 then
    rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1 ) order by newsid DESC"
    end if
end if
else
    rs3.Source="select top " & top_news & " * from "& db_News_Table &" where (typeid=" & typeid &" and checkked=1) order by newsid DESC"
end if
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
newsurl="ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
fileExt=lcase(getFileExtName(rs3("picname")))
if showyear=1 then
datetime="<font class=middle>(" & year(rs3("UpdateTime"))  &"年"& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
else
newsurl="ReadNews.asp?NewsID=" & rs3("NewsID")
newswwwurl=rs3("titleface")
datetime="<font class=middle>("& Month(rs3("UpdateTime"))  &"月"& Day(rs3("UpdateTime")) &"日)</font>"
end if

if rs3("picnews")=1 then
            if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then
            img=" <img src='images/news_img.gif' border='0'>"
            else
            img="<img src='images/news_media.gif' border='0'>"
            end if
            else
            img=""
        end if
%>
                              <%
        '增加小类名称程序开始
    if rs3("bigclassID")<>"" then
        B=rs3("bigclassID")
        set rs22=server.createobject("adodb.recordset")
        sql="SELECT bigclassID,bigclassname FROM "& db_BigClass_Table &" WHERE bigclassID="&B
        Set rs22=Conn.Execute(sql)
        A=rs22("bigclassname")
        rs22.close
        set rs22=Nothing
    else
        A="本栏"
    end if

        '增加小类名称程序结束
%>
                              
                              <tbody>
                                <tr>
                                  <td><table width="100%" border="0" cellpadding="2" cellspacing="0">
                                      <tbody>
                                        <tr>
                                          <td>[<%=A%>]<%=img%> <a class="middle" href="<%if rs3("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs3("title"))%>" target="_blank">
                                            <font color="<%=rs3("titlecolor")%>">
                                            <%=CutStr(htmlencode4(rs3("title")),14)%> </font> </a>
                                            <!--标题后评论提示-->
                                            <% if rs3("titlesize")>=1 then %> <A class=middle HREF="<%=path%>review.asp?NewsID=<%=rs3("NewsID")%>" target="_blank" ><font color=red><b>评</b></font></A>
                                            <%end if %>
                                            <!--标题后评论提示-->
                                            <%''if showauthor="1" then%> <%''=rs3("Author")%> <%''end if%> </td>
                                        </tr>
                                      </tbody>
                                    </table></td>
                                </tr>
                                <%rs3.MoveNext
wend
%>
                                
                              </tbody>
                            </table></td>
                        </tr>
                        <tr>
                          <td width="10%" align="right"></td>
                          <td width="90%" align="right"><a class="class" href="Type.asp?typeid=<%=typeid%>"><img src="images/more.gif" border="0" alt="更多<%=typeName%>" /></a></td>
                        </tr>
                      </tbody>
                    </table></td>
                  <%end if%>
                </tr>
                <tr>
                  <td colspan="3" valign="top" >
                  <% if i=2  then %>
                     <% if right(lmgg1,3)="swf" then %> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.,0,29,0" width="588" height="<%=lmgg1h%>" >
                      <param name="movie" value="<%=lmgg1%>">
                      <param name="quality" value="high">
                      <embed src="<%=lmgg1%>" quality="high" pluginspage="http://www. type="application/x-shockwave-flash" width="588"  height="<%=lmgg1h%>" ></embed></object>
                    <% else %> <a href="<%=lmgg11%>" target="_blank"><img src="<%=lmgg1%>" width="588" height="<%=lmgg1h%>" hspace="0" vspace="0" border="0"></a>
                    <% end if %> <% end if %>
                <% if i=4  then %>
                       <% if right(lmgg2,3)="swf" then %> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.,0,29,0" width="588" height="<%=lmgg2h%>">
                      <param name="movie" value="<%=lmgg2%>">
                      <param name="quality" value="high">
                      <embed src="<%=lmgg2%>" quality="high" pluginspage="http://www. type="application/x-shockwave-flash" width="588" height="<%=lmgg2h%>" ></embed></object>
                    <% else %> <a href="<%=lmgg22%>" target="_blank"><img src="<%=lmgg2%>" width="588"  height="<%=lmgg2h%>" hspace="0" vspace="0" border="0"></a>
                    <% end if %> <% end if %>
                <% if i=6  then %>
                    <% if right(lmgg3,3)="swf" then %> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.,0,29,0" width="588" height="<%=lmgg3h%>" >
                  <param name="movie" value="<%=lmgg3%>">
                    <param name="quality" value="high">
                     <embed src="<%=lmgg3%>" quality="high" pluginspage="http://www. type="application/x-shockwave-flash" width="588" height="<%=lmgg3h%>" ></embed>
                      </object>
                    <% else
                  if left(right(lmgg3,4),1)="." then
                  %> <a href="<%=lmgg33%>" target="_blank"><img src="<%=lmgg3%>" width="588"  height="<%=lmgg3h%>"  hspace="0" vspace="0" border="0"></a>
                    <%
                    end if
                    end if %> <% end if %> </td>
                </tr>
              </tbody>
            </table>
            <%
next
rs3.close
set rs3=nothing
%> </td>
        </tr>
      </table>
    </td>
  </tr>

</table>
  
<table width="760" border="0"  align="center" cellspacing="0" cellpadding="0">
  <tr>
      <td width="160" valign="top" background="images/left.gif"></td>
      <td width="10" background="images/left-s.gif"></td>
      <td width="590" valign="top" bgcolor="#FFFFFF"></td>
    </tr>
    <tr>
      <td background="images/db.gif" height="30" colspan="3" valign="top">&nbsp;</td>
    </tr>
  </table>

  
<table width="760" height="31" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <%if showlinkmap=1 then%>
    <td colspan="2" align="center" height="31"> <%if linkshownum >8 then
        Response.Write "<script language=JavaScript>marquee_logo_news();</script><P align=left>"& vbcrlf
    end if
    set rs10=server.CreateObject("ADODB.RecordSet")
    rs10.Source="select top "& linkshownum &" * from "& db_Link_Table &" where linktype=2 and pass=1 order by ID DESC "
    rs10.Open rs10.Source,conn,1,1
    for i=1 to linkshownum
        if not rs10.EOF then%> <a href="<%=rs10("weburl")%>" target="_blank" title="<%=rs10("webname")%> 简介：<%=rs10("content")%> 站长：<%=rs10("webmaster")%> 申请时间：<%=rs10("dateandtime")%>"><img src="<%=rs10("logo")%>" width="88" height="31" border="0" align=left></a>
      <%rs10.MoveNext
        else%> <a href="#" onclick="javascript:linkreg()"><img src="images/logo.gif" width=88 height=31 border=0 align=left></a>
      <%end if
    Next%> </td>
    <%
    rs10.Close
    set rs10=nothing
end if%>
   
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" >
  <tr>
    <%if showlink=1 then
set rs10=server.CreateObject("ADODB.RecordSet")
rs10.Source="select top "& linkshownum &" * from "& db_Link_Table &" where linktype=0 and pass=1 order by ID DESC "
rs10.Open rs10.Source,conn,1,1
for i=1 to 6
    if not rs10.EOF then
    %>
    <td height=31 align="center"><a class="middle" href="<%=rs10("weburl")%>" target="_blank" title="<%=rs10("content")%>
站长：<%=rs10("webmaster")%>
申请时间：<%=rs10("dateandtime")%>"><%=rs10("webname")%></a></td>
    <%
rs10.MoveNext
else
%>
   
    <td height=31 align="center"><a class="middle" href="#" onclick="javascript:linkreg()">您的位置</a></td>
    <%end if
    Next
rs10.Close
set rs10=nothing
%>
   
    <td align="center"><input type=button style="cursor:hand" name=link1 value="申请" onclick="javascript:linkreg()">
      <input type=button style="cursor:hand" name=link1 value="更多" onclick="javascript:morelink()">
    </td>
  </tr>
  <%end if%>
  
</table>

  
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="190" align="center">
      <select style="WIDTH: 140px" onChange=javascript:window.open(this.options[this.selectedIndex].value) size=1 name=select>
        <option value="#" selected>教育网站链接</option>
        <option value="http://www.moe.中华人民共和国教育部</option>
        <option value="http://www.中国基础教育网</option>
        <option value="http://www.教育教学网</option>
        <option value="http://www.惟存教育</option>
        <option value="http://www.人教网</option>
        <option value="http://www.中国教育技术学科资源网</option>
        <option value="http://www.赛伯时空教育</option>
        <option value="http://www.kepu.中国科普</option>
      </select>
    </td>
    <td width="190" align="center">
      <select style="WIDTH: 140px" onChange=javascript:window.open(this.options[this.selectedIndex].value) size=1 name=select8>
        <option selected value="#">查询站点链接</option>
        <option value="http://www.天气在线</option>
        <option value="http://www.火车时刻表</option>
        <option value="http://www.汽车时刻表</option>
      </select>
    </td>
    <td width="190" align="center">
      <select style="WIDTH: 140px" onChange=javascript:window.open(this.options[this.selectedIndex].value) size=1 name=select7>
        <option value="#" selected>兄弟学校链接</option>
        <option value="http://www.北正街小学</option>
        <option value="http://www.育英小学</option>
        <option value="http://www.东升小学</option>
      </select>
    </td>
    <td width="180" align="center">
<select style="WIDTH: 140px" onChange=javascript:window.open(this.options[this.selectedIndex].value) size=1 name=select6>
        <option value="#" selected>班级个人主页</option>
      </select>
    </td>
  </tr>
</table>
<%else%>

  <p>
  <%
Response.Write "<table width=760 align=center border=0 height=50><tr><td align=center>暂 无 文 章 类 别，请 <a href=login.asp>登 陆</a> 后 添 加！</td></tr></table>"
%>
  
</p>
<%end if%>
  <!--#include file=Bottom.asp -->
搜索更多相关主题的帖子: html　head　content　include　file　
2008-10-20 12:00
sunfishy
Rank: 3Rank: 3
等　级：论坛游侠
威　望：5
帖　子：311
专家分：163
注　册：2007-6-29
第 2 楼
 得分:0 
论坛最长代码贴.

<!--#include file="char.inc"-->这里面包含什么内容.
2008-10-20 12:07
nicechlk
Rank: 3Rank: 3
等　级：论坛游侠
威　望：4
帖　子：330
专家分：187
注　册：2008-9-6
第 3 楼
 得分:0 
[bo][un]sunfishy[/un] 在 2008-10-20 12:07 的发言：[/bo]

论坛最长代码贴.

这里面包含什么内容.

同意！

莫以善小而不为,莫以恶小而为之!
2008-10-20 12:44



参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-239390-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.259970 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved