WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

b_viewpaper.asp：源码内容

							<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/ubbcode.asp" -->
<%
stats="浏览小字报"
%>
<html>
<head>
<title><%=txl_info(0)%>--<%=stats%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/txl_css.asp"-->
</head>
<body topmargin=0>
<%
dim paperid
dim abgcolor
if request("id")="" then
	founderr=true
	Errmsg=Errmsg+"<br>"+"<li>非法的参数。"
elseif not isInteger(request("id")) then
	founderr=true
	Errmsg=Errmsg+"<br>"+"<li>非法的参数。"
else
	paperID=request("id")
end if
if founderr then
	call txl_error()
else
	set rs=server.createobject("adodb.recordset")
	sql="select * from smallpaper where s_id="&paperid
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	Errmsg=Errmsg+"<br>"+"<li>没有找到相关信息。"
	call txl_error()
	else
	conn.execute("update smallpaper set s_hits=s_hits+1 where s_id="&paperid)
%>
<table cellpadding=3 cellspacing=1 align=center style="width: 100%; border: 1px; background-color: <%=txl_body(9)%>;">
<TBODY> 
<TR> 
<Th height=24><%=htmlencode(rs("s_title"))%></Th>
</TR>
<TR> 
<TD class=tablebody1>
<p align=center><a href=dispuser.asp?name=<%=htmlencode(rs("s_realname"))%> target=_blank><%=htmlencode(rs("s_realname"))%></a> 发布于 <%=rs("s_addtime")%></p>
    <blockquote>   
      <br>   
<%=ubbcode(rs("s_content"))%>  
      <br>
<div align=right>浏览次数：<%=rs("s_hits")%></div>
    </blockquote>
</TD>
</TR>
<TR align=middle> 
<TD height=24 class=tablebody2><a href=# onclick="window.close();">『 关闭窗口 』</a></TD>
</TR>
</TBODY>
</TABLE>
<%
	end if
	rs.close
	set rs=nothing
end if
%>

						