newguest.asp

最新电视插件(推荐),可用于小学教育演示。

<!--#include file="../conn.asp"-->
<%  

dim PEurl
'PEurl="http://www.asp163.net/"  '请填写您使用的MyPower系统的正确地址,要以"http://"开头
PEurl=request.ServerVariables("SERVER_NAME")
If request.ServerVariables("SERVER_PORT")<>"80" Then
	PEurl = PEurl & ":" & Request.ServerVariables("SERVER_PORT")
End If
PEurl = PEurl & request.ServerVariables("URL")
PEurl=getservepath(PEurl)

'num     显示数量
'tlen    留言长度
'orders  如果为1 则按留言时间排序 其它按ID排序
'info    留言主题后面的信息 0 不显示 1 用户名 2 短日期+长时间 3 短日期 4 时间

dim sqlGuest,rsGuest,title
dim tlen,num,orders

num=request("num")
if isnumeric(num)=0 or num="" then num=10
tlen=request("tlen")
if isnumeric(tlen)=0 or tlen="" then
	tlen=10
else
	tlen=cint(tlen)
end if
if request("orders")=1 then
	orders="GuestDatetime"
else
	orders="GuestMaxId"
end if

sqlGuest="select top " & num & " * from PE_Guest where GuestIsPassed=" & PE_True & " order by " & orders &" desc"
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
		title=rsGuest("GuestTitle")
		if len(title)>tlen then title=left(title,tlen)&"..." end if
		title=htmlencode(title)
		response.write "document.write('<font color=#b70000><b>·</b></font><a href="&PEurl&"index.asp  target=_blank title=" & htmlencode(rsGuest("GuestTitle")) &">');"
		response.write "document.write('"&title&"');"
		response.write "document.write('</a>');"
		select case request("info")
			case 0
			case 1
				response.write "document.write('