Muitos internautas perguntaram como fazer um programa de chamadas de notícias JS e agora eles são publicados para sua referência:
Programa de chamada JS:
List2.asp
Código fonte: ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<!-#incluirfile = "Conn.asp"->
<%
DIMRS, SQL
ID do recurso de recurso dimspecid '
Especid = clng (request ("specid")))
Sql = "SelectTop10Id, título, filepathfromview_newsinfowhereinstr (','+specity+',', '," & specid & ",') <> 0OrderByiddesc"
Setrs = Conn.Execute (SQL)
Whilenotrs.eof
Response.Write "Document.Write (" "<AHREF = '/TSYS/NEWSFILES/" & RS ("FILEPATH") & "Target =' _ Blank '>" & RS ("Title") & "</a> <br/>" ")" & vbcrlf
Rs.movenext
Wend
Rs.close
Setrs = nada
%>
----------------------------------------------------------------------------------
Método de chamada:
Código fonte: ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<scriptsrc = "list2.asp? specid = 13"> </sCript>
----------------------------------------------------------------------------------
Deixe -me explicar ..... o acima é Tsys1.0 ...
Abaixo está a versão aprimorada do tsys1.1 escrito por mim ..
<!-#incluirfile = "incluir/config.asp"->
<%
DIMRS, SQL
ID do recurso de recurso dimspecid '
Especid = clng (request ("specid")))
Dimconn
SetConn = server.createObject ("adodb.connection")
Conn.OPENCONNSTR
Sql = "SelectTop10Id, título, filepathfromview_newsinfowhereinstr (','+specity+',', '," & specid & ",') <> 0OrderByiddesc"
Setrs = Conn.Execute (SQL)
Whilenotrs.eof
Response.Write "Document.Write (" "<Ahref = '" & RS ("FilePath") & "Target =' _ Blank '>" & RS ("Title") & "</a> <br/>" ")" & vbcrlf
Rs.movenext
Wend
Rs.close
Setrs = nada
Conn.Close
setConn = nada
%>
Todos devem saber onde salvá -lo quando você olhar para incluir/config.asp ...
Você pode ver a demonstração:
http://31u.net/html/zhuanti/daima005.htm
A chamada são as informações recomendadas na página inicial do www.31u.net ... o recurso é 35 ..
Obviamente, você pode escrever uma lista de notícias JS para sub-colunas com base nisso ... From31u.com