Многие пользователи сети спросили, как сделать программу новостных звонков JS, и теперь они размещены для вашей ссылки:
JS CALL PORGHATE:
List2.asp
Source code:------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<!-#includefile = "conn.asp"->
<%
Dimrs, SQL
Идентификатор функции ресурса Dimspecid
Specivid = clng (request ("specist"))
Sql = "selecttop10id, title, filepathfromview_newsinfowhereinstr (','+specity+',', '," & specive & ",') <> 0orderbyiddesc"
Setrs = conn.execute (sql)
Пока
Response.write "document.write (" "<ahref = '/tsys/newsfiles/" & rs ("filepath") & "' target = '_ blank'>" & rs ("title") & "</a> <br/>" ")" & vbcrlf
Rs.movenext
Венд
Rs.close
Setrs = ничего
%>
----------------------------------------------------------------------------------
Метод вызова:
Source code:------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<scriptsrc = "list2.asp? Specid = 13"> </script>
----------------------------------------------------------------------------------
Позвольте мне объяснить это ..... Выше tsys1.0 ...
Ниже приведена расширенная версия TSYS1.1, написанная мной ..
<!-#includefile = "include/config.asp"->
<%
Dimrs, SQL
Идентификатор функции ресурса Dimspecid
Specivid = clng (request ("specist"))
Димконн
SetConn = server.createObject ("adodb.connection")
Conn.openconstr
Sql = "selecttop10id, title, filepathfromview_newsinfowhereinstr (','+specity+',', '," & specive & ",') <> 0orderbyiddesc"
Setrs = conn.execute (sql)
Пока
Response.write "document.write (" "<ahref = '" & rs ("filepath") & "' target = '_ blank'>" & rs ("title") & "</a> <br/>") "& vbcrlf
Rs.movenext
Венд
Rs.close
Setrs = ничего
Conn.close
setConn = ничего
%>
Каждый должен знать, где его сохранить, когда вы смотрите, incover/config.asp ...
Вы можете увидеть демонстрацию:
http://31u.net/html/zhuanti/daima005.htm
Вызов - это рекомендуемая информация на домашней странице www.31u.net ... функция 35.
Конечно, вы можете написать список новостей JS для подколдовых на основе этого ... от 31U.com