<!-- #include file=../inc/BBSsetup.asp -->
<!-- #include file=../inc/Board_Popfun.asp -->
<!-- #include file=conn.asp -->
<%
DEF_BBS_HomeUrl = "../"
dim sid
sid=request.querystring("sid")
sid=Clng(sid)
If sid<0 or sid>5 then
	response.write "错误的查询参数。"
	response.end
End if

dim rs,sql,i
sql="select sid,susername,stitle,scontent,saddtime from SmallPaper where sid="&sid
set rs=server.createobject("adodb.recordset")
rs.open sql,connsp,1,1
%>
<link rel="stylesheet" type="text/css" href="<%=DEF_BBS_homeUrl%>inc/style<%=GBL_Board_BoardStyle%>.css">

<div align="center">
  <center>

<table border="0" cellpadding="0" cellspacing="0" width="480" align="center">
  <tr>
    <td width="35" height="35">
    <img border="0" src="images/c1.gif" width="35" height="35"></td>
    <td width="410" background="images/s1.gif">　</td>
    <td width="35"><img border="0" src="images/c2.gif" width="35" height="35"></td>
  </tr>
  <tr>
    <td width="35" style="background-image: url('images/s4.gif'); background-repeat: repeat-y">　</td>
    <td width="410">
	<table width="100%" cellpadding="5" cellspacing="1" border="0">
	<tr align=center>
	<td width="100%" bordercolor="#aaaaaa" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"><b><%=rs("Stitle")%></b></td>
	</tr>
	<tr>
	<td width="100%" bordercolor="#aaaaaa" style="border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"><%=PrintTrueText(rs("Scontent"))%></td>
	</tr>
	<tr align=right>
	<td><%=rs("Susername")%>　于　<%=rs("Saddtime")%>　发布</td>
	</tr>
	</table>    
    </td>
    <td width="35" style="background-image: url('images/s2.gif'); background-repeat: repeat-y">　</td>
  </tr>
  <tr>
    <td width="35" height="35">
    <img border="0" src="images/c4.gif" width="35" height="35"></td>
    <td width="410" background="images/s3.gif">　</td>
    <td width="35"><img border="0" src="images/c3.gif" width="35" height="35"></td>
  </tr>
</table>

  </center>
</div>
<%
rs.close
set rs=nothing
connsp.close
set connsp=nothing
Function PrintTrueText(tempString)

	If tempString<>"" Then
		PrintTrueText=Replace(Replace(Replace(Replace(Replace(htmlEncode(tempString),VbCrLf & " ","<br>" & "&nbsp;"),VbCrLf,"<br>" & VbCrLf),"   "," &nbsp; "),"  "," &nbsp;"),chr(9)," &nbsp; &nbsp; &nbsp;")

		If Left(PrintTrueText,1) = chr(32) Then
			PrintTrueText = "&nbsp;" & Mid(PrintTrueText,2)
		End If
	Else
		PrintTrueText=""
	End If

End Function
%>