Muchos internautas preguntaron cómo hacer un programa de llamadas de noticias JS, y ahora están publicados para su referencia:
Programa de llamadas JS:
List2.asp
Código de origen: -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<!-#includeFile = "conn.asp"->
<%
Dimrs, sql
Dimspecid 'ID de característica de recursos
Specid = clng (request ("specid"))
Sql = "selectTop10id, Title, FilePathFromView_newsinfowhereInstr (','+Special+',', '," & Specid & ",') <> 0erDerByidDesc"
Setrs = conn.execute (SQL)
Mientras que
Respuesta.Write "Document.Write (" "<ahref = '/tsys/newsfiles/" & rs ("filepath") & "' target = '_ blank'>" & rs ("title") & "</a> <br/>" ")" & vbcrlf
Rs.Movenext
Encaminarse a
Rs.
SETRS = nada
%>
--------------------------------------------------------------------------------
Método de llamadas:
Código de origen: -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<scriptsrc = "list2.asp? specid = 13"> </script>
--------------------------------------------------------------------------------
Déjame explicarlo ..... lo anterior es tsys1.0 ...
A continuación se muestra la versión mejorada de TSYS1.1 escrita por mí.
<!-#includeFile = "include/config.asp"->
<%
Dimrs, sql
Dimspecid 'ID de característica de recursos
Specid = clng (request ("specid"))
Dimconn
Setconn = server.createObject ("ADODB.Connection")
Conn.openconnstr
Sql = "selectTop10id, Title, FilePathFromView_newsinfowhereInstr (','+Special+',', '," & Specid & ",') <> 0erDerByidDesc"
Setrs = conn.execute (SQL)
Mientras que
Response.Write "Document.Write (" "<ahref = '" & rs ("filepath") & "' target = '_ blank'>" & rs ("title") & "</a> <br/>" ")" & vbcrlf
Rs.Movenext
Encaminarse a
Rs.
SETRS = nada
Conn.clar
setConn = nada
%>
Todos deben saber dónde guardarlo cuando mira incluir/config.asp ...
Puedes ver la demostración:
http://31u.net/html/zhuanti/daima005.htm
La llamada es la información recomendada en la página de inicio de www.31u.net ... la función es 35 ..
Por supuesto, puede escribir una lista de noticias JS para subcolumnos basadas en esto ... de31u.com