使用ASP來顯示農場/牧場排名（獨立主機IIS適合)

由於我只會一點asp，看到php代碼我就頭大，所以只能用asp來讀取農場/牧場的數據
準備,先到http://dev.mysql.com/downloads/connector/odbc/5.1.html
下載安裝ODBC5.1.
然後就是

1. <%@Codepage=65001%>
   
2. 
   
3. <%
   
4. strconnection="driver={mysql odbc 5.1 driver};database=UCHOME數據庫;server=localhost;uid=數據庫用戶名;password=密碼;Set Names 'utf-8'"
   
5. set conn = server.createobject("adodb.connection")
   
6. conn.open strconnection
   
7. 
   
8. strquery = "select * from uchome_plug_newfarm order by money desc"
   
9. set rs = conn.execute(strquery)
   
10. rs.PageSize=10
    
11. pagecount=rs.PageCount
    
12. page=int(request.QueryString ("page"))
    
13. if page<=0 then page=1
    
14. if request.QueryString("page")="" then
    
15. page=1
    
16. end if
    
17. if rs.EOF then
    
18.       
    
19.        response.write "沒有任何數據"
    
20.       response.end
    
21.         end if
    
22. 
    
23. 
    
24. 
    
25. %>
    
26. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    
27. <style type="text/css">
    
28. <!--
    
29. .STYLE1 {
    
30.         color: #0000FF;
    
31.         font-weight: bold;
    
32.         font-size: medium;
    
33. }
    
34. -->
    
35. </style>
    
36. 
    
37. 
    
38. <p align="center" class="STYLE1">農場/牧場金錢前十名排行</p>
    
39. <table align="center">
    
40. <tr>
    
41. 
    
42. <td><b>名次</b></td><td><b>UID</b></td><td><b>用戶名</b></td><td><b>金錢</b></td><td><b>經驗</b></td>
    
43. </tr>
    
44. 
    
45. <%for i=1 to rs.PageSize%>
    
46.         <%if rs.EOF then
    
47.         exit for
    
48.         end if
    
49.        
    
50. strquery1 = "select * from uchome_member where uid="& rs("uid")
    
51. set rs1 = conn.execute(strquery1)
    
52. %>
    
53. <tr>
    
54.         <td>第<%=i%>名:</td>
    
55. <td><%=rs("uid")%></td>
    
56. <td><%=rs1("username")%></td>
    
57. <td><%=rs("money")%></td>
    
58. <td><%=rs("exp")%></td>
    
59. </tr>
    
60. <%
    
61. rs.movenext
    
62. next
    
63. %>
    
64. 
    
65. </table>
    
66. <%
    
67. 
    
68. rs.close
    
69. rs1.close  
    
70. conn.close
    
71. set conn = nothing
    
72. set rsdata = nothing
    
73. %>
    
74. 
    

复制代码

把這些代碼保存為一個asp文件，比如top10.asp，編碼為utf-8,最後在uchome模版下的newfarm.htm，找到<!--{template footer}-->，在上面加入
<iframe src="top10.asp" width="700" height="500" border="0"></iframe>
保存，進後臺更新緩存就好了.
這個代碼我自己寫的，很簡單，要顯示F幣什麼的也可以自己改，要顯示前多少名，就把rs.PageSize=10改成多少。
防SQL注入網上很多，自己去找一下吧~

asp - = - ````````````

可以改成php的了

帮顶..........

帮助顶……