Banyak netizen bertanya bagaimana membuat program panggilan berita JS, dan sekarang mereka diposting untuk referensi Anda:
Program panggilan JS:
Daftar2.asp
Kode Sumber: ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<!-#includeFile = "conn.asp"->
<%
DIMRS, SQL
ID fitur sumber daya dimspecid
Specid = clng (request ("specid"))
Sql = "selecttop10id, title, filepathfromview_newsinfowhereIntr (','+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
Pergi ke
Rs.close
SetRs = tidak ada
%>
--------------------------------------------------------------------------------
Metode Panggilan:
Kode Sumber: ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<scriptSrc = "list2.asp? specid = 13"> </script>
--------------------------------------------------------------------------------
Izinkan saya menjelaskannya ..... di atas adalah tsys1.0 ...
Di bawah ini adalah versi yang disempurnakan dari TSYS1.1 yang ditulis oleh saya ..
<!-#includeFile = "include/config.asp"->
<%
DIMRS, SQL
ID fitur sumber daya dimspecid
Specid = clng (request ("specid"))
Dimconn
SetConn = server.CreateObject ("adodb.connection")
Conn.openconnstr
Sql = "selecttop10id, title, filepathfromview_newsinfowhereIntr (','+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
Pergi ke
Rs.close
SetRs = tidak ada
Conn.Close
setConn = tidak ada
%>
Setiap orang harus tahu di mana harus menyimpannya saat Anda melihat include/config.asp ...
Anda dapat melihat demo:
http://31u.net/html/zhuanti/daima005.htm
Panggilan adalah informasi yang disarankan di halaman beranda www.31u.net ... fiturnya adalah 35 ..
Tentu saja, Anda dapat menulis daftar berita JS untuk sub-kolom berdasarkan ini ... dari31u.com