📄 newguest.asp
字号:
<!--#include file="../Start.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
'KindId KindId=0表示调用所有类别的最新留言，KindId为不同的值对应不同类别，KindId=10000只显示精华留言
'OnlyTitle 为0显示主题留言和回复,为1只显示主题留言，不显示回复
'Num 显示数量，列表显示多少条留言主题
'Titlelen 留言长度，留言标题的长度，显示多少个字
'Order 如果为0 按操作排序 1 则按留言时间排序
'ShowPic 主题图片标志 0 不显示 1 符号，2 图片（样式一）
'ShowKindName 是否显示留言类别 为0不显示,为1显示
'ShowContentLen 是否显示留言内容字数 0 不显示 1 显示
'ShowTime 显示时间 0 不显示 1 短日期+长时间 2 短日期 3 时间 4 格式化后的时间 5现已回复
'ShowUserName 是否显示用户名 0 不显示 1 显示
Dim PEurl
PEurl = request.ServerVariables("HTTP_HOST") & request.ServerVariables("URL")
PEurl = GetServePath(PEurl)
Dim sqlGuest, rsGuest, Title
Dim Titlelen, Num, Order, KindID, OnlyTitle, ShowKindName, ShowContentLen, ShowUserName, ShowTime, ShowPic
ShowPic = PE_CLng(Trim(request("ShowPic")))
ShowContentLen = PE_CLng(Trim(request("ShowContentLen")))
ShowUserName = PE_CLng(Trim(request("ShowUserName")))
ShowTime = PE_CLng(Trim(request("ShowTime")))
KindID = PE_CLng(Trim(request("KindID")))
ShowKindName = PE_CLng(Trim(request("ShowKindName")))
Num = PE_CLng(Trim(request("Num")))
Titlelen = PE_CLng(Trim(request("Titlelen")))
If Num = 0 Then Num = 10
If Titlelen = 0 Then Titlelen = 10
If PE_CLng(Trim(request("Order"))) = 1 Then
Order = "GuestDatetime"
Else
Order = "GuestMaxID"
End If
If PE_CLng(Trim(request("OnlyTitle"))) = 1 Then
OnlyTitle = " and GuestID=TopicID"
Else
OnlyTitle = ""
End If
Select Case KindID
Case 0
If ShowKindName = 0 Then
sqlGuest = "select top " & Num & " * from PE_GuestBook where GuestIsPassed=" & PE_True & OnlyTitle & " Order by " & Order & " desc"
Else
sqlGuest = "select top " & Num & " * from PE_GuestBook B left join PE_GuestKind K on B.KindID=K.KindID where GuestIsPassed=" & PE_True & OnlyTitle & " Order by " & Order & " desc"
End If
Case 10000
If ShowKindName = 0 Then
sqlGuest = "select top " & Num & " * from PE_GuestBook where GuestIsPassed=" & PE_True & " and Quintessence=1 Order by " & Order & " desc"
Else
sqlGuest = "select top " & Num & " * from PE_GuestBook B left join PE_GuestKind K on B.KindID=K.KindID where GuestIsPassed=" & PE_True & " and Quintessence=1 Order by " & Order & " desc"
End If
Case Else
If ShowKindName = 1 Then
sqlGuest = "select top " & Num & " * from PE_GuestBook B left join PE_GuestKind K on B.KindID=K.KindID where GuestIsPassed=" & PE_True & OnlyTitle & " and B.KindID=" & KindID & " Order by " & Order & " desc"
Else
sqlGuest = "select top " & Num & " * from PE_GuestBook where GuestIsPassed=" & PE_True & OnlyTitle & " and KindID=" & KindID & " Order by " & Order & " desc"
End If
End Select
Set rsGuest = Server.CreateObject("ADODB.Recordset")
rsGuest.open sqlGuest, Conn, 1, 1
If rsGuest.bof And rsGuest.EOF Then
Response.Write "document.write(' 没有任何留言');"
Else
Do While Not rsGuest.EOF
Response.write "document.write(' <table width=100% border=0 cellpadding=0 cellspacing=0><tr><td height=19>');"
Title = rsGuest("GuestTitle")
If Len(Title) > Titlelen Then
Title = Left(Title, Titlelen) & ""
End If
Title = HTMLEncode(Title)
Select Case ShowPic
Case 0
Case 1
Response.Write "document.write('<font color=#b70000><b>·</b></font>');"
Case 2
Response.Write "document.write('<IMG src=" & PEurl & "Images/common1.gif border=0> ');"
Case 3
Response.Write "document.write('<IMG src=" & PEurl & "Images/common2.gif border=0> ');"
Case 4
Response.Write "document.write('<IMG src=" & PEurl & "Images/common3.gif border=0> ');"
Case 5
Response.Write "document.write('<IMG src=" & PEurl & "Images/common4.gif border=0> ');"
Case 6
Response.Write "document.write('<IMG src=" & PEurl & "Images/common5.gif border=0> ');"
Case 7
Response.Write "document.write('<IMG src=" & PEurl & "Images/common6.gif border=0> ');"
Case 8
Response.Write "document.write('<IMG src=" & PEurl & "Images/common7.gif border=0> ');"
Case 9
Response.Write "document.write('<IMG src=" & PEurl & "Images/common8.gif border=0> ');"
Case 10
Response.Write "document.write('<IMG src=" & PEurl & "Images/common9.gif border=0> ');"
Case Else
End Select
If ShowKindName = 1 Then
If IsNull(rsGuest("KindName")) Then
Response.Write "document.write(' ');"
Else
Response.Write "document.write('[" & rsGuest("KindName") & "] ');"
End If
End If
Response.Write "document.write('<a href=" & PEurl & "Guest_Reply.asp?TopicID=" & rsGuest("TopicID") & " target=_blank Title=" & HTMLEncode(rsGuest("GuestTitle")) & ">');"
Response.Write "document.write('" & Title & "');"
Response.Write "document.write('</a><font color=gray>');"
If ShowContentLen = 1 Then
Response.Write "document.write('(" & rsGuest("GuestContentLength") & "字)');"
End If
If ShowUserName = 1 Or ShowTime = 2 Or ShowTime = 3 Or ShowTime = 4 Then
Response.Write "document.write(' ');"
End If
If ShowUserName = 1 Then
Response.Write "document.write('" & rsGuest("GuestName") & "，');"
End If
Select Case ShowTime
Case 0
Case 1 '短日期格式+长时间格式
Response.Write "document.write('</td><td width=75 align=center><font color=green>" & FormatDateTime(rsGuest("GuestDatetime"), 0) & "</font>');"
Case 2 '短日期格式
Response.Write "document.write('</td><td width=75 align=center><font color=green>" & TransformDay(FormatDateTime(rsGuest("GuestDatetime"), 2)) & "</font>');"
Case 3 '时间
Response.Write "document.write('</td><td width=75 align=center><font color=green>" & FormatDateTime(rsGuest("GuestDatetime"), 4) & "</font>');"
Case 4 '格式化后的时间
Response.Write "document.write('</td><td width=75 align=center><font color=green>" & TransformTime(rsGuest("GuestDatetime")) & "</font>');"
Case Else
End Select
' 显示已回复字样
if len(rsGuest("GuestReply")) >0 then
response.write "document.write('</td><td width=45><font color=#ff0000> " & "已回复 </font>');"
Else
response.write "document.write('</td><td width=45><font color=#999999> " & "未回复 </font>');"
end if
Response.Write "document.write('</font></td></tr></table>');"
rsGuest.movenext
Loop
End If
rsGuest.Close
Set rsGuest = Nothing
Call CloseConn
Function HTMLEncode(ByVal fString)
If Not IsNull(fString) Then
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, Chr(32), " ")
fString = Replace(fString, Chr(9), " ")
fString = Replace(fString, Chr(34), """)
fString = Replace(fString, Chr(39), "'")
fString = Replace(fString, Chr(13), "")
fString = Replace(fString, Chr(10) & Chr(10), "</P><P> ")
fString = Replace(fString, Chr(10), "<BR> ")
HTMLEncode = fString
End If
End Function
Function GetServePath(str)
Dim tmpstr
tmpstr = Split(str, "/")
GetServePath = "http://" & Replace(str, tmpstr(UBound(tmpstr)), "")
End Function
Function PE_CLng(ByVal str1)
If IsNumeric(str1) Then
PE_CLng = CLng(str1)
Else
PE_CLng = 0
End If
End Function
Function TransformDay(ByVal strDay)
Dim strTemp
If Not IsDate(strDay) Then
TransformDay = ""
Exit Function
End If
strTemp = Right("0" & Month(strDay), 2) & "-" & Right("0" & Day(strDay), 2)
TransformDay = strTemp
End Function
Function TransformTime(ByVal GuestDatetime)
If Not IsDate(GuestDatetime) Then Exit Function
Dim thour, tminute, tday, nowday, dnt, dayshow, pshow
thour = Hour(GuestDatetime)
tminute = Minute(GuestDatetime)
tday = DateValue(GuestDatetime)
nowday = DateValue(Now)
If thour < 10 Then
thour = "0" & thour
End If
If tminute < 10 Then
tminute = "0" & tminute
End If
dnt = DateDiff("d", tday, nowday)
If dnt > 2 Then
dayshow = Year(GuestDatetime)
If (Month(GuestDatetime) < 10) Then
dayshow = dayshow & "-0" & Month(GuestDatetime)
Else
dayshow = dayshow & "-" & Month(GuestDatetime)
End If
If (Day(GuestDatetime) < 10) Then
dayshow = dayshow & "-0" & Day(GuestDatetime)
Else
dayshow = dayshow & "-" & Day(GuestDatetime)
End If
TransformTime = dayshow
Exit Function
ElseIf dnt = 0 Then
dayshow = "今天 "
ElseIf dnt = 1 Then
dayshow = "昨天 "
ElseIf dnt = 2 Then
dayshow = "前天 "
End If
TransformTime = dayshow & pshow & thour & ":" & tminute
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -