include_info.asp

基于Sabrina SecondMarket v1.0

<!--
版本：草原二手市场V1.1
本程序作者：mysql QQ:54016224 TEL:[phone]

-->
<!--#include file="include/conn.asp"-->
<%
if isnumeric(request("InfoID")) then
InfoID  = request("InfoID")
else
response.write "<script>alert('参数错误');history.go(-1);</script>"
response.end
end if
sql     = "select * from Info where InfoID = "&InfoID&""
set rs  = server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
select case rs("InfoStatus")
	   case 0
	   getStatus = "出售"
	   case 1
	   getStatus = "求购"
end select
	sql = "select BigName from BigClass where BigIndexNO = '"&rs("BigIndexNO")&"'"
	set rs0 = conn.execute(sql)
	sql = "select SubName from SubClass where SubIndexNO = '"&rs("SubIndexNO")&"'"
	set rs1 = conn.execute(sql)
%>
<TABLE width=570 
        border=0 cellPadding=1  cellSpacing=1 bgcolor="#C5DCE2">
  <TBODY>
    <TR bgcolor="#F0F9FB"> 
      <TD align=right>信息种类：</TD>
      <TD><%=getStatus%> </TD>
    </TR>
    <TR bgcolor="#F0F9FB"> 
      <TD height=25 align=right>信息分类：</TD>

      <TD><% if not rs0.eof and not rs0.bof then response.write rs0(0)%>----<% if not rs1.eof and not rs1.bof then response.write rs1(0)%></TD>
    </TR>
    <TR bgcolor="#F0F9FB"> 
      <TD height=25 align=right>价格：</TD>
      <TD><%=rs("InfoPrice")%> 元</TD>
    </TR>
    <TR bgcolor="#F0F9FB"> 
      <TD height=25 align=right>发布人：</TD>
      <TD><%=rs("UserName")%></TD>
    </TR>
    <TR bgcolor="#F0F9FB"> 
      <TD height=25 align=right>信息标题：</TD>
      <TD><%=rs("InfoName")%></TD>
    </TR>
    <TR vAlign=top bgcolor="#F0F9FB"> 
      <TD height=25 align=right>信息内容：</TD>
      <TD width="480"><%=rs("InfoNote")%></TD>
    </TR>
    <TR bgcolor="#F0F9FB"> 
      <TD height=25 align=right>起始日期：</TD>
      <TD><%=rs("PostTime")%></TD>
    </TR>
    <TR bgcolor="#F0F9FB"> 
      <TD height=25 align=right>有效期：</TD>
      <TD><%=rs("EndDate")-rs("PostTime")%> 天</TD>
    </TR>
    <TR bgcolor="#F0F9FB"> 
      <TD height=25 align=right>剩余天数：</TD>
<%if rs("EndDate")-date() <= 0 then%>
      <TD>已过期</TD>
<%else%>
      <TD><%=rs("EndDate")-date()%> 天</TD>
<%end if%>
    </TR>
  <tr bgcolor="#F0F9FB"> 
    <TD height=25 align=right>信息状态：</TD>
<%if rs("EndDate")-date() <= 0 then%>
      <TD>无效</TD>
<%else%>
    <TD>有效</TD>
<%end if%>
  </TR>
  <TR bgcolor="#F0F9FB"> 
      <TD height=25 align=right>站内联系</TD>
<%if trim(rs("UserName")) = "" or isnull(rs("UserName"))then %>
      <TD>联系不到作者</TD>
<%
else
%>
      <TD><a href="P_letter.asp?Pto=<%=rs("UserName")%>"><%=rs("UserName")%></a></TD>
<%end if%>
  </TR></TBODY>
</TABLE>
<%end if%>