service1.asp

酷购网上商城~~ 完整的asp源代码.通过少许的改动就可以让你拥有自己的商城~~ 此代码仅供个人学习使用

<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  <TR>
    <TD WIDTH="72%"><DIV ALIGN="CENTER">友情链接
            <%set rs=server.CreateObject("adodb.recordset")
	rs.Open "select * from shop_links order by linkidorder",conn,1,1
	do while not rs.EOF
	response.Write " | <a href="&trim(rs("linkurl"))&" target=_blank>"&trim(rs("linkname"))&"</a>"
	rs.MoveNext
	loop
	rs.Close
	set rs=nothing
	%>
    </DIV></TD>
    <TD WIDTH="28%"><TABLE WIDTH="91%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="RIGHT">
        <TR>
          <TD WIDTH="27%"><IMG SRC="http://icon.tencent.com/12923709/l/606/"></TD>
          <TD ROWSPAN="2" WIDTH="73%"><DIV ALIGN="CENTER">QQ:12923709</DIV></TD>
        </TR>
        <TR>
          <TD WIDTH="27%" HEIGHT="4"></TD>
        </TR>
    </TABLE></TD>
  </TR>
</TABLE>