c_info.asp

仿阿里巴巴系统用ＡＳＰ开发的系统。代码精简

<%
dim sql
dim rs
dim rstype
if not isEmpty(request("info_id")) then
   info_id=request("info_id")
else
   info_id=1
end if
sql="select * from info where info_id="+cstr(info_id)+"" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<table height="420" border="0" bgcolor=#ffffff cellspacing="0" cellpadding="0" width="100%">
  <tr>
    <td width="100%" bgcolor="#ffffff" align="center" valign=top>
      <table border="0" width="94%" cellspacing="0">
        <tr>
          <td width="100%" height="10"></td>
        </tr>
        <tr>
          <td width="100%"><font color="#804000"><b>主题：</b></font><font color="#079807">【<%=rs("type")%>】</font><%=rs("showname")%>[<%=rs("country")%>·<%=rs("city")%>]</td>
        </tr>
        <tr>
          <td width="100%" height="10"></td>
        </tr>
        <tr>
          <td width="100%" bgcolor="#ffffff"></td>
        </tr>
        <tr>
          <td width="100%" height="10"></td>
        </tr>
        <tr>
          <td width="100%" height="150" valign="top"><font color="#804000"><b>内容：</b></font><br>&nbsp;&nbsp;&nbsp;&nbsp;<%=Replace(rs("content"),chr(13),"<br>&nbsp;&nbsp;&nbsp;")%></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</center>