سأل العديد من مستخدمي الإنترنت عن كيفية عمل برنامج مكالمات أخبار JS ، والآن يتم نشرهم للرجوع إليه:
برنامج الاتصال JS:
list2.asp
رمز المصدر: ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<!-#includefile = "conn.asp"->
<٪
Dimrs ، SQL
معرف ميزة الموارد dimspecid
specid = clng (request ("specid"))
sql = "selecttop10id ، title ، filepathfromview_newsinfowhereinster ('،'+specity+'،' ،" & specid & "، ') <> 0orderbyiddesc"
setRs = conn.execute (SQL)
whilenotrs.eof
Response.write "document.write (" "" <hhref = '/tsys/newsfiles/"& rs (" filepath ") و"' target = '_ blank'> "& rs (" title ") &" </a> <br/> "") "& vbcrlf
Rs.Movenext
ويند
Rs.close
setRs = لا شيء
٪>
-----------------------------------------------------------------------------------
طريقة الاتصال:
رمز المصدر: ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<scriptsrc = "list2.asp؟ specid = 13"> </script>
-----------------------------------------------------------------------------------
اسمحوا لي أن أشرح ذلك ..... ما سبق هو tsys1.0 ...
فيما يلي النسخة المعززة من TSYS1.1 كتبها ..
<!-#includefile = "include/config.asp"->
<٪
Dimrs ، SQL
معرف ميزة الموارد dimspecid
specid = clng (request ("specid"))
Dimconn
setConn = server.createObject ("adodb.connection")
Conn.Openconnstr
sql = "selecttop10id ، title ، filepathfromview_newsinfowhereinster ('،'+specity+'،' ،" & specid & "، ') <> 0orderbyiddesc"
setRs = conn.execute (SQL)
whilenotrs.eof
Response.write "document.write (" "" <hhref = '"& rs (" filepath ") &"' target = '_ blank'> "& rs (" title ") &" </a> <br/> ")" & vbcrlf
Rs.Movenext
ويند
Rs.close
setRs = لا شيء
conn.close
setConn = لا شيء
٪>
يجب أن يعرف الجميع مكان حفظه عندما تنظر إلى inslow/config.asp ...
يمكنك رؤية العرض التوضيحي:
http://31u.net/html/zhuanti/daima005.htm
المكالمة هي المعلومات الموصى بها على الصفحة الرئيسية لـ www.31u.net ... الميزة هي 35 ..
بالطبع ، يمكنك كتابة قائمة أخبار JS للأعمدة الفرعية بناءً على هذا ... من 31U.com