showgq.asp

来自「是一个电子商务网站系统,提供前后台交易源码.」· ASP 代码 · 共 84 行

<!--#include file="top.asp" -->
<!--#include file="inc/chr.asp" -->
<%

vid=RtnReplaceInt(Request.QueryString("vid"),0)
set rs=server.createobject("adodb.recordset")
sql="select * from qynews where id="&vid
rs.open sql,conn,1,1
	if rs.eof and rs.bof  then 
		response.write "<script>alert('对不起，该信息并不存在，请返回！');window.close();</Script>"
		response.end
	else
sql="update qynews set hits=hits+1 where id="&vid
conn.execute sql
%>

<TITLE><%=rs("tit")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">

<LINK 
href="imgb/style.css" type=text/css 
rel=stylesheet>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
  <TBODY>
  <TR><TD vAlign=top width=176 bgColor=#99ccff>
    <!--#include file="left.asp" --></TD>
    <TD bgColor=#ffffff valign="top">
<TABLE 
      style="BACKGROUND-POSITION: right top; BACKGROUND-IMAGE: url(img/hwxx_bg1.jpg); BACKGROUND-REPEAT: no-repeat" 
      cellSpacing=0 cellPadding=0 width=582 border=0>
        <TBODY>
        <TR>
          <TD><img border="0" src="hw.asp12.gif" width="595" height="23"></TD></TR>
        <TR>
          <TD><SPAN class=style7>您现在的位置 》</SPAN><strong>信息浏览</strong></TD></TR>
        <TR>
          <TD></TD></TR>
        <TR>
          <TD height=6></TD></TR>
        <TR>
          <TD height=6></TD></TR>
        <TR>
          <TD height=6>
<table width="589" border="0" id="table9">
	<tr>
		<td>
<table border="0" style="border-collapse: collapse" width="98%" cellpadding="0">
						<tr>
							<td><br><div align="center"><b><font size="4"><%=rs("tit")%></font></b> 
                    <hr size="1" color="#0a778b" width="100%">
                    发布时间： <%=rs("time")%> 被阅览数： <%=rs("hits")%> 次 来源：
					<%if rs("from")<>"" then 
						response.write "<font color=#003399>"&rs("from")&"</font>"
					else
						response.write "<font color=#003399>"&dw&"</font>"
					end if%></div></td>
						</tr>
						<tr>
							<td>
							<div align="center">
								<table border="0" style="border-collapse: collapse" width="96%" cellpadding="0">
									<tr>
										<td><%=rs("content")%></td>
									</tr>
								</table>
							</div>
				</td>
						</tr>
					</table></td>
	</tr>
	</table>
<p>　</p>
<p>　</p>
</TD></TR>
        <TR>
          <TD></TR></TBODY></TABLE></TD></TR>
  </TBODY></TABLE>
<!--#include file="end.asp" -->
</BODY></HTML><%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing%>