default_left.asp

java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单,但是基本的功能都有.

<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=152>
  <tr>
	<td>
	  <table BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=152>
	  <tr>
	  	<td colspan=3><img src="/images/user_info_top.gif" border="0"></td>
	  </tr>
	  <tr>
	    <td bgcolor="#CCCCCC"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0 ALT=""></td>
		<td align=center class="ko" width="150">
		  <table>
		    <tr>
		  	  <td align=center><font color="#000000">
			  <%
			  dim temp_uid,temp_userName
			  temp_uid=Session("admID")
			  if temp_uid<>"" then
			   temp_userName=getAdminUsername(temp_uid,oConn)
			  end if
			  response.write temp_userName
			  %> 先生/女士，<br>欢迎访问电子商城 ！
			  </font></td>
		    </tr>
		    <tr>
		      <td align=center class="ko" ><a href="/admin/level/modify.asp?id=<%=Session("admID")%>" style="text-decoration:underline; color:#0000FF">&gt;&gt;查看/修改个人信息</a></td>
			</tr>
		  </table>
		</td>
		<td bgcolor="#CCCCCC"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0></td>
	  </tr>
	  <tr>
	  	<td colspan=3><img src="/images/user_info_bottom.gif" border="0"></td>
	  </tr>
	  </table>
	  <table BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=152>
	    <tr>
		  <td height="5"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="5" BORDER=0></td>
		</tr>
	  </table>
	  <table BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=152>
	    <tr>
	      <td colspan=3><img src="/images/left_search_top.gif" border="0"></td>
	    </tr>
	    <tr>
	      <td bgcolor="#CCCCCC"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0 ></td>
		  <td align=center class="ko" width="150">
		   <FORM METHOD=POST ACTION="/admin/store/index.asp" CLASS=v9>
		   <table BORDER=0 CELLSPACING=0 CELLPADDING=0 >
		     <tr>
			   <td colspan=2><INPUT TYPE="text" NAME="keyword" style="width:130px;"></td>
			 </tr>
			 <tr>
			   <td><select name="storeType" CLASS=v9 STYLE="width:110px">
			    <option value="">all</option>
				<%
				 Dim typeListSQl,tempRS
				  typeListSQl="select St_typeid,St_name from t_GoodsType where St_fid=0 order by St_sort desc"
				  set tempRS=oConn.execute(typeListSQl)
				  if not tempRS.eof then 
			        do while not tempRS.eof
				     response.write "<option value="""&tempRS(0)&""">"&tempRS(1)&"</option>"
				     tempRS.movenext
				    loop
				    tempRS.close
				    set tempRS=nothing
				  end if %></select>
			   </td>
			   <td><input type="image" src="/images/search_go.gif" border=0 NAME="imageField"></td>
			 </tr>
		    </table>
		    </FORM>
		  </td>
		  <td bgcolor="#CCCCCC"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0 ></td>
	   </tr>
	   <tr>
	  	<td colspan=3><img src="/images/user_info_bottom.gif" border="0"></td>
	   </tr>
	 </table>
	 <table BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=152>
	   <tr>
	     <td height="5"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="5" BORDER=0 ></td>
	   </tr>
	 </table>
	 <table BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=152>
	   <tr>
	     <td colspan=3><img src="/images/left_product_top.gif" border="0"></td>
	   </tr>
	   <tr>
	     <td bgcolor="#CCCCCC"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0 ></td>
		 <td align=center class="ko" width="150">
		  <table width="140">
		   <tr>
		  	<td class="txt">
			<%
			 typeListSQl="select St_typeid,St_name from t_GoodsType where St_fid=0 order by St_sort desc"
			 set tempRS=oConn.execute(typeListSQl)
			  if not tempRS.eof then 
			     do while not tempRS.eof
				   response.write "<a href=""/admin/store/index.asp?storeType="&tempRS(0)&"""><img src='/images/add.gif' border=0 alt='' align='left' vspace=4>"&tempRS(1)&"</a><br>"
				  tempRS.movenext
				 loop
			    tempRS.close
			    set tempRS=nothing
			  end if	
			 %></td>
		  </tr>
		  </table>
		</td>
		<td bgcolor="#CCCCCC"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0></td>
	  </tr>
	  <tr>
	  	<td colspan=3><img src="/images/user_info_bottom.gif" border="0"></td>
	  </tr>
	  </table>
	  <table BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=152>
	    <tr>
		 <td height="5"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="5" BORDER=0></td>
	   </tr>
	  </table>
    </td>
  </tr>
</table>