?? guest.asp
字號:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 產品名稱:CSYS.COM.CN企業全站管理系統(V2007簡體中文版)
' 聯系:QQ:61128110 Emial:61128110@163.com
' Copyright 2006 www.csys.com.cn - 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="1000" BORDER="0" cellpadding="0" CELLSPACING="0">
<TR>
<TD VALIGN="top" CLASS="TABLE-Main"><DIV CLASS="page-head">留言列表</DIV><DIV >
<%
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='#009999'><FONT COLOR=#FFFFFF>發表留言</FONT></DIV></A>"&_
"<A HREF='Guest.asp'><DIV CLASS=guest-CLASS onmouseout=this.style.backgroundColor='' onmouseover=this.style.backgroundColor='#009999'><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='#009999'><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='#009999'><FONT COLOR=#FFFFFF>" & Web_Class(intTemp) & "</FONT></DIV></A>"
Next
%>
</TD>
</TR>
</TABLE>
<%
Call Page_iBottom()
Call Page_Bottom()
Call CloseConn()
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -