?? showgq.asp
字號:
<!--#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%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -