ASP

1. <%@ CODEPAGE=936%>
   
2. <%
   
3. Session.CodePage=936
   
4. Response.Charset="GBK"
   
5. 
   
6. Dim Conn
   
7. sub OpenConn()
   
8.         On Error Resume next
   
9.         Set Conn= Server.CreateObject("ADODB.Connection")
   
10.         '链接access
    
11.         'databaseurl="#KO.mdb"
    
12.         'Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(databaseurl)
    
13.         '链接2000
    
14.         Conn.ConnectionString="Provider=SQLOLEDB;Data Source=127.0.0.1;DATABASE=kn_online;UID=kofans;pwd=kofansct"
    
15.         Conn.Open
    
16.         if err.number<>0 then
    
17.                 response.write("<div style='font-size:11px;font-weight:bold;border:1px #ccc solid;background:#fdfdea;padding:6px 10px;text-align:left;margin-bottom:8px;color:red;'>SQL数据库连接失败!请联系管理员解决!</div>")
    
18.                 response.End
    
19.         end if
    
20. end sub
    
21. 
    
22. sub CloseConn()
    
23.         On Error Resume Next
    
24.         If IsObject(Conn) Then
    
25.                 conn.close
    
26.                 set conn=nothing
    
27.         end if
    
28. end sub
    
29. 
    
30. openconn()
    
31. 
    
32. 
    
33. '账号状态
    
34. function getTotalAccount(stype)
    
35.         getTotalAccount=0
    
36.         if stype=1 then'统计总角色数
    
37.                 sqlcnt="select count(*) as cnt from [USERDATA]"
    
38.         elseif stype=2 then'统计在线人数
    
39.                 sqlcnt="select count(*) as cnt from [CURRENTUSER]"
    
40.         elseIf stype=3 then
    
41.                 sqlcnt="select count(*) as cnt from [ACCOUNT_CHAR] where bNation=1"
    
42.         elseIf stype=4 then
    
43.                 sqlcnt="select count(*) as cnt from [ACCOUNT_CHAR] where bNation=2"
    
44.         else'总ID数
    
45.                 sqlcnt="select count(*) as cnt from [TB_USER]"
    
46.         end if
    
47.         set gtas=conn.execute(sqlcnt)
    
48.         if not gtas.eof then        
    
49.                 getTotalAccount=gtas("cnt")
    
50.         end if
    
51.         gtas.close:set gtas=nothing
    
52. end Function
    
53. 
    
54. '取得国王名
    
55. function getKing(stype)
    
56.         getKing="空缺中..."
    
57.         If stype=1 Then
    
58.                 sql="select byNation,strKingName from [KING_SYSTEM] where byNation=1"
    
59.         Else
    
60.                 sql="select byNation,strKingName from [KING_SYSTEM] where byNation=2"
    
61.         End if
    
62.         Set gks=conn.execute(sql)
    
63.         If Not gks.eof Then
    
64.                 If gks("strKingName")<>"" Then getKing=gks("strKingName")
    
65.         End If
    
66.         gks.close:Set gks=nothing
    
67. end function
    
68. %>
    
69. 
    
70. 
    
71. <style>
    
72. *{font-family:arial;font-size:12px;color:#000;}
    
73. .listTbl{border-top:1px #777574 solid;border-left:1px #777574 solid;}
    
74. .listTbl th{font-weight:bold;background:#4d4e48;}
    
75. .listTbl th,
    
76. .listTbl td{border-right:1px #777574 solid;border-bottom:1px #777574 solid;padding:4px;}
    
77. </style>
    
78. <table width="98%" border="0" cellspacing="0" cellpadding="0" class="listTbl">
    
79.         <tr>
    
80.                 <td width="70">服务器IP：</td>
    
81.                 <td align="left"><%=Request.ServerVariables("LOCAL_ADDR")%></td>
    
82.         </tr>
    
83.         <tr>
    
84.                 <td>玩家总数：</td>
    
85.                 <td align="left"><%=getTotalAccount(0)%></td>
    
86.         </tr>
    
87.         <tr>
    
88.                 <td>总角色数：</td>
    
89.                 <td align="left"><%=getTotalAccount(1)%></td>
    
90.         </tr>
    
91.         <tr>
    
92.                 <td>当前在线：</td>
    
93.                 <td align="left"><%=getTotalAccount(2)%></td>
    
94.         </tr>
    
95.         <tr>
    
96.                 <td>人族玩家：</td>
    
97.                 <td align="left"><%=getTotalAccount(3)%></td>
    
98.         </tr>
    
99.         <tr>
    
100.                 <td>兽族玩家：</td>
     
101.                 <td align="left"><%=getTotalAccount(4)%></td>
     
102.         </tr>
     
103.         <tr>
     
104.                 <td>人族国王：</td>
     
105.                 <td align="left"><%=getKing(1)%> </td>
     
106.         </tr>
     
107.         <tr>
     
108.                 <td>兽族国王：</td>
     
109.                 <td align="left"><%=getKing(2)%> </td>
     
110.         </tr>
     
111. </table>
     
112. 
     
113. GM列表<br />
     
114. 
     
115. <table width="98%" border="0" cellspacing="0" cellpadding="0" class="listTbl">
     
116.         <%
     
117.         set rs=conn.execute("select strUserId,[Nation],Authority from [USERDATA] where Authority=0")
     
118.         do while not rs.eof
     
119.         %>
     
120.         <tr>
     
121.                 <td width="60" align="left"><%=rs("strUserId")%></td>
     
122.                 <td align="center"><%=rs("nation")%></td>
     
123.                 <td align="left" width="40">
     
124.                 <%
     
125.                         set ccs=conn.execute("select * from [CURRENTUSER] where strCharID='"&rs("strUserId")&"'")
     
126.                         if not ccs.eof then
     
127.                                 response.write("不在线")
     
128.                         else
     
129.                                 response.write("在线")
     
130.                         end if
     
131.                         ccs.close:set ccs=nothing
     
132.                 %>
     
133.                 </td>
     
134.         </tr>
     
135.         <%
     
136.                 rs.movenext
     
137.         loop
     
138.         rs.close:set rs=nothing
     
139.         %>
     
140. </table>
     
141. 
     
142. <%closeconn()%>

复制代码

PHP的

1. <?php
   
2. // rows
   
3. 
   
4. function parth1tr()
   
5. {
   
6.     echo '        <tbody id="" style="">
   
7. <tr align="center">';
   
8. }
   
9. function parth1($width,$colspan,$align)
   
10. {
    
11.     echo '<td class="thead" width="'.$width.'" colspan="'.$colspan.'" align="'.$align.'" height="4">';
    
12. }
    
13. function parth2()
    
14. {
    
15.     echo '</td>';
    
16. }
    
17. function image($img)
    
18. {
    
19.         echo '<IMG SRC="'. $img .'">';
    
20. }
    
21. function parth2tr()
    
22. {
    
23.     echo '
    
24. </tr>';
    
25. }
    
26. function part1tr()
    
27. {
    
28.     echo '        <tbody id="" style="">
    
29. <tr align="center">';
    
30. }
    
31. function part1($width,$colspan,$alt,$align)
    
32. {
    
33.     echo '<td class="alt'.$alt.'" width="'.$width.'" colspan="'.$colspan.'" align="'.$align.'">
    
34. <div>';
    
35. }
    
36. function part2()
    
37. {
    
38.     echo '</div>
    
39. </td>';
    
40. }
    
41. function part2tr()
    
42. {
    
43.     echo '                </tr>
    
44. </tbody>';
    
45. }
    
46. 
    
47. parth1tr();        
    
48. parth1('100%',3,'center');
    
49. echo 'Server Info';               
    
50. parth2();
    
51. parth2tr();        
    
52. 
    
53. $msconnect = odbc_connect("$dbname","$dbuser","$dbpass");
    
54. 
    
55. $usersonline = odbc_exec($msconnect, "SELECT COUNT(*) FROM CURRENTUSER");
    
56. $totusers = odbc_exec($msconnect, "SELECT COUNT(*) FROM USERDATA");
    
57. $totacc = odbc_exec($msconnect, "SELECT COUNT(*) FROM TB_USER");
    
58. 
    
59. $totalusersonline = odbc_result($usersonline, 1);
    
60. $totalusers = odbc_result($totusers, 1);
    
61. $totalaccounts = odbc_result($totacc, 1);
    
62. 
    
63. part1tr();
    
64. part1('50%',1,2,'center');
    
65. echo 'Users Online:';
    
66. part2();
    
67. part1('50%',2,1,'center');
    
68. echo $totalusersonline;
    
69. part2();
    
70. part2tr();
    
71. 
    
72. part1('50%',1,2,'center');
    
73. echo 'Total Accounts:';
    
74. part2();
    
75. part1('50%',2,1,'center');
    
76. echo $totalaccounts;
    
77. part2();
    
78. part2tr();
    
79. 
    
80. part1('50%',1,2,'center');
    
81. echo 'Total Users:';
    
82. part2();
    
83. part1('50%',2,1,'center');
    
84. echo $totalusers;
    
85. part2();
    
86. part2tr();
    
87. 
    
88. parth1tr();                                                        //nations
    
89. parth1('50%',1,'center');               
    
90. parth2();
    
91. 
    
92. parth1('25%',1,'center');               
    
93. echo 'Count';
    
94. parth2();
    
95. 
    
96. parth1('25%',1,'center');               
    
97. echo '%';
    
98. parth2();
    
99. parth2tr();        
    
100. 
     
101. $totkarus = odbc_exec($msconnect, "SELECT COUNT(*) FROM USERDATA WHERE Nation=1");
     
102. 
     
103. $totalkarus = odbc_result ($totkarus, 1);
     
104. 
     
105. part1('50%',1,2,'center');
     
106. echo 'Karus Characters:';
     
107. part2();
     
108. part1('25%',1,1,'center');
     
109. echo $totalkarus;
     
110. part2();
     
111. part1('25%',1,1,'center');
     
112. echo round((($totalkarus / $totalusers)*100),1);
     
113. part2();
     
114. part2tr();
     
115. 
     
116. $totelmo = odbc_exec($msconnect, "SELECT COUNT(*) FROM USERDATA WHERE Nation=2");
     
117. 
     
118. $totalelmo = odbc_result ($totelmo, 1);
     
119. 
     
120. part1('50%',1,2,'center');
     
121. echo 'El Morad Characters:';
     
122. part2();
     
123. part1('25%',1,1,'center');
     
124. echo $totalelmo;
     
125. part2();
     
126. part2();
     
127. part1('25%',1,1,'center');
     
128. echo round((($totalelmo / $totalusers)*100),1);
     
129. part2();
     
130. part2tr();
     
131. 
     
132. parth1tr();                                                //Classes
     
133. parth1('50%',1,'center');        
     
134. parth2();
     
135. 
     
136. parth1('25%',1,'center');               
     
137. echo 'Count';
     
138. parth2();
     
139. 
     
140. parth1('25%',1,'center');               
     
141. echo '%';
     
142. parth2();
     
143. parth2tr();        
     
144. 
     
145. $classes = odbc_exec($msconnect, "SELECT COUNT(Class) FROM USERDATA WHERE Class=105 OR Class=205");
     
146. 
     
147. $totwar = odbc_result ($classes, 1);
     
148. 
     
149. part1('50%',1,2,'center');
     
150. echo 'Warriors:';
     
151. part2();
     
152. part1('25%',1,1,'center');
     
153. echo $totwar;
     
154. part2();
     
155. part1('25%',1,1,'center');
     
156. echo round((($totwar / $totalusers)*100), 1);
     
157. part2();
     
158. part2tr();
     
159. 
     
160. $classes = odbc_exec($msconnect, "SELECT COUNT(Class) FROM USERDATA WHERE Class=109 OR Class=209");
     
161. 
     
162. $totmage = odbc_result ($classes, 1);
     
163. 
     
164. part1('50%',1,2,'center');
     
165. echo 'Mages:';
     
166. part2();
     
167. part1('25%',1,1,'center');
     
168. echo $totmage;
     
169. part2();
     
170. part1('25%',1,1,'center');
     
171. echo round((($totmage / $totalusers)*100), 1);
     
172. part2();
     
173. part2tr();
     
174. 
     
175. $classes = odbc_exec($msconnect, "SELECT COUNT(Class) FROM USERDATA WHERE Class=107 OR Class=207");
     
176. 
     
177. $totrog = odbc_result ($classes, 1);
     
178. 
     
179. part1('50%',1,2,'center');
     
180. echo 'Rogues:';
     
181. part2();
     
182. part1('25%',1,1,'center');
     
183. echo $totrog;
     
184. part2();
     
185. part1('25%',1,1,'center');
     
186. echo round((($totrog / $totalusers)*100), 1);
     
187. part2();
     
188. part2tr();
     
189. 
     
190. $classes = odbc_exec($msconnect, "SELECT COUNT(Class) FROM USERDATA WHERE Class=111 OR Class=211");
     
191. 
     
192. $totpr = odbc_result ($classes, 1);
     
193. 
     
194. part1('50%',1,2,'center');
     
195. echo 'Priests:';
     
196. part2();
     
197. part1('25%',1,1,'center');
     
198. echo $totpr;
     
199. part2();
     
200. part1('25%',1,1,'center');
     
201. echo round((($totpr / $totalusers)*100), 1);
     
202. part2();
     
203. part2tr();
     
204. 
     
205. part1('50%',1,2,'center');
     
206. echo 'Newbies:';
     
207. part2();
     
208. part1('25%',1,1,'center');
     
209. $totnewb = (($totalusers - ($totwar + $totmage + $totpr + $totrog)));
     
210. echo $totnewb;
     
211. part2();
     
212. part1('25%',1,1,'center');
     
213. echo round((($totnewb / $totalusers)*100), 1);
     
214. part2();
     
215. part2tr();
     
216. 
     
217. 
     
218. 
     
219. 
     
220. 
     
221. ?>
     

复制代码

原帖由 yale122755 于 2008-8-1 01:33 发表
幾八沒一個能下載稿屁?

哪个不能下

{:1_203:}

呵呵 貌似楼主不会下载  连接有外国网站~~

楼主阳火过盛啊，不排除一些网盘上的文件过期的可能，但大部分是好的。楼主搞东西没有耐性哪行。

我下个1097的客户端都找了我一个星期，可算是在老外那里下了个英文版的，现在还没有汉化包可用