sysggao2.asp

实用的拍卖源码。适合个人建站学习使用。仅供学习参考

<%
'set rsshop2=server.createobject("adodb.recordset") 
'sqlshop="select * from shops where shopid="&rst("sid")
'rsshop2.open sqlshop,conn,1,1
   if rsshop("shopflag")=0 and ADDsysgg="是" then
   if freeshopggurl2="" then
%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align=center>
<tr><td bgcolor=#ffcc00 width=100% height=1></td></tr>
  <tr> 
    <td align=center><%=webname%> 黄金广告位招租</td>
  </tr>
</table>
<%elseif left(freeshopggurl,6)="http:/" then%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align=center>
  <tr> 
    <td align=center><img src="<%=freeshopggurl2%>" border=0 width=760 height=80></td>
  </tr>
</table>
<%else%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align=center>
  <tr> 
    <td align=center><%=freeshopggurl2%></td>
  </tr>
</table>
<%
end if
end if
%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class=tablebg>
        <tr class=yellow_bg> 
          <td width="548" class=huise_bg>&nbsp;</td>
          <TD class=huise_bg width=20><IMG height=20 src="images/conner1.gif" width=20></TD>
	  <td class=yellow_bg><div align="center">
<font class=fblack>此商店为<% if rsshop("shopflag")=0 then response.write"免费" else response.write"<b><font class=fred> 收费 </font></b>" %>店铺 </font>
<%
				if rs_user("degrade")="身份证" then
				   response.write"<img src='images/yingyezhizhao.gif' border='0' alt='已进行真实身份认证' height='15'>"
				else
				   response.write"&nbsp;<font class=fblue>(无执照)</font>"
				end if
%>
</div></td>
        </tr>
              <TR class=yellow_bg>
                <TD colSpan=3 height=3></TD></TR>
      </table>
    </td>
  </tr>
</table>