xinximemo.asp

二手程序,可是实现会员的等级功能管理,会员可以有上船图片,给信息标题加颜色功能!

dim rs1,sql1
set rs1=server.createobject("adodb.recordset")
sql1 = "select class1 from class1 where id="&cstr(rs("class1"))
rs1.open sql1,conn,1,1
On Error Resume Next
%>
<%=rs1("class1")%> -->>
<%
rs1.close
sql1 = "select class2 from class2 where id="&cstr(rs("class2"))
rs1.open sql1,conn,1,1
On Error Resume Next
%>
<%=rs1("class2")%> </td>
                <td width="27%"><font color="#FF0000"><%=rs("fbsj")%></font></td>
              </tr>
            </table>
            </td>
            <td width="2%" height="24" bgcolor="#EFEFEF">　</td>
          </tr>
          <tr>
            <td width="3%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2">
      <img border="0" src="img/Nav_Icon.gif"> </td>
            <td width="11%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2">
      交易类型：</td>
            <td width="2%" height="24">　</td>
            <td width="82%" height="24">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
              <tr>
                <td width="73%">
<%
rs1.close
set rs1=nothing
dim leixing
leixing=rs("leixing")
Select Case leixing
Case "1"
response.write "出售"
Case "2"
response.write "求购"
Case "3"
response.write "出租"
Case "4"
response.write "求租"
Case "5"
response.write "求职"
Case Else
response.write "出售"
End Select
%>

                </td>
                <td width="27%">
                <INPUT TYPE=button VALUE="加入到收藏夹" ONCLICK="window.open('xinxi_sc.asp?id=<%=rs("id")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=170,height=80,left=300,top=100')" style="color: #666666; background-color: #E1E2DC"></td></tr>
            </table>
            </td>
            <td width="2%" height="24" bgcolor="#EFEFEF">　</td>
          </tr>
          <tr>
            <td width="3%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2">
      <img border="0" src="img/Nav_Icon.gif"> </td>
            <td width="11%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2">
      交易价格：</td>
            <td width="2%" height="24">　</td>
            <td width="82%" height="24">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
              <tr>
                <td width="73%"><%if rs("jiage")=0 then%>未知<%else%><%=rs("jiage")%> 元<%end if%></td>
                <td width="27%">
                <INPUT TYPE=button VALUE="发邮件给用户" ONCLICK="window.open('xinxi_mail.asp?id=<%=rs("id")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=355,height=328,left=300,top=100')" style="color: #666666; background-color: #E1E2DC"> </td></td>
              </tr>
            </table>
            </td>
            <td width="2%" height="24" bgcolor="#EFEFEF">　</td>
          </tr>
          <tr>
            <td width="3%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2">
      <img border="0" src="img/Nav_Icon.gif"> </td>
            <td width="11%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2">
      交易地区：</td>
            <td width="2%" height="24">　</td>
            <td width="82%" height="24">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
              <tr>
                <td width="73%"><%=rs("diqu")%></td>
                <td width="27%">
                <INPUT TYPE=button VALUE="发表回复信息" ONCLICK="window.open('xinxi_hf.asp?id=<%=rs("id")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=355,height=275,left=300,top=100')" style="color: #666666; background-color: #E1E2DC"></td>
              </tr>
            </table>
            </td>
            <td width="2%" height="24" bgcolor="#EFEFEF">　</td>
          </tr>
          <tr>
            <td width="3%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2">
      <img border="0" src="img/Nav_Icon.gif"> </td>
            <td width="11%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2">
      联 系 人：</td>
            <td width="2%" height="24">　</td>
            <td width="82%" height="24"><%=rs("name")%></td>
            <td width="2%" height="24" bgcolor="#EFEFEF">　</td>
          </tr>
          <tr>
            <td width="3%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2">
      <img border="0" src="img/Nav_Icon.gif"> </td>
            <td width="11%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2">
      联系电话：</td>
            <td width="2%" height="24">　</td>
            <td width="82%" height="24"><%=rs("dianhua")%></td>
            <td width="2%" height="24" bgcolor="#EFEFEF">　</td>
          </tr>
          <tr>
            <td width="3%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2" valign="top">
      <img border="0" src="img/Nav_Icon.gif"></td>
            <td width="11%" height="24" align="right" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF" bordercolor="#D2D2D2" valign="top">
            信息说明：</td>
            <td width="2%" height="24" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E2DC">　</td>
            <td width="82%" height="24" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E2DC"><%=HTMLEncode(rs("memo"))%><br><%if rs("c")=1 and not rs("tupian")="0" then%><p align="center"><a target=_blank href="uptupian/<%=rs("tupian")%>">
            <img src="uptupian/<%=rs("tupian")%>" border=1 width="80" onload="javascript:DrawImage(this);" style="border: 1px solid #000000" alt="查看图片"></a><%end if%></td>
            <td width="2%" height="24" bgcolor="#EFEFEF" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#E1E2DC">　</td>
          </tr>
          <tr>
            <td width="14%" height="24" style="border-top-style: solid; border-top-width: 1" colspan="2">　</td>
            <td width="2%" height="24" style="border-top-style: solid; border-top-width: 1" bordercolor="#E1E2DC">　</td>
            <td width="82%" height="24" style="border-top-style: solid; border-top-width: 1" bordercolor="#E1E2DC">
            </td>
            <td width="2%" height="24" style="border-top-style: solid; border-top-width: 1" bordercolor="#E1E2DC">　</td>
          </tr>
          <tr>
            <td width="100%" height="24" colspan="5">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
              <%
              if rs("hfcs")>=1 then
              rs.close
              dim k
              k=1
              sql = "select * from hf where xxid='"&ijob&"'"
              rs.open sql,conn,1,1
              %>
              <%do while not rs.eof%>
              <tr>
                <td width="3%" height="24" bgcolor="#EFEFEF" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#999999">　</td>
                <td width="5%" height="24" bgcolor="#EFEFEF" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#999999">
                <b><%=k%></b></td>
                <td width="90%" height="24" bgcolor="#EFEFEF" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#999999">该信息由<b><font color="#CC0000"><%=trim(rs("username"))%></font></b>在<font color="#CC0000"><%=trim(rs("hfsj"))%></font>回复</td>
                <td width="2%" height="24" bgcolor="#EFEFEF" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#999999">　</td>
              </tr>
              <tr>
                <td width="3%" height="24" style="border-top-style: solid; border-top-width: 1">　</td>
                <td width="5%" height="24" style="border-top-style: solid; border-top-width: 1">　</td>
                <td width="90%" height="24" style="border-top-style: solid; border-top-width: 1"><%=HTMLEncode(rs("neirong"))%></td>
                <td width="2%" height="24" style="border-top-style: solid; border-top-width: 1">　</td>
              </tr>
              <%
              rs.movenext
              k=k+1
              loop
              end if
              %>
              <tr>
                <td width="100%" height="24" colspan="4">　</td>
              </tr>
            </table>
            </td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
  </table>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="778" height="23">
    <tr>
      <td width="100%" height="6"></td>
    </tr>
    <tr>
      <td width="100%" height="1"><!--#include file=copywright.asp--></td>
    </tr>
    </table>
  </center>
</div>
</body>
</html>
<%
rs.close
set rs=nothing
closedb
%>