⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 body.asp

📁 简单整站程序
💻 ASP
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="index.css" rel=stylesheet>

</HEAD>
<BODY background=<%=indexjpg%>>
<span style="font-size: 10pt">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</span>
<DIV id=menuDiv 
style="Z-INDEX: 1000; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px"></DIV>
<TABLE height=22 cellSpacing=0 cellPadding=0 width=900 align=center border=0>
  <TBODY>
  <TR>
    <TD height=22 bgColor=#f3f1e3 class="AnnounceBody2">
	<span style="font-size: 10pt"><font color="#008080">&nbsp;您现在的位置:</font>&nbsp;<A 
      class=LinkPath 
      href="http://www.xyslyz.com/">仙游私立第一中学</A>&nbsp;</span><font color="#008080"><span style="font-size: 10pt">&gt;&gt;&nbsp;网站首页</span></font></TD>
    </TR></TBODY></TABLE>

<TABLE width=900 border=0 align="center" cellPadding=0 cellSpacing=0 class=top-xuxian>
  <TBODY>
  <%if banner1flag="true" then%>  
  <TR>
    <TD bgColor=#ffffff>
    <%if right(banner1,3)="swf" then%>
	<span style="font-size: 10pt">
	<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj3" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="900">
		<param name="wmode" value="transparent">
		<param name="movie" value=<%=banner1%>>
		<param name="quality" value="High">
		<embed src=<%=banner1%> pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj3" width="900" quality="High"></object>
	</span>
	<%else%>
	<img border="0" src=<%=banner1%> width="900">	
	<%end if%>	
	</TD>
  </TR>
  <%end if%>	
</TBODY></TABLE>

<TABLE height=253 cellSpacing=0 cellPadding=0 width=900 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top align=left width=184 bgColor=#fbf8f1 height=253>
      <TABLE class=Left_sy cellSpacing=0 cellPadding=0 width=180 border=0>
        <TBODY>
        <TR>
          <TD width=180 background=body/left04.gif height=28></TD>
		</TR></TBODY></TABLE>
      <TABLE class=Left03 height=221 cellSpacing=0 cellPadding=0 width=180 
      align=left bgColor=#f5fcfe border=0>
        <TBODY>
        <TR>
          <TD>
            <TABLE width="180" height=222 border=0 align=center 
            cellPadding=0 cellSpacing=0 id="table20" style="WORD-BREAK: break-all">
              <TBODY id=Tabs style="DISPLAY: none">
              <TBODY id=Tabs>
              <TR>
                <TD vAlign=top align=middle height="20">
                   </TD></TR>
                  
              <TR>
                <TD vAlign=top align=middle>
                  <span style="font-size: 10pt">
                  <MARQUEE id=scrollarea onmouseover=this.stop(); onmouseout=this.start(); scrollAmount=2 scrollDelay=200 direction=up width=154 height=200>
                <% '显示公告                 
                  newggi=1
                  set rs=conn.execute("select * from Product where ggflag=1 order by changedate desc")
                  do while not rs.eof %>&nbsp;&nbsp;&nbsp;               
                  <A 
                  class=AnnounceBody1 
                  title=<%=rs("productname")%>
                  href="showinfo.asp?id=<%=rs("productid")%>&name=最新公告"><%=rs("ProductName")%><BR>
                  <DIV align=right><font color="#FF00FF"><%=rs("user")%></font> &nbsp;&nbsp;<BR><font color="#0000FF"><%=rs("changedate")%></font></DIV>
                  </A>
                  <HR>
               <%
                    rs.movenext
                    newggi=newggi+1
                    if newggi>10 then exit do
                  loop
                    RsClose()
               %>                
                 </MARQUEE>
                </span>
                </TD>
              </TR>
              
              </TBODY></TABLE>
          </TD></TR></TBODY></TABLE></TD>
    <TD vAlign=top width=400 bgColor=#ffffff>
      <TABLE cellSpacing=0 cellPadding=0  border=0 height="253">
        <TBODY>
        <TR>
          <TD height=27>
            <TABLE cellSpacing=0 cellPadding=0 width=720 border=0>
              <TBODY>
              <TR>
                <TD align=middle width=185 background=body/bg01.gif height=24></TD>
                <TD width="515"></TD>
              </TR>
              <TR>
                <TD bgColor=#2aa2cd height=3></TD>
                <TD bgColor=#cc9900 height=3></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD vAlign=top align=right height=226>
            <TABLE width="716" height=225 
              border=0 align="left" cellPadding=0 cellSpacing=0>
              <TBODY>
              <TR>
                <TD vAlign=center align=middle width=260 height=225>
                  <TABLE height=224 cellSpacing=0 cellPadding=0 width=245 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD align=middle width=300 
                      background=body/indexpicbg.gif><table height=181 cellspacing=0 cellpadding=0 width=260 
                        border=0>
                        <tbody>
                          <tr>
                            <td width="260" height=25 align="center" valign="middle"></td>
                          </tr>
                          <tr>
                            <td width=260 height=156 
          align=center valign="middle" 
          style="BACKGROUND-POSITION: center center; BACKGROUND-REPEAT: no-repeat"><span style="font-size: 10pt">
