s - 代码贴

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<% 
Dim Rs, Sql
Set Rs=Server.CreateObject("ADODB.RECORDSET")
Sql = "Select * From cp where id="&request("id")
Rs.Open Sql,Conn,1,1 

Const Pagetitle = "显示图片页面"

%>
<!--#include file="../inc/inc_top2.asp" -->
<script type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>

<body>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
  <tr>
    <td height="100" align="center" valign="top">
 
 
 <table width="996" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="30" align="center" background="../images/dhtbt_b.jpg" class="z12">来源：<%= rs("name") %>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 发布时间：<%= rs("sj") %>&nbsp;&nbsp;&nbsp;&nbsp;

 </td>
      </tr>
      <tr>
        <td height="50" align="center" bgcolor="#BFDFFF" class="z20"><%= rs("cbmc") %>
          <hr color="#00CCFF" size="4"></td>
      </tr>
      <tr>
        <td align="center" bgcolor="#FFFFFF"><img src="pic/<%= rs("pic2") %>" width="500" height="375"></td>
      </tr>
      <tr>
        <td bgcolor="#FFFFFF" class="nr1"> &nbsp;&nbsp; <%= rs("cbsm") %></td>
      </tr>
    </table></td>
</table>
<!--#include file="../inc/inc_footer2.asp" -->
</body>
</html>