user_duanxin.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<script language="javascript">
function view(id){
var id;
window.open('user_showduanxin.asp?id='+id,'_blank','status=no,scrollbars=yes,top=20,left=110,width=580,height=430');
} 
</script>
<script language="javascript">
function viewss(id){
var id;
window.open('user_showsitiduanxin.asp?id='+id,'_blank','status=no,scrollbars=yes,top=20,left=110,width=580,height=430');
} 
</script>
<script language="JavaScript">
<!--
function views(id)
{
	var filename=""+id;
	window.open(filename,"显示窗口","toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,width=580,height=420");
}
//-->
</script>
<script>
function test()
{
  if(!confirm('您确认删除吗？')) return 0;
}
</script>
<% set rsu=server.CreateObject("ADODB.RecordSet")
           rsu.open "select usermessenge,messenge from [User] where ID="&UserID&"",conn,1,1%>
<table width="100%" border="0" cellspacing="1" cellpadding="4" bgcolor="#588fc7">
	<tr>
		<td class="head"><font color="#FFFFFF"><b>短信箱 『 共可存短信<%=rsu("usermessenge")%>条，现剩余<%=rsu("messenge")%>条 
		』</b></font></td>
	</tr>
</table>
<%
rsu.close
set rsu=nothing
%>
<table width="100%" height="22" border="0" align="center" cellspacing="1" cellpadding="4" bgcolor="#CCCCCC">
	<tr bgcolor="#dfefff">
		<td width="56%" height="22" align="center">留言内容</td>
		<td width="14%" align="center">留言人</td>
		<td width="20%" align="center">留言时间</td>
		<td width="10%" align="center">管理</td>
	</tr>
<%
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from [siti_duanxin] where sitis=1 order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
		<td height="17"><a href="javascript:viewss(<%=rs("id")%>)">
		<font color="#FF0000">
		<%=left(rs("content"),31)%></font></a></td>
		<td align="center"><%=rs("custom")%></td>
		<td align="center"><%=rs("dateandtime")%></td>
		<td align="center">  </td>
	</tr>
	<%
rs.movenext
	loop
end if
rs.close
set rs=nothing

Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from [siti_duanxin] where nickname='"&UserName&"' order by dateandtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
		<td height="17"><a href="javascript:viewss(<%=rs("id")%>)">
		<font color="#FF0000">
		<%=left(rs("content"),31)%></font></a></td>
		<td align="center"><%=rs("custom")%></td>
		<td align="center"><%=rs("dateandtime")%></td>
		<td align="center">  </td>
	</tr>
	<%
rs.movenext
	loop
end if
rs.close
set rs=nothing

Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from [duanxin] where nickname='"&UserName&"' order by dateandtime desc"
rs.open sql,conn,1,1
%><%
if rs.eof and rs.bof then
%> <%else%> <%
dim page
page=clng(request("page"))
rs.pagesize=10
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.Absolutepage=page

for j=1 to rs.pagesize
%>
	<tr bgcolor="#FFFFFF">
		<td height="17"><a href="javascript:view(<%=rs("id")%>)">
		<font color="#<%if rs("yd")=1 then Response.Write "008000" else Response.Write "FF0000"%>">
		<%=left(rs("content"),31)%></font></a></td>
		<td align="center"><%=rs("custom")%></td>
		<td align="center"><%=rs("dateandtime")%></td>
		<td align="center">
		<a href="user_duanxindel.asp?id=<%=rs("id")%>" onclick="return test();">
		删除</a>
		<a href="javascript:views('user_duanxinadd.asp?custom=<%=rs("custom")%>')">
		回复</a> </td>
	</tr>
	<%
rs.movenext
if rs.eof then exit for
Next
end if
%>
</table>
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td align="center"><%
					if page<2 then
						response.write "首页 上一页&nbsp;"
					else
						response.write "<a href=user_duanxin.asp?page=1>首页</a>&nbsp;"
						response.write "<a href=user_duanxin.asp?page=" & page-1 & ">上一页</a>&nbsp;"
					end if
					if rs.pagecount-page<1 then
						response.write "下一页 尾页&nbsp;"
					else
						response.write "<a href=user_duanxin.asp?page=" & (page+1) & ">"
						response.write "下一页</a> <a href=user_duanxin.asp?page="&rs.pagecount&">尾页</a>"
					end if
						response.write "&nbsp;页次:<strong><font color=red>"&page&"</font>/"&rs.pagecount&"</strong>页"
						response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录<b>"&rs.pagesize&"</b>共记录/页"
					%></td>
	</tr>
</table>
</tr>
</table>
<br />
<p align="center"><font color="#FF0000">红色</font>为未阅读&nbsp;&nbsp; 
|<font color="#008000">&nbsp;&nbsp; 绿色</font>为已阅读<br />
</p>
<p align="center"><a href="javascript:views('user_duanxinadd.asp')">
写新短信</a></p>
<%
rs.close
set rs=nothing
%>