📄 shopxp_wzleft.asp

📁 IMPORTANT YOU SHOUD LOAD IT DOWN FOR USING
💻 ASP
字号:
<table width="10%" height="5"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>

<table width="184" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="xin/tt_login.gif" width="184" /></td>
  </tr>
  <tr>
    <td><table width="184" border="0" align="center" cellpadding="0" cellspacing="0" background="xin/bt.gif">
      <tr>
        <td background="xin/bt.gif"><%if request.Cookies("shopxp")("username")="" then%>
              <table width="184" border="0" align="center" cellpadding="5" cellspacing="0" background="xin/bt.gif">
                <form action="usershopxp/checkusershopxplogin.asp" method="post" name="fkinfo" id="fkinfo">
                  <tr>
                    <td width="24%" align="right">账号</td>
                    <td width="44%"><input name="username" class="wenbenkuang" type="text" id="username2" maxlength="25" size="10" /></td>
                    <td width="32%" rowspan="2"><input name="imageField"  type="image" src="xin/btn_login.gif" onfocus="this.blur()" />
                    </td>
                  </tr>
                  <tr>
                    <td width="24%" align="right">密码</td>
                    <td width="44%"><input name="userpassword" class="wenbenkuang" type="password" id="userpassword2" maxlength="25" size="10" />
                        <input class="wenbenkuang" type="hidden" name="linkaddress" value="<%=request.servervariables("http_referer")%>" />
                    </td>
                  </tr>
                  <tr>
                    <td width="24%" align="right">验证</td>
                    <td colspan="2"><input class="wenbenkuang" name="verifycode" type="text" value="<%If GetCode=9999 Then Response.Write "9999"%>" maxlength="4" size="10" />
                        <img src="GetshopxpCode.asp" /> </td>
                  </tr>
                  <tr align="center">
                    <td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td><a href="xpreg.asp"><img src="xin/btn_regis.gif" width="74" height="20" border="0" /></a></td>
                          <td><a href="usershopxp/getpwd.asp" target="_blank"><img src="xin/btn_idpw.gif" width="74" height="20" border="0" /></a></td>
                        </tr>
                    </table></td>
                  </tr>
                </form>
              </table>
          <%else%>
<tr>
   <td align="center" height="130"><%
set rs=server.createobject("adodb.recordset")
rs.open "select jifen,yucun,reglx,vipdate from [dv_user] where username='"&request.Cookies("shopxp")("username")&"'",conn,1,3
if rs("vipdate")<>"" then 
'看是不是过期VIP
if rs("vipdate")<date and rs("reglx")=2 then
rs("reglx")=1
rs.update
end if
end if
response.Cookies("shopxp")("yucun")=rs("yucun")
response.Cookies("shopxp")("jifen")=rs("jifen")
response.Cookies("shopxp")("reglx=")=rs("reglx")
rs.close
set rs=nothing
response.write "<a href=xpuser.asp><font color=red>亲爱的顾客，您现在已经登陆</font><br><br></a> "
if request.Cookies("shopxp")("reglx")=2 then
response.write "<font color=red>"&request.Cookies("shopxp")("username")&" </font>贵宾您好<br><br>您目前有"&request.Cookies("shopxp")("jifen")&"积分,预存款"&request.Cookies("shopxp")("yucun")&"元 "
else
response.write "<font color=red>"&request.Cookies("shopxp")("username")&" </font>您好<br><br>您目前有"&request.Cookies("shopxp")("jifen")&"积分<br><br>预存款"&request.Cookies("shopxp")("yucun")&"元 "
end if
response.write "<br><br><a href=xpuser.asp>会员中心</a> "
response.write " <a href=xplogout.asp>注销退出</a>"
%></td>
</tr>
              <%end if%>
         </td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td><img src="xin/tt_login_bottom.gif" width="184" height="6" /></td>
  </tr>
