guest.asp

台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************

Dim strGue
    IF Web_Const(34)=0 THEN
        error_title="对不起，留言功能已关闭，如有需要请与管理员联系！"
        Call Page_check(3,0)
    End IF
    Set Rs_Manage=server.Createobject("Adodb.Recordset")
    IF Action="" THEN
        Sql="Select * from Tx_Guest where Guest_Flag=1 And Guest_Pass=0 order by Guest_Date desc"
        Rs_Manage.open Sql,Conn,1,1
        Class_Name="<A HREF=Guest.asp>留言列表</A> > 全部留言"
        Action="留言列表"
        Page_Name="留言列表 -- " & Web_Const(0)
    Else
	    IF Action="UserGuest" THEN
            Sql="Select * from Tx_Guest where Guest_Flag=1 And Guest_UserId=" & Loginuser_Id & " order by Guest_Date desc"
		Else
            Sql="Select * from Tx_Guest where Guest_Flag=1 And Guest_Pass=0 And Guest_Class='" & Action & "' order by Guest_Date desc"
		End IF
        Rs_Manage.open Sql,Conn,1,1
        Page_Name=Action & " -- " & Web_Const(0)
        Class_Name="<A HREF=Guest.asp>留言列表</A> > "
		IF Action="UserGuest" THEN
		    Class_Name=Class_Name & Session("Loginuser") & "发表的留言"
            Page_Name=Session("Loginuser") & "发表的留言" & " -- " & Web_Const(0)
		Else
		    Class_Name=Class_Name & Action
            Page_Name=Action & " -- " & Web_Const(0)
		End IF
    End IF
    Call Page_Head()
    Call Page_iHead()
    Call Page_nHead()
	%>
    <TABLE WIDTH="770"  BORDER="0" ALIGN="center" cellpadding="0" CELLSPACING="0">
        <TR>
            <TD VALIGN="top" CLASS="TABLE-Main"><DIV CLASS="page-head">留言列表</DIV><DIV CLASS="TABLE-Mainall">
            <%
            Page_Nexterror=4
            Rs_Manage.PageSize = GuestMax_Class
            totalrec=Rs_Manage.RecordCount 
            iPageSize=Rs_Manage.PageSize
            currentPage=request("page")
            IF currentpage="" THEN
                currentpage=1
            Else
            IF Not isChkInteger(currentPage) THEN Response.Redirect "javascript:history.go(-1);"
                currentpage=clng(currentpage)
            End IF
            IF totalrec mod Cint(iPageSize)=0 THEN
                n= totalrec \ Cint(iPageSize)
            Else
                n= totalrec \ Cint(iPageSize)+1
            End IF
            IF not (Rs_Manage.bof And Rs_Manage.eof) THEN
                Rs_Manage.MoveFirst
                IF currentpage > n THEN currentpage = n
                IF currentpage<1 THEN currentpage=1
                Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
                While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
                    page_count=page_count+1
                    strGue = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=5 STYLE='padding-top:10px;'><TR><TD WIDTH=100 ALIGN=center VALIGN=top><DIV CLASS=guest-face><IMG SRC='" & Rs_Manage("Guest_Face") & "'><BR><BR>" & Rs_Manage("Guest_Add") & "</DIV></TD><TD VALIGN=top><DIV CLASS='guest-titlet'><SPAN STYLE='WIDTH: 68%;'><IMG SRC=Skins/Blue/Tx_Ar4.gif> 主题：<B>" & Rs_Manage("Guest_Title") & "</B></SPAN><SPAN STYLE='WIDTH: 32%;text-align:right;'>" & YearDami(Rs_Manage("Guest_Date")) & "</SPAN></DIV><DIV CLASS=guest-content>" & Rs_Manage("Guest_Content") & "</DIV>"
                    IF Rs_Manage("Guest_AdminContent")<>"" THEN
                        strGue = strGue & "<DIV CLASS=guest-admin><SPAN CLASS='guest-title'><IMG SRC=Skins/Blue/Tx_Ar5.gif> <B>管理员回复：</B></SPAN><SPAN CLASS=guest-time>" & YearDami(Rs_Manage("Guest_AdminDate")) & "</SPAN></DIV><DIV CLASS=guest-adminc>" & Rs_Manage("Guest_AdminContent") & "</DIV>"
                    End IF
                    strGue = strGue & "</TD></TR></TABLE><DIV CLASS=guest-height></DIV>"
                    Response.Write strGue
                Rs_Manage.MoveNext
                Wend 
            End IF
        Rs_Manage.Close
        Set Rs_Manage=Nothing
        Call Page_Next()%>	
        </DIV>
        </TD>
        <TD WIDTH="5"></TD>
        <TD WIDTH="195" ALIGN="center" VALIGN="top" CLASS="TABLE-Side">
            <%
            Web_Class=split(Web_Const(27),",")
            Response.write "<A HREF='Guestadd.asp'><DIV CLASS=guest-CLASS onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#CAE5E8'><FONT COLOR=#FFFFFF>发表留言</FONT></DIV></A>"&_
                           "<A HREF='Guest.asp'><DIV CLASS=guest-CLASS onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#CAE5E8'><FONT COLOR=#FFFFFF>留言列表</FONT></DIV></A>"
						   IF Session("Loginuser")<>"" THEN
                               Response.write "<A HREF='Guest.asp?Action=UserGuest'><DIV CLASS=guest-CLASS onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#CAE5E8'><FONT COLOR=#FFFFFF>我的留言</FONT></DIV></A>"
						   End IF
                For intTemp=0 To ubound(Web_Class)
                    Response.write "<A HREF='Guest.asp?Action=" & Web_Class(intTemp) & "'><DIV CLASS=guest-CLASS onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#CAE5E8'><FONT COLOR=#FFFFFF>" & Web_Class(intTemp) & "</FONT></DIV></A>"
                Next
                %>
        </TD>
        </TR>
    </TABLE>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>