De nombreux internautes ont demandé comment créer un programme d'appel JS News, et maintenant ils sont publiés pour votre référence:
Programme d'appel JS:
List2.asp
Code source: -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<! - # includeFile = "conn.asp" ->
<%
DIMRS, SQL
ID de fonctionnalité de ressource dimspecid
Specid = clng (request ("specid"))
Sql = "selectTop10Id, title, filepathfromview_newsinfowhereinstr (',' + specity + ',', '," & specid & ",') <> 0OrderByIdDesc"
Setrs = conn.excute (sql)
Whilenotrs.eof
Réponse.write "document.write (" "<ahref = '/ tsys / newsfiles /" & rs ("filepath") & "' cible = '_ Blank'>" & rs ("title") & "</a> <br/>" ")" & vbcrlf
Rs.MovEnext
Se promener
Rs.Close
Setrs = rien
%>
--------------------------------------------------------------------------------
Méthode d'appel:
Code source: -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<scriptsrc = "list2.asp? Specid = 13"> </ script>
--------------------------------------------------------------------------------
Laissez-moi l'expliquer ..... ce qui précède est TSYS1.0 ...
Vous trouverez ci-dessous la version améliorée de TSYS1.1 écrite par moi.
<! - # includeFile = "include / config.asp" ->
<%
DIMRS, SQL
ID de fonctionnalité de ressource dimspecid
Specid = clng (request ("specid"))
Tabac
SetConn = server.createObject ("adodb.connection")
Conn.OpenConstr
Sql = "selectTop10Id, title, filepathfromview_newsinfowhereinstr (',' + specity + ',', '," & specid & ",') <> 0OrderByIdDesc"
Setrs = conn.excute (sql)
Whilenotrs.eof
Réponse.write "document.write (" "<ahref = '" & rs ("filepath") & "' cible = '_ Blank'>" & rs ("title") & "</a> <br/>" ")" & vbcrlf
Rs.MovEnext
Se promener
Rs.Close
Setrs = rien
Conn.Close
setConn = rien
%>
Tout le monde doit savoir où le sauvegarder lorsque vous regardez inclure / config.asp ...
Vous pouvez voir la démo:
http://31u.net/html/zhuanti/daima005.htm
L'appel est les informations recommandées sur la page d'accueil de www.31u.net ... La fonction est 35 ..
Bien sûr, vous pouvez écrire une liste de nouvelles JS pour les sous-colonnes en fonction de ce ... de 31u.com