</table><table width="10%" height="5"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<TABLE width=184 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD vAlign=top width=4 height=4><IMG height=4 
            src="img_shopxp/xiao/new_line_004.gif" width=4></TD>
      <TD background=img_shopxp/xiao/new_line_008.gif height=4></TD>
      <TD vAlign=top width=4 height=4><IMG height=4 
            src="img_shopxp/xiao/new_line_005.gif" width=4></TD>
    </TR>
    <TR>
      <TD rowspan="4" background=img_shopxp/xiao/new_line_009.gif></TD>
      <TD >	  
	  <%  if qqzt=1 then%>
 <!--#include file="shopxp_fenlei0.asp"-->
 <%else %>
 <!--#include file="shopxp_fenlei1.asp"-->
 <%end if %></TD>
      <TD rowspan="4" background=img_shopxp/xiao/new_line_010.gif></TD>
    </TR>
    <TR>
      <TD 
          align=middle valign="top" 
          style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 3px; PADDING-TOP: 0px"><%set rs=server.CreateObject("adodb.recordset")
	      rs.open "select * from shopxp_news order by viewcount desc",conn,1,1%>
        <table width="100%" height="32"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><div align="center"><img src="shopxp_images/shopxp<%=BoardStyle%>/xwph.gif" width="180" height="36" border="0" usemap="#dongtai" /></div></td>
          </tr>
        </table>
        <table width="100%" height="27" border="0" cellpadding="0" cellspacing="0">
          <%i=0
do while not rs.eof%>
          <tr>
            <td width="1%" height="8" ></td>
            <td width="99%"><table width="100%" height="1"  border="0" cellpadding="0" cellspacing="0" background="img_shopxp/xiao/lineDotGray.gif">
                <tr>
                  <td height="1" background="img_shopxp/xiao/blank.gif"></td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td height="19" ></td>
            <td><img src="img_shopxp/xiao/020.gif" width="16" height="11" />
                <%response.write "<a href=shopxp_news.asp?id="&rs("newsid")&">"
				if len(trim(rs("newsname")))>13 then
				response.write left(trim(rs("newsname")),12)&"."
				else
				response.write trim(rs("newsname"))
				end if
				response.write "</a>"
				%>
            </td>
          </tr>
          <%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>
        </table>
        <map name="zhaunti" id="zhaunti">
          <area shape="rect" coords="126,8,177,30" href="xpzhinan.asp" />
        </map></TD>
    </TR>
    <TR>
      <TD 
          align=middle valign="top" 
          style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 3px; PADDING-TOP: 0px"></TD>
    </TR>
    <TR>
      <TD height="84" 
          align=middle valign="top" 
          style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 3px; PADDING-TOP: 0px">
		  <%set rs=server.CreateObject("adodb.recordset")
	      rs.open "select * from shopxp_zhuanti order by ztviewcount desc",conn,1,1%>
              <table width="100%" height="32"  border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td><div align="center"><img src="shopxp_images/shopxp<%=BoardStyle%>/rdzn.gif" width="180" height="36" border="0" usemap="#zhaunti" /></div></td>
                </tr>
              </table>
              <table width="100%" height="27" border="0" cellpadding="0" cellspacing="0">
                <%i=0
do while not rs.eof%>
                <tr>
                  <td width="1%" height="8" ></td>
                  <td width="99%"><table width="100%" height="1"  border="0" cellpadding="0" cellspacing="0" background="img_shopxp/xiao/lineDotGray.gif">
                      <tr>
                        <td height="1" background="img_shopxp/xiao/blank.gif"></td>
                      </tr>
                  </table></td>
                </tr>
                <tr>
                  <td height="19" ></td>
                  <td><img src="img_shopxp/xiao/020.gif" width="16" height="11" />
		  <%response.write "<a href=listztxp.asp?id="&rs("newsid")&">"
				if len(trim(rs("title")))>13 then
				response.write left(trim(rs("title")),12)&"."
				else
				response.write trim(rs("title"))
				end if
				response.write "</a>"
				%>
                  </td>
                </tr>
                <%i=i+1
			  if i>=10 then exit do
			  rs.movenext
			  loop
			  rs.close
			  set rs=nothing%>
      </table></TD>
    </TR>
    <TR>
      <TD vAlign=top width=4 height=4><IMG height=4 
            src="img_shopxp/xiao/new_line_006.gif" width=4></TD>
      <TD background=img_shopxp/xiao/new_line_011.gif></TD>
      <TD vAlign=top width=4 height=4><IMG height=4 
            src="img_shopxp/xiao/new_line_007.gif" width=4></TD>
    </TR>
  </TBODY>
</TABLE>

<table width="180" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<map name="beiqiruijian" id="beiqiruijian">
<area shape="rect" coords="127,5,176,28" href="#" />
</map>
<map name="dongtai" id="dongtai">
<area shape="rect" coords="126,8,177,30" href="xpdongtai.asp" />
</map>
💿 文件大小 2312 K
👤 上传用户 Fiona1207
📂 所属分类其他
🏷️ 相关标签

#IMPORTANT #SHOUD #USING #DOWN
⌨️ 快捷键说明

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