middle.asp

商业网站/图片管理系统/投票系统/新闻管理系统/

<link href="css/mycss.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.STYLE1 {color: #99CC00}
-->
</style>
<div align="center"></div>
<div align="center">
  <table width="780" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr>
      <td width="13" height="25" valign="top" background="images/v_bar_l.gif"><!--滚动广告文字条-->&nbsp;</td>
      <td width="752" valign="middle" background="images/scroll.jpg" bgcolor="#F0F0F0" class="allbcolor">
	  <marquee behavior="scroll" direction="left"  width="752" scrollamount="2" scrolldelay="10" onmouseover="this.stop();" onmouseout="this.start();" align="bottom">
	  欢迎访问本网站 以下是我们的最新更新，请留下宝贵见议。
	  </marquee>	  </td>
      <td width="13" valign="top" background="images/v_bar_r.gif"><!--DWLayoutEmptyCell-->&nbsp;</td>
    </tr>
  </table>
</div>
<div align="center">
  <table width="780" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
    <!--主要内容区-->
    <tr>
      <td width="13" height="659" valign="top" background="images/v_bar_l.gif"><!--DWLayoutEmptyCell-->&nbsp;</td>
      <td width="200" valign="top" class="allbcolor">
			
			<table width="200" border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <!--左侧信息区-->
        <tr>
				
          <td width="100%" height="160" valign="top">
				<table width="100%" border="0" cellpadding="0" cellspacing="0">
            <!--DWLayoutTable-->
            <tr>
              <td width="200" height="160" bgcolor="#EFEFEF" >
<%
dim rst,sql,rst1,i,sql1,vid
set rst=server.createobject("adodb.recordset")
set rst1=server.createobject("adodb.recordset")
'---------------------------------用户登录-------------------------------
if request.querystring("act")="login" then
	sql="select * from shop_user where u_name='"&request.form("f_name")&"' and u_password='"&request.form("f_password")&"'"
	rst.open sql,conn,1,1
	if rst.eof then
		msgboxU("登录失败！")
	else
		session("s_loginID")=rst("u_id")
		session("s_loginUSER")=rst("u_name")
	end if
	rst.close
end if
'---------------------------------取消用户登录---------------------------
if request.querystring("act")="unlogin" then
	session("s_loginID")=""
	session("s_loginUSER")=""
end if
'---------------------------------用户登录begin--------------------------
if session("s_loginID")="" then
%>
				<form id="form" name="form" method="post" action="index.asp?act=login">
                <p align="center" class="STYLE3">
                	会员登陆                </p>
                <p align="center">用户名
                  <input name="f_name" type="text" id="f_name" size="10" />
                </p>
                <p align="center">密　码                
                  <input name="f_password" type="password" id="f_password" size="10" />
                </p>
                <p align="center">
                  <input type="submit" name="Submit" value="登录" />
                  <a href="reguser.asp" target="_blank">注册</a></p>
              </form>  
     

<%
else
%>
欢迎您：<%=session("s_loginUSER")%><br>
<a href="index.asp?act=unlogin">退出登录</a>
<%
end if
'-------------------------------用户登录end----------------------------- 
%>			  </td>
            </tr>
          </table>					</td>
          </tr>
        <tr>
          <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          	<!--DWLayoutTable-->
          	<tr>
          		<td width="200" height="25" align="center" valign="middle" background="images/web_vote.jpg" bgcolor="#EFEFEF" class="allbcolor">&nbsp;</td>
              	</tr>
          	</table></td>
        </tr>
        
        <tr>
          <td height="200" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
            <!--DWLayoutTable-->
            <tr>
              <td width="200" height="220" valign="middle" bgcolor="#EFEFEF" class="bottomcolor">                                 
								 <!-- 用户投票部分begin -->			  
<%
sql="select * from shop_vote where v_type=true and v_show=true"
rst.open sql,conn,1,1
if not (rst.eof and rst.bof) then
vid=rst("v_id")
%>
				<form action="viewvote.asp?act=tp&v_id=<%=rst("v_id")%>" method="post" name="frmvote" target="_blank" id="frmvote">

                    <table width="200" height="163" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td colspan="2"><%=rst("v_title")%></td>
                      </tr>
				  <%
				  sql1="select * from shop_vote where v_type=false and v_upid="&rst("v_id")
				  rst1.open sql1,conn,1,1
				  if rst1.eof and rst1.bof then
				  %>
						  <tr>
							<td colspan="2">没有投票项</td>
						  </tr>
				  <%
				  else
					i=1
					while not rst1.eof
				  %>
                      <tr>
                        <td width="46" align="left" valign="middle">
						<%
						if not rst("v_stype") then
						%> 
							<input type="radio" name="radio1" value="<%=rst1("v_id")%>" />
						<%
						else
						%>
                         	<input type="checkbox" name="chk_<%=i%>" value="<%=rst1("v_id")%>" />
						<%
						end if
						%>                        </td>
                        <td width="154">
						<%=rst1("v_title")%>						</td>
                      </tr>
				  <%
						rst1.movenext
						i=i+1
					wend
				  end if								
				  %>
                      <tr>
                        <td colspan="2" align="center" valign="middle">

							<input type="submit" name="Submit2" value="提交" />	
							&nbsp;&nbsp;
							<input type="button" name="Submit3" value="查看" onclick="window.open('viewvote.asp?v_id=<%=rst("v_id")%>');" />
							<input name="voteoptnum" type="hidden" id="voteoptnum" value="<%=i-1%>" />						</td>
                        </tr>
                    </table>
						<%
	rst1.close
end if
rst.close
%>
                </form>
                </td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td height="25" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
            <!--DWLayoutTable-->
            <tr>
              <td width="200" height="25" align="center" valign="middle" background="images/friend_link.jpg" bgcolor="#FFFFFF" class="allbcolor">&nbsp;</td>
              </tr>
          </table></td>
        </tr>
        <tr>
          	<td height="154" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
				<!--DWLayoutTable-->
				<tr>
					<td width="10" height="10"></td>
					<td width="173"></td>
					<td width="15"></td>
				</tr>
				<tr>
					<td height="99"></td>
					<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
							<%
								dim col
								sql="select top 6 * from shop_link order by link_id desc"
								rst.open sql,conn,1,1
								
								do while not rst.eof
									col=1
									response.write("<tr>")
											do while not rst.eof and col<3
													'-------显示友情链接、列--------
													%>
													<td>
													<%
													if rst("link_image")<>"" then
													%>
													
														<a href="<%=rst("link_url")%>" target="_blank"><IMG style="border:1px; border-style:solid; border-color:#999999;" align="absmiddle" SRC="upfile/<%=rst("link_image")%>" onload="javascript:if(this.style.width>76);{this.style.width=76};if(this.style.height>33);this.style.height=33;" /></a>
													<%
													else
													%>
													<table style="margin:0px;">
													<td style="border:1px; padding:0px; margin:0px; border-color:#999999; border-style:solid; width:76px; height:34px;">
													<a href="<%=rst("link_url")%>" target='_blank'><div align="center"><%=rst("link_name")%></div></a>
													</td></table>
													<%
													end if
													%>
													</td>
													<%