¿Quién puede proporcionar un libro de visitas? Del tipo enviado al buzón. ÁSPID
<%
dim conn,rs,ps,PostIntervalTime,IpLists,LoginPassWord,OnlyShowReplay
LoginPassWord = "51windows.net" 'Contraseña de administración, establezca Contraseña compleja
ps = 20 'Número de mensajes por página
PostIntervalTime = 5*60 'Cuánto tiempo puede dejar un mensaje una misma IP, la unidad son segundos, 5 minutos pueden ser usado 5*60 significa, sin límite, configúrelo en 0
OnlyShowReplay = 1 'Si el mensaje tiene una respuesta antes de mostrarlo, 0 significa que se mostrará en la lista de mensajes inmediatamente después de dejar el mensaje , 1 significa que se mostrará en la lista después de que se requiera una respuesta.
Los mensajes fijados no están restringidos
IpLists = "192.168.|"
'IP que prohíben mensajes, por ejemplo: "127.0.|192.168.0.1"
%>
Respuesta:
">Mensaje principal
<%else%>
Contenido del mensaje:
<% = reemplazar(server.htmlencode(rs("content")) ,vbnewline ,"
<%if len(rs("respuesta")) > 0 entonces%>
<%if len(rs("respuesta")) > 0 entonces%>
p>
Respuesta:
<% = reemplazar(server.htmlencode(rs("respuesta")) ,vbnewline,"
<%end if%>
<%end if %>
t;
<%
i=i+1
si i>=MaxPerPage entonces salga de
rs.movext
p>
bucle
end sub
end if
%>
<%showpages( )%>
<% logintable()%
<%
conn.close
establecer conn = nada
Función NoJapn(byVal iStr)
si es nulo(iStr) o estáEmpty(iStr) entonces
NoJapn=""
Salir de la función
finalizar si
dim F
F=array(chr( -23116),chr(-23124),chr(-23122),chr(-23120),chr(-23118),chr(-23114),chr(-23112),chr(-23110),chr(-23099 ),chr(-23097),chr(-23095),chr(-23075),chr(-23079),chr(-23081),chr(-23085),chr(-23087),chr(-23052), chr(-23076),chr(-23078),chr(-23082),chr(-23084),chr(-23088),chr(-23102),chr(-23104),chr(-23106),chr( -23108))
NoJapn=iStr
para i=0 a 25
NoJapn=replace(NoJapn,F(i),"") p>
siguiente
Función final
función fixsql(str)
dim newstr
newstr = str
si es nulo(newstr) o len(newstr) = 0 entonces
fixsql = newstr
salir de la función
finalizar si
newstr = Reemplazar(newstr,"'","''")
fixsql = newstr
finalizar función
función isForbid(sip)
dim Iplist,Iparr,Ipi
Iplist = "|"& IpLists &"|"
Iparr = split(Iplist,"|")
para Ipi = 0 a ubound(Iparr)
si len(Iparr(Ipi)) > 0 e instr("|" & sip,"|" & Iparr(Ipi)) > 0 entonces
isForbid = true
salir de la función
finalizar si
siguiente
isForbid = false
función final
sub showpages()
pageurl = Request.ServerVariables("SCRIPT_NAME") & "?"
<%
si len(totalput) = 0 entonces
totalput = 0
finalizar si
si totalpages<2 entonces
si int(totalpages) > 0 entonces
response.write "*** "&totalput&" mensajes"
end if
else
dim Page_First,Page_Previous,Page_Next,Page_Last
Page_First = "Página de inicio"
Page_Previous = "Página anterior "
Page_Next = "Siguiente página"
Page_Last = "Última página"
%>
>
<%if int(currentPage) = 1 Then%>
<% = Page_First %>
<% = Page_Previous %>
<% = Página_Siguiente %>
<% = Página_Última %>
<%elseif int(currentPage) = int(totalpages) Then%>
<% = Page_First %> < /a>
<% = Página_Anterior %>
<
;span class="PageDisabled" id="__NextLink"><% = Página_Siguiente %>
<% = Página_Última %>
<%else%>
<% = Page_First %>
<% = Página_Previa %>
<% = Página_Siguiente %>
<% = Page_Last %>
<%end if%>
Página: < % =currentPage%> /<%=totalpages%> la página va a la página <%=totalput%> Mensaje
<%end if%><%
end sub
función logintable()
%>
e width="100%" border="0" cellpacing="0" cellpadding="0">
<%end function%>