default_left.asp

庐江二中

<!--左栏开始-->
<%set rs=conn.execute("SELECT * FROM menu")
if not Rs.eof then%>
<table border="0" cellspacing="0" cellpadding="0" width="100%" align="center" bgcolor="<%=LeftBColor%>" >
<%=TTitle("left","教研分站")%>
<tr>
<td align="center" bgcolor="<%=LeftCColor%>" background="<%=LeftCImg%>">
<table border="0" cellspacing="0" cellpadding="3">
<%do while not rs.eof%>
<tr><td class=leftmenu><img border="0" src="images/jing.gif">&nbsp;<a class=leftmenu href="<%=rs("Url")%>" title="<%=rs("intro")%>"><%=rs("Name")%></a></td></tr>
<%rs.movenext
loop%>
</table>
</td>
</tr>
<%=InTable("bottoml")%>
</table>
<%
end if
rs.close

if ShowUserLogin=1 then%>
<!--#include file="showuserlogin.asp"-->
<%end if%>

<!--#include file=SpecialName.asp-->

<%if ShowStatistic=1 then%>
<table width="100%" border=0 cellspacing="0" bgcolor="<%=LeftBColor%>" cellpadding="0">
<%=TTitle("left","网站数据")%>
<tr>
<td align=middle bgcolor="<%=LeftCColor%>" background="<%=LeftCImg%>">
<table border="0" align="center" cellpadding="2" cellspacing="0">
<%if ShowOnline=1 then%>
<tr><td class=LeftCenter>在线人数：<img src="OnlineCount.asp"> 人<br><script language=javascript src="counter.asp"></script></td></tr>
<%end if%>
</table>
</td>
</tr>
<%=InTable("bottoml")%>
</table>
<%end if

if showSearch<>"0" then%><!--#include file=search.asp--><%end if
if showTxtTop<>"0" then%><script language=javascript src="hottxt.asp"></script><%end if		
if ShowResearch=1 then Research
if ShowLogo=1 then WebLogo
if ShowAllySite=1 then AllySite
	
function Research%>
<table width="100%" border=0 cellspacing="0" bgcolor="<%=LeftBColor%>" cellpadding="0">
<%=TTitle("left","网站调查")%>
<tr>
<td align=center bgcolor="<%=LeftCColor%>" background="<%=LeftCImg%>">
<table border="0" width="100%" cellspacing="0">
<tr>
<%set rs=conn.execute("SELECT * FROM research where Ischecked=1")
if rs.eof then%>
<td width="100%" align="center">尚　无　调　查</td>
<%else%>
<td>
<table border="0" width="100%" cellspacing="2" cellpadding="2">
<tr><td>&nbsp;<img src="images/research.gif" border=0>&nbsp;<%=rs("Title")%></td></tr>
<form action="research.asp" target="newwindow" method=post name=research>
<tr><td valign=top>
<%for i=1 to 8
if rs("Select"&i)<>"" then%>
<input style="background-color: <%=LeftCColor%>;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 height=30 align=center>
<input type=submit value="提交" id=submit1 name=submit1 class=submit>
<input onClick="javascript:open_window('research.asp?stype=view','research','width=420,height=250')" type=button value=结果 id=button1 name=button1 class=submit>
</td></tr>
</form>
</table>
</td>
<%end if%>
</tr>
</table>
</td>
</tr>					
<%=InTable("bottoml")%>
</table>
<%
rs.close
end function

function WebLogo%>
<table width="100%" border=0 cellspacing="0" bgcolor="<%=LeftBColor%>" cellpadding="0">
<%=TTitle("left","本站图标")%> 
<tr>
<td align=center bgcolor="<%=LeftCColor%>" background="<%=LeftCImg%>"> 
<table border="0" width="100%" cellspacing="2" cellpadding="2" style="TABLE-LAYOUT: fixed"><tr>
          <td align=center> <a href="default.asp"><img src="<%=logo%>" alt="本站主站系统图标，做链接请下载此图标" border="0"></a><br>
            <br>
            <a href="bbs/index.asp"><img src="images/link/logo1.gif" alt="本站论坛系统图标，做链接请下载此图标" width="88" height="31" border="0"></a> 
          </td>
</tr>
</table>
</td>
</tr>
<%=InTable("bottoml")%>
</table>
<%
end function

function AllySite
%>
<table width="100%" border=0 cellspacing="0" bgcolor="<%=LeftBColor%>" cellpadding="0">
<%=TTitle("left","资源中心")%> 
<tr>
<td align=center  height=40 bgcolor="<%=LeftCColor%>" background="<%=LeftCImg%>">
<table border="0" width="100%" cellspacing="2" cellpadding="2">
<%set rs=conn.execute("SELECT * FROM AllySite")
if not rs.eof then
do while not rs.eof%>
<tr>
          <td align=center><a href="<%=rs("AllySiteUrl")%>"><img src="<%=rs("AllySitePic")%>" border=0 alt="<%=rs("AllySiteName")%>"></a></td>
        </tr>
<%rs.movenext
loop
end if
rs.close%>
</table>
</td>
</tr>
<%=InTable("bottoml")%>
</table>
<%
end function

if ShowUserLogin=1 then%><!--#include file="showgoodsite.asp"--><%end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%"><tr><td bgcolor="<%=LeftCColor%>" background="<%=LeftCImg%>"></td></tr></table>
<!--左栏结束-->