📄 netbook.asp
字号:
</font></td>
</tr>
<tr>
<td align="right" class="top_m_txt01">E-mail：</td>
<td width="76%"><font>
<input type="text" name="Email" size="18" maxlength="36" value="<%=rst("Email")%>" style="font-size: 14px" class="INPUT">
</font></td>
</tr>
<tr>
<td width="24%" align="right" class="top_m_txt01">留言标题：</td>
<td width="76%"><input type="text" name="Title" size="22" maxlength="36" style="font-size: 14px; width: 320; height: 19" class="INPUT"></td>
</tr>
<tr>
<td width="24%" align="right" class="top_m_txt01">留言内容：</td>
<td width="76%"><textarea rows="5" name="Content" cols="45" style="font-size: 14px" class="INPUT"></textarea>
</td>
</tr>
<tr>
<td width="24%" align="right"></td>
<td width="76%"><input
name="cmdOk" type="submit" class="INPUT01" value="提交你的留言">
<input name="cmdReset" type="reset" class="INPUT01" value="复位">
</td>
</tr>
</table>
</form>
<%
name=Session("UserName")
set rs=server.createobject("adodb.recordset")
sql="select * from book where name='"&name&"' or name='管理员' order by id desc"
rs.open sql,conn,1,1
'取得页数,并判断留言输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
call list
'显示帖子的子程序
Sub list()%>
<table width="90%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="top_m_txt01">
<td width="21%" height="18" bgcolor="#eeeeee"><img src="img/arrow.gif" width="16" height="13"><strong>留言列表</strong></td>
<td width="79%" bgcolor="#eeeeee"><%Response.write "<strong><font color='#000000'>-> 全部-</font>"
Response.write "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>条留言</font></strong> "
Response.write "<strong><font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font></strong> "
If currentpage > 1 Then
response.write "<strong><a href='NetBook.asp?&page="+cstr(1)+"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font></strong>"
Response.write "<strong><a href='NetBook.asp?page="+Cstr(currentpage-1)+"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font></strong>"
Else
Response.write "<strong><font color='#000000'>上一页 </font></strong>"
End if
If currentpage < Rs.PageCount Then
Response.write "<strong><a href='NetBook.asp?page="+Cstr(currentPage+1)+"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>"
Response.write "<a href='NetBook.asp?page="+Cstr(Rs.PageCount)+"'><font color='#000000'>尾页</font></a></strong> "
Else
Response.write ""
Response.write "<strong><font color='#000000'>下一页</font></strong> "
End if
%>
</td>
</tr>
<tr>
<td height="1" colspan="2" bgcolor="#999999"></td>
</tr>
</table>
<%
If rs.eof and rs.bof then
exit sub
End if
%>
<br>
<table width="90%" height="18" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#666666">
<tr bgcolor="#99CCFF" class="top_m_txt01">
<td width="56%" height="25" align="center" bgcolor="#CCCCCC"><p align="center"><font color="#000000"><b>留言主题</b></font></p></td>
<td width="22%" height="21" align="center" bgcolor="#CCCCCC"><font color="#000000"><b>时间</b></font></td>
<td width="22%" height="21" align="center" bgcolor="#CCCCCC"><font color="#000000"><b>回复</b></font></td>
</tr>
<%
if not rs.eof then
i=0
do while not rs.eof
%>
<tr bgcolor="#99CCFF" class="top_m_txt01">
<td height="22" bgcolor="#FFFFFF"><%if rs("name")="管理员"then%>
『管理员公告』
<%end if%>
<a href="javascript:winopen('NetBookRe.asp?id=<%=rs("id")%>&name=<%=rs("name")%>')"> <%=rs("title")%></a></td>
<td height="1" bgcolor="#FFFFFF" align="center"> <%=rs("time")%></td>
<td height="1" bgcolor="#FFFFFF" align="center">
<%If rs("rebook")<>"" Then%>
<a href="javascript:winopen('NetBookRe.asp?id=<%=rs("id")%>&name=<%=rs("name")%>')">回复</a>
<%else%>
无
<%End If%>
</td>
</tr>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.movenext
loop
end if
%>
</table>
<%end sub%>
<br>
<br>
</TD>
</TR>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="20" background="img/gsjs_right_bg01.gif"></td>
</tr>
<tr>
<td background="img/gsjs_bg01.gif"></td>
<td valign="bottom" background="img/gsjs_right_bg01.gif"><img src="img/gsjs_img04.gif" width="20" height="148"></td>
</tr>
<tr>
<td colspan="3"><img src="img/gsjs_img02.gif" width="540" height="18"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="9" background="img/cont_tbl01_bg01.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="img/cont_img02.gif" width="580" height="17"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="33" valign="top" background="img/cont_right_bg01.gif"><img src="img/cont_right_img01.gif" width="33" height="431"></td>
</tr>
<tr>
<td valign="top"><img src="img/cont_di_img01.gif" width="30" height="29"></td>
<td align="center" valign="middle" background="img/cont_di_bg01.gif" style="padding-top:9px; "><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="39%"><table width="304" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="57"><img src="img/yqlj_img01.gif" width="57" height="15"></td>
<td width="247"><MARQUEE
align="left" width=230 scrollAmount=1 scrollDelay=4 class="top_m_txt01" onMouseOver="this.stop()" onMouseOut="this.start()">
<% call ShowAnnounce(5) %>
</MARQUEE></td>
</tr>
</table></td>
<td width="61%" align="right" class="top_m_txt01"><script language="JavaScript" type="text/javascript" src="inc/site.asp?online=1&show=all"></script></td>
</tr>
</table></td>
<td valign="top"><img src="img/cont_di_img02.gif" width="33" height="29"></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="Inc/foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -