gbookread.asp

庐江二中

<%PageName="gbook"%>
<!--#include file=conn.asp -->
<!--#include file="const.asp"-->
<!--#include file=function.asp -->
<!--#include file="top1.asp"-->
<%
dim SmallClassName,SmallClassType,SpecialName,NewsID,IfClassurl,thistitle,more
BigClassName=Request("BigClassName")
BigClassType=Request("BigClassType")
SmallClassName=Request("SmallClassName")
SmallClassType=Request("SmallClassType")
SpecialName=Request("SpecialName")
NewsID=Request("NewsID")
thistitle="首页"
	
if BigClassName<>"" then
	ifclassurl="BigClassName="&BigClassName&"&BigClassType="&BigClassType
	thistitle=BigClassName
end if
if SmallClassName<>"" then
	ifclassurl="BigClassName="&BigClassName&"&BigClassType="&BigClassType&"&SmallClassName="&SmallClassName&"&SmallClassType="&SmallClassType
	thistitle=BigClassName&"-"&SmallClassName
end if	
if SpecialName<>"" then
	ifclassurl="SpecialName="&SpecialName
	thistitle=SpecialName
end if	
if NewsID<>"" then
	ifclassurl="NewsID="&NewsID
	thistitle=NewsID&"号文章"
end if	

id=Request.QueryString("id")
session("rewrite")=0

sql="select * from gstbook where id=" & id
rs.Open sql,conn,1,1

if not rs.EOF then
name=rs("name")
content=rs("content")
%>
<table border="0" width="<%=TableWidth%>" align=center cellspacing="0" cellpadding="0" bgcolor="<%=CenterCColor%>">
<tr>
<%=OutTable("left")%>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
          <td>发表人：<%=name%></td>
          <td>发表位置：<%=thistitle%></td>
          <td align="right">发表时间：<%=DateValue(rs("datetime"))%></td>
</tr>
<tr>
<td height="1" bgcolor="#666666" colspan="3"></td>
</tr>
<tr valign="top">
<td colspan="3"><%=content%></td>
</tr>
<tr>
<td colspan="3" align="center" >
<table width=100% border=0 cellspacing=0 cellpadding=2 align="center">
<form name=submitok method=POST action="gbookreply.asp?id=<%=id%>&more=<%=request("more")%><%if ifclassurl<>"" then%>&<%end if%><%=ifclassurl%>" >
<tr>
                  <td  align=center valign="top"><fieldset><legend align=left>我要回复</legend> 
                    <table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
                        <td class=link>&nbsp;&nbsp;&nbsp;姓名： 
                          <input maxlength=16 name=name <%if session("xpUser")<>"" then%> value="<%=Session("xpUser")%>"<%end if%> size=10>
                          &nbsp;&nbsp;密码： 
                          <input type=password name=password <%if session("xpPwd")<>"" then%> value="<%=Session("xpPwd")%>"<%end if%> size=10>
                          &nbsp; &nbsp;选择话题： 
                          <select name=type class=link>
                            <option value="回复" selected>[回复]</option>
                            <option value="跟帖">[跟帖]</option>
                            <option value="灌水">[灌水]</option>
                            <option value="大笑">[大笑]</option>
                            <option value="转帖">[转帖]</option>
                            <option value="讨论">[讨论]</option>
                            <option value="求助">[求助]</option>
                            <option value="推荐">[推荐]</option>
                            <option value="公告">[公告]</option>
                            <option value="建议">[建议]</option>
                          </select>
                          &nbsp; </td>
</tr>
<tr>
<td class=link> &nbsp;&nbsp;
<textarea rows=3 name=content cols=109></textarea>
</td>
</tr>
<tr align="center">
<td class=link align="center" >
<input type=submit value=回复 class=submit name="submit">&nbsp;
<input type=reset value=重写 class=submit name="reset">
</td>
</tr>
</table>
</fieldset> </td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
<%=OutTable("right")%>
</tr>
</table>
<%end if
set rs=nothing%>
<!--#include file="copyright.asp"-->