myzhai.asp

这是一个非常好的留言版程序

<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<!--#include file="head.asp"-->
<!--#include file = "So_page.asp"-->
<%
 if UserID="" or UserID=null then
 	Response.redirect("login.asp?tourl=myzhai")
 end if

%>
<script language="JavaScript">
function submitForm(obj)
{
	var Title=obj.Title.value;
	var Sort=obj.Sort.value;	
	obj.action="list.asp?sort="+Sort+"&title="+Title;
	return true;
}
</script>
<table width="900" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="10" colspan="3"></td>
    </tr>
  <tr>
    <td width="200" height="200" valign="top" bgcolor="#E3E8EA"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="28" align="left" bgcolor="#B3BDC4" class="title">我的管理中心</td>
      </tr>
      <tr>
        <td height="28" align="left" bgcolor="#EEF1F2">&nbsp;&nbsp;<a href="myzhai.asp">我的收藏</a></td>
      </tr>
      <tr>
        <td height="28" align="left" bgcolor="#DCE2E4">&nbsp;&nbsp;<a href="mysetup.asp?type=basic">基本设置</a></td>
      </tr>
      <tr>
        <td height="28" align="left" bgcolor="#EEF1F2">&nbsp;&nbsp;<a href="mysetup.asp?type=bookmark">书签设置</a></td>
      </tr>
      <tr>
        <td height="28" align="left" bgcolor="#DCE2E4">&nbsp;&nbsp;<a href="mysetup.asp?type=tags">标签管理</a></td>
      </tr>
	  <tr>
        <td height="28" align="left" bgcolor="#EEF1F2">&nbsp;&nbsp;<a href="mysetup.asp?type=js">js调用</a></td>
      </tr>
    </table></td>
    <td width="10" valign="top"></td>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="28" align="right" bgcolor="#D4D0C8">排序方式：<a href="myzhai.asp?sort=<%=sort%>&pxzd=<%=server.urlencode("PostTime")%>"><font class="redfont">时间</font></a> -- <a href="myzhai.asp?sort=<%=sort%>&pxzd=<%=server.urlencode("Rank")%>"><font class="redfont">等级</font></a> -- <a href="myzhai.asp?sort=<%=sort%>&pxzd=<%=server.urlencode("reads")%>"><font class="redfont">点击</font></a></td>
      </tr>
    </table><table width="100%" border="0" cellspacing="3" id="table16">
		<%
		pageno=cint(request.querystring("pageno"))
		if pageno=0 then pageno=1
		
		pxzd=HTMLEncode(request.querystring("pxzd"))
		if pxzd="" then pxzd="hot"
		
		sql="select ID,IIf(Len(Title)<46,Title,Left(Title,46)+'...') as Title,UserID,FromURL,HtmUrl,hot,filepath,PostTime,Xsort,Reads,b.SortName,IIf(Len(Intro)<80,Intro,Left(Intro,80)+'...') as Intro from zhai a,sort b where a.Sort=b.SortID and a.UserId='"&userid&"' and isPub=true order by "&pxzd&" desc,id desc"
		set rs=server.createobject("ADODB.recordset")
		rs.open sql,conn,1
		
		if not rs.bof and not rs.eof then   '  当有数据的时候
			rs.pagesize=30
			rs.absolutepage=pageno
			for i=1 to rs.pagesize
			if rs.eof then exit for
			
		    if i mod 2 =1 then
		    	bg="#FFFFFF"
		    else
		    	bg="#FBF3EC"
		    end if
		    
				Response.Write("<tr>")
				if isgd=1 then
					linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
				else
					linkadd="goto.asp?id="&rs("id")
				end if		
				if rs("hot")=1 then 
					hot="<font color='red'>[荐]</font>"			
				else 
					hot=""
				end if						
				a=split(rs("PostTime"),"-")
				Response.Write("<td valign='top' bgcolor="&BG&" align=left class=list>"&hot&"·<a href="&linkadd&" target='_blank' title='"&HTMLEncode(rs("Title"))&"'>"&HTMLEncode(rs("Title"))&"</a> &nbsp;<a onClick=""return confirm('确定要删除此条记录吗？');"" href=""delzhai.asp?userid="&userid&"&id="&rs("id")&"""><font class=redfont>删除</font></a><font color='#575757'>&nbsp;<a href='editzhai.asp?id="&rs("id")&"'><font class=redfont>修改</font></a></td>")
				rs.MoveNext
				row=row+1
				Response.Write("</tr>")
				
			next
			Response.Write "<tr>"
			response.write "<td class='mt'><br>"
				tj=""
				page "myzhai.asp",tj,pageno,rs.pagecount,rs.pagesize,rs.recordcount
			response.write "</td>"
			Response.Write "</tr>"
		else
		    response.write "暂无数据"
		end if
		
		%>	         
    </table></td>
  </tr>
</table>
<!--#include file="bottom.asp"-->