<script language=JavaScript>
<!--
function objSP_Article() {this.ImgUrl=""; this.LinkUrl=""; this.Title="";}
function SlidePic_Article(_id) {this.ID=_id; this.Width=0;this.Height=0; this.TimeOut=5000; this.Effect=23; this.TitleLen=0; this.PicNum=-1; this.Img=null; this.Url=null; this.Title=null; this.AllPic=new Array(); this.Add=SlidePic_Article_Add; this.Show=SlidePic_Article_Show; this.LoopShow=SlidePic_Article_LoopShow;}
function SlidePic_Article_Add(_SP) {this.AllPic[this.AllPic.length] = _SP;}
function SlidePic_Article_Show() {
  if(this.AllPic[0] == null) return false;
  document.write("<div align='center'><a id='Url_" + this.ID + "' href=''><img id='Img_" + this.ID + "' style='width:" + this.Width + "px; height:" + this.Height + "px; filter: revealTrans(duration=2,transition=23);' src='javascript:null' border='0'></a>");
  if(this.TitleLen != 0) {document.write("<br><span id='Title_" + this.ID + "'></span></div>");}
  else{document.write("</div>");}
  this.Img = document.getElementById("Img_" + this.ID);
  this.Url = document.getElementById("Url_" + this.ID);
  this.Title = document.getElementById("Title_" + this.ID);
  this.LoopShow();
}
function SlidePic_Article_LoopShow() {
  if(this.PicNum<this.AllPic.length-1) this.PicNum++ ; 
  else this.PicNum=0; 
  this.Img.filters.revealTrans.Transition=this.Effect; 
  this.Img.filters.revealTrans.apply(); 
  this.Img.src=this.AllPic[this.PicNum].ImgUrl;
  this.Img.filters.revealTrans.play();
  this.Url.href=this.AllPic[this.PicNum].LinkUrl;
  if(this.Title) this.Title.innerHTML="<a href="+this.AllPic[this.PicNum].LinkUrl+" target=_blank>"+this.AllPic[this.PicNum].Title+"</a>";
  this.Img.timer=setTimeout(this.ID+".LoopShow()",this.TimeOut);
}
//-->
</script>
<script language=JavaScript>
var SlidePic_536 = new SlidePic_Article("SlidePic_536");
SlidePic_536.Width    = 208;
SlidePic_536.Height   = 150;
SlidePic_536.TimeOut  = 5000;
SlidePic_536.Effect   = 23;
SlidePic_536.TitleLen = 30;
</script>


<%
name="校园动态"                 
set rs=conn.execute("select * from product where xyflag=1 order by changedate desc")
response.write "<SCRIPT language=JavaScript>"

for i=1 to 6
 if rs("smallPic")<>empty then
  if len(rs("ProductName"))>15 then
     ProductName=left(rs("ProductName"),14) &"..."
  else
     ProductName=rs("ProductName")
  end if
  response.write "var oSP = new objSP_Article();"
  response.write "oSP.ImgUrl         = 'UpLoadFile/"&rs("smallPic")&"';"
  response.write "oSP.LinkUrl        = '/showinfo.asp?id="&rs("ProductID") &"&name=校园动态"&"';"
  response.write "oSP.Title         = '"&ProductName&"';"
  response.write "SlidePic_536.Add(oSP);"
 end if 
 rs.movenext
 if rs.eof then exit for
next


response.write "SlidePic_536.Show();"
response.write "</SCRIPT>"


if not rs.bof then rs.movefirst

%>
                            </span></td>
                          </tr>
                        </tbody>
                      </table></TD>
                    </TR></TBODY></TABLE></TD>
                <TD vAlign=top width=456>
                
                  <TABLE cellPadding=5 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD>
                        <TABLE cellSpacing=0 cellPadding=0 width="440">
                          <TBODY>
                          <%
                          for i=1 to 11 %>
                          <TR>
                            <TD class="" vAlign=center width=10>
							   <IMG src="body/article_common2.gif">
							</TD>
                            <TD width="385" align=left class="">
                              <A href ="showinfo.asp?id=<%=rs("productid")%>&name=校园动态">
                                  <span style="font-size: 10pt">
                                  <%if rs("phflag")=1 then%>
                                      <img border="0" src="body/news.gif">                                  
                                  <%end if%>
                                  <%=rs("productname")%>
                                 </span>
							  </A>
							</TD>
                            <TD class="" align=right width=35>
                            <span style="font-size: 10pt">
                            <% temp=datepart("m",rs("ChangeDate")) &"-" & datepart("d",rs("ChangeDate"))
                               if cint(right(temp,2))<10 then
                                  temp1=left(temp,len(temp)-1) +"0"+right(temp,1)
                               else
                                  temp1=temp
                               end if                            
                               if temp=datepart("m",date) &"-" & datepart("d",date) then   
                               %>
                                  <FONT color=red ;FONT-SIZE: 13pt>
                                  <%=temp1%>
                                  </FONT>
                               <% else %>
                                  <FONT FONT-SIZE: 13pt><%=temp1%></FONT>
                               <%end if%>
                            </span>
                            </TD>
                              <%rs.movenext
                               if rs.eof then exit for                         
                              %>
                          </TR>
                          <% next
                           RsClose() %>
                </TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
              </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
      </TD></TR></TBODY></TABLE>
<TABLE height=60 cellSpacing=0 cellPadding=0 width=900 align=center border=0 id="table24">
  <TBODY>
  <%if banner2flag="true" then%>
  <TR>
    <TD bgColor=#f3f1e3>
    <%if right(banner2,3)="swf" then%><span style="font-size: 10pt">
	<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="900">
		<param name="wmode" value="transparent">
		<param name="movie" value=<%=banner2%>>
		<param name="quality" value="High">
		<embed src=<%=banner2%> pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="900" quality="High"></object>
	</span>    
	<%else%>
	<img border="0" src=<%=banner2%> width="900">	
	<%end if%>
	</TD>
  </TR>
  <%end if%>
  </TBODY>
</TABLE>

</BODY></HTML>

⌨️ 快捷键说明

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