left.asp

伟业科技全站程序。 并且有原文件。 可以任意修改

<script language="JavaScript">
<!--
function openwin(url)
 {
   window.open(url,"_blank","height=500,width=590,resizable=no,scrollbars=yes,statue=no,toolbar=no,menubar=no,location=no,left=150,top=80");
 }
// -->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TABLE WIDTH=181 BORDER=0 CELLPADDING=0 CELLSPACING=0>
          <TR>
            <TD><IMG SRC="images/main_07.jpg" WIDTH=181 HEIGHT=29 ALT=""></TD>
          </TR>
          <TR>
            <TD height="66" background="images/main_09.jpg"><%if request.cookies("userid")="" then%><table width="84%" align="center" cellpadding="0"  cellspacing="0">
              <form name="form1" method="post" action="login.asp"><tr>
                <td width="27%">用户名</td>
                <td width="52%">
                  <input name="username" type="text" class="input1" id="username" size="10">
                </td>
                <td width="21%" rowspan="2"><input name="imageField" type="image" src="mb/01.png" width="38" height="32" border="0"></td>
              </tr>
              <tr>
                <td>密&nbsp;&nbsp;码</td>
                <td><input name="password" type="password" class="input1" id="password" size="10"></td>
                </tr></form>
            </table>
              <%else%><table width="84%" align="center" cellpadding="0"  cellspacing="0">
                <form name="form1" method="post" action="login.asp">
                  <tr>
<%
dim dtrs
set dtrs=server.CreateObject("Adodb.recordset")
dtrs.open "select * from Users where Id="&request.Cookies("userid")&"",conn,1,3
%>
                    <td width="27%">·欢迎您:<FONT color=#ff0000 title="<%=dtrs("dj")%>" style="cursor: hand;"><%=request.cookies("username")%></FONT></td>
                  </tr>
                  <tr>
                    <td>·<A href="modify.asp">资料查看/修改</A></td>
                  </tr>
                  <tr>
                    <td>·<A href="cust.asp">控制面板中心</A></td>
                  </tr>
                  <tr>
                    <td>·<A href="logout.asp">退出系统</A></td>
                  </tr>
                </form>
              </table>
              <%end if%></TD>
          </TR>
          <TR>
            <TD><IMG SRC="images/main_10.jpg" ALT="" WIDTH=181 HEIGHT=32 border="0" usemap="#Map1"></TD>
          </TR>
          <TR>
            <TD><IMG SRC="images/main_11.jpg" WIDTH=181 HEIGHT=39 ALT=""></TD>
          </TR>
          <TR>
            <TD height="5"></TD>
          </TR>
          <TR>
            <TD><table width="92%" align="center" cellpadding="1"  cellspacing="0">
<%
dim nrs
set nrs=conn.execute("select top 7 * from news where isview=1 and listid=1 order by id desc")
do while not nrs.eof
%>
              <tr>
                <td width="8%"><img src="images/a_c.gif" width="8" height="9"></td>
                <td width="92%"><a href="javascript:openwin('shownews.asp?id=<%=nrs("id")%>')" title="<%=nrs("title")%>"><font color="<%=nrs("titlecolor")%>"><%=left(nrs("title"),9)%><%if len(nrs("title"))>9 then response.Write("...")%></font></a> &nbsp;<%if nrs("istop")=1 then%><img src="images/new.gif"><%end if%></td>
              </tr>
               <tr>
                <td height="1" colspan="2" background="images/1.gif"></td>
              </tr>
<%
nrs.movenext
loop
nrs.close
set nrs=nothing
%>
              <tr>
                <td>&nbsp;</td>
                <td><div align="right">
                  <table width="97%"  cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="26"><div align="right"><a href="news.asp"><img src="images/more1.gif" width="42" height="13" border="0"></a></div></td>
                    </tr>
                  </table></div></td>
              </tr>
            </table></TD>
          </TR>
</TABLE>
<table width="181"  cellspacing="0" cellpadding="0">
            <tr>
              <td height="1" bgcolor="#CECFCE"></td>
            </tr>
            <tr>
              <td><IMG SRC="images/main_11_1.jpg" WIDTH=181 HEIGHT=39 ALT=""></td>
            </tr>
            <tr>
              <td><TABLE cellSpacing=0 cellPadding=0 width="96%" align=center border=0>
                  <TBODY>
                    <TR>
                      <TD><table width="92%" align="center" cellpadding="1"  cellspacing="0">
<%
dim trs
set trs=conn.execute("select top 7 * from news where isview=1 and listid=2 order by id desc")
do while not trs.eof
%>
              <tr>
                <td width="8%"><img src="images/a_b.gif" width="8" height="9"></td>
                <td width="92%"><a href="javascript:openwin('shownews.asp?id=<%=trs("id")%>')" title="<%=trs("title")%>"><font color="<%=trs("titlecolor")%>"><%=left(trs("title"),9)%><%if len(trs("title"))>9 then response.Write("...")%></font></a> &nbsp;<%if trs("istop")=1 then%><img src="images/new.gif"><%end if%></td>
              </tr>
               <tr>
                <td height="1" colspan="2" background="images/1.gif"></td>
              </tr>
<%
trs.movenext
loop
trs.close
set trs=nothing
%>
              <tr>
                <td>&nbsp;</td>
                <td><div align="right">
                  <table width="97%"  cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="26"><div align="right"><a href="tech.asp"><img src="images/more1.gif" width="42" height="13" border="0"></a></div></td>
                    </tr>
                  </table></div></td>
              </tr>
            </table></TD>
                    </TR>
                    <TR>
                      <TD><a href="help.asp"><img src="images/menu_1.gif" width="180" height="49" border="0"></a></TD>
                    </TR>
                    <TR>
                      <TD><a href="contact.asp"><img src="images/menu_2.gif" width="180" height="48" border="0"></a></TD>
                    </TR>
                    <TR>
                      <TD><a href="sendmoney.asp"><img src="images/menu_3.gif" width="180" height="48" border="0"></a></TD>
                    </TR>
                  </TBODY>
                </TABLE></td>
            </tr>
</table>
<map name="Map1" id="Map1">
            <area shape="rect" coords="85,9,115,25" href="reg.asp">
            <area shape="rect" coords="120,9,175,25" href="forget.asp">
</map>
<table width="181" border="0" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr>
    <td width="181" height="120" valign="top"><img src="imgs/tuiguang.jpg" width="181" height="120" /></td>
  </tr>
</table>