default.asp

创软科技企业网站管理系统 v4.8 创软科技企业网站管理系统 v4.8

<!--#include file="Inc/syscode.asp" -->
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<!-- #include file="Inc/Head.asp" -->
<TABLE width="760" height="100%" border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  <TBODY>
    <TR> 
      <TD width=196 height="702" vAlign=top><table width="92%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#f2f2f2">
          <tr>
            <td valign="top" background="Img/index_01b.gif">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                <TBODY>
                  <TR> 
                    <TD height=15 bgcolor="#FFFFFF">
					<p align="center">
					<img src=img/img_right.gif width="178" height="102"></TD>
                  </TR>
                  <TR> 
                    <TD height="26" background="Img/index_01.gif"><div align="center"><strong>
						会员登陆</strong> 
                      </div></TD>
                  </TR>
                  <TR> 
                    <TD height="5"> </TD>
                  </TR>
                  <TR> 
                    <TD vAlign=top><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td> 
                            <% call ShowUserLogin() %>
                          </td>
                        </tr>
                      </table></TD>
                  </TR>
                  <TR> 
                    <TD height="5"> </TD>
                  </TR>
                  <TR> 
                    <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                  </TR>
                </TBODY>
              </TABLE>
              <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                <TBODY>
                  <TR> 
                    <TD height=15 bgcolor="#FFFFFF"></TD>
                  </TR>
                  <TR> 
                    <TD height="26" background="Img/index_01.gif"><div align="center"><strong>产品列表</strong> 
                      </div></TD>
                  </TR>
                  <TR> 
                    <TD height="5"> </TD>
                  </TR>
                  <TR> 
                    <TD vAlign=top> 
                      <% call ShowSmallClass_Tree() %>
                    </TD>
                  </TR>
                </TBODY>
              </TABLE> 
              <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                <TBODY>
                  <TR> 
                    <TD height=15 bgcolor="#FFFFFF"></TD>
                  </TR>
                  <TR> 
                    <TD height="26" background="Img/index_01.gif"><div align="center">站内调查 
                      </div></TD>
                  </TR>
                  <TR> 
                    <TD height="12"> </TD>
                  </TR>
                  <TR> 
                    <TD vAlign=top><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr><TD>
                            <% call ShowVote() %>
							</TD>
                        </tr>
                      </table></TD>
                  </TR>
                  <TR> 
                    <TD height="10"> </TD>
                  </TR>
                  <TR> 
                    <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                  </TR>
                </TBODY>
              </TABLE>
              <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                <TBODY>
                  <TR> 
                    <TD height=15 bgcolor="#FFFFFF"></TD>
                  </TR>
                  <TR> 
                    <TD height="26" background="Img/index_01.gif"><div align="center"><strong>邮件列表</strong> 
                      </div></TD>
                  </TR>
                  <TR> 
                    <TD height="5"> </TD>
                  </TR>
                  <TR><form method="POST" action="chkemail.asp"> 
                    <TD vAlign=top><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td height="25"> <div align="center">
                              <input name='email' type='text' value="@" size='15'>
                            </div></td>
                        </tr>
                        <tr>
                          <td height="25"><div align="center">
                              <input type="submit" value="订阅" name="action" style="background-color: #FFFFFF">
                              &nbsp; 
                              <input type="submit" value="退订" name="action" style="background-color: #FFFFFF">
                            </div></td>
                        </tr>
                      </table></TD></form>
                  </TR>
                  <TR> 
                    <TD height="5"> </TD>
                  </TR>
                  <TR> 
                    <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                  </TR>
                </TBODY>
              </TABLE>
              <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                <TBODY>
                  <TR> 
                    <TD height=15 bgcolor="#FFFFFF"></TD>
                  </TR>
                  <TR> 
                    <TD height="26" background="Img/index_01.gif"><div align="center"><strong>友情连接</strong> 
                      </div></TD>
                  </TR>
                  <TR> 
                    <TD height="5"> </TD>
                  </TR>
                  <TR>
                      <TD vAlign=top>
					  <%
set rs_links=server.createobject("adodb.recordset")
sqltext4="select top 10 * from links order by id desc"
rs_links.open sqltext4,conn,1,1
				
				 	
%>
					  <TABLE cellSpacing=0 cellPadding=0 width="100%" 
border=0>
                          <TBODY>
                            <TR vAlign=center> 
                              <TD height=2 colSpan=2><IMG height=2 
                              src="img/1x1_pix.gif" width=10></TD>
                            </TR>
                            <%i=0
do while not rs_links.eof%>
                            <TR vAlign=center> 
                              <TD 
                              height=22 colspan="2"> <div align="center"><a href="<%=rs_links("link")%>" title="<%=rs_links("note")%>"target="_blank"><%=rs_links("name")%></a></div></TD>
                            </TR>
                            <%   rs_links.movenext
i=i+1
if i=10 then exit do
loop
rs_links.close %>
                            <TR> 
                              <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
                            </TR>
                            <TR vAlign=center> 
                              
                            <TD 
                              height=15 colSpan=2 bgcolor="#FFFFFF">
							<p align="center">
							<img src=img/img_end.gif width="178" height="209"></TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                  </TR>
                </TBODY>
              </TABLE></td>
          </tr>
        </table> </TD>
      <TD width=1 background=img/kropki_pion_naBialym.gif><IMG 
            height=2 src="img/1x1_pix.gif" width=1></TD>
      <TD width="563" vAlign=top><TABLE width="90%" border=0 align="right" cellPadding=0 cellSpacing=0>
          <TBODY>
            <TR> 
              <TD height=120> <div align="right"> 
                  <table width="555" height="125" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td><div align="center"> 
                          <table width="75%" border="0" cellpadding="0" cellspacing="0">
                            <tr> 
                              <td height="5"></td>
                            </tr>
                          </table>
                          <table width="555" height="136" border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr> 
                              <td height="67" background="Img/0000.gif"> 
                                <div align="center"> 
                                  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="555" height="136">
                                    <param name="movie" value="Img/32.swf">
                                    <param name="quality" value="high">
                                    <param name="wmode" value="transparent">
                                    <embed src="Img/32.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="555" height="136"></embed></object>
                                </div></td>
                            </tr>
                          </